Use _' instead of gettext'.
1999-02-04 Martin Baulig <martin@home-of-linux.org> * names/guile-names.awk: Use `_' instead of `gettext'.
This commit is contained in:
committed by
Martin Baulig
parent
bfe951b32a
commit
ce52ba2dbe
@@ -1,3 +1,7 @@
|
|||||||
|
1999-02-04 Martin Baulig <martin@home-of-linux.org>
|
||||||
|
|
||||||
|
* names/guile-names.awk: Use `_' instead of `gettext'.
|
||||||
|
|
||||||
1999-01-22 Martin Baulig <martin@home-of-linux.org>
|
1999-01-22 Martin Baulig <martin@home-of-linux.org>
|
||||||
|
|
||||||
* names/guile-names.awk: Use a `(TYPE . DIMENSION)' pair for
|
* names/guile-names.awk: Use a `(TYPE . DIMENSION)' pair for
|
||||||
|
|||||||
@@ -82,8 +82,7 @@ function output(feature) {
|
|||||||
print "\tfor (i = 0; i < GLIBTOP_MAX_"toupper(feature)"; i++)";
|
print "\tfor (i = 0; i < GLIBTOP_MAX_"toupper(feature)"; i++)";
|
||||||
print "\t\tlist = scm_append";
|
print "\t\tlist = scm_append";
|
||||||
print "\t\t\t(gh_list (list,";
|
print "\t\t\t(gh_list (list,";
|
||||||
print "\t\t\t\t gh_list (gh_str02scm (gettext";
|
print "\t\t\t\t gh_list (gh_str02scm (_(glibtop_labels_"feature" [i]))),";
|
||||||
print "\t\t\t\t\t\t\t(glibtop_labels_"feature" [i]))),";
|
|
||||||
print "\t\t\t\t SCM_UNDEFINED));";
|
print "\t\t\t\t SCM_UNDEFINED));";
|
||||||
print "";
|
print "";
|
||||||
print "\treturn list;";
|
print "\treturn list;";
|
||||||
@@ -102,8 +101,7 @@ function output(feature) {
|
|||||||
print "\tfor (i = 0; i < GLIBTOP_MAX_"toupper(feature)"; i++)";
|
print "\tfor (i = 0; i < GLIBTOP_MAX_"toupper(feature)"; i++)";
|
||||||
print "\t\tlist = scm_append";
|
print "\t\tlist = scm_append";
|
||||||
print "\t\t\t(gh_list (list,";
|
print "\t\t\t(gh_list (list,";
|
||||||
print "\t\t\t\t gh_list (gh_str02scm (gettext";
|
print "\t\t\t\t gh_list (gh_str02scm (_(glibtop_descriptions_"feature" [i]))),";
|
||||||
print "\t\t\t\t\t\t\t(glibtop_descriptions_"feature" [i]))),";
|
|
||||||
print "\t\t\t\t SCM_UNDEFINED));";
|
print "\t\t\t\t SCM_UNDEFINED));";
|
||||||
print "";
|
print "";
|
||||||
print "\treturn list;";
|
print "\treturn list;";
|
||||||
|
|||||||
Reference in New Issue
Block a user