Commit | Line | Data |
---|---|---|
a0d0e21e | 1 | /* |
2 | * "The Road goes ever on and on, down from the door where it began." | |
3 | */ | |
4 | ||
ecfc5424 | 5 | #include "EXTERN.h" |
2304df62 | 6 | #include "perl.h" |
7 | ||
a0d0e21e | 8 | static void xs_init _((void)); |
9 | static PerlInterpreter *my_perl; | |
10 | ||
a0d0e21e | 11 | int |
2304df62 | 12 | main(argc, argv, env) |
13 | int argc; | |
14 | char **argv; | |
15 | char **env; | |
16 | { | |
17 | int exitstatus; | |
2304df62 | 18 | |
a0d0e21e | 19 | #ifdef VMS |
20 | getredirection(&argc,&argv); | |
21 | #endif | |
22 | ||
23 | if (!do_undump) { | |
24 | my_perl = perl_alloc(); | |
25 | if (!my_perl) | |
26 | exit(1); | |
27 | perl_construct( my_perl ); | |
28 | } | |
2304df62 | 29 | |
a0d0e21e | 30 | exitstatus = perl_parse( my_perl, xs_init, argc, argv, env ); |
2304df62 | 31 | if (exitstatus) |
32 | exit( exitstatus ); | |
33 | ||
34 | exitstatus = perl_run( my_perl ); | |
35 | ||
748a9306 | 36 | perl_destruct( my_perl ); |
2304df62 | 37 | perl_free( my_perl ); |
38 | ||
39 | exit( exitstatus ); | |
40 | } | |
41 | ||
42 | /* Register any extra external extensions */ | |
43 | ||
a0d0e21e | 44 | static void |
45 | xs_init() | |
2304df62 | 46 | { |
85e6fe83 | 47 | /* Do not delete this line--writemain depends on it */ |
2304df62 | 48 | } |