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

Return to option.c CVS log

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

version 1.12, 2003/08/20 01:39:17

version 1.14, 2003/11/20 09:20:36

Line 1

/* $OpenXM: OpenXM/src/kan96xx/Kan/option.c,v 1.11 2003/08/19 08:02:10 takayama Exp $ */

/* $OpenXM: OpenXM/src/kan96xx/Kan/option.c,v 1.13 2003/08/21 02:30:23 takayama Exp $ */

#include <stdio.h>

#include "datatype.h"

#include "stackm.h"

Line 55 struct object KsystemVariable(ob)

extern int EcartAutomaticHomogenization;

extern int TraceLift;

extern int DoCancel;

extern int DebugContentReduction;

extern int QuoteMode;

int n,i;

struct object ob1,ob2,ob3,ob4;

Line 190 struct object KsystemVariable(ob)

Line 192 struct object KsystemVariable(ob)

rob = KpoInteger(TraceLift);

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

rob = KpoInteger(DoCancel);

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

rob = KpoInteger(DebugContentReduction);

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

rob = KpoInteger(QuoteMode);

}else{

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

}

Line 320 struct object KsystemVariable(ob)

Line 326 struct object KsystemVariable(ob)

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

DoCancel = KopInteger(ob2);

rob = KpoInteger(DoCancel);

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

DebugContentReduction = KopInteger(ob2);

rob = KpoInteger(DebugContentReduction);

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

QuoteMode = KopInteger(ob2);

rob = KpoInteger(QuoteMode);

}else{

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

}