perlmain.c

   1 #include "INTERN.h"
   2 #include "perl.h"
   3
   4 main(argc, argv, env)
   5 int argc;
   6 char **argv;
   7 char **env;
   8 {
   9     int exitstatus;
  10     PerlInterpreter *my_perl;
  11
  12     my_perl = perl_alloc();
  13     if (!my_perl)
  14         exit(1);
  15     perl_construct( my_perl );
  16
  17     exitstatus = perl_parse( my_perl, argc, argv, env );
  18     if (exitstatus)
  19         exit( exitstatus );
  20
  21     exitstatus = perl_run( my_perl );
  22
  23     perl_destruct( my_perl );
  24     perl_free( my_perl );
  25
  26     exit( exitstatus );
  27 }
  28
  29 /* Register any extra external extensions */
  30
  31 void
  32 perl_init_ext()
  33 {
  34     char *file = __FILE__;
  35     /* Do not delete this line--writemain depends on it */
  36         boot_DynamicLoader();
  37
  38 }