Добавлены процедуры и проверка результата в выражениях

[dsw-obn.git] / oberon.h

diff --git a/oberon.h b/oberon.h
index 7ed16291b9b4da45a0c1b9bb7db798b1e427f067..b2f0965f3c6acadd009dd22e99d4e5a1df8bc270 100644 (file)
--- a/oberon.h
+++ b/oberon.h
@@ -3,6 +3,7 @@
 
 typedef struct oberon_var_s oberon_var_t;
 typedef struct oberon_type_s oberon_type_t;
+typedef struct oberon_proc_s oberon_proc_t;
 typedef struct oberon_module_s oberon_module_t;
 typedef struct oberon_context_s oberon_context_t;
 
@@ -30,10 +31,21 @@ struct oberon_var_s
        void * gen_var;
 };
 
+struct oberon_proc_s
+{
+       char * name;
+
+       oberon_proc_t * next;
+
+       void * gen_proc;
+};
+
 struct oberon_module_s
 {
        char * name;
+
        oberon_var_t * vars;
+       oberon_proc_t * procs;
 
        void (* begin)();
 };