perl 5.0 alpha 2perl-5a2

[editor's note: from history.perl.org.  The sparc executables
originally included in the distribution are not in this commit.]

1 files changed, 48 insertions, 0 deletions

diff --git a/embed_h.SH b/embed_h.SH
new file mode 100755
index 0000000000..78838aabf7
--- /dev/null
+++ b/embed_h.SH
@@ -0,0 +1,48 @@
+#!/bin/sh
+
+cat <<'END' >embed.h
+/* This file is derived from global.var and interp.var */
+
+/* (Doing namespace management portably in C is really gross.) */
+
+#ifdef EMBEDDED
+
+/* globals we need to hide from the world */
+END
+
+sed <global.var >>embed.h						\
+	-e 's/[ 	]*#.*//'					\
+	-e '/^[ 	]*$/d'						\
+	-e 's/\(.*\)/#define \1		PERL\1/'			\
+	-e 's/\(................	\)	/\1/'
+
+cat <<'END' >> embed.h
+
+/* interpreter specific variables */
+
+END
+
+
+sed <interp.var >>embed.h						\
+	-e 's/[ 	]*#.*//'					\
+	-e '/^[ 	]*$/d'						\
+	-e 's/\(.*\)/#define \1		(curinterp->I\1)/'		\
+	-e 's/\(................	\)	/\1/'
+
+cat <<'END' >> embed.h
+
+#else	/* not embedded, so translate interpreter variables the other way... */
+
+END
+
+sed <interp.var >>embed.h						\
+	-e 's/[ 	]*#.*//'					\
+	-e '/^[ 	]*$/d'						\
+	-e 's/\(.*\)/#define I\1		\1/'			\
+	-e 's/\(................	\)	/\1/'
+
+cat <<'END' >> embed.h
+
+#endif
+END
+