2 * "The Road goes ever on and on, down from the door where it began."
14 # define EXTERN_C extern "C"
16 # define EXTERN_C extern
19 static void xs_init _((void));
20 static PerlInterpreter *my_perl;
28 #else /* def(CAN_PROTOTYPE) */
29 main(int argc, char **argv, char **env)
30 #endif /* def(CAN_PROTOTYPE) */
35 _response(&argc, &argv);
36 _wildcard(&argc, &argv);
40 getredirection(&argc,&argv);
43 #if defined(HAS_SETLOCALE) && defined(LC_CTYPE)
44 if (setlocale(LC_CTYPE, "") == NULL) {
46 "setlocale(LC_CTYPE, \"\") failed (LC_CTYPE = \"%s\").\n",
53 my_perl = perl_alloc();
56 perl_construct( my_perl );
59 exitstatus = perl_parse( my_perl, xs_init, argc, argv, NULL );
63 exitstatus = perl_run( my_perl );
65 perl_destruct( my_perl );
71 /* Register any extra external extensions */
73 /* Do not delete this line--writemain depends on it */