source: buchla-68k/ram/rscript.c@ 7258c6a

/*
   =============================================================================
        rscript.c -- define the score test script for scordsp.c
        Version 13 -- 1988-11-03 -- D.N. Lynx Crowe
   =============================================================================
*/

extern  int16_t sqscan(int8_t *ip);

extern  int16_t endflg;

int8_t  *script0[] = {          /* initialization score selection string */

        "!quiet !normal !score=0 !weight=60 !end",
        (int8_t *)0L
};

/*
   =============================================================================
        rscript() -- run a script and return the end condition

                -1      error returned by sqscan
                 0      end of strings, no errors
                 1      !end statement encountered
   =============================================================================
*/

int16_t rscript(int8_t *p[])
{
        int16_t rc;

        sqinit();               /* initialize the score string interpreter */
        rc = 0;                 /* preset rc for end of script return */

        while (*p) {            /* feed the interpreter the score strings */

                if (!sqscan(*p++)) {    /* ... until we have an error ... */

                        rc = -1;                /* error return */
                        break;
                }

                if (endflg) {           /* ... or until we hit the !end */

                        rc = 1;                 /* !end return */
                        break;
                }
        }

        return(rc);
}