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

Return to primitive.c CVS log

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

version 1.21, 2005/07/03 11:08:54

version 1.24, 2016/03/31 05:27:34

Line 1

/* $OpenXM: OpenXM/src/kan96xx/Kan/primitive.c,v 1.20 2005/06/16 05:07:23 takayama Exp $ */

/* $OpenXM: OpenXM/src/kan96xx/Kan/primitive.c,v 1.23 2016/03/31 03:22:54 takayama Exp $ */

/* primitive.c */

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

Line 9

#include "datatype.h"

#include "stackm.h"

#include "extern.h"

#include "extern2.h"

#include "gradedset.h"

#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 1745 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{