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: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>