home *** CD-ROM | disk | FTP | other *** search
/ OpenStep 4.2J (Developer) / os42jdev.iso / NextDeveloper / Source / GNU / perl / Perl / miniperlmain.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-02-14  |  791 b   |  49 lines
  1. /*
  2.  * "The Road goes ever on and on, down from the door where it began."
  3.  */
  4.  
  5. #include "EXTERN.h"
  6. #include "perl.h"
  7.  
  8. static void xs_init _((void));
  9. static PerlInterpreter *my_perl;
  10.  
  11. int
  12. main(argc, argv, env)
  13. int argc;
  14. char **argv;
  15. char **env;
  16. {
  17.     int exitstatus;
  18.  
  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.     }
  29.  
  30.     exitstatus = perl_parse( my_perl, xs_init, argc, argv, env );
  31.     if (exitstatus)
  32.     exit( exitstatus );
  33.  
  34.     exitstatus = perl_run( my_perl );
  35.  
  36.     perl_destruct( my_perl );
  37.     perl_free( my_perl );
  38.  
  39.     exit( exitstatus );
  40. }
  41.  
  42. /* Register any extra external extensions */
  43.  
  44. static void
  45. xs_init()
  46. {
  47.     /* Do not delete this line--writemain depends on it */
  48. }
  49.