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

Return to primitive.c CVS log

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

version 1.22, 2013/11/06 06:44:48

version 1.25, 2018/09/07 00:15:44

Line 1

/* $OpenXM: OpenXM/src/kan96xx/Kan/primitive.c,v 1.21 2005/07/03 11:08:54 ohara Exp $ */

/* $OpenXM: OpenXM/src/kan96xx/Kan/primitive.c,v 1.24 2016/03/31 05:27:34 takayama Exp $ */

/* primitive.c */

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

Line 14

#include "kclass.h"

#include <sys/types.h>

#include <sys/times.h>

#include "mysig.h"

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

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

Line 280 void printObject(ob,nl,fp)

Line 281 void printObject(ob,nl,fp)

printObjectList(&ob);

break;

case Sfile:

fprintf(fp,"Name=%s, FILE *=%x ",ob.lc.str,(int) ob.rc.file);

fprintf(fp,"Name=%s, FILE *=%p ",ob.lc.str,ob.rc.file);

break;

case Sring:

fprintf(fp,"Ring."); KshowRing(KopRingp(ob));

Line 1746 int executePrimitive(ob)

Line 1747 int executePrimitive(ob)

}

n = ob2.lc.ival;

if (n > 0) {

signal(SIGALRM,ctrlC); alarm((unsigned int) n);

mysignal(SIGALRM,ctrlC); alarm((unsigned int) n);

status = executeExecutableArray(ob1,(char *)NULL,0);

cancelAlarm();

}else{