From 55f277e77428d7423ae906a8e1f1324d35b07a7d Mon Sep 17 00:00:00 2001 From: Jakob Kaivo Date: Fri, 4 Mar 2022 12:32:20 -0500 Subject: import Miranda 2.066 from upstream --- gencdecs | 38 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 38 insertions(+) create mode 100755 gencdecs (limited to 'gencdecs') 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 -- cgit v1.2.1