From 4dba94c8fe8526284a51a7e929c10bab1f8b56a1 Mon Sep 17 00:00:00 2001
From: Bruno Haible <bruno@clisp.org>
Date: Thu, 7 Mar 2002 13:29:31 +0000
Subject: [PATCH] Auxiliary file for msgunfmt --tcl.

---
 src/ChangeLog    |  2 ++
 src/Makefile.am  | 18 ++++++++++-
 src/msgunfmt.tcl | 83 ++++++++++++++++++++++++++++++++++++++++++++++++
 3 files changed, 102 insertions(+), 1 deletion(-)
 create mode 100644 src/msgunfmt.tcl

diff --git a/src/ChangeLog b/src/ChangeLog
index 6c2d20b8c..2ea87a18f 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -41,7 +41,9 @@
 	tcl_base_directory. More checks for contradicting options. Call
 	msgdomain_read_tcl.
 	(usage): Mention Tcl mode.
+	* msgunfmt.tcl: New file.
 	* Makefile.am (noinst_HEADERS): Add read-tcl.h, write-tcl.h, x-tcl.h.
+	(EXTRA_DIST): Add msgunfmt.tcl.
 	(DEFS): Add -DGETTEXTDATADIR.
 	(FORMAT_SOURCE): Add format-tcl.c.
 	(msgfmt_SOURCES): Add write-tcl.c.
diff --git a/src/Makefile.am b/src/Makefile.am
index b5299e06d..0d7c2851a 100644
--- a/src/Makefile.am
+++ b/src/Makefile.am
@@ -35,7 +35,7 @@ write-mo.h read-java.h write-java.h read-tcl.h write-tcl.h po-time.h \
 plural-table.h format.h xgettext.h x-c.h x-po.h x-python.h x-lisp.h \
 x-elisp.h x-librep.h x-java.h x-awk.h x-ycp.h x-tcl.h x-rst.h x-glade.h
 
-EXTRA_DIST = FILES project-id \
+EXTRA_DIST = FILES project-id msgunfmt.tcl \
 gnu/gettext/DumpResource.java gnu/gettext/GetURL.java
 
 localedir = $(datadir)/locale
@@ -201,5 +201,21 @@ uninstall-java-yes:
 	$(RM) $(DESTDIR)$(jardir)/gettext.jar
 
 
+# Special rules for Tcl auxiliary program.
+
+install-data-local: install-tcl
+install-tcl:
+	$(mkinstalldirs) $(DESTDIR)$(pkgdatadir)
+	$(INSTALL_DATA) $(srcdir)/msgunfmt.tcl $(DESTDIR)$(pkgdatadir)/msgunfmt.tcl
+
+installdirs-local: installdirs-tcl
+installdirs-tcl:
+	$(mkinstalldirs) $(DESTDIR)$(pkgdatadir)
+
+uninstall-local: uninstall-tcl
+uninstall-tcl:
+	$(RM) $(DESTDIR)$(pkgdatadir)/msgunfmt.tcl
+
+
 # One more automake bug.
 installdirs: installdirs-local
diff --git a/src/msgunfmt.tcl b/src/msgunfmt.tcl
new file mode 100644
index 000000000..1bd3edf5e
--- /dev/null
+++ b/src/msgunfmt.tcl
@@ -0,0 +1,83 @@
+# Reading tcl/msgcat .msg files.
+# Copyright (C) 2002 Free Software Foundation, Inc.
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2, or (at your option)
+# any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software Foundation,
+# Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+
+namespace eval msgcat {
+  namespace export mcset mcdump
+  variable header ""
+}
+
+proc msgcat::puts_po_string {str} {
+  # Replace " with \"
+  regsub -all "\"" $str "\\\"" str
+  # Replace \ with \\
+  regsub -all "\\\\" $str "\\\\\\" str
+  # Replace newline with \n
+  regsub -all [subst "\n"] $str "\\n" str
+  regsub -all [subst "\a"] $str "\\a" str
+  regsub -all [subst "\b"] $str "\\b" str
+  regsub -all [subst "\f"] $str "\\f" str
+  regsub -all [subst "\r"] $str "\\r" str
+  regsub -all [subst "\t"] $str "\\t" str
+  regsub -all [subst "\v"] $str "\\v" str
+  # Output it.
+  puts -nonewline "\"$str\""
+}
+
+proc msgcat::write_po_message {msgid msgstr} {
+  puts -nonewline "msgid "
+  puts_po_string $msgid
+  puts ""
+  puts -nonewline "msgstr "
+  puts_po_string $msgstr
+  puts ""
+  puts ""
+}
+
+# This gets called once for each message in the .msg catalog.
+proc msgcat::mcset {locale src {dest ""}} {
+  msgcat::write_po_message $src $dest
+}
+
+# Main function.
+proc msgcat::mcdump {langfile} {
+  if {[file exists $langfile]} {
+    # msgunfmt expects the output in UTF-8 encoding.
+    fconfigure stdout -encoding utf-8
+
+    set msgcat::header ""
+
+    set fd [open $langfile r]
+    # In newer tcl versions, the .msg files are in UTF-8 encoding.
+    fconfigure $fd -encoding utf-8
+    eval [read $fd]
+    close $fd
+
+    if {$msgcat::header == ""} {
+      # Provide a minimal header.
+      set msgcat::header [subst "MIME-Version: 1.0\nContent-Type: text/plain; charset=UTF-8\nContent-Transfer-Encoding: 8bit\n"]
+    }
+    msgcat::write_po_message "" $msgcat::header
+  } else {
+    # Tell msgunfmt to emit an internationalized error message.
+    exit 2
+  }
+}
+
+# Main code: call the main function on the first and only argument.
+msgcat::mcdump [lindex $argv 0]
+
+exit 0
-- 
2.47.2