1 #include <EXTERN.h> /* from the Perl distribution */
2 #include <perl.h> /* from the Perl distribution */
3 static PerlInterpreter
*my_perl
= NULL
; /*** The Perl interpreter ***/
6 static void xs_init (pTHX
);
7 EXTERN_C
void boot_DynaLoader (pTHX_ CV
* cv
);
8 EXTERN_C
void boot_Socket (pTHX_ CV
* cv
);
11 char *file
= __FILE__
;
12 newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader
, file
); //DynaLoader is a special case
17 int main(int argc
, char **argv
, char **env
) {
18 my_perl
= perl_alloc();
19 perl_construct(my_perl
);
21 if(0) { //interactive?
22 perl_parse(my_perl
, xs_init
, argc
, argv
, (char **)NULL
);
24 char *embedding
[] = { "", "-e", "0" };
25 //perl_parse(my_perl, NULL, 3, embedding, NULL); //no dynamic loader
26 perl_parse(my_perl
, xs_init
, 3, embedding
, NULL
);
30 "use LWP::Simple; getprint('http://harvie.cz/');"
33 //eval_pv("$a = 3; $a **= 2", TRUE); printf("a = %d\n", SvIV(get_sv("a", FALSE)));
34 //eval_pv("$a = 3.14; $a **= 2", TRUE); printf("a = %f\n", SvNV(get_sv("a", FALSE)));
35 //eval_pv("$a = 'rekcaH lreP rehtonA tsuJ'; $a = reverse($a);", TRUE); printf("a = %s\n", SvPV(get_sv("a", FALSE), n_a));
38 perl_destruct(my_perl
);
This page took 0.337332 seconds and 4 git commands to generate.