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

Return to primitive.c CVS log

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

version 1.10, 2003/12/05 13:51:31

version 1.12, 2004/09/11 01:00:42

Line 1

/* $OpenXM: OpenXM/src/kan96xx/Kan/primitive.c,v 1.9 2003/12/03 01:21:43 takayama Exp $ */

/* $OpenXM: OpenXM/src/kan96xx/Kan/primitive.c,v 1.11 2003/12/05 23:14:14 takayama Exp $ */

/* primitive.c */

/* The functions in this module were in stackmachine.c */

Line 596 int executePrimitive(ob)

/* ob2 ob1 get */

ob1 = Kpop();

ob2 = Kpop();

switch(ob2.tag) {

Kpush(Kget(ob2,ob1));

case Sarray: break;

default: errorStackmachine("Usage:get");

}

switch(ob1.tag) {

case Sinteger: break;

default: errorStackmachine("Usage:get");

}

i =ob1.lc.ival;

size = getoaSize(ob2);

if ((0 <= i) && (i<size)) {

Kpush(getoa(ob2,i));

}else{

errorStackmachine("Index is out of bound. (get)\n");

}

break;

case Sput:

Line 1580 int executePrimitive(ob)

Line 1566 int executePrimitive(ob)

putoa(qob,0,KpoString("unknown"));

}

/* Set the attibute list; class=className */

putoa(qattr2,0,KpoString("class"));

if (ob2.tag == Sdollar) {

putoa(qattr2,0,KpoString("cd"));

putoa(qattr2,1,ob2);

}else{

putoa(qattr2,0,KpoString("class"));

putoa(qattr2,1,KpoString(CurrentContextp->contextName));

}

putoa(qattr,0,qattr2);