summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-07-02 16:09:19 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-07-02 16:09:19 +0000
commit3bedec5364a106e804cdb2ead877fc90a9c2c4da (patch)
treec389ef04f58fb9246e810e57b53f120c07a799d9 /perl-install
parentb58216ed9dff38fa7537768b2e9e22273a21656f (diff)
downloaddrakx-3bedec5364a106e804cdb2ead877fc90a9c2c4da.tar
drakx-3bedec5364a106e804cdb2ead877fc90a9c2c4da.tar.gz
drakx-3bedec5364a106e804cdb2ead877fc90a9c2c4da.tar.bz2
drakx-3bedec5364a106e804cdb2ead877fc90a9c2c4da.tar.xz
drakx-3bedec5364a106e804cdb2ead877fc90a9c2c4da.zip
yet even better i18n strings extraction
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/share/po/Makefile6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/share/po/Makefile b/perl-install/share/po/Makefile
index 70036dc4f..a9bcad71d 100644
--- a/perl-install/share/po/Makefile
+++ b/perl-install/share/po/Makefile
@@ -26,14 +26,14 @@ DrakX.pot: $(PMSFILES)
perl i18n_compssUsers 2>/dev/null >> $@
verif2:
- perl -I ../.. -Mcommon -e 'foreach (qw($(PMSFILES))) { printf "package foo%d;\n", ++$$i; print common::cat_($$_) }' | perl -ne 'print if !/use (diagnostics|vars|strict)/' | OUTFILE=tmp.pm perl -I. -I../.. -Mb_dump_strings >/dev/null 2>/dev/null
+# perl -I ../.. -Mcommon -e 'foreach (qw($(PMSFILES))) { printf "package foo%d;\n", ++$$i; print common::cat_($$_) }' | perl -ne 'print if !/use (diagnostics|vars|strict)/' | OUTFILE=tmp.pm perl -I. -I../.. -Mb_dump_strings >/dev/null 2>/dev/null
perl -pe 's|$$|\\n\\|' tmp.pm > tmp.pm_.c
xgettext --keyword=_ -o tmp.po tmp.pm_.c
msgmerge DrakX.pot tmp.po > tmp.pot
grep "^msgid" tmp.pot | sort > tmp.pot.light
- grep "^msgid" DrakX.pot | sort | diff - tmp.pot.light | grep "^>"
+ grep "^msgid" DrakX.pot | sort | diff - tmp.pot.light | grep "^>" || true
$(PMSCFILES): %_.c: %
- perl -pe 's|^(__?\()| $$1|; s,\Qs/#.*//,,; s|//|/""/|g; s,(^|[^\$$])#([^+].*),\1/*\2*/,; s|$$|\\n\\|' $< > $@
+ perl -lpe 's|^(__?\()| $$1|; s,\Qs/#.*//,,; s|//|/""/|g; s,(^|[^\$$])#([^+].*),\1/*\2*/,; s|$$|\\n\\|' $< > $@
# for i in *.po; do echo -n "$i "; msgfmt -v $i 2>&1; done | perl -e 'print map { $_->[0] } sort { $a->[1] <=> $b->[1] } map { [ $_, (split)[1] ] } <>'