/* $OpenXM: OpenXM_contrib2/asir2000/builtin/type.c,v 1.1 1999/12/03 07:39:07 noro Exp $ */
#include "ca.h"
#include "parse.h"
void Ptype(), Pntype();
struct ftab type_tab[] = {
{"type",Ptype,1},
{"ntype",Pntype,1},
{0,0,0},
};
void Ptype(arg,rp)
NODE arg;
Obj *rp;
{
Obj t;
Q q;
if ( t = (Obj)ARG0(arg) ) {
STOQ(OID(t),q); *rp = (Obj)q;
} else
*rp = 0;
}
void Pntype(arg,rp)
NODE arg;
Obj *rp;
{
Obj t;
Q q;
if ( t = (Obj)ARG0(arg) ) {
asir_assert(t,O_N,"ntype");
STOQ(NID(t),q); *rp = (Obj)q;
} else
*rp = 0;
}