scirun.c

Go to the documentation of this file.

/*-----------------------------------------------------------------------------------*/ 
/* INRIA 2007 */
/* Scilab */
/*-----------------------------------------------------------------------------------*/ 
#include "stack-c.h"
#include "scirun.h"
/*-----------------------------------------------------------------------------------*/ 
extern int C2F(allowptr)(int *);
extern int C2F(callinterf)(int *, int *);
extern int C2F(iset)(int *, int *, int *, int *);
extern int C2F(funs)(int *);
extern int C2F(parse)(void);
extern int C2F(error)(int *);
extern int C2F(ref2val)(void);
extern int C2F(isbyref)(int *);
/*-----------------------------------------------------------------------------------*/ 
static void str_copy_buf(register char *a, register char *b, long int la, long int lb);

int C2F(scirun)(char *bu1, long int bu1_len)
{
    static int iflagint = 0;
        static int k = 0;
        static int ir = 0;

        /* set instruction to execute at start-up */

        str_copy_buf(cha1_.buf, bu1, bsiz, bu1_len);
    C2F(iop).rio = -1;
    C2F(iop).lpt[0] = 1;
    C2F(iop).lpt[5] = 0;
    C2F(recu).pt = 0;

    C2F(recu).icall = 0;
    C2F(recu).krec = 99999;

        /* call instructions parser */

L60:
    C2F(parse)();
    if (C2F(com).fun == 99) 
        {
                C2F(com).fun = 0;
                return 0;
    }
    if (Err > 0) 
        {
                if (C2F(recu).niv > 0 && C2F(recu).paus > 0) C2F(com).fun = 0;
                goto L60;
    }

    if (C2F(recu).rstk[C2F(recu).pt - 1] / 100 == 9) 
        {
                ir = C2F(recu).rstk[C2F(recu).pt - 1] - 900;

                if (ir == 1) 
                {
                        /* back to gw_core */
                        k = 13;
                } 
                else if (ir >= 2 && ir <= 9) 
                {
                        /* back to gw_io */
                        k = 5;
                }
                else if (ir == 10) 
                {
                        /* end of overloaded function */
                        --C2F(recu).pt;
                        goto L90;
                }
                else if (ir > 40) 
                {
                        /* back to gw_user2 */
                        k = 24;
                }
                else if (ir > 20) 
                {
                        /* back to gw_user */
                        k = 14;
                }
                else
                {
                        goto L89;
                }
                iflagint = 0;
                goto L95;
    }

L89:
    if (Top < Rhs) 
        {
                int code_error=22;
                C2F(error)(&code_error);
                if (C2F(recu).niv > 0 && C2F(recu).paus > 0) C2F(com).fun = 0;
                goto L60;
    }
    if (Top - Rhs + Lhs + 1 >= Bot) 
        {
                int code_error=18;
                C2F(error)(&code_error);
                if (C2F(recu).niv > 0 && C2F(recu).paus > 0) C2F(com).fun = 0;
                goto L60;
    }
    C2F(errgst).toperr = Top - Max(0,Rhs);
    goto L91;

L90:
    if (Err > 0) 
        {
                if (C2F(recu).niv > 0 && C2F(recu).paus > 0) C2F(com).fun = 0;
                goto L60;
    }
L91:
    k = C2F(com).fun;
    C2F(com).fun = 0;
    if (k == C2F(recu).krec) 
        {
                int code_error=22;
                C2F(recu).krec = -1;
                C2F(error)(&code_error);
                if (C2F(recu).niv > 0 && C2F(recu).paus > 0) C2F(com).fun = 0;
                goto L60;
    }
    C2F(recu).krec = -1;
    if (k == 0) goto L60;
    
L95:
    if (! C2F(allowptr)(&k)) 
        {
                C2F(ref2val)();
    }
    C2F(recu).krec = k;
    C2F(callinterf)(&k, &iflagint);
    C2F(recu).krec = -1;
    if (C2F(com).fun >= 0) 
        {
                if (Top - Lhs + 1 > 0) 
                {
                        int cx0=0;
                        int cx1=0;
                        C2F(iset)(&Rhs, &cx0, &C2F(vstk).infstk[Top - Lhs], &cx1);
                }
                if (C2F(recu).paus > 0) 
                {
                        goto L91;
                }
                if (C2F(errgst).err1 > 0) 
                {
                        Top = C2F(errgst).toperr;
                }
                goto L90;
        }

        /*
        called interface ask for a scilab function to perform the function (fun=-1)
        the function name is given in ids(1,pt+1)
        call ref2val removed here because if forces overloading function to
        be called by value
        call ref2val
        */
    C2F(com).fun = 0;
    C2F(funs)(&C2F(recu).ids[(C2F(recu).pt + 1) * 6 - 6]);
    if (C2F(iop).err > 0) 
        {
                if (C2F(recu).niv > 0 && C2F(recu).paus > 0) C2F(com).fun = 0;
                goto L60;
    }
    if (C2F(com).fun > 0) 
        {
                if (C2F(isbyref)(&C2F(com).fun) == 0) 
                {
            C2F(ref2val)();
                }
                goto L91;
    }

    if (Fin == 0) 
        {
                int code_error=246;
                C2F(error)(&code_error);
                if (Err > 0) 
                {
                        if (C2F(recu).niv > 0 && C2F(recu).paus > 0) C2F(com).fun = 0;
                        goto L60;
                }
                goto L90;
    }
    ++C2F(recu).pt;
    Fin = C2F(vstk).lstk[Fin - 1];
    C2F(recu).rstk[C2F(recu).pt - 1] = 910;
    C2F(recu).icall = 5;
    C2F(com).fun = 0;
        /* *call*  macro */
    goto L60;

    return 0;
}
/*-----------------------------------------------------------------------------------*/ 
static void str_copy_buf(register char *a, register char *b, long int la, long int lb)
{
        if (lb>la) strncpy(a,b,la);
        else 
        {
                int i=0;
                strncpy(a,b,lb);
                for (i=lb;i<la;i++) a[i]= ' ';
        }
}
/*-----------------------------------------------------------------------------------*/ 

---