1 /* xgettext Emacs Lisp backend. 2 Copyright (C) 2002-2003 Free Software Foundation, Inc. 3 Written by Bruno Haible <haible@clisp.cons.org>, 2002. 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_ELISP \ 21 { "el", "EmacsLisp" }, \ 22 23 #define SCANNERS_ELISP \ 24 { "EmacsLisp", extract_elisp, \ 25 &flag_table_elisp, &formatstring_elisp, NULL }, \ 26 27 /* Scan an Emacs Lisp file and add its translatable strings to mdlp. */ 28 extern void extract_elisp (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_elisp_extract_all (void); 37 extern void x_elisp_keyword (const char *name); 38 39 extern void init_flag_table_elisp (void); 40