diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/share/po/Makefile | 1 | ||||
| -rw-r--r-- | perl-install/share/po/i18n_compssUsers | 25 |
2 files changed, 26 insertions, 0 deletions
diff --git a/perl-install/share/po/Makefile b/perl-install/share/po/Makefile index 0466e88ed..7e8d1bcfa 100644 --- a/perl-install/share/po/Makefile +++ b/perl-install/share/po/Makefile @@ -22,6 +22,7 @@ DrakX.pot: $(PMSFILES) $(MAKE) $(PMSCFILES); xgettext -F -n --add-comments='-PO' --keyword=_ --keyword=__ -o $@ $(PMSCFILES) rm $(PMSCFILES) + ./i18n_compssUsers 2>/dev/null >> $@ $(PMSCFILES): %_.c: % perl -pe 's|^(__?\()| $$1|; s,(^|[^\$$])#([^+].*),\1/*\2*\/,; s|$$|\\n\\|' $< > $@ diff --git a/perl-install/share/po/i18n_compssUsers b/perl-install/share/po/i18n_compssUsers new file mode 100644 index 000000000..d37fdf3fd --- /dev/null +++ b/perl-install/share/po/i18n_compssUsers @@ -0,0 +1,25 @@ +#!/usr/bin/perl + +use lib "../.."; +use pkgs; +use common ":common"; + + +sub get { + my ($meta_class) = @_; + local *install_any::getFile = sub { + open GETFILE, "../compssUsers$meta_class" and *GETFILE; + }; + my (undef, undef, undef, $descr) = pkgs::readCompssUsers([{}], [], $meta_class); + %$descr; +} + +foreach (uniq(get(''), get('.desktop'))) { + s/"/\"/g; + print qq( +#: ../../share/compssUsers +msgid "$_" +msgstr "" +); +} + |