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

Return to option.c CVS log

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

version 1.1, 1999/10/08 02:12:01

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

Line 1

/* $OpenXM$ */

#include <stdio.h>

#include "datatype.h"

#include "stackm.h"

Line 45 struct object ob; /* Sarray */

Line 46 struct object ob; /* Sarray */

extern int DebugReductionRed; /* hidden option */

extern char *VersionString;

extern int AvoidTheSameRing;

extern char *LeftBracket;

extern char *RightBracket;

int n,i;

struct object ob1,ob2,ob3,ob4;

Line 164 struct object ob; /* Sarray */

Line 167 struct object ob; /* Sarray */

rob = KSpop(); /* This is exceptional style */

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

rob = KpoInteger(AvoidTheSameRing);

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

rob = KpoString(LeftBracket);

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

rob = KpoString(RightBracket);

}else{

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

}

Line 277 struct object ob; /* Sarray */

Line 284 struct object ob; /* Sarray */

if (strcmp(ob1.lc.str,"ringName") == 0) {

CurrentRingp->name = KopString(ob2);

rob = KpoString(CurrentRingp->name);

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

LeftBracket = KopString(ob2);

rob = KpoString(LeftBracket);

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

RightBracket = KopString(ob2);

rob = KpoString(RightBracket);

}else{

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

}