* utils/dmd-gettext.scm: Rename to... * utils/shepherd-gettext.scm: ... this. * utils/Makefile.am (EXTRA_DIST): Use it. --- utils/Makefile.am | 2 +- utils/dmd-gettext.scm | 61 ---------------------------------------------- utils/shepherd-gettext.scm | 61 ++++++++++++++++++++++++++++++++++++++++++++++ 3 files changed, 62 insertions(+), 62 deletions(-) delete mode 100644 utils/dmd-gettext.scm create mode 100644 utils/shepherd-gettext.scm
diff --git a/utils/Makefile.am b/utils/Makefile.am index 4e8179d..5d13ff0 100644 --- a/utils/Makefile.am +++ b/utils/Makefile.am @@ -1,3 +1,3 @@ # utils/Makefile.am -- Utility programs. -EXTRA_DIST = dmd-gettext.scm sysvconfig.scm +EXTRA_DIST = shepherd-gettext.scm sysvconfig.scm diff --git a/utils/dmd-gettext.scm b/utils/dmd-gettext.scm deleted file mode 100644 index 72d6441..0000000 --- a/utils/dmd-gettext.scm +++ /dev/null @@ -1,61 +0,0 @@ -;; dmd-gettext.scm -- Extract translatable strings from source code. -;; Copyright (C) 2002 Wolfgang J�hrling <wolfg...@pro-linux.de> -;; -;; This file is part of the GNU Shepherd. -;; -;; The GNU Shepherd 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 3 of the License, or (at -;; your option) any later version. -;; -;; The GNU Shepherd 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 the GNU Shepherd. If not, see <http://www.gnu.org/licenses/>. - -(define l10n-keywords '(l10n local-output)) - -(define (puts . text) - (for-each display text) - (newline)) - -(define (found-string str orig) - (puts "#: " (source-property orig 'filename) - ":" (source-property orig 'line)) - (puts "msgid \"" str "\"") - (puts "msgstr \"\"") - (puts)) - -(define (extract-strings port) - (letrec ((next-expr - (lambda (data) - (or (eof-object? data) - (begin - (letrec ((look-at - (lambda (expr) - (if (and (list? expr) - (not (null? expr))) - (begin - (and (memq (car expr) - l10n-keywords) - (found-string (cadr expr) expr)) - (for-each look-at expr)) - (and (pair? expr) - (begin - (look-at (car expr)) - (look-at (cdr expr)))))))) - (look-at data)) - (next-expr (read port))))))) - (next-expr (read port)))) - -;; Safe file positions of the expressions we read. It is enabled by -;; default, but we want to be sure. -(read-enable 'positions) - -;; Iterate over all given files. -(for-each extract-strings - (map open-input-file - (cdr (command-line)))) diff --git a/utils/shepherd-gettext.scm b/utils/shepherd-gettext.scm new file mode 100644 index 0000000..35edacf --- /dev/null +++ b/utils/shepherd-gettext.scm @@ -0,0 +1,61 @@ +;; shepherd-gettext.scm -- Extract translatable strings from source code. +;; Copyright (C) 2002 Wolfgang J�hrling <wolfg...@pro-linux.de> +;; +;; This file is part of the GNU Shepherd. +;; +;; The GNU Shepherd 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 3 of the License, or (at +;; your option) any later version. +;; +;; The GNU Shepherd 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 the GNU Shepherd. If not, see <http://www.gnu.org/licenses/>. + +(define l10n-keywords '(l10n local-output)) + +(define (puts . text) + (for-each display text) + (newline)) + +(define (found-string str orig) + (puts "#: " (source-property orig 'filename) + ":" (source-property orig 'line)) + (puts "msgid \"" str "\"") + (puts "msgstr \"\"") + (puts)) + +(define (extract-strings port) + (letrec ((next-expr + (lambda (data) + (or (eof-object? data) + (begin + (letrec ((look-at + (lambda (expr) + (if (and (list? expr) + (not (null? expr))) + (begin + (and (memq (car expr) + l10n-keywords) + (found-string (cadr expr) expr)) + (for-each look-at expr)) + (and (pair? expr) + (begin + (look-at (car expr)) + (look-at (cdr expr)))))))) + (look-at data)) + (next-expr (read port))))))) + (next-expr (read port)))) + +;; Safe file positions of the expressions we read. It is enabled by +;; default, but we want to be sure. +(read-enable 'positions) + +;; Iterate over all given files. +(for-each extract-strings + (map open-input-file + (cdr (command-line)))) -- 2.6.3
