Return to result.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / builtin

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

1.1     ! noro        1: /* $OpenXM: OpenXM/src/asir99/builtin/result.c,v 1.1.1.1 1999/11/10 08:12:26 noro Exp $ */
        !             2: #include "ca.h"
        !             3: #include "parse.h"
        !             4:
        !             5: void Presult(), Psrcr();
        !             6:
        !             7: struct ftab result_tab[] = {
        !             8:        {"res",Presult,-4},
        !             9:        {"srcr",Psrcr,3},
        !            10:        {0,0,0},
        !            11: };
        !            12:
        !            13: void Presult(arg,rp)
        !            14: NODE arg;
        !            15: P *rp;
        !            16: {
        !            17:        int mod;
        !            18:        P p1,p2,r;
        !            19:
        !            20:        asir_assert(ARG0(arg),O_P,"res");
        !            21:        asir_assert(ARG1(arg),O_P,"res");
        !            22:        asir_assert(ARG2(arg),O_P,"res");
        !            23:        if ( argc(arg) == 3 )
        !            24:                resultp(CO,VR((P)ARG0(arg)),(P)ARG1(arg),(P)ARG2(arg),rp);
        !            25:        else {
        !            26:                mod = QTOS((Q)ARG3(arg));
        !            27:                ptomp(mod,(P)ARG1(arg),&p1); ptomp(mod,(P)ARG2(arg),&p2);
        !            28:                resultmp(CO,mod,VR((P)ARG0(arg)),p1,p2,&r);
        !            29:                mptop(r,rp);
        !            30:        }
        !            31: }
        !            32:
        !            33: void Psrcr(arg,rp)
        !            34: NODE arg;
        !            35: P *rp;
        !            36: {
        !            37:        asir_assert(ARG0(arg),O_P,"srcr");
        !            38:        asir_assert(ARG1(arg),O_P,"srcr");
        !            39:        asir_assert(ARG2(arg),O_P,"srcr");
        !            40:        res_ch_det(CO,VR((P)ARG0(arg)),(P)ARG1(arg),(P)ARG2(arg),rp);
        !            41: }