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

Return to option.c CVS log

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

version 1.18, 2011/10/05 05:46:14

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

Line 1

/* $OpenXM: OpenXM/src/kan96xx/Kan/option.c,v 1.17 2006/12/21 05:29:49 takayama Exp $ */

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

#include <stdio.h>

#include <string.h>

#include "datatype.h"

#include "stackm.h"

#include "extern.h"

Line 7

Line 8

#include "kclass.h"

#include "lookup.h"

#include <signal.h>

#include "mysig.h"

extern void ctrlC();

void warningOption(char *str);

struct object KsystemVariable(ob)

Line 283 struct object KsystemVariable(ob)

Line 286 struct object KsystemVariable(ob)

rob = KpoInteger(Strict2);

}else if (strcmp(ob1.lc.str,"SigIgn") == 0) {

SigIgn = ob2.lc.ival;

if (SigIgn) signal(SIGINT,SIG_IGN);

if (SigIgn) mysignal(SIGINT,SIG_IGN);

else signal(SIGINT,ctrlC);

else mysignal(SIGINT,ctrlC);

rob = KpoInteger(SigIgn);

}else if (strcmp(ob1.lc.str,"KSPushEnvMode") == 0) {

KSPushEnvMode = ob2.lc.ival;

Line 465 struct object KsystemVariable(ob)

Line 468 struct object KsystemVariable(ob)

return(rob);

}

warningOption(str)

void warningOption(str)

char *str;

{

fprintf(stderr,"Warning(option.c): %s\n",str);