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

Return to option.c CVS log

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

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

version 1.18, 2011/10/05 05:46:14

Line 1

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

/* $OpenXM: OpenXM/src/kan96xx/Kan/option.c,v 1.17 2006/12/21 05:29:49 takayama Exp $ */

#include <stdio.h>

#include "datatype.h"

#include "stackm.h"

Line 17 struct object KsystemVariable(ob)

/* Don't forget to write the keys in usage.c */

extern int PrintDollar;

extern int Wrap;

extern int COutput;

extern struct ring *CurrentRingp;

extern int Verbose;

extern int UseCriterion1;

Line 75 struct object KsystemVariable(ob)

Line 76 struct object KsystemVariable(ob)

rob = KpoInteger(PrintDollar);

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

rob = KpoInteger(Wrap);

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

rob = KpoInteger(COutput);

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

rob = KpoInteger(CurrentRingp->p);

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

Line 229 struct object KsystemVariable(ob)

Line 232 struct object KsystemVariable(ob)

P = ob2.lc.ival; Q should be set here too.

CurrentRingp->p = P;

rob = KpoInteger(P); */

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

COutput = ob2.lc.ival;

rob = KpoInteger(COutput);

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

if (ob2.lc.ival <= CurrentRingp->n && ob2.lc.ival >= CurrentRingp->m) {

CurrentRingp->nn = ob2.lc.ival;