1 /* xgettext Lisp backend. 2 Copyright (C) 2001-2003 Free Software Foundation, Inc. 3 Written by Bruno Haible <haible@clisp.cons.org>, 2001. 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_LISP \ 21 { "lisp", "Lisp" }, \ 22 23 #define SCANNERS_LISP \ 24 { "Lisp", extract_lisp, \ 25 &flag_table_lisp, &formatstring_lisp, NULL }, \ 26 27 /* Scan a Lisp file and add its translatable strings to mdlp. */ 28 extern void extract_lisp (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_lisp_extract_all (void); 37 extern void x_lisp_keyword (const char *name); 38 39 extern void init_flag_table_lisp (void); 40