root/lang/c/misc/oreoreperl/oreoreperl.c

/*
   author: yappo
   license: perl
   see also: perldoc perlembed
*/

#include <EXTERN.h> 
#include <perl.h>

static PerlInterpreter *my_perl;  /***    The Perl interpreter    ***/

int main(int argc, char **argv, char **env) {
  char *perl_argv[] = { NULL, "/dev/null" };
  int perl_argc = 2;
  perl_argv[0] = argv[0];

  PERL_SYS_INIT3(&perl_argc, &perl_argv, &env);

  my_perl = perl_alloc();
  perl_construct(my_perl);

  perl_parse(my_perl, NULL, perl_argc, perl_argv, (char **)NULL);
  PL_exit_flags |= PERL_EXIT_DESTRUCT_END;

  perl_run(my_perl);
  eval_pv("use OreOrePerl;", TRUE);

  perl_destruct(my_perl);
  perl_free(my_perl);
  PERL_SYS_TERM();
}