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
  
/*\ 
||| This file a part of uLPC, and is copyright by Fredrik Hubinette 
||| uLPC is distributed as GPL (General Public License) 
||| See the files COPYING and DISCLAIMER for more information. 
\*/ 
#ifndef ADD_EFUN_H 
#define ADD_EFUN_H 
 
#include "svalue.h" 
#include "hashtable.h" 
#include "las.h" /* For OPT_SIDE_EFFECT etc. */ 
 
struct efun 
{ 
  struct svalue function; 
  struct hash_entry link; 
}; 
 
typedef void (*c_fun)(INT32); 
typedef int (*docode_fun)(node *n); 
typedef node *(*optimize_fun)(node *n); 
 
struct callable 
{ 
  INT32 refs; 
  c_fun function; 
  struct lpc_string *type; 
  struct lpc_string *name; 
  INT16 flags; 
  optimize_fun optimize; 
  docode_fun docode; 
}; 
 
/* Prototypes begin here */ 
struct efun *lookup_efun(struct lpc_string *name); 
void low_add_efun(struct lpc_string *name, struct svalue *fun); 
struct callable *make_callable(c_fun fun, 
                               char *name, 
                               char *type, 
                               INT16 flags, 
                               optimize_fun optimize, 
                               docode_fun docode); 
void really_free_callable(struct callable *fun); 
void add_efun2(char *name, 
               c_fun fun, 
               char *type, 
               INT16 flags, 
               optimize_fun optimize, 
               docode_fun docode); 
void add_efun(char *name, c_fun fun, char *type, INT16 flags); 
void push_all_efuns_on_stack(); 
void cleanup_added_efuns(); 
/* Prototypes end here */ 
 
#endif