1 /* xgettext Tcl 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_TCL \ 21 { "tcl", "Tcl" }, \ 22 23 #define SCANNERS_TCL \ 24 { "Tcl", extract_tcl, \ 25 &flag_table_tcl, &formatstring_tcl, NULL }, \ 26 27 /* Scan a Tcl file and add its translatable strings to mdlp. */ 28 extern void extract_tcl (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_tcl_extract_all (void); 37 extern void x_tcl_keyword (const char *name); 38 39 extern void init_flag_table_tcl (void); 40