X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;ds=sidebyside;f=oberon.h;h=b2f0965f3c6acadd009dd22e99d4e5a1df8bc270;hb=7f3e5aeb0348e6c0af28869bad6acc13fe483177;hp=7ed16291b9b4da45a0c1b9bb7db798b1e427f067;hpb=390a7e053165954865bc013a7c7057982c206453;p=dsw-obn.git

diff --git a/oberon.h b/oberon.h
index 7ed1629..b2f0965 100644
--- 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)();
 };