Added C_insertpart etc

diff --git a/util/ceg/defaults/pseudo/.distr b/util/ceg/defaults/pseudo/.distr
index af2e245..cefb981 100644 (file)
--- 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 (file)
index 0000000..31b4745
--- /dev/null
+++ b/util/ceg/defaults/pseudo/C_insertpart.c
@@ -0,0 +1,43 @@
+#define CODE_EXPANDER
+#include <em.h>
+#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;
+}