From 3e39ce9397a511e6ed08dffd61f2d8c13fd02241 Mon Sep 17 00:00:00 2001 From: Jason Downs Date: Mon, 19 Aug 1996 13:53:59 +0000 Subject: -cruft --- gnu/usr.bin/perl/tmp | 72 ---------------------------------------------------- 1 file changed, 72 deletions(-) delete mode 100644 gnu/usr.bin/perl/tmp (limited to 'gnu/usr.bin') diff --git a/gnu/usr.bin/perl/tmp b/gnu/usr.bin/perl/tmp deleted file mode 100644 index 5c9b0d57294..00000000000 --- a/gnu/usr.bin/perl/tmp +++ /dev/null @@ -1,72 +0,0 @@ -/* - * "The Road goes ever on and on, down from the door where it began." - */ - -#ifdef __cplusplus -extern "C" { -#endif - -#include "EXTERN.h" -#include "perl.h" - -#ifdef __cplusplus -} -# define EXTERN_C extern "C" -#else -# define EXTERN_C extern -#endif - -static void xs_init _((void)); -static PerlInterpreter *my_perl; - -int -#ifdef CAN_PROTOTYPE -main(int argc, char **argv, char **env) -#else -main(argc, argv, env) -int argc; -char **argv; -char **env; -#endif -{ - int exitstatus; - - PERL_SYS_INIT(&argc,&argv); - - perl_init_i18nl14n(1); - - if (!do_undump) { - my_perl = perl_alloc(); - if (!my_perl) - exit(1); - perl_construct( my_perl ); - } - - exitstatus = perl_parse( my_perl, xs_init, argc, argv, (char **) NULL ); - if (exitstatus) - exit( exitstatus ); - - exitstatus = perl_run( my_perl ); - - perl_destruct( my_perl ); - perl_free( my_perl ); - - PERL_SYS_TERM(); - - exit( exitstatus ); -} - -/* Register any extra external extensions */ - -/* Do not delete this line--writemain depends on it */ -EXTERN_C void boot_DynaLoader _((CV* cv)); - -static void -xs_init() -{ - dXSUB_SYS; - char *file = __FILE__; - { - newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file); - } -} -- cgit v1.2.3