version 1.8, 2003/07/17 23:37:02 |
version 1.9, 2003/07/29 08:36:40 |
|
|
/* $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.8 2003/07/17 23:37:02 takayama Exp $ */ |
#include <stdio.h> |
#include <stdio.h> |
#include "datatype.h" |
#include "datatype.h" |
#include "stackm.h" |
#include "stackm.h" |
Line 45 struct object KsystemVariable(ob) |
|
Line 45 struct object KsystemVariable(ob) |
|
extern int Homogenize_vec; |
extern int Homogenize_vec; |
extern int CmoDMSOutputOption; |
extern int CmoDMSOutputOption; |
extern int DebugReductionRed; /* hidden option */ |
extern int DebugReductionRed; /* hidden option */ |
|
extern int DebugReductionEcart; |
extern char *VersionString; |
extern char *VersionString; |
extern int AvoidTheSameRing; |
extern int AvoidTheSameRing; |
extern char *LeftBracket; |
extern char *LeftBracket; |
Line 288 struct object KsystemVariable(ob) |
|
Line 289 struct object KsystemVariable(ob) |
|
}else if (strcmp(ob1.lc.str,"DebugReductionRed") == 0) { |
}else if (strcmp(ob1.lc.str,"DebugReductionRed") == 0) { |
DebugReductionRed = KopInteger(ob2); |
DebugReductionRed = KopInteger(ob2); |
rob = KpoInteger(DebugReductionRed); |
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) { |
}else if (strcmp(ob1.lc.str,"AvoidTheSameRing") == 0) { |
AvoidTheSameRing = KopInteger(ob2); |
AvoidTheSameRing = KopInteger(ob2); |
rob = KpoInteger(AvoidTheSameRing); |
rob = KpoInteger(AvoidTheSameRing); |