1
  
2
  
3
  
4
  
5
  
6
  
7
  
8
  
9
  
10
  
11
  
12
  
13
  
14
  
15
  
16
  
17
  
18
  
19
  
20
  
21
  
22
  
23
  
24
  
25
  
26
  
27
  
28
  
29
  
30
  
31
  
32
  
33
  
34
  
35
  
36
  
37
  
38
  
39
  
40
  
41
  
42
  
43
  
44
  
45
  
46
  
47
  
48
  
49
  
50
  
51
  
52
  
53
  
54
  
55
  
56
  
57
  
58
  
59
  
60
  
61
  
62
  
63
  
64
  
65
  
66
  
67
  
68
  
69
  
70
  
71
  
72
  
73
  
74
  
75
  
76
  
77
  
78
  
79
  
80
  
81
  
82
  
83
  
84
  
85
  
86
  
87
  
88
  
/*\ 
||| This file a part of Pike, and is copyright by Fredrik Hubinette 
||| Pike is distributed as GPL (General Public License) 
||| See the files COPYING and DISCLAIMER for more information. 
\*/ 
#ifndef ERROR_H 
#define ERROR_H 
 
#include "machine.h" 
 
#ifdef HAVE_SETJMP_H 
#include <setjmp.h> 
#undef HAVE_SETJMP_H 
#endif 
 
#include <stdarg.h> 
 
#include "svalue.h" 
 
 
typedef void (*error_call)(void *); 
 
#ifndef STRUCT_FRAME_DECLARED 
#define STRUCT_FRAME_DECLARED 
struct frame; 
#endif 
 
#define THROW_ERROR 1 
#define THROW_EXIT 1000 
 
typedef struct ONERROR 
{ 
  struct ONERROR *previous; 
  error_call func; 
  void *arg; 
} ONERROR; 
 
typedef struct JMP_BUF 
{ 
  struct JMP_BUF *previous; 
  jmp_buf recovery; 
  struct frame *fp; 
  INT32 sp; 
  INT32 mark_sp; 
  INT32 severity; 
  ONERROR *onerror; 
} JMP_BUF; 
 
extern JMP_BUF *recoveries; 
extern struct svalue throw_value; 
extern int throw_severity; 
 
#define SETJMP(X) setjmp((init_recovery(&X)->recovery)) 
#define UNSETJMP(X) recoveries=X.previous; 
 
#define SET_ONERROR(X,Y,Z) \ 
  do{ \ 
     X.func=(error_call)(Y); \ 
     X.arg=(void *)(Z); \ 
     X.previous=recoveries->onerror; \ 
     recoveries->onerror=&X; \ 
  }while(0) 
 
#ifdef DEBUG 
#define UNSET_ONERROR(X) do {\ 
  if(recoveries->onerror != &(X)) fatal("UNSET_ONERROR out of sync.\n"); \ 
  recoveries->onerror=(X).previous; \ 
  } while(0) 
#else 
#define UNSET_ONERROR(X) recoveries->onerror=X.previous 
#endif 
 
/* Prototypes begin here */ 
JMP_BUF *init_recovery(JMP_BUF *r); 
void pike_throw(void) ATTRIBUTE((noreturn)); 
void va_error(char *fmt, va_list args) ATTRIBUTE((noreturn)); 
void exit_on_error(void *msg); 
void fatal_on_error(void *msg); 
void error(char *fmt,...) ATTRIBUTE((noreturn,format (printf, 1, 2))); 
void fatal(char *fmt, ...) ATTRIBUTE((noreturn,format (printf, 1, 2))); 
/* Prototypes end here */ 
 
#endif