| version 1.7, 2001/01/08 05:26:48 |
version 1.8, 2002/02/24 10:27:21 |
|
|
| /* $OpenXM: OpenXM/src/k097/d.c,v 1.6 2000/12/10 02:21:45 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/k097/d.c,v 1.7 2001/01/08 05:26:48 takayama Exp $ */ |
| /* simple.c, 1996, 1/1 --- 1/5 */ |
/* simple.c, 1996, 1/1 --- 1/5 */ |
| #include <stdio.h> |
#include <stdio.h> |
| #include <ctype.h> |
#include <ctype.h> |
|
|
| #include "d.h" |
#include "d.h" |
| #include "simple.tab.h" |
#include "simple.tab.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 |
| |
|
| jmp_buf KCenvOfParser; |
JMP_BUF KCenvOfParser; |
| |
|
| int DebugMode = 1; |
int DebugMode = 1; |
| extern int K00_verbose; |
extern int K00_verbose; |
| Line 594 KCerror(char *s) /* You need this function. Otherwis |
|
| Line 603 KCerror(char *s) /* You need this function. Otherwis |
|
| while (fsgetc(Inop) > MARK_CHAR) ; |
while (fsgetc(Inop) > MARK_CHAR) ; |
| } |
} |
| return ; |
return ; |
| longjmp(KCenvOfParser,2); |
LONGJMP(KCenvOfParser,2); |
| exit(1); |
exit(1); |
| } |
} |
| |
|