1 files changed, 38 insertions, 0 deletions
diff --git a/gencdecs b/gencdecs
new file mode 100755
index 0000000..c7a9ba0
--- /dev/null
+++ b/gencdecs
@@ -0,0 +1,38 @@
+#! /bin/sh
+#shell script for creating combs.h cmbnms.c
+#needs to be run if list of combinators changes
+
+hdr='/* file created by gencdecs - do not edit manually */'
+
+echo "$hdr" > combs.h
+echo "$hdr" > cmbnms.c
+
+echo 'char *cmbnms[] = {' >> cmbnms.c
+i=0
+
+for c in S K Y C B CB I HD TL BODY LAST S_p U Uf U_ Ug COND EQ NEQ \
+         NEG AND OR NOT APPEND STEP STEPUNTIL GENSEQ MAP ZIP TAKE \
+         DROP FLATMAP FILTER FOLDL MERGE FOLDL1 LIST_LAST FOLDR MATCH \
+         MATCHINT TRY SUBSCRIPT ATLEAST P B_p C_p S1 B1 C1 ITERATE \
+         ITERATE1 SEQ FORCE MINUS PLUS TIMES INTDIV FDIV MOD GR GRE \
+         POWER CODE DECODE LENGTH ARCTAN_FN EXP_FN ENTIER_FN LOG_FN \
+         LOG10_FN SIN_FN COS_FN SQRT_FN FILEMODE FILESTAT GETENV EXEC WAIT \
+         INTEGER SHOWNUM SHOWHEX SHOWOCT SHOWSCALED SHOWFLOAT NUMVAL STARTREAD \
+         STARTREADBIN NB_STARTREAD READVALS NB_READ READ READBIN GETARGS Ush Ush1 KI \
+         G_ERROR G_ALT G_OPT G_STAR G_FBSTAR G_SYMB G_ANY G_SUCHTHAT \
+         G_END G_STATE G_SEQ G_RULE G_UNIT G_ZERO G_CLOSE G_COUNT \
+	 LEX_RPT LEX_RPT1 LEX_TRY LEX_TRY_ LEX_TRY1 LEX_TRY1_ DESTREV \
+	 LEX_COUNT LEX_COUNT0 LEX_FAIL LEX_STRING LEX_CLASS LEX_CHAR \
+         LEX_DOT LEX_SEQ LEX_OR LEX_RCONTEXT LEX_STAR LEX_OPT \
+         MKSTRICT BADCASE CONFERROR ERROR FAIL False True NIL NILS UNDEF
+do
+   echo "#define $c (CMBASE+$i)" >> combs.h
+   i=`expr $i + 1`
+   echo \"$c\"\, >> cmbnms.c
+done
+
+echo "#define ATOMLIMIT (CMBASE+$i)" >> combs.h
+echo '0};' >> cmbnms.c
+
+#./.nextxversion
+#changing .xversion causes old .x files to be discarded as obsolete