summaryrefslogtreecommitdiffstats
path: root/perl-install/share/po
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/share/po')
-rw-r--r--perl-install/share/po/Makefile1
-rw-r--r--perl-install/share/po/i18n_compssUsers25
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 ""
+);
+}
+