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

Return to primitive.c CVS log

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

version 1.20, 2005/06/16 05:07:23

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

Line 1

/* $OpenXM: OpenXM/src/kan96xx/Kan/primitive.c,v 1.19 2004/09/20 02:11:22 takayama 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 */

#include <stdio.h>

#include <stdlib.h>

#include <string.h>

#include <signal.h>

#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 277 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 1743 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{