1 /* xgettext Scheme backend. 2 Copyright (C) 2004 Free Software Foundation, Inc. 3 Written by Bruno Haible <bruno@clisp.org>, 2004. 4 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) 8 any later version. 9 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. 14 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ 18 19 20 #define EXTENSIONS_SCHEME \ 21 { "scm", "Scheme" }, \ 22 23 #define SCANNERS_SCHEME \ 24 { "Scheme", extract_scheme, \ 25 &flag_table_scheme, &formatstring_scheme, NULL }, \ 26 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); 32 33 34 /* Handling of options specific to this language. */ 35 36 extern void x_scheme_extract_all (void); 37 extern void x_scheme_keyword (const char *name); 38 39 extern void init_flag_table_scheme (void); 40