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

Return to primitive.c CVS log

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

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

version 1.26, 2020/10/06 11:33:46

Line 1

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

/* $OpenXM: OpenXM/src/kan96xx/Kan/primitive.c,v 1.25 2018/09/07 00:15:44 takayama Exp $ */

/* primitive.c */

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

Line 6

#include <stdlib.h>

#include <string.h>

#include <signal.h>

#include <time.h>

#include <unistd.h>

#include "datatype.h"

#include "stackm.h"

#include "extern.h"

Line 454 int executePrimitive(ob)

Line 456 int executePrimitive(ob)

extern int KeepInput;

extern int History;

extern struct ring *CurrentRingp;

extern TimerOn;

extern int TimerOn;

extern SecureMode;

extern int SecureMode;

extern int RestrictedMode;

infixOn = 0;

Line 1201 int executePrimitive(ob)

Line 1203 int executePrimitive(ob)

default: errorStackmachine("Usage:system");

}

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

system( ob1.lc.str );

{int rr; rr=system( ob1.lc.str );}

break;

case Scat_n: