scirun.h File Reference

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Functions
int C2F()	scirun (char *bu1, long int bu1_len)

---

Function Documentation

int C2F() scirun	(	char *	bu1,
		long int	bu1_len
	)

Run scilab parser with initial instruction

Parameters:

	bu1	: character string which contains the initial instruction
	bu1_len	: length of bu1

Definition at line 19 of file scirun.c.

References allowptr(), Bot, bsiz, C2F, callinterf(), cha1_, cx0, cx1, Err, err1, error, Fin, fun, funs(), ir, isbyref(), iset(), krec, Lhs, Max, niv, parse(), paus, pt, ref2val(), Rhs, rstk, str_copy_buf(), and Top.

Referenced by Initialize(), realmain(), ScilabDoOneEvent(), SendScilabJob(), StartScilab(), TerminateCorePart1(), and VTRun().

{
    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;
}

Here is the call graph for this function:

Here is the caller graph for this function:

---