OpenXM/src/kan96xx/Kan/primitive.c - diff

Return to primitive.c CVS log

Up to [local] / OpenXM / src / kan96xx / Kan

version 1.9, 2003/12/03 01:21:43

version 1.10, 2003/12/05 13:51:31

Line 1

/* $OpenXM: OpenXM/src/kan96xx/Kan/primitive.c,v 1.8 2003/11/20 09:20:36 takayama Exp $ */

/* $OpenXM: OpenXM/src/kan96xx/Kan/primitive.c,v 1.9 2003/12/03 01:21:43 takayama Exp $ */

/* primitive.c */

/* The functions in this module were in stackmachine.c */

Line 14

int PrintDollar = 1; /* flag for printObject() */

int PrintComma = 1; /* flag for printObject() */

int InSendmsg2 = 0;

#define OB_ARRAY_MAX (AGLIMIT+100)

extern int GotoP;

Line 1560 int executePrimitive(ob)

Line 1561 int executePrimitive(ob)

size = ob1.rc.ival;

for (i=0; i<size; i++) {

token = tokenArray[i];

InSendmsg2 = 1;

status = executeToken(token);

InSendmsg2 = 0;

if (QuoteMode && (status==DO_QUOTE)) {

/* generate tree object, for kan/k0 */

struct object qob;