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

Return to option.c CVS log

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

version 1.8, 2003/07/17 23:37:02

version 1.10, 2003/07/30 09:00:52

Line 1

/* $OpenXM: OpenXM/src/kan96xx/Kan/option.c,v 1.7 2003/07/17 07:33:03 takayama Exp $ */

/* $OpenXM: OpenXM/src/kan96xx/Kan/option.c,v 1.9 2003/07/29 08:36:40 takayama Exp $ */

#include <stdio.h>

#include "datatype.h"

#include "stackm.h"

Line 45 struct object KsystemVariable(ob)

extern int Homogenize_vec;

extern int CmoDMSOutputOption;

extern int DebugReductionRed; /* hidden option */

extern int DebugReductionEcart;

extern char *VersionString;

extern int AvoidTheSameRing;

extern char *LeftBracket;

Line 288 struct object KsystemVariable(ob)

Line 289 struct object KsystemVariable(ob)

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

DebugReductionRed = KopInteger(ob2);

rob = KpoInteger(DebugReductionRed);

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

DebugReductionEcart = KopInteger(ob2);

rob = KpoInteger(DebugReductionEcart);

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

AvoidTheSameRing = KopInteger(ob2);

rob = KpoInteger(AvoidTheSameRing);

Line 302 struct object KsystemVariable(ob)

Line 306 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{

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