1 /* xgettext Scheme backend.
2 Copyright (C) 2004 Free Software Foundation, Inc.
3 Written by Bruno Haible <bruno@clisp.org>, 2004.
5 This program is free software; you can redistribute it and/or modify
6 it under the terms of the GNU General Public License as published by
7 the Free Software Foundation; either version 2, or (at your option)
10 This program is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 GNU General Public License for more details.
15 You should have received a copy of the GNU General Public License
16 along with this program; if not, write to the Free Software Foundation,
17 Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
20 #define EXTENSIONS_SCHEME \
21 { "scm", "Scheme" }, \
23 #define SCANNERS_SCHEME \
24 { "Scheme", extract_scheme, \
25 &flag_table_scheme, &formatstring_scheme, NULL }, \
27 /* Scan a Scheme file and add its translatable strings to mdlp. */
28 extern void extract_scheme (FILE *fp
, const char *real_filename
,
29 const char *logical_filename
,
30 flag_context_list_table_ty
*flag_table
,
31 msgdomain_list_ty
*mdlp
);
34 /* Handling of options specific to this language. */
36 extern void x_scheme_extract_all (void);
37 extern void x_scheme_keyword (const char *name
);
39 extern void init_flag_table_scheme (void);