1*946379e7Schristos /* xgettext Lisp backend. 2*946379e7Schristos Copyright (C) 2001-2003 Free Software Foundation, Inc. 3*946379e7Schristos Written by Bruno Haible <haible@clisp.cons.org>, 2001. 4*946379e7Schristos 5*946379e7Schristos This program is free software; you can redistribute it and/or modify 6*946379e7Schristos it under the terms of the GNU General Public License as published by 7*946379e7Schristos the Free Software Foundation; either version 2, or (at your option) 8*946379e7Schristos any later version. 9*946379e7Schristos 10*946379e7Schristos This program is distributed in the hope that it will be useful, 11*946379e7Schristos but WITHOUT ANY WARRANTY; without even the implied warranty of 12*946379e7Schristos MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13*946379e7Schristos GNU General Public License for more details. 14*946379e7Schristos 15*946379e7Schristos You should have received a copy of the GNU General Public License 16*946379e7Schristos along with this program; if not, write to the Free Software Foundation, 17*946379e7Schristos Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ 18*946379e7Schristos 19*946379e7Schristos 20*946379e7Schristos #define EXTENSIONS_LISP \ 21*946379e7Schristos { "lisp", "Lisp" }, \ 22*946379e7Schristos 23*946379e7Schristos #define SCANNERS_LISP \ 24*946379e7Schristos { "Lisp", extract_lisp, \ 25*946379e7Schristos &flag_table_lisp, &formatstring_lisp, NULL }, \ 26*946379e7Schristos 27*946379e7Schristos /* Scan a Lisp file and add its translatable strings to mdlp. */ 28*946379e7Schristos extern void extract_lisp (FILE *fp, const char *real_filename, 29*946379e7Schristos const char *logical_filename, 30*946379e7Schristos flag_context_list_table_ty *flag_table, 31*946379e7Schristos msgdomain_list_ty *mdlp); 32*946379e7Schristos 33*946379e7Schristos 34*946379e7Schristos /* Handling of options specific to this language. */ 35*946379e7Schristos 36*946379e7Schristos extern void x_lisp_extract_all (void); 37*946379e7Schristos extern void x_lisp_keyword (const char *name); 38*946379e7Schristos 39*946379e7Schristos extern void init_flag_table_lisp (void); 40