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

Return to option.c CVS log

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

version 1.16, 2005/06/16 05:07:23

version 1.17, 2006/12/21 05:29:49

Line 1

/* $OpenXM: OpenXM/src/kan96xx/Kan/option.c,v 1.15 2004/09/17 02:42:57 takayama Exp $ */

/* $OpenXM: OpenXM/src/kan96xx/Kan/option.c,v 1.16 2005/06/16 05:07:23 takayama Exp $ */

#include <stdio.h>

#include "datatype.h"

#include "stackm.h"

Line 58 struct object KsystemVariable(ob)

extern int DebugContentReduction;

extern int QuoteMode;

extern int RestrictedMode, RestrictedMode_saved;

extern int UseDsmall;

int n,i;

struct object ob1 = OINIT;

Line 202 struct object KsystemVariable(ob)

Line 203 struct object KsystemVariable(ob)

rob = KpoInteger(DebugContentReduction);

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

rob = KpoInteger(QuoteMode);

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

rob = KpoInteger(UseDsmall);

}else{

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

}

Line 346 struct object KsystemVariable(ob)

Line 349 struct object KsystemVariable(ob)

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

QuoteMode = KopInteger(ob2);

rob = KpoInteger(QuoteMode);

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

UseDsmall = KopInteger(ob2);

rob = KpoInteger(UseDsmall);

}else{

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

}