1/* xgettext Tcl Lisp backend. 2 Copyright (C) 2002-2003, 2006 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 3 of the License, or 8 (at your option) 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, see <http://www.gnu.org/licenses/>. */ 17 18 19#include <stdio.h> 20 21#include "message.h" 22#include "xgettext.h" 23 24 25#ifdef __cplusplus 26extern "C" { 27#endif 28 29 30#define EXTENSIONS_TCL \ 31 { "tcl", "Tcl" }, \ 32 33#define SCANNERS_TCL \ 34 { "Tcl", extract_tcl, \ 35 &flag_table_tcl, &formatstring_tcl, NULL }, \ 36 37/* Scan a Tcl file and add its translatable strings to mdlp. */ 38extern void extract_tcl (FILE *fp, const char *real_filename, 39 const char *logical_filename, 40 flag_context_list_table_ty *flag_table, 41 msgdomain_list_ty *mdlp); 42 43 44/* Handling of options specific to this language. */ 45 46extern void x_tcl_extract_all (void); 47extern void x_tcl_keyword (const char *name); 48 49extern void init_flag_table_tcl (void); 50 51 52#ifdef __cplusplus 53} 54#endif 55