xgettext recognise .scm extension

[Jan Nieuwenhuizen]

Hi,

Here's a small patch for xgettext to recognise .scm extention, using
the Lisp parser.

Greetings,
Jan.

Index: gettext-tools/src/ChangeLog
===================================================================
RCS file: /cvs/gettext/gettext/gettext-tools/src/ChangeLog,v
retrieving revision 1.161
diff -p -u -r1.161 ChangeLog
--- gettext-tools/src/ChangeLog 23 Jun 2004 13:29:26 -0000      1.161
+++ gettext-tools/src/ChangeLog 18 Aug 2004 13:40:10 -0000
@@ -1,3 +1,8 @@
+2004-08-18  Jan Nieuwenhuizen  <address@hidden>
+
+       * x-lisp.h (SCANNERS_LISP): Recognise .scm extension.  Use Lisp
+       parser.
+
 2004-06-23  Bruno Haible  <address@hidden>
 
        * x-c.c (phase1_getc): Fix phase0_getc invocation.
Index: gettext-tools/src/x-lisp.h
===================================================================
RCS file: /cvs/gettext/gettext/gettext-tools/src/x-lisp.h,v
retrieving revision 1.3
diff -p -u -r1.3 x-lisp.h
--- gettext-tools/src/x-lisp.h  10 Oct 2003 10:45:56 -0000      1.3
+++ gettext-tools/src/x-lisp.h  18 Aug 2004 13:40:10 -0000
@@ -19,10 +19,13 @@
 
 #define EXTENSIONS_LISP \
   { "lisp",      "Lisp"     },                                         \
+  { "scm",       "Scheme"   },                                         \
 
 #define SCANNERS_LISP \
   { "Lisp",            extract_lisp,                                   \
                        &flag_table_lisp, &formatstring_lisp, NULL },   \
+  { "Scheme",          extract_lisp,                                   \
+                       &flag_table_lisp, &formatstring_lisp, NULL },   \
 
 /* Scan a Lisp file and add its translatable strings to mdlp.  */
 extern void extract_lisp (FILE *fp, const char *real_filename,


-- 
Jan Nieuwenhuizen <address@hidden> | GNU LilyPond - The music typesetter
http://www.xs4all.nl/~jantien       | http://www.lilypond.org