Return to ki.c CVS log | Up to [local] / OpenXM / src / k097 |
version 1.6, 2003/12/05 14:02:23 | version 1.8, 2013/11/06 06:23:23 | ||
---|---|---|---|
|
|
||
/* $OpenXM: OpenXM/src/k097/ki.c,v 1.5 2003/08/22 16:08:20 ohara Exp $ */ | /* $OpenXM: OpenXM/src/k097/ki.c,v 1.7 2005/06/16 05:07:24 takayama Exp $ */ | ||
/* ki.c ( kx interpreter ) */ | /* ki.c ( kx interpreter ) */ | ||
#include <stdio.h> | #include <stdio.h> | ||
|
|
||
sendKan(int p) { | sendKan(int p) { | ||
static int n = 2; | static int n = 2; | ||
extern int Interactive; | extern int Interactive; | ||
struct object obj; | struct object obj = OINIT; | ||
int result; | int result; | ||
extern int InSendmsg2; | extern int InSendmsg2; | ||
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 0;} | ||
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) { | ||
|
|
||
fprintf(stderr,"Fatal error: Cannot open the system macro %s in %s, %s, %s nor %s.\n", | fprintf(stderr,"Fatal error: Cannot open the system macro %s in %s, %s, %s nor %s.\n", | ||
s,tname2,tname3,tname4,tname); | s,tname2,tname3,tname4,tname); | ||
exit(11); | exit(11); | ||
return; | return 0; | ||
} | } | ||
} | } | ||
} | } |