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

Return to option.c CVS log

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

version 1.6, 2003/07/10 05:01:41

version 1.7, 2003/07/17 07:33:03

Line 1

/* $OpenXM: OpenXM/src/kan96xx/Kan/option.c,v 1.5 2001/05/04 01:06:24 takayama Exp $ */

/* $OpenXM: OpenXM/src/kan96xx/Kan/option.c,v 1.6 2003/07/10 05:01:41 takayama Exp $ */

#include <stdio.h>

#include "datatype.h"

#include "stackm.h"

Line 50 struct object KsystemVariable(ob)

extern char *LeftBracket;

extern char *RightBracket;

extern int SecureMode;

extern int TangentCone;

extern int Ecart;

int n,i;

struct object ob1,ob2,ob3,ob4;

Line 178 struct object KsystemVariable(ob)

rob = KpoString(RightBracket);

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

rob = KpoInteger(SecureMode);

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

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

rob = KpoInteger(TangentCone);

rob = KpoInteger(Ecart);

}else{

warningKan("KsystemVariable():Unknown key word.\n");

}

Line 295 struct object KsystemVariable(ob)

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

}

rob = KpoInteger(SecureMode);

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

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

TangentCone = KopInteger(ob2);

Ecart = KopInteger(ob2);

rob = KpoInteger(TangentCone);

rob = KpoInteger(Ecart);

}else{

warningKan("KsystemVariable():Unknown key word.\n");

}