version 1.10, 2016/03/31 05:27:34 |
version 1.11, 2016/03/31 06:34:29 |
|
|
/* $OpenXM: OpenXM/src/k097/ki.c,v 1.9 2015/10/10 11:29:46 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/k097/ki.c,v 1.10 2016/03/31 05:27:34 takayama Exp $ */ |
/* ki.c ( kx interpreter ) */ |
/* ki.c ( kx interpreter ) */ |
|
|
#include <stdio.h> |
#include <stdio.h> |
|
|
struct object obj = OINIT; |
struct object obj = OINIT; |
int result; |
int result; |
extern int InSendmsg2; |
extern int InSendmsg2; |
|
result=0; |
mysignal(SIGINT,SIG_IGN); /* Don't jump to ctrlC(). */ |
mysignal(SIGINT,SIG_IGN); /* Don't jump to ctrlC(). */ |
if (p == 10) {printf("In(%d)= ",n++); return 0;} |
if (p == 10) {printf("In(%d)= ",n++); return 0;} |
if (p == 0 && DebugCompiler) printf("sendKan[%s]\n",Kbuff); |
if (p == 0 && DebugCompiler) printf("sendKan[%s]\n",Kbuff); |