umpf.h

   1 #include "lists.h"
   2
   3 /* cond.h */
   4 int yylex (void);
   5 void yyerror (char const *);
   6
   7 struct tree {
   8         enum {
   9                 ST_IF,
  10                 ST_COND,
  11                 ST_BLOCK,
  12                 ST_ASS,
  13                 ST_LEAF,
  14                 ST_EMPTY,
  15                 ST_ARROW,
  16                 ST_OP
  17         } st;   /* subtree type */
  18         union {
  19                 struct {
  20                         struct tree* c; /* condition */
  21                         struct tree* i; /* if */
  22                         struct tree* e; /* else */
  23                 } tif;
  24
  25                 struct {
  26                         enum {
  27                                 OP_REL,
  28                                 OP_BOOL,
  29                                 JUST_BOOL /* value only in left, no op */
  30                         } type;
  31                         int op;
  32                         struct tree* left;
  33                         struct tree* right;
  34                 } cond; /* binary operator */
  35
  36                 struct {
  37                         struct tree* head;
  38                         struct tree* tail;
  39                 } block;
  40
  41                 struct {
  42                         struct tree* left;
  43                         struct tree* right;
  44                 } ass;
  45
  46                 struct {
  47                         enum {
  48                                 L_VAR,
  49                                 L_CONST,
  50                         } type;
  51                         char* value;
  52                         int n;
  53                 } leaf;
  54
  55                 struct {
  56                         char* kw_left;
  57                         char* kw_right;
  58                         struct tree* s;
  59                 } arrow;
  60
  61                 struct {
  62                         int op;
  63                         struct tree* left;
  64                         struct tree* right;
  65                 } op;
  66
  67         } pt;
  68 };
  69
  70 struct tree* input_tree;
  71
  72 /* lex.c */
  73 #define CC(a,b) ((a<<8)|b)
  74 void* xmalloc(size_t size);
  75 void* xrealloc(void* buf, size_t size);
  76 char* xstrdup(char* s);
  77 void __attribute__ ((noreturn)) die(char* msg, ...);
  78 void read_conf(char* filename);
  79 int line;
  80 FILE* conf;
  81
  82 /* int.c */
  83 struct hlist {
  84         struct node car;
  85         char* name;
  86         char* value;
  87 };
  88
  89 struct email {
  90         struct list* headers;
  91         char* body;
  92         int body_len;
  93 };
  94
  95 struct action {
  96         char* l;
  97         char* r;
  98         char* s;
  99         struct email e;
 100 };
 101
 102 /* ham.c */
 103 char* default_mailbox;
 104
 105 struct list* current_headers;
 106 struct email* current_body;
 107 struct list* make_hlist(void);
 108 void print_headers(struct list* l);
 109 void do_action(struct action* a);
 110 struct email* get_body(void);
 111
 112 /* lock.c */
 113 void save_gids(void);
 114 void close_mailbox(int fd, char* path, int is_default_mailbox);
 115 int open_mailbox(char* path, int is_default_mailbox);
 116 char* cat(char* l, char* r);
 117
 118 /* code.c */
 119 #define BUFSIZE 4096
 120 struct code {
 121         struct node car;
 122         enum {
 123                 SET,
 124                 JUMP,
 125                 JUMP_IF,
 126                 JUMP_UNLESS,
 127                 DELIVER,
 128                 CALL_EXT,
 129                 NOP,
 130                 CAT,
 131                 GT
 132         } opcode;
 133
 134         union {
 135                 struct {
 136                         struct code* target;
 137                 } jump;
 138                 struct {
 139                         struct code* target;
 140                         int cond;
 141                 } jump_if;
 142                 struct {
 143                         struct code* target;
 144                         int cond;
 145                 } jump_unless;
 146                 struct {
 147                         int l;
 148                         int r;
 149                 } set;
 150                 struct {
 151                         int l;
 152                         int r;
 153                         int res; /* result */
 154                 } cat;
 155                 struct {
 156                 } nop;
 157                 struct {
 158                         int l;
 159                         int r;
 160                         int res; /* result */
 161                 } gt;
 162         } u;
 163 };
 164
 165 struct variable {
 166         struct node car;
 167         char* name;
 168         int varcode;
 169 };
 170
 171 struct list input_code;
 172 struct list* var_hash;
 173 int current_varcode;
 174 int temp_varcode_start;
 175 char** var_tab;
 176 char** const_tab;
 177 int cur_const_n;
 178 int cur_const_s;
 179
 180 void init(void);
 181 void compile(struct tree* t, struct list* where);
 182 int find_var(char* name, struct list* hash);
 183 int store_const(char* c);
 184 struct list* new_var_hash(void);
 185 void print_code(void);