1/* xgettext Perl backend. 2 Copyright (C) 2002-2003, 2006 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 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_PERL \ 31 { "pl", "perl" }, \ 32 { "PL", "perl" }, \ 33 { "pm", "perl" }, \ 34 { "cgi", "perl" }, \ 35 36#define SCANNERS_PERL \ 37 { "perl", extract_perl, \ 38 &flag_table_perl, &formatstring_perl, &formatstring_perl_brace }, \ 39 40/* Scan a Perl file and add its translatable strings to mdlp. */ 41extern void extract_perl (FILE *fp, const char *real_filename, 42 const char *logical_filename, 43 flag_context_list_table_ty *flag_table, 44 msgdomain_list_ty *mdlp); 45 46extern void x_perl_keyword (const char *keyword); 47extern void x_perl_extract_all (void); 48 49extern void init_flag_table_perl (void); 50 51 52#ifdef __cplusplus 53} 54#endif 55