1 /* GNU m4 -- A simple macro processor
2 Copyright (C) 1999, 2000, 2006, 2007, 2008 Free Software
5 This file is part of GNU M4.
7 GNU M4 is free software: you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation, either version 3 of the License, or
10 (at your option) any later version.
12 GNU M4 is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program. If not, see <http://www.gnu.org/licenses/>.
23 /* Build using only the exported interfaces, unless NDEBUG is set, in
24 which case use private symbols to speed things up as much as possible. */
26 # include <m4/m4module.h>
28 # include "m4private.h"
32 #include "perlxsi.c" /* Perl stuff */
36 /* Rename exported symbols for dlpreload()ing. */
37 #define m4_builtin_table perl_LTX_m4_builtin_table
38 #define m4_macro_table perl_LTX_m4_macro_table
40 /* function macros blind side minargs maxargs */
41 #define builtin_functions \
42 BUILTIN (perleval, false, false, false, 0, -1 ) \
45 #define BUILTIN(handler, macros, blind, side, min, max) M4BUILTIN (handler)
49 const m4_builtin m4_builtin_table
[] =
51 #define BUILTIN(handler, macros, blind, side, min, max) \
52 M4BUILTIN_ENTRY (handler, #handler, macros, blind, side, min, max)
57 { NULL
, NULL
, 0, 0, 0 },
60 /* A table for mapping m4 symbol names to simple expansion text. */
61 const m4_macro m4_macro_table
[] =
63 /* name text min max */
64 { "__perleval__", "", 0, 0 },
70 static PerlInterpreter
*my_perl
;
74 const lt_dlinfo
*info
= 0;
75 char *embedding
[] = { "", "-e", "0" };
78 info
= lt_dlgetinfo (module
);
80 /* Start up a perl parser, when loaded for the first time. */
81 if (info
&& (info
->ref_count
== 1))
83 my_perl
= perl_alloc ();
84 perl_construct (my_perl
);
86 perl_parse (my_perl
, xs_init
, 3, embedding
, NULL
);
91 M4FINISH_HANDLER (perl
)
93 const lt_dlinfo
*info
= 0;
96 info
= lt_dlgetinfo (module
);
98 /* Recycle the perl parser, when unloaded for the last time. */
99 if (info
&& (info
->ref_count
== 1))
101 perl_destruct (my_perl
);
109 * perleval([PERLCODE], [...])
111 M4BUILTIN_HANDLER (perleval
)
116 for (i
= 1; i
< argc
; i
++)
119 obstack_1grow (obs
, ',');
121 val
= perl_eval_pv (M4ARG (i
), true);
123 m4_shipout_string (context
, obs
, SvPV (val
, PL_na
), SIZE_MAX
, false);