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

Return to primitive.c CVS log

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

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

version 1.3, 2000/02/24 12:33:47

Line 1

/* $OpenXM$ */

/* $OpenXM: OpenXM/src/kan96xx/Kan/primitive.c,v 1.2 1999/11/07 13:24:19 takayama Exp $ */

/* primitive.c */

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

Line 433 struct object ob;

extern int History;

extern struct ring *CurrentRingp;

extern TimerOn;

extern SecureMode;

if (DebugStack >= 2) {

fprintf(Fstack,"In execute %d\n",ob.lc.ival); printOperandStack();

Line 1049 struct object ob;

Line 1050 struct object ob;

/* ob2 ob1 */

ob1 = Kpop();

ob2 = Kpop();

if (SecureMode) errorStackmachine("Security violation: you cannot open a file.");

switch(ob1.tag) {

case Sdollar: break;

default: errorStackmachine("Usage:file");

Line 1181 struct object ob;

Line 1183 struct object ob;

case Sstring: break;

default: errorStackmachine("Usage:system");

}

if (SecureMode) errorStackmachine("Security violation.");

system( ob1.lc.str );

break;