| version 1.11, 2003/12/05 23:14:14 |
version 1.12, 2004/09/11 01:00:42 |
|
|
| /* $OpenXM: OpenXM/src/kan96xx/Kan/primitive.c,v 1.10 2003/12/05 13:51:31 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/kan96xx/Kan/primitive.c,v 1.11 2003/12/05 23:14:14 takayama Exp $ */ |
| /* primitive.c */ |
/* primitive.c */ |
| /* The functions in this module were in stackmachine.c */ |
/* The functions in this module were in stackmachine.c */ |
| |
|
| Line 596 int executePrimitive(ob) |
|
| Line 596 int executePrimitive(ob) |
|
| /* ob2 ob1 get */ |
/* ob2 ob1 get */ |
| ob1 = Kpop(); |
ob1 = Kpop(); |
| ob2 = 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; |
break; |
| |
|
| case Sput: |
case Sput: |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to primitive.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / kan96xx / Kan