diff --git a/util/ceg/defaults/pseudo/.distr b/util/ceg/defaults/pseudo/.distr index af2e24574..cefb98132 100644 --- a/util/ceg/defaults/pseudo/.distr +++ b/util/ceg/defaults/pseudo/.distr @@ -16,3 +16,4 @@ C_magic.c C_open.c C_pro.c C_pro_narg.c +C_insertpart.c diff --git a/util/ceg/defaults/pseudo/C_insertpart.c b/util/ceg/defaults/pseudo/C_insertpart.c new file mode 100644 index 000000000..31b474500 --- /dev/null +++ b/util/ceg/defaults/pseudo/C_insertpart.c @@ -0,0 +1,43 @@ +#define CODE_EXPANDER +#include +#include "back.h" + +C_insertpart( d) +int d; + +{ + swtxt(); + + jump(extnd_part( d)); + symbol_definition( extnd_cont( d)); + set_local_visible( extnd_cont( d)); +} + + +C_beginpart( d) +int d; + +{ + swtxt(); + + symbol_definition( extnd_part( d)); + set_local_visible( extnd_part( d)); +} + + +C_endpart( d) +int d; + +{ + swtxt(); + + jump(extnd_cont( d)); +} + + +C_getid() +{ + static int id = 0; + + return ++id; +}