![[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|
Return to stackmachine.c CVS log | Up to [local] / OpenXM / src / kan96xx / Kan |
| version 1.3, 2000/01/21 01:08:12 | version 1.4, 2000/02/02 03:30:48 | ||
|---|---|---|---|
|
|
||
| /* $OpenXM: OpenXM/src/kan96xx/Kan/stackmachine.c,v 1.2 2000/01/16 07:55:41 takayama Exp $ */ | /* $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> | ||
|
|
||
| struct object ob; | struct object ob; | ||
| { | { | ||
| Kpush(ob); | Kpush(ob); | ||
| } | |||
| struct object KSpeek(k) { | |||
| return(peek(k)); | |||
| } | } | ||
| char *KSstringPop() { | char *KSstringPop() { |