1 files changed, 52 insertions, 0 deletions
diff --git a/embed_h.sh b/embed_h.sh
new file mode 100755
index 0000000000..159ab0ed81
--- /dev/null
+++ b/embed_h.sh
@@ -0,0 +1,52 @@
+#!/bin/sh
+
+cat <<'END' >embed.h
+/* This file is derived from global.sym and interp.sym */
+
+/* (Doing namespace management portably in C is really gross.) */
+
+#ifdef EMBED
+
+/* globals we need to hide from the world */
+END
+
+sed <global.sym >>embed.h						\
+	-e 's/[ 	]*#.*//'					\
+	-e '/^[ 	]*$/d'						\
+	-e 's/\(.*\)/#define \1		Perl_\1/'			\
+	-e 's/\(................	\)	/\1/'
+
+cat <<'END' >> embed.h
+
+#endif /* EMBED */
+
+/* Put interpreter specific symbols into a struct? */
+
+#ifdef MULTIPLICITY
+
+END
+
+
+sed <interp.sym >>embed.h						\
+	-e 's/[ 	]*#.*//'					\
+	-e '/^[ 	]*$/d'						\
+	-e 's/\(.*\)/#define \1		(curinterp->I\1)/'		\
+	-e 's/\(................	\)	/\1/'
+
+cat <<'END' >> embed.h
+
+#else	/* not multiple, so translate interpreter symbols the other way... */
+
+END
+
+sed <interp.sym >>embed.h						\
+	-e 's/[ 	]*#.*//'					\
+	-e '/^[ 	]*$/d'						\
+	-e 's/\(.*\)/#define I\1		\1/'			\
+	-e 's/\(................	\)	/\1/'
+
+cat <<'END' >> embed.h
+
+#endif /* MULTIPLICITY */
+END
+