1 #include <EXTERN.h> /* from the Perl distribution */ 2 #include <perl.h> /* from the Perl distribution */ 3 4 extern void xs_init _((void)); 5 6 static PerlInterpreter *iperl; /*** The Perl interpreter ***/ 7 8 int perl_main(int argc,char ** argv,char ** env)9perl_main(int argc, char **argv, char **env) 10 { 11 int r; 12 13 iperl = perl_alloc(); 14 perl_construct(iperl); 15 perl_parse(iperl, xs_init, argc, argv, (char **)NULL); 16 r = perl_run(iperl); 17 18 PerlIO_flush(PerlIO_stdout()); 19 PerlIO_flush(PerlIO_stderr()); 20 21 perl_destruct(iperl); 22 perl_free(iperl); 23 return (r); 24 } 25