| version 1.2, 2000/01/16 07:55:41 |
version 1.5, 2000/11/20 13:33:22 |
|
|
| /* $OpenXM$ */ |
/* $OpenXM: OpenXM/src/kan96xx/Kan/stackmachine.c,v 1.4 2000/02/02 03:30:48 takayama Exp $ */ |
| /* stackmachin.c */ |
/* stackmachin.c */ |
| |
|
| #include <stdio.h> |
#include <stdio.h> |
|
|
| /* #define OPERAND_STACK_SIZE 2000 */ |
/* #define OPERAND_STACK_SIZE 2000 */ |
| #define OPERAND_STACK_SIZE 30000 |
#define OPERAND_STACK_SIZE 30000 |
| #define SYSTEM_DICTIONARY_SIZE 200 |
#define SYSTEM_DICTIONARY_SIZE 200 |
| #define USER_DICTIONARY_SIZE 1223 |
/* #define USER_DICTIONARY_SIZE 1223 */ |
| |
#define USER_DICTIONARY_SIZE 3581 |
| /* The value of USER_DICTIONARY_SIZE must be prime number, because of hashing |
/* The value of USER_DICTIONARY_SIZE must be prime number, because of hashing |
| method */ |
method */ |
| #define ARGV_WORK_MAX (AGLIMIT+100) |
#define ARGV_WORK_MAX (AGLIMIT+100) |
| Line 807 void scanner() { |
|
| Line 808 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 1194 void KSpush(ob) |
|
| Line 1196 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