aboutsummaryrefslogtreecommitdiff
path: root/intl/po2test.awk
diff options
context:
space:
mode:
authorAndreas Schwab <schwab@linux-m68k.org>2012-07-04 14:16:05 +0200
committerAndreas Schwab <schwab@linux-m68k.org>2012-07-04 14:32:53 +0200
commit70d35b6769c1739719101957de77387e48192f74 (patch)
treebbcbe938da0ede53dd4ff3cede4b45fa4ed2595b /intl/po2test.awk
parentca61cf32d934eda9130c4d3c6911892877ad7b0d (diff)
downloadglibc-70d35b6769c1739719101957de77387e48192f74.tar
glibc-70d35b6769c1739719101957de77387e48192f74.tar.gz
glibc-70d35b6769c1739719101957de77387e48192f74.tar.bz2
glibc-70d35b6769c1739719101957de77387e48192f74.zip
Fix tst-gettext test
Diffstat (limited to 'intl/po2test.awk')
-rw-r--r--intl/po2test.awk46
1 files changed, 46 insertions, 0 deletions
diff --git a/intl/po2test.awk b/intl/po2test.awk
new file mode 100644
index 0000000000..f2f010a973
--- /dev/null
+++ b/intl/po2test.awk
@@ -0,0 +1,46 @@
+# po2test.awk - Convert Uniforum style .po file to C code for testing.
+# Copyright (C) 2012 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, see <http://www.gnu.org/licenses/>.
+#
+
+# Output current message (in msg) as argument of the INPUT or OUTPUT macro,
+# depending on msgtype
+function output_message() {
+ # Ignore messages containing <PRI.*> markers which would have to be
+ # replaced by the correct format depending on the word size
+ if (msg && msg !~ /<PRI.*>/)
+ printf ("%s(%s)\n", msgtype == "msgid" ? "INPUT" : "OUTPUT", msg)
+ msg = 0
+}
+
+$1 ~ /msg(id|str)/ {
+ # Output collected message
+ output_message()
+ # Collect next message
+ msgtype = $1
+ sub(/^msg(id|str)[ \t]*/, "", $0)
+ msg = $0
+ next
+}
+
+/^".*"/ {
+ # Append to current message
+ msg = msg "\n" $0
+}
+
+END {
+ # Output last collected message
+ output_message()
+}