main.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     Interpreter *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 }