104 lines
2.4 KiB
C
104 lines
2.4 KiB
C
|
/*
|
||
|
|
* Experimental Perl code in Build.
|
||
|
|
*
|
||
|
|
* Written by Ryan C. Gordon. (icculus@clutteredmind.org)
|
||
|
|
*
|
||
|
|
* Please do NOT harrass Ken Silverman about any code modifications
|
||
|
|
* (including this file) to BUILD.
|
||
|
|
*/
|
||
|
|
|
||
|
|
/*
|
||
|
|
* "Build Engine & Tools" Copyright (c) 1993-1997 Ken Silverman
|
||
|
|
* Ken Silverman's official web site: "http://www.advsys.net/ken"
|
||
|
|
* See the included license file "BUILDLIC.TXT" for license info.
|
||
|
|
* This file IS NOT A PART OF Ken Silverman's original release
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include <EXTERN.h>
|
||
|
|
#include <perl.h>
|
||
|
|
|
||
|
|
#include "buildperl.h"
|
||
|
|
|
||
|
|
static PerlInterpreter *perl = NULL;
|
||
|
|
static char *embedding[] = { "", "game.pl" };
|
||
|
|
//static char *args[] = { NULL };
|
||
|
|
static SV *framefunc = NULL;
|
||
|
|
//static SV *ref_framefunc = NULL;
|
||
|
|
static HV *stash = NULL;
|
||
|
|
|
||
|
|
int buildperl_init(void)
|
||
|
|
{
|
||
|
|
int retval = -1;
|
||
|
|
|
||
|
|
printf("initializing perl...\n");
|
||
|
|
|
||
|
|
perl = perl_alloc();
|
||
|
|
if (perl == NULL)
|
||
|
|
printf("no memory!");
|
||
|
|
else
|
||
|
|
{
|
||
|
|
perl_construct(perl);
|
||
|
|
|
||
|
|
if (perl_parse(perl, NULL, 2, embedding, NULL) == 0)
|
||
|
|
{
|
||
|
|
printf("perl initialization was successful.\n"
|
||
|
|
"running perl mainline...\n");
|
||
|
|
perl_run(perl);
|
||
|
|
printf("perl mainline complete.\n");
|
||
|
|
retval = 0;
|
||
|
|
|
||
|
|
// framefunc = get_sv("BUILD_frame", FALSE);
|
||
|
|
|
||
|
|
stash = gv_stashpv("main", FALSE);
|
||
|
|
if (stash == NULL)
|
||
|
|
printf("main stash is NULL!\n");
|
||
|
|
else
|
||
|
|
{
|
||
|
|
framefunc = *(hv_fetch(stash, "BUILD_frame", 11, FALSE));
|
||
|
|
if (framefunc == NULL)
|
||
|
|
printf("framefunc == NULL!\n");
|
||
|
|
}
|
||
|
|
} // if
|
||
|
|
else
|
||
|
|
{
|
||
|
|
printf("perl_parse() failed!\n");
|
||
|
|
perl_destruct(perl);
|
||
|
|
perl_free(perl);
|
||
|
|
perl = NULL;
|
||
|
|
} // else
|
||
|
|
} // else
|
||
|
|
|
||
|
|
return(retval);
|
||
|
|
} // initialize_perl
|
||
|
|
|
||
|
|
|
||
|
|
void buildperl_frame(void)
|
||
|
|
{
|
||
|
|
dSP;
|
||
|
|
|
||
|
|
PUSHMARK(SP);
|
||
|
|
|
||
|
|
if (perl != NULL)
|
||
|
|
{
|
||
|
|
// call_argv("BUILD_frame", G_DISCARD | G_NOARGS, args);
|
||
|
|
call_sv(framefunc, G_DISCARD | G_NOARGS);
|
||
|
|
} // if
|
||
|
|
} // buildperl_frame
|
||
|
|
|
||
|
|
|
||
|
|
void buildperl_deinit(void)
|
||
|
|
{
|
||
|
|
printf("buildperl_deinit() called.\n");
|
||
|
|
|
||
|
|
if (perl != NULL)
|
||
|
|
{
|
||
|
|
perl_destruct(perl);
|
||
|
|
perl_free(perl);
|
||
|
|
perl = NULL;
|
||
|
|
printf("perl interpreter cleanup successful.\n");
|
||
|
|
} // if
|
||
|
|
} // buildperl_deinit
|
||
|
|
|
||
|
|
// end of buildperl.c ...
|
||
|
|
|