/* * 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_perlvoid 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_framevoid 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 ...