[BACK]Return to ki.c CVS log [TXT][DIR] Up to [local] / OpenXM / src / k097

Diff for /OpenXM/src/k097/ki.c between version 1.2 and 1.4

version 1.2, 2000/01/21 03:01:25 version 1.4, 2002/02/24 10:27:21
Line 1 
Line 1 
 /* $OpenXM$ */  /* $OpenXM: OpenXM/src/k097/ki.c,v 1.3 2001/01/28 02:40:04 takayama Exp $ */
 /* ki.c    ( kx interpreter )  */  /* ki.c    ( kx interpreter )  */
   
 #include <stdio.h>  #include <stdio.h>
Line 14 
Line 14 
   
 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 35  sendKan(int p) {
Line 45  sendKan(int p) {
   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) {
Line 67  sendKan(int p) {
Line 77  sendKan(int p) {
   }    }
 #define AFO  #define AFO
 #ifdef AFO  #ifdef AFO
   if (setjmp(KCenvOfParser)) {    if (SETJMP(KCenvOfParser)) {
     fprintf(stderr,"Error: Goto the top level.\n");      fprintf(stderr,"Error: Goto the top level.\n");
     parseAfile(stdin);      parseAfile(stdin);
     KCparse();      KCparse();
Line 76  sendKan(int p) {
Line 86  sendKan(int p) {
     /* 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';
 }  }
   
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>