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

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: }