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)9 perl_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