| version 1.1, 1999/10/08 02:12:01 |
version 1.4, 2000/02/02 03:30:48 |
|
|
| |
/* $OpenXM: OpenXM/src/kan96xx/Kan/stackmachine.c,v 1.3 2000/01/21 01:08:12 takayama Exp $ */ |
| /* stackmachin.c */ |
/* stackmachin.c */ |
| |
|
| #include <stdio.h> |
#include <stdio.h> |
| Line 806 void scanner() { |
|
| Line 807 void scanner() { |
|
| fprintf(Fstack,"\nscanner> "); |
fprintf(Fstack,"\nscanner> "); |
| } |
} |
| KSexecuteString(" ctrlC-hook "); /* Execute User Defined functions. */ |
KSexecuteString(" ctrlC-hook "); /* Execute User Defined functions. */ |
| |
continue ; |
| } else { } |
} else { } |
| if (DebugStack >= 1) { printOperandStack(); } |
if (DebugStack >= 1) { printOperandStack(); } |
| token = getokenSM(GET); |
token = getokenSM(GET); |
| Line 1193 void KSpush(ob) |
|
| Line 1195 void KSpush(ob) |
|
| struct object ob; |
struct object ob; |
| { |
{ |
| Kpush(ob); |
Kpush(ob); |
| |
} |
| |
|
| |
struct object KSpeek(k) { |
| |
return(peek(k)); |
| } |
} |
| |
|
| char *KSstringPop() { |
char *KSstringPop() { |
![[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