From 510c0ce85467ac98e4a8444d04675fe8efeb5e09 Mon Sep 17 00:00:00 2001 From: ceriel Date: Mon, 11 Nov 1991 13:14:08 +0000 Subject: [PATCH] Added --- fast/f_c/.distr | 3 + fast/f_c/Parameters | 151 +++++++++++++++++++++++++ fast/f_c/proto.main | 65 +++++++++++ fast/f_c/proto.make | 263 ++++++++++++++++++++++++++++++++++++++++++++ 4 files changed, 482 insertions(+) create mode 100644 fast/f_c/.distr create mode 100644 fast/f_c/Parameters create mode 100644 fast/f_c/proto.main create mode 100644 fast/f_c/proto.make diff --git a/fast/f_c/.distr b/fast/f_c/.distr new file mode 100644 index 000000000..ebf6f5c24 --- /dev/null +++ b/fast/f_c/.distr @@ -0,0 +1,3 @@ +Parameters +proto.main +proto.make diff --git a/fast/f_c/Parameters b/fast/f_c/Parameters new file mode 100644 index 000000000..75b014160 --- /dev/null +++ b/fast/f_c/Parameters @@ -0,0 +1,151 @@ +!File: lint.h +#undef LINT 1 /* if defined, 'lint' is produced */ + + +!File: pathlength.h +#define PATHLENGTH 1024 /* max. length of path to file */ + + +!File: errout.h +#define ERROUT STDERR /* file pointer for writing messages */ +#define ERR_SHADOW 5 /* a syntax error overshadows error messages + until ERR_SHADOW symbols have been + accepted without syntax error */ + + +!File: idfsize.h +#define IDFSIZE 64 /* maximum significant length of an identifier */ + + +!File: numsize.h +#define NUMSIZE 256 /* maximum length of a numeric constant */ + + +!File: nparams.h +#define NPARAMS 32 /* maximum number of parameters of macros */ + + +!File: ifdepth.h +#define IFDEPTH 256 /* maximum number of nested if-constructions */ + + +!File: density.h +#define DENSITY 3 /* see switch.[ch] for an explanation */ + + +!File: lapbuf.h +#define LAPBUF 4096 /* size of macro actual parameter buffer */ + + +!File: strsize.h +#define ISTRSIZE 32 /* minimum number of bytes allocated for + storing a string */ +#define RSTRSIZE 16 /* step size in enlarging the memory for + the storage of a string */ + + +!File: target_sizes.h +#define MAXSIZE 8 /* the maximum of the SZ_* constants */ + +/* target machine sizes */ +#define SZ_CHAR (arith)1 +#define SZ_SHORT (arith)2 +#define SZ_WORD (arith)4 +#define SZ_INT (arith)4 +#define SZ_LONG (arith)4 +#ifndef NOFLOAT +#define SZ_FLOAT (arith)4 +#define SZ_DOUBLE (arith)8 +#endif NOFLOAT +#define SZ_POINTER (arith)4 + +/* target machine alignment requirements */ +#define AL_CHAR 1 +#define AL_SHORT SZ_SHORT +#define AL_WORD SZ_WORD +#define AL_INT SZ_WORD +#define AL_LONG SZ_WORD +#ifndef NOFLOAT +#define AL_FLOAT SZ_WORD +#define AL_DOUBLE SZ_WORD +#endif NOFLOAT +#define AL_POINTER SZ_WORD +#define AL_STRUCT 1 +#define AL_UNION 1 + + +!File: botch_free.h +#undef BOTCH_FREE 1 /* when defined, botch freed memory, as a check */ + + +!File: dataflow.h +#undef DATAFLOW 1 /* produce some compile-time xref */ + + +!File: debug.h +#undef DEBUG 1 /* perform various self-tests */ + + +!File: use_tmp.h +#define PREPEND_SCOPES 1 /* collect exa, exp, ina and inp commands + and if USE_TMP is defined let them + precede the rest of the generated + compact code */ +#undef USE_TMP 1 /* use C_insertpart, C_endpart mechanism + to generate EM-code in the order needed + for the code-generators. If not defined, + the old-style peephole optimizer is + needed. */ + + +!File: parbufsize.h +#define PARBUFSIZE 1024 + + +!File: textsize.h +#define ITEXTSIZE 32 /* 1st piece of memory for repl. text */ +#define RTEXTSIZE 16 /* stepsize for enlarging repl.text */ + + +!File: inputtype.h +#define INP_READ_IN_ONE 1 /* read input file in one */ + + +!File: nopp.h +#undef NOPP 1 /* if NOT defined, use built-int preprocessor */ + + +!File: nobitfield.h +#undef NOBITFIELD 1 /* if NOT defined, implement bitfields */ + + +!File: spec_arith.h +/* describes internal compiler arithmetics */ +#undef SPECIAL_ARITHMETICS /* something different from native long */ + + +!File: static.h +#define GSTATIC /* for large global "static" arrays */ + + +!File: nofloat.h +#undef NOFLOAT 1 /* if NOT defined, floats are implemented */ + + +!File: noRoption.h +#undef NOROPTION 1 /* if NOT defined, R option is implemented */ + + +!File: nocross.h +#define NOCROSS 1 /* if NOT defined, cross compiler */ + + +!File: regcount.h +#undef REGCOUNT 1 /* count occurrences for register messages */ + + +!File: dbsymtab.h +#define DBSYMTAB 1 /* ability to produce symbol table for debugger +*/ + + diff --git a/fast/f_c/proto.main b/fast/f_c/proto.main new file mode 100644 index 000000000..c88a7b70c --- /dev/null +++ b/fast/f_c/proto.main @@ -0,0 +1,65 @@ +# $Header$ + +# C compilation part. Not to be called directly. +# Instead, it is to be called by the Makefile. +# SRC_DIR, UTIL_HOME, TARGET_HOME, CC, COPTIONS, LINT, LINTOPTIONS, LDOPTIONS, +# CC_AND_MKDEP, SUF, LIBSUF, MACH should be set here. + +#PARAMS do not remove this line! + +MDIR = $(TARGET_HOME)/modules +LIBDIR = $(MDIR)/lib +LINTLIBDIR = $(UTIL_HOME)/modules/lib + +MALLOC = $(LIBDIR)/malloc.$(SUF) + +EMLIB = $(LIBDIR)/libem_mesO.$(LIBSUF) \ + $(LIBDIR)/libCEopt.$(LIBSUF) \ + $(TARGET_HOME)/lib.bin/$(MACH)/ce.$(LIBSUF) \ + $(TARGET_HOME)/lib.bin/$(MACH)/back.$(LIBSUF) \ + $(TARGET_HOME)/lib.bin/em_data.$(LIBSUF) \ + $(LIBDIR)/libobject.$(LIBSUF) + +MODLIB = $(LIBDIR)/libinput.$(LIBSUF) \ + $(LIBDIR)/libassert.$(LIBSUF) \ + $(LIBDIR)/liballoc.$(LIBSUF) \ + $(MALLOC) \ + $(LIBDIR)/libflt.$(LIBSUF) \ + $(LIBDIR)/libprint.$(LIBSUF) \ + $(LIBDIR)/libstring.$(LIBSUF) \ + $(LIBDIR)/libsystem.$(LIBSUF) + +LIBS = $(EMLIB) $(MODLIB) + +LINTLIBS = $(LINTLIBDIR)/$(LINTPREF)em_mes.$(LINTSUF) \ + $(LINTLIBDIR)/$(LINTPREF)emk.$(LINTSUF) \ + $(LINTLIBDIR)/$(LINTPREF)input.$(LINTSUF) \ + $(LINTLIBDIR)/$(LINTPREF)assert.$(LINTSUF) \ + $(LINTLIBDIR)/$(LINTPREF)alloc.$(LINTSUF) \ + $(LINTLIBDIR)/$(LINTPREF)flt.$(LINTSUF) \ + $(LINTLIBDIR)/$(LINTPREF)print.$(LINTSUF) \ + $(LINTLIBDIR)/$(LINTPREF)string.$(LINTSUF) \ + $(LINTLIBDIR)/$(LINTPREF)system.$(LINTSUF) + +PROFILE = +INCLUDES = -I. -I$(SRC_DIR) -I$(TARGET_HOME)/modules/h -I$(TARGET_HOME)/h -I$(TARGET_HOME)/modules/pkg +CFLAGS = $(PROFILE) $(INCLUDES) $(COPTIONS) +LINTFLAGS = $(INCLUDES) $(LINTOPTIONS) +LDFLAGS = $(PROFILE) $(LDOPTIONS) + +# C_SRC and OBJ should be set here. +#LISTS do not remove this line! + +all: main + +clean: + rm -f *.$(SUF) main + +lint: + $(LINT) $(LINTFLAGS) $(C_SRC) $(LINTLIBS) + +main: $(OBJ) + $(CC) $(LDFLAGS) $(OBJ) $(LIBS) -o main + +# do not remove the next line; it is used for generating dependencies +#DEPENDENCIES diff --git a/fast/f_c/proto.make b/fast/f_c/proto.make new file mode 100644 index 000000000..69d9ae402 --- /dev/null +++ b/fast/f_c/proto.make @@ -0,0 +1,263 @@ +# $Header$ + +# make C compiler + +#PARAMS do not remove this line! + +UTIL_BIN = \ + $(UTIL_HOME)/bin +SRC_DIR = \ + $(SRC_HOME)/lang/cem/cemcom +FSRC_DIR = \ + $(SRC_HOME)/fast/f_c + +TABGEN= $(UTIL_BIN)/tabgen +LLGEN = $(UTIL_BIN)/LLgen +LLGENOPTIONS = \ + -v + +SRC_G = $(SRC_DIR)/program.g $(SRC_DIR)/declar.g \ + $(SRC_DIR)/expression.g $(SRC_DIR)/statement.g $(SRC_DIR)/ival.g +GEN_G = tokenfile.g +GFILES= $(GEN_G) $(SRC_G) + +SRC_C = \ + $(SRC_DIR)/Version.c \ + $(SRC_DIR)/LLlex.c \ + $(SRC_DIR)/LLmessage.c \ + $(SRC_DIR)/arith.c \ + $(SRC_DIR)/asm.c \ + $(SRC_DIR)/blocks.c \ + $(SRC_DIR)/ch7.c \ + $(SRC_DIR)/ch7bin.c \ + $(SRC_DIR)/ch7mon.c \ + $(SRC_DIR)/code.c \ + $(SRC_DIR)/conversion.c \ + $(SRC_DIR)/cstoper.c \ + $(SRC_DIR)/dataflow.c \ + $(SRC_DIR)/declarator.c \ + $(SRC_DIR)/decspecs.c \ + $(SRC_DIR)/domacro.c \ + $(SRC_DIR)/dumpidf.c \ + $(SRC_DIR)/error.c \ + $(SRC_DIR)/eval.c \ + $(SRC_DIR)/expr.c \ + $(SRC_DIR)/field.c \ + $(SRC_DIR)/idf.c \ + $(SRC_DIR)/init.c \ + $(SRC_DIR)/input.c \ + $(SRC_DIR)/l_comment.c \ + $(SRC_DIR)/l_ev_ord.c \ + $(SRC_DIR)/l_lint.c \ + $(SRC_DIR)/l_misc.c \ + $(SRC_DIR)/l_outdef.c \ + $(SRC_DIR)/l_states.c \ + $(SRC_DIR)/label.c \ + $(SRC_DIR)/main.c \ + $(SRC_DIR)/options.c \ + $(SRC_DIR)/replace.c \ + $(SRC_DIR)/scan.c \ + $(SRC_DIR)/skip.c \ + $(SRC_DIR)/stack.c \ + $(SRC_DIR)/struct.c \ + $(SRC_DIR)/switch.c \ + $(SRC_DIR)/tokenname.c \ + $(SRC_DIR)/type.c \ + $(SRC_DIR)/util.c \ + $(SRC_DIR)/stab.c + +GEN_C = tokenfile.c program.c declar.c expression.c statement.c ival.c \ + symbol2str.c char.c Lpars.c next.c +CFILES= $(SRC_C) $(GEN_C) + +SRC_H = \ + $(SRC_DIR)/LLlex.h \ + $(SRC_DIR)/align.h \ + $(SRC_DIR)/arith.h \ + $(SRC_DIR)/assert.h \ + $(SRC_DIR)/atw.h \ + $(SRC_DIR)/class.h \ + $(SRC_DIR)/decspecs.h \ + $(SRC_DIR)/file_info.h \ + $(SRC_DIR)/input.h \ + $(SRC_DIR)/interface.h \ + $(SRC_DIR)/l_class.h \ + $(SRC_DIR)/l_comment.h \ + $(SRC_DIR)/l_em.h \ + $(SRC_DIR)/l_lint.h \ + $(SRC_DIR)/label.h \ + $(SRC_DIR)/level.h \ + $(SRC_DIR)/mes.h \ + $(SRC_DIR)/sizes.h \ + $(SRC_DIR)/specials.h \ + $(SRC_DIR)/tokenname.h + +GEN_H = botch_free.h dataflow.h debug.h density.h errout.h \ + idfsize.h ifdepth.h inputtype.h lint.h \ + nobitfield.h nopp.h nocross.h \ + nparams.h numsize.h parbufsize.h pathlength.h Lpars.h \ + strsize.h target_sizes.h textsize.h use_tmp.h spec_arith.h static.h \ + regcount.h \ + code.h declar.h decspecs.h def.h expr.h field.h estack.h util.h \ + idf.h macro.h stmt.h struct.h switch.h type.h l_brace.h l_state.h \ + l_outdef.h stack.h lapbuf.h noRoption.h nofloat.h dbsymtab.h + +HFILES= $(GEN_H) $(SRC_H) + +NEXTFILES = \ + $(SRC_DIR)/code.str \ + $(SRC_DIR)/declar.str \ + $(SRC_DIR)/decspecs.str \ + $(SRC_DIR)/def.str \ + $(SRC_DIR)/expr.str \ + $(SRC_DIR)/field.str \ + $(SRC_DIR)/estack.str \ + $(SRC_DIR)/util.str \ + $(SRC_DIR)/idf.str \ + $(SRC_DIR)/macro.str \ + $(SRC_DIR)/stack.str \ + $(SRC_DIR)/stmt.str \ + $(SRC_DIR)/struct.str \ + $(SRC_DIR)/switch.str \ + $(SRC_DIR)/type.str \ + $(SRC_DIR)/l_brace.str \ + $(SRC_DIR)/l_state.str \ + $(SRC_DIR)/l_outdef.str + +all: make.main + make -f make.main main + +install: all + cp main $(TARGET_HOME)/lib.bin/c_ce + +cmp: all + -cmp main $(TARGET_HOME)/lib.bin/c_ce + +opr: + make pr | opr + +pr: + @pr $(FSRC_DIR)/proto.make $(FSRC_DIR)/proto.main \ + $(FSRC_DIR)/Parameters + +lint: make.main + make -f make.main lint + +Cfiles: hfiles LLfiles $(GEN_C) $(GEN_H) Makefile + echo $(CFILES) | tr ' ' '\012' > Cfiles + echo $(HFILES) | tr ' ' '\012' >> Cfiles + +resolved: Cfiles + CC="$(CC)" UTIL_HOME="$(UTIL_HOME)" do_resolve `cat Cfiles` > Cfiles.new + -if cmp -s Cfiles Cfiles.new ; then rm -f Cfiles.new ; else mv Cfiles.new Cfiles ; fi + touch resolved + +# there is no file called "dependencies"; we want dependencies checked +# every time. This means that make.main is made every time. Oh well ... +# it does not take much time. +dependencies: resolved + do_deps `grep '.c$$' Cfiles` + +make.main: dependencies make_macros lists $(FSRC_DIR)/proto.main + sed -e '/^#DEPENDENCIES/,$$d' -e '/^#PARAMS/r make_macros' -e '/^#LISTS/r lists' $(FSRC_DIR)/proto.main > make.main + echo '#DEPENDENCIES' >> make.main + cat *.dep >> make.main + +make_macros: Makefile + echo 'SRC_DIR=$(SRC_DIR)' > make_macros + echo 'UTIL_HOME=$(UTIL_HOME)' >> make_macros + echo 'TARGET_HOME=$(TARGET_HOME)' >> make_macros + echo 'CC=$(CC)' >> make_macros + echo 'COPTIONS=$(COPTIONS) -DPEEPHOLE' >> make_macros + echo 'LDOPTIONS=$(LDOPTIONS)' >> make_macros + echo 'LINT=$(LINT)' >> make_macros + echo 'LINTOPTIONS=$(LINTOPTIONS)' >> make_macros + echo 'SUF=$(SUF)' >> make_macros + echo 'LIBSUF=$(LIBSUF)' >> make_macros + echo 'CC_AND_MKDEP=$(CC_AND_MKDEP)' >> make_macros + echo 'MACH=$(MACH)' >> make_macros + +lists: Cfiles + echo "C_SRC = \\" > lists + echo $(CFILES) >> lists + echo "OBJ = \\" >> lists + echo $(CFILES) | sed -e 's#[^ ]*/##g' -e 's/\.c/.$$(SUF)/g' >> lists + +clean: + -make -f make.main clean + rm -f $(GEN_C) $(GEN_G) $(GEN_H) hfiles LLfiles Cfiles LL.output + rm -f resolved *.dep lists make.main make_macros + +LLfiles: $(GFILES) + $(LLGEN) $(LLGENOPTIONS) $(GFILES) + @touch LLfiles + +hfiles: $(FSRC_DIR)/Parameters $(SRC_DIR)/make.hfiles + $(SRC_DIR)/make.hfiles $(FSRC_DIR)/Parameters + touch hfiles + +tokenfile.g: $(SRC_DIR)/tokenname.c $(SRC_DIR)/make.tokfile + $(SRC_DIR)/make.tokfile <$(SRC_DIR)/tokenname.c >tokenfile.g + +symbol2str.c: $(SRC_DIR)/tokenname.c $(SRC_DIR)/make.tokcase + $(SRC_DIR)/make.tokcase <$(SRC_DIR)/tokenname.c >symbol2str.c + +code.h: $(SRC_DIR)/code.str $(SRC_DIR)/make.allocd + $(SRC_DIR)/make.allocd < $(SRC_DIR)/code.str > code.h + +declar.h: $(SRC_DIR)/declar.str $(SRC_DIR)/make.allocd + $(SRC_DIR)/make.allocd < $(SRC_DIR)/declar.str > declar.h + +def.h: $(SRC_DIR)/def.str $(SRC_DIR)/make.allocd + $(SRC_DIR)/make.allocd < $(SRC_DIR)/def.str > def.h + +expr.h: $(SRC_DIR)/expr.str $(SRC_DIR)/make.allocd + $(SRC_DIR)/make.allocd < $(SRC_DIR)/expr.str > expr.h + +field.h: $(SRC_DIR)/field.str $(SRC_DIR)/make.allocd + $(SRC_DIR)/make.allocd < $(SRC_DIR)/field.str > field.h + +estack.h: $(SRC_DIR)/estack.str $(SRC_DIR)/make.allocd + $(SRC_DIR)/make.allocd < $(SRC_DIR)/estack.str > estack.h + +util.h: $(SRC_DIR)/util.str $(SRC_DIR)/make.allocd + $(SRC_DIR)/make.allocd < $(SRC_DIR)/util.str > util.h + +decspecs.h: $(SRC_DIR)/decspecs.str $(SRC_DIR)/make.allocd + $(SRC_DIR)/make.allocd < $(SRC_DIR)/decspecs.str > decspecs.h + +idf.h: $(SRC_DIR)/idf.str $(SRC_DIR)/make.allocd + $(SRC_DIR)/make.allocd < $(SRC_DIR)/idf.str > idf.h + +macro.h: $(SRC_DIR)/macro.str $(SRC_DIR)/make.allocd + $(SRC_DIR)/make.allocd < $(SRC_DIR)/macro.str > macro.h + +stack.h: $(SRC_DIR)/stack.str $(SRC_DIR)/make.allocd + $(SRC_DIR)/make.allocd < $(SRC_DIR)/stack.str > stack.h + +stmt.h: $(SRC_DIR)/stmt.str $(SRC_DIR)/make.allocd + $(SRC_DIR)/make.allocd < $(SRC_DIR)/stmt.str > stmt.h + +struct.h: $(SRC_DIR)/struct.str $(SRC_DIR)/make.allocd + $(SRC_DIR)/make.allocd < $(SRC_DIR)/struct.str > struct.h + +switch.h: $(SRC_DIR)/switch.str $(SRC_DIR)/make.allocd + $(SRC_DIR)/make.allocd < $(SRC_DIR)/switch.str > switch.h + +type.h: $(SRC_DIR)/type.str $(SRC_DIR)/make.allocd + $(SRC_DIR)/make.allocd < $(SRC_DIR)/type.str > type.h + +l_brace.h: $(SRC_DIR)/l_brace.str $(SRC_DIR)/make.allocd + $(SRC_DIR)/make.allocd < $(SRC_DIR)/l_brace.str > l_brace.h + +l_state.h: $(SRC_DIR)/l_state.str $(SRC_DIR)/make.allocd + $(SRC_DIR)/make.allocd < $(SRC_DIR)/l_state.str > l_state.h + +l_outdef.h: $(SRC_DIR)/l_outdef.str $(SRC_DIR)/make.allocd + $(SRC_DIR)/make.allocd < $(SRC_DIR)/l_outdef.str > l_outdef.h + +next.c: $(NEXTFILES) $(SRC_DIR)/make.next + $(SRC_DIR)/make.next $(NEXTFILES) > next.c + +char.c: $(SRC_DIR)/char.tab + $(TABGEN) -f$(SRC_DIR)/char.tab >char.c