OpenXM_contrib2/asir2000/builtin/type.c - diff

Return to type.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / builtin

Diff for /OpenXM_contrib2/asir2000/builtin/type.c between version 1.2 and 1.4

version 1.2, 2000/08/21 08:31:21

version 1.4, 2018/03/29 01:32:50

Line 23

* shall be made on your publication or presentation in any form of the

* results obtained by use of the SOFTWARE.

* (4) In the event that you modify the SOFTWARE, you shall notify FLL by

* e-mail at risa-admin@flab.fujitsu.co.jp of the detailed specification

* e-mail at risa-admin@sec.flab.fujitsu.co.jp of the detailed specification

* for such modification or the source code of the modified part of the

* SOFTWARE.

Line 45

* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,

* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.

* $OpenXM: OpenXM_contrib2/asir2000/builtin/type.c,v 1.1.1.1 1999/12/03 07:39:07 noro Exp $

* $OpenXM: OpenXM_contrib2/asir2000/builtin/type.c,v 1.3 2000/08/22 05:04:00 noro Exp $

#include "ca.h"

#include "parse.h"

Line 53

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)