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

Return to primitive.c CVS log

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

version 1.1, 1999/10/08 02:12:02

version 1.2, 1999/11/07 13:24:19

Line 1

/* $OpenXM$ */

/* primitive.c */

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

Line 299 FILE *fp;

Line 300 FILE *fp;

{

int size;

int i;

extern char *LeftBracket, *RightBracket;

size = ob.lc.ival;

fprintf(fp,"[ ");

fprintf(fp,"%s ",LeftBracket);

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

if (PrintComma && (i != 0)) {

fprintf(fp," , ");

Line 309 FILE *fp;

Line 311 FILE *fp;

}

printObject((ob.rc.op)[i],0,fp);

}

fprintf(fp," ] ");

fprintf(fp," %s ",RightBracket);

if (nl) fprintf(fp,"\n");

}