Return to compobj.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / builtin

Annotation of OpenXM_contrib2/asir2000/builtin/compobj.c, Revision 1.1

1.1     ! noro        1: /* $OpenXM: OpenXM/src/asir99/builtin/compobj.c,v 1.1.1.1 1999/11/10 08:12:25 noro Exp $ */
        !             2: #include "ca.h"
        !             3: #include "parse.h"
        !             4: #include "comp.h"
        !             5:
        !             6: void Parfreg();
        !             7:
        !             8: struct ftab comp_tab[] = {
        !             9:        {"arfreg",Parfreg,8},
        !            10:        {0,0,0},
        !            11: };
        !            12:
        !            13: void Parfreg(arg,rp)
        !            14: NODE arg;
        !            15: Q *rp;
        !            16: {
        !            17:        char *name;
        !            18:        P t;
        !            19:        SDEF s;
        !            20:        int i;
        !            21:
        !            22:        asir_assert(ARG0(arg),O_STR,"arfreg");
        !            23:        name = ((STRING)ARG0(arg))->body;
        !            24:        for ( s = LSS->sa, i = 0; i < LSS->n; i++ )
        !            25:                if ( !strcmp(s[i].name,name) )
        !            26:                        break;
        !            27:        if ( i == LSS->n )
        !            28:                error("argreg : no such structure");
        !            29:
        !            30:        t = (P)ARG1(arg); s[i].arf.add = !t ? 0 : (FUNC)VR(t)->priv;
        !            31:        t = (P)ARG2(arg); s[i].arf.sub = !t ? 0 : (FUNC)VR(t)->priv;
        !            32:        t = (P)ARG3(arg); s[i].arf.mul = !t ? 0 : (FUNC)VR(t)->priv;
        !            33:        t = (P)ARG4(arg); s[i].arf.div = !t ? 0 : (FUNC)VR(t)->priv;
        !            34:        t = (P)ARG5(arg); s[i].arf.pwr = !t ? 0 : (FUNC)VR(t)->priv;
        !            35:        t = (P)ARG6(arg); s[i].arf.chsgn = !t ? 0 : (FUNC)VR(t)->priv;
        !            36:        t = (P)ARG7(arg); s[i].arf.comp = !t ? 0 : (FUNC)VR(t)->priv;
        !            37:        *rp = ONE;
        !            38: }