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

Return to option.c CVS log

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

version 1.2, 1999/11/07 13:24:19

version 1.3, 2000/02/24 00:27:12

Line 1

/* $OpenXM$ */

/* $OpenXM: OpenXM/src/kan96xx/Kan/option.c,v 1.2 1999/11/07 13:24:19 takayama Exp $ */

#include <stdio.h>

#include "datatype.h"

#include "stackm.h"

Line 25 struct object ob; /* Sarray */

extern int CheckHomogenization;

extern int Homogenize;

extern int Statistics;

extern int AutoReduce;

extern int Osp;

extern struct operandStack StandardStack;

extern struct operandStack ErrorStack;

Line 95 struct object ob; /* Sarray */

Line 96 struct object ob; /* Sarray */

rob = KpoInteger(Homogenize);

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

rob = KpoInteger(Statistics);

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

rob = KpoInteger(AutoReduce);

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

rob = KpoInteger(Osp);

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

Line 223 struct object ob; /* Sarray */

Line 226 struct object ob; /* Sarray */

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

Statistics = ob2.lc.ival;

rob = KpoInteger(Statistics);

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

AutoReduce = ob2.lc.ival;

rob = KpoInteger(AutoReduce);

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

ErrorMessageMode = ob2.lc.ival;

rob = KpoInteger(ErrorMessageMode);