version 1.2, 2000/01/21 03:01:25 |
version 1.3, 2001/01/28 02:40:04 |
|
|
/* $OpenXM$ */ |
/* $OpenXM: OpenXM/src/k097/ki.c,v 1.2 2000/01/21 03:01:25 takayama Exp $ */ |
/* ki.c ( kx interpreter ) */ |
/* ki.c ( kx interpreter ) */ |
|
|
#include <stdio.h> |
#include <stdio.h> |
|
|
struct object obj; |
struct object obj; |
int result; |
int result; |
signal(SIGINT,SIG_IGN); /* Don't jump to ctrlC(). */ |
signal(SIGINT,SIG_IGN); /* Don't jump to ctrlC(). */ |
if (p == 10) {printf("In(%d)=",n++); return;} |
if (p == 10) {printf("In(%d)= ",n++); return;} |
if (p == 0 && DebugCompiler) printf("sendKan[%s]\n",Kbuff); |
if (p == 0 && DebugCompiler) printf("sendKan[%s]\n",Kbuff); |
/* printf("sendKan[%s]\n",Kbuff); */ |
/* printf("sendKan[%s]\n",Kbuff); */ |
if (strlen(Kbuff) != 0) { |
if (strlen(Kbuff) != 0) { |
|
|
/* However, it should be rewrited in a future. */ |
/* However, it should be rewrited in a future. */ |
}else{ /* fprintf(stderr,"setjmp\n"); */ } |
}else{ /* fprintf(stderr,"setjmp\n"); */ } |
#endif |
#endif |
if (p == 0 && Interactive) printf("In(%d)=",n++); |
if (p == 0 && Interactive) printf("In(%d)= ",n++); |
Kpt=0; Kbuff[0] = '\0'; |
Kpt=0; Kbuff[0] = '\0'; |
} |
} |
|
|