DEADSOFTWARE

Добавлена конструкция IF-THEN-ELSE-END
[dsw-obn.git] / src / generator.h
1 /*
2 * Функции инициализации контекста и объектов
3 */
5 void oberon_generator_init_context(oberon_context_t * ctx);
6 void oberon_generator_init_type(oberon_context_t * ctx, oberon_type_t * type);
7 void oberon_generator_init_record(oberon_context_t * ctx, oberon_type_t * type);
8 void oberon_generator_init_var(oberon_context_t * ctx, oberon_object_t * var);
9 void oberon_generator_init_proc(oberon_context_t * ctx, oberon_object_t * proc);
10 void oberon_generator_destroy_context(oberon_context_t * ctx);
12 void oberon_generator_init_module(oberon_context_t * ctx, oberon_module_t * mod);
13 void oberon_generator_fini_module(oberon_module_t * mod);
15 /*
16 * Функции генерации тела модуля
17 */
19 void oberon_generate_begin_module(oberon_context_t * ctx);
20 void oberon_generate_end_module(oberon_context_t * ctx);
22 /*
23 * Функции генерации и вызова процедур
24 */
26 void oberon_generate_begin_proc(oberon_context_t * ctx, oberon_object_t * proc);
27 void oberon_generate_end_proc(oberon_context_t * ctx);
28 void oberon_generate_call_proc(oberon_context_t * ctx, oberon_expr_t * desig);
30 gen_label_t * oberon_generator_reserve_label(oberon_context_t * ctx);
31 void oberon_generate_label(oberon_context_t * ctx, gen_label_t * l);
32 void oberon_generate_branch(oberon_context_t * ctx, oberon_expr_t * cond, bool gotoif, gen_label_t * l);
33 void oberon_generate_goto(oberon_context_t * ctx, gen_label_t * l);
35 /*
36 * Функции генерации операторов
37 */
39 void oberon_generate_assign(oberon_context_t * ctx, oberon_expr_t * src, oberon_expr_t * dst);
40 void oberon_generate_return(oberon_context_t * ctx, oberon_expr_t * expr);
42 /*
43 * Функции генерации кода
44 */
46 void oberon_generate_code(oberon_context_t * ctx);
47 void oberon_generator_dump(oberon_context_t * ctx, char * path);
48 void * oberon_generator_get_procedure(oberon_context_t * ctx, const char * name);
49 void * oberon_generator_get_var(oberon_context_t * ctx, const char * name);