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
  
/* 
|| This file is part of Pike. For copyright information see COPYRIGHT. 
|| Pike is distributed under GPL, LGPL and MPL. See the file COPYING 
|| for more information. 
|| $Id: pike_compiler.h,v 1.3 2008/04/14 16:34:54 grubba Exp $ 
*/ 
 
#ifndef PIKE_COMPILER_H 
#define PIKE_COMPILER_H 
 
#include "lex.h" 
#include "program.h" 
 
struct compilation 
{ 
  struct Supporter supporter; 
  struct pike_string *prog;         /* String to compile. */ 
  struct object *handler;           /* error_handler */ 
  struct object *compat_handler;    /* compat_handler */ 
  int major, minor;                 /* compat version */ 
  struct program *target;           /* Program being compiled. */ 
  struct object *placeholder; 
   
  struct program *p;                        /* Compiled program or NULL. */ 
  struct lex lex; 
  int compilation_inherit;          /* Inherit in supporter->self containing 
                                         * compilation_program. */ 
  int save_depth; 
  int saved_threads_disabled; 
  dynamic_buffer used_modules_save; 
  INT32 num_used_modules_save; 
  struct mapping *resolve_cache_save; 
 
  struct svalue default_module; 
}; 
 
#ifdef PIKE_DEBUG 
#define CHECK_COMPILER()    do {                            \ 
    if (!Pike_fp || !compilation_program ||                     \ 
        Pike_fp->context->prog != compilation_program) {        \ 
      Pike_fatal("Invalid compilation context!\n");             \ 
    }                                                           \ 
  } while(0) 
#else 
#define CHECK_COMPILER() 
#endif 
#define THIS_COMPILATION  ((struct compilation *)(Pike_fp->current_storage)) 
#define MAYBE_THIS_COMPILATION  ((Pike_fp && compilation_program && (Pike_fp->context->prog == compilation_program))?THIS_COMPILATION:NULL) 
 
/* Report levels */ 
#define REPORT_INFO   0       /* FYI. */ 
#define REPORT_WARNING      1       /* Compiler warning. */ 
#define REPORT_ERROR        2       /* Compilation error. */ 
#define REPORT_FATAL        3       /* Unrecoverable error. */ 
 
/* Function numbers. */ 
#define CE_REPORT_FUN_NUM             0 
#define CE_PIKE_COMPILER_FUN_NUM    1 
#define CE_COMPILE_FUN_NUM          2 
#define CE_RESOLV_FUN_NUM           3 
 
#endif        /* !PIKE_COMPILER_H */