From 4c8442f1f0451c295e80e38f58d619283bfc7827 Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Mon, 12 Sep 1988 13:59:43 +0000
Subject: [PATCH] Added C_insertpart etc

---
 util/ceg/defaults/pseudo/.distr         |  1 +
 util/ceg/defaults/pseudo/C_insertpart.c | 43 +++++++++++++++++++++++++
 2 files changed, 44 insertions(+)
 create mode 100644 util/ceg/defaults/pseudo/C_insertpart.c

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 <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;
+}
-- 
2.34.1