Return to type.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / builtin

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

1.1     ! noro        1: /* $OpenXM: OpenXM/src/asir99/builtin/type.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 Ptype(), Pntype();
        !             6:
        !             7: struct ftab type_tab[] = {
        !             8:        {"type",Ptype,1},
        !             9:        {"ntype",Pntype,1},
        !            10:        {0,0,0},
        !            11: };
        !            12:
        !            13: void Ptype(arg,rp)
        !            14: NODE arg;
        !            15: Obj *rp;
        !            16: {
        !            17:        Obj t;
        !            18:        Q q;
        !            19:
        !            20:        if ( t = (Obj)ARG0(arg) ) {
        !            21:                STOQ(OID(t),q); *rp = (Obj)q;
        !            22:        } else
        !            23:                *rp = 0;
        !            24: }
        !            25:
        !            26: void Pntype(arg,rp)
        !            27: NODE arg;
        !            28: Obj *rp;
        !            29: {
        !            30:        Obj t;
        !            31:        Q q;
        !            32:
        !            33:        if ( t = (Obj)ARG0(arg) ) {
        !            34:                asir_assert(t,O_N,"ntype");
        !            35:                STOQ(NID(t),q); *rp = (Obj)q;
        !            36:        } else
        !            37:                *rp = 0;
        !            38: }