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

Return to option.c CVS log

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

version 1.9, 2003/07/29 08:36:40

version 1.11, 2003/08/19 08:02:10

Line 1

/* $OpenXM: OpenXM/src/kan96xx/Kan/option.c,v 1.8 2003/07/17 23:37:02 takayama Exp $ */

/* $OpenXM: OpenXM/src/kan96xx/Kan/option.c,v 1.10 2003/07/30 09:00:52 takayama Exp $ */

#include <stdio.h>

#include "datatype.h"

#include "stackm.h"

Line 53 struct object KsystemVariable(ob)

extern int SecureMode;

extern int Ecart;

extern int EcartAutomaticHomogenization;

extern int TraceLift;

int n,i;

struct object ob1,ob2,ob3,ob4;

Line 184 struct object KsystemVariable(ob)

Line 185 struct object KsystemVariable(ob)

rob = KpoInteger(Ecart);

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

rob = KpoInteger(EcartAutomaticHomogenization);

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

rob = KpoInteger(TraceLift);

}else{

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

}

Line 306 struct object KsystemVariable(ob)

Line 309 struct object KsystemVariable(ob)

Ecart = KopInteger(ob2);

rob = KpoInteger(Ecart);

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

Ecart = KopInteger(ob2);

EcartAutomaticHomogenization = KopInteger(ob2);

rob = KpoInteger(EcartAutomaticHomogenization);

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

TraceLift = KopInteger(ob2);

rob = KpoInteger(TraceLift);

}else{

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

}