| version 1.7, 2005/06/16 05:07:24 |
version 1.8, 2013/11/06 06:23:23 |
|
|
| /* $OpenXM: OpenXM/src/k097/ki.c,v 1.6 2003/12/05 14:02:23 takayama 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> |
|
|
| 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) { |
| Line 157 execFile(char *s) |
|
| Line 157 execFile(char *s) |
|
| 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; |
| } |
} |
| } |
} |
| } |
} |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to ki.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / k097