1 /* xgettext Perl backend. 2 Copyright (C) 2002-2003 Free Software Foundation, Inc. 3 Written by Guido Flohr <guido@imperia.net>, 2002-2003 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_PERL \ 21 { "pl", "perl" }, \ 22 { "PL", "perl" }, \ 23 { "pm", "perl" }, \ 24 { "cgi", "perl" }, \ 25 26 #define SCANNERS_PERL \ 27 { "perl", extract_perl, \ 28 &flag_table_perl, &formatstring_perl, &formatstring_perl_brace }, \ 29 30 /* Scan a Perl file and add its translatable strings to mdlp. */ 31 extern void extract_perl (FILE *fp, const char *real_filename, 32 const char *logical_filename, 33 flag_context_list_table_ty *flag_table, 34 msgdomain_list_ty *mdlp); 35 36 extern void x_perl_keyword (const char *keyword); 37 extern void x_perl_extract_all (void); 38 39 extern void init_flag_table_perl (void); 40