version 1.2, 2000/01/21 03:01:25 |
version 1.8, 2013/11/06 06:23:23 |
|
|
/* $OpenXM$ */ |
/* $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> |
|
|
|
|
char *getLOAD_K_PATH(); /* from d.h */ |
char *getLOAD_K_PATH(); /* from d.h */ |
|
|
|
#if defined(__CYGWIN__) |
|
#define JMP_BUF sigjmp_buf |
|
#define SETJMP(env) sigsetjmp(env,1) |
|
#define LONGJMP(env,p) siglongjmp(env,p) |
|
#else |
|
#define JMP_BUF jmp_buf |
|
#define SETJMP(env) setjmp(env) |
|
#define LONGJMP(env,p) longjmp(env,p) |
|
#endif |
|
|
#ifdef CALLASIR |
#ifdef CALLASIR |
#include "ak0.h" |
#include "ak0.h" |
#endif |
#endif |
|
|
extern jmp_buf KCenvOfParser; |
extern JMP_BUF KCenvOfParser; |
|
|
char Ktmp[10240]; |
char Ktmp[10240]; |
int Ksize = 10240; |
int Ksize = 10240; |
Line 32 extern int DebugMode; |
|
Line 42 extern int DebugMode; |
|
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; |
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,"r=%d ",result); */ |
/* fprintf(stderr,"r=%d ",result); */ |
if (result == -1) { |
if (result == -1) { |
K00recoverFromError(); |
K00recoverFromError(); InSendmsg2 = 0; |
fprintf(stderr,"--- Engine error or interrupt : "); |
fprintf(stderr,"--- Engine error or interrupt : "); |
if (DebugMode) { |
if (DebugMode) { |
signal(SIGINT,SIG_DFL); |
signal(SIGINT,SIG_DFL); |
|
|
} |
} |
#define AFO |
#define AFO |
#ifdef AFO |
#ifdef AFO |
if (setjmp(KCenvOfParser)) { |
if (SETJMP(KCenvOfParser)) { |
|
InSendmsg2=0; |
fprintf(stderr,"Error: Goto the top level.\n"); |
fprintf(stderr,"Error: Goto the top level.\n"); |
parseAfile(stdin); |
parseAfile(stdin); |
KCparse(); |
KCparse(); |
|
|
/* 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'; |
} |
} |
|
|
|
|
if (strlen(s)+Kpt >= Ksize) { |
if (strlen(s)+Kpt >= Ksize) { |
Ksize = Ksize*2; |
Ksize = Ksize*2; |
t = (char *)GC_malloc(sizeof(char)*Ksize); |
t = (char *)GC_malloc(sizeof(char)*Ksize); |
if (t == (char *)NULL) { fprintf(stderr,"No memory."); exit();} |
if (t == (char *)NULL) { fprintf(stderr,"No memory."); exit(1);} |
strcpy(t,Kbuff); Kbuff = t; |
strcpy(t,Kbuff); Kbuff = t; |
} |
} |
strcpy(&(Kbuff[Kpt]),s); |
strcpy(&(Kbuff[Kpt]),s); |
Line 145 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; |
} |
} |
} |
} |
} |
} |