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

Return to option.c CVS log

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

version 1.14, 2003/11/20 09:20:36

version 1.15, 2004/09/17 02:42:57

Line 1

/* $OpenXM: OpenXM/src/kan96xx/Kan/option.c,v 1.13 2003/08/21 02:30:23 takayama Exp $ */

/* $OpenXM: OpenXM/src/kan96xx/Kan/option.c,v 1.14 2003/11/20 09:20:36 takayama Exp $ */

#include <stdio.h>

#include "datatype.h"

#include "stackm.h"

Line 57 struct object KsystemVariable(ob)

extern int DoCancel;

extern int DebugContentReduction;

extern int QuoteMode;

extern int RestrictedMode, RestrictedMode_saved;

int n,i;

struct object ob1,ob2,ob3,ob4;

Line 184 struct object KsystemVariable(ob)

Line 185 struct object KsystemVariable(ob)

rob = KpoString(RightBracket);

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

rob = KpoInteger(SecureMode);

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

rob = KpoInteger(RestrictedMode);

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

rob = KpoInteger(Ecart);

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

Line 314 struct object KsystemVariable(ob)

Line 317 struct object KsystemVariable(ob)

errorKan1("%s\n","You cannot weaken the security level.");

}

rob = KpoInteger(SecureMode);

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

if (KopInteger(ob2) >= RestrictedMode) {

RestrictedMode = KopInteger(ob2);

RestrictedMode_saved = RestrictedMode;

}else{

errorKan1("%s\n","You cannot weaken the RestrictedMode level.");

}

rob = KpoInteger(RestrictedMode);

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

Ecart = KopInteger(ob2);

rob = KpoInteger(Ecart);