| version 1.17, 2004/09/05 01:15:47 |
version 1.18, 2004/09/05 08:08:41 |
|
|
| /* $OpenXM: OpenXM/src/kan96xx/Kan/stackmachine.c,v 1.16 2004/09/05 00:51:17 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/kan96xx/Kan/stackmachine.c,v 1.17 2004/09/05 01:15:47 takayama Exp $ */ |
| /* stackmachin.c */ |
/* stackmachin.c */ |
| |
|
| #include <stdio.h> |
#include <stdio.h> |
| Line 965 int executeToken(token) |
|
| Line 965 int executeToken(token) |
|
| for (i=0; i<size; i++) { |
for (i=0; i<size; i++) { |
| status = executeToken(tokenArray[i]); |
status = executeToken(tokenArray[i]); |
| if (status != 0) { |
if (status != 0) { |
| return(status); |
tracePopName(); return(status); |
| } |
} |
| } |
} |
| tracePopName(); |
tracePopName(); |
| Line 978 int executeToken(token) |
|
| Line 978 int executeToken(token) |
|
| ob.tag = Soperator; |
ob.tag = Soperator; |
| ob.lc.ival = primitive; |
ob.lc.ival = primitive; |
| status = executePrimitive(ob); |
status = executePrimitive(ob); |
| if (status == 0) tracePopName(); |
tracePopName(); |
| return(status); |
return(status); |
| } else { |
} else { |
| if (QuoteMode) { |
if (QuoteMode) { |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to stackmachine.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / kan96xx / Kan