Added proto files

mach/proto/libg/.distr

@@ -1,2 +1,12 @@
-Makefile
 barrier.c
+proto.libbc
+proto.libfp
+proto.libpc
+proto.libcc
+proto.libm2
+proto.libsys
+proto.libcc.ansi
+proto.libmon
+proto.libem
+proto.liboc
+proto.make

mach/proto/libg/proto.libbc

@@ -0,0 +1,41 @@
+# $Header$
+
+#PARAMS		do not remove this line!
+
+#MACH_PARAMS	do not remove this line!
+
+MACHDEF= \
+	"MACH=$(MACH)" \
+	"SUF=$(SUF)" \
+	"ASAR=$(ASAR)" \
+	"RANLIB=$(RANLIB)" \
+	"SRC_HOME=$(SRC_HOME)" \
+	"TARGET_HOME=$(TARGET_HOME)" \
+	"COMPILE=$(SRC_HOME)/mach/proto/libg/compmodule"
+
+MAKEFILE=$(SRC_HOME)/mach/proto/libg/Makefile
+LIBBC="PREF=bc" "SRC=lang/basic/lib"
+
+all:		libbc
+
+libbc:
+		make -f $(MAKEFILE) $(LIBBC) $(MACHDEF) tail
+
+install:	cplibbc
+
+cplibbc:
+		make -f $(MAKEFILE) $(LIBBC) $(MACHDEF) tailcp
+
+cmp:		cmplibbc
+
+cmplibbc:	libbc
+		-cmp tail_bc $(TARGET_HOME)/lib/$(MACH)/tail_bc
+
+clean:
+		-rm -f *.old *.[ce$(SUF)] tail* head*
+
+opr:
+		@echo "nothing to be printed"
+
+pr:
+		@echo "nothing to be printed"

mach/proto/libg/proto.libcc

@@ -0,0 +1,62 @@
+# $Header$
+
+#PARAMS		do not remove this line!
+
+#MACH_PARAMS	do not remove this line!
+
+MACHDEF= \
+	"MACH=$(MACH)" \
+	"SUF=$(SUF)" \
+	"ASAR=$(ASAR)" \
+	"RANLIB=$(RANLIB)" \
+	"SRC_HOME=$(SRC_HOME)" \
+	"TARGET_HOME=$(TARGET_HOME)" \
+	"COMPILE=$(SRC_HOME)/mach/proto/libg/compmodule"
+
+MAKEFILE=$(SRC_HOME)/mach/proto/libg/Makefile
+STDIO="PREF=cc" "SUB=.1s" "SRC=lang/cem/libcc/stdio"
+GEN="PREF=cc" "SUB=.2g" "SRC=lang/cem/libcc/gen"
+LIBM="PREF=m" "SRC=lang/cem/libcc/math"
+
+all:		stdio gen libm
+
+stdio:
+		make -f $(MAKEFILE) $(STDIO) $(MACHDEF) tail
+
+gen:
+		make -f $(MAKEFILE) $(GEN) $(MACHDEF) all
+
+libm:
+		make -f $(MAKEFILE) $(LIBM) $(MACHDEF) tail
+
+install:	cpstdio cpgen cplibm
+
+cpstdio:
+		make -f $(MAKEFILE) $(STDIO) $(MACHDEF) tailcp
+
+cpgen:
+		make -f $(MAKEFILE) $(GEN) $(MACHDEF) cp
+
+cplibm:
+		make -f $(MAKEFILE) $(LIBM) $(MACHDEF) tailcp
+
+cmp:		cmpstdio cmpgen cmplibm
+
+cmpstdio:	stdio
+		-cmp tail_cc.1s $(TARGET_HOME)/lib/$(MACH)/tail_cc.1s
+
+cmpgen:		gen
+		-cmp head_cc $(TARGET_HOME)/lib/$(MACH)/head_cc
+		-cmp tail_cc.2g $(TARGET_HOME)/lib/$(MACH)/tail_cc.2g
+
+cmplibm:	libm
+		-cmp tail_m $(TARGET_HOME)/lib/$(MACH)/tail_m
+
+clean:
+		-rm -f *.old *.[ce$(SUF)] tail* head*
+
+opr:
+		@echo "nothing to be printed"
+
+pr:
+		@echo "nothing to be printed"

mach/proto/libg/proto.libcc.ansi

@@ -0,0 +1,64 @@
+# $Header$
+
+#PARAMS		do not remove this line!
+
+#MACH_PARAMS	do not remove this line!
+
+SRC_DIR = $(SRC_HOME)/lang/cem/libcc.ansi
+
+.SUFFIXES: .o .e .c .m .s
+
+.c.o .c.m .c.s:
+		$(MACH) $(MACHFL) -ansi -c $<
+
+.e.o .e.m .e.s:
+		$(MACH) $(MACHFL) -c $<
+
+fake:
+all:		copy head tail
+
+head:
+		$(MACH) $(MACHFL) -c -I$(TARGET_HOME)/h head_ac.e
+
+copy:
+		( cd $(SRC_DIR) ; tar cf - LIST `cat LIST` head_ac.e ) | \
+			tar xf -
+		for i in `cat LIST` ; \
+		do cd $$i ; \
+		   make `cat LIST` ; \
+		   cd .. ; \
+		done
+
+tail:
+		for i in `cat LIST` ; \
+		do cd $$i ; \
+		   rm -f OLIST ; \
+		   sed 's/\.[ce]/.$(SUF)/' < LIST | sed '/\.h/D' > OLIST ; \
+		   make -f ../Makefile `cat OLIST` ; \
+		   cd .. ; \
+		   for j in `cat $$i/OLIST` ; \
+		   do echo $$i/$$j >> OLIST ; \
+		   done ; \
+		done
+		$(AR) r tail_ac `cat OLIST`
+		$(RANLIB) tail_ac
+
+install:	all
+		cp head_ac.$(SUF) $(TARGET_HOME)/lib/$(MACH)/head_ac
+		cp tail_ac $(TARGET_HOME)/lib/$(MACH)/tail_ac
+		$(RANLIB) $(TARGET_HOME)/lib/$(MACH)/tail_ac
+
+cmp:		all
+		-cmp head_ac.$(SUF) $(TARGET_HOME)/lib/$(MACH)/head_ac
+		-cmp tail_ac $(TARGET_HOME)/lib/$(MACH)/tail_ac
+
+clean:
+		-rm -f *.old *.[ce$(SUF)] tail* head* OLIST
+		-rm -rf `cat LIST`
+		-rm -f LIST
+
+opr:
+		@echo "nothing to be printed"
+
+pr:
+		@echo "nothing to be printed"

mach/proto/libg/proto.libem

@@ -0,0 +1,32 @@
+# $Header$
+
+#PARAMS		do not remove this line!
+
+#MACH_PARAMS	do not remove this line!
+
+SRC_DIR =	$(SRC_HOME)/mach/$(MACH)/libem
+
+all:		libem
+
+libem:		$(SRC_DIR)/libem_s.a
+		ASAR="$(ASAR)" ; export ASAR ; \
+		RANLIB="$(RANLIB)" ; export RANLIB ; \
+		MACH="$(MACH)" ; export MACH ; \
+		MACHFL="$(MACHFL)" ; export MACHFL ; \
+		if [ $(SUF) = o ] march $(SRC_DIR) libem $(SRC_HOME)/mach/proto/libg/compmodule ; else cp $(SRC_DIR)/libem_s.a libem ; fi
+
+install:	all
+		cp libem $(TARGET_HOME)/lib/$(MACH)/tail_em
+		$(RANLIB) $(TARGET_HOME)/lib/$(MACH)/tail_em
+
+cmp:		all
+		-cmp libem $(TARGET_HOME)/lib/$(MACH)/tail_em
+
+clean:
+		-rm -f *.old *.[ce$(SUF)] libem
+
+opr:
+		make pr | opr
+
+pr:
+		arch pv $(SRC_DIR)/libem_s.a | pr -h $(SRC_DIR)/libem_s.a

mach/proto/libg/proto.libfp

@@ -0,0 +1,281 @@
+# $Header$
+
+#PARAMS		do not remove this line!
+
+#MACH_PARAMS	do not remove this line!
+
+SRC_DIR = $(SRC_HOME)/mach/$(MACH)/libfp
+CDIR=$(SRC_HOME)/mach/proto/fp
+
+EMFLAGS= -L -LIB -O -I$(SRC_DIR) -I$(CDIR) -m$(MACH)
+
+LIST =		cff4.$(SUF) cff8.$(SUF)\
+		cfu.$(SUF)\
+		cmf4.$(SUF) cmf8.$(SUF)\
+		cuf4.$(SUF) cuf8.$(SUF)\
+		dvf4.$(SUF) dvf8.$(SUF)\
+		fef4.$(SUF) fef8.$(SUF)\
+		fif4.$(SUF) fif8.$(SUF)\
+		cfi.$(SUF)\
+		cif4.$(SUF) cif8.$(SUF)\
+		mlf4.$(SUF) mlf8.$(SUF)\
+		ngf4.$(SUF) ngf8.$(SUF)\
+		sbf4.$(SUF) sbf8.$(SUF)\
+		adf4.$(SUF) adf8.$(SUF)\
+		zrf4.$(SUF) zrf8.$(SUF)\
+		extend.$(SUF) compact.$(SUF)\
+		add_ext.$(SUF) div_ext.$(SUF) mul_ext.$(SUF) nrm_ext.$(SUF)\
+		sft_ext.$(SUF) sub_ext.$(SUF) zrf_ext.$(SUF)\
+		adder.$(SUF) shifter.$(SUF) fptrp.$(SUF)
+SLIST =		cff4.s cff8.s\
+		cfu.s\
+		cmf4.s cmf8.s\
+		cuf4.s cuf8.s\
+		dvf4.s dvf8.s\
+		fef4.s fef8.s\
+		fif4.s fif8.s\
+		cfi.s\
+		cif4.s cif8.s\
+		mlf4.s mlf8.s\
+		ngf4.s ngf8.s\
+		sbf4.s sbf8.s\
+		adf4.s adf8.s\
+		zrf4.s zrf8.s\
+		extend.s compact.s\
+		add_ext.s div_ext.s mul_ext.s nrm_ext.s\
+		sft_ext.s sub_ext.s zrf_ext.s\
+		adder.s shifter.s fptrp.s
+
+SRC =		$(CDIR)/FP_bias.h $(CDIR)/FP_shift.h $(CDIR)/FP_trap.h\
+		$(CDIR)/FP_types.h $(CDIR)/adder.h $(CDIR)/get_put.h\
+		$(CDIR)/cff4.c $(CDIR)/cff8.c\
+		$(CDIR)/cfu.c\
+		$(CDIR)/cmf4.c $(CDIR)/cmf8.c\
+		$(CDIR)/cuf4.c $(CDIR)/cuf8.c\
+		$(CDIR)/dvf4.c $(CDIR)/dvf8.c\
+		$(CDIR)/fef4.c $(CDIR)/fef8.c\
+		$(CDIR)/fif4.c $(CDIR)/fif8.c\
+		$(CDIR)/cfi.c\
+		$(CDIR)/cif4.c $(CDIR)/cif8.c\
+		$(CDIR)/mlf4.c $(CDIR)/mlf8.c\
+		$(CDIR)/ngf4.c $(CDIR)/ngf8.c\
+		$(CDIR)/sbf4.c $(CDIR)/sbf8.c\
+		$(CDIR)/adf4.c $(CDIR)/adf8.c\
+		$(CDIR)/zrf4.c $(CDIR)/zrf8.c\
+		$(CDIR)/extend.c $(CDIR)/compact.c\
+		$(CDIR)/add_ext.c $(CDIR)/div_ext.c\
+		$(CDIR)/mul_ext.c $(CDIR)/nrm_ext.c\
+		$(CDIR)/sft_ext.c $(CDIR)/sub_ext.c $(CDIR)/zrf_ext.c\
+		$(CDIR)/adder.c $(CDIR)/shifter.c $(CDIR)/fptrp.e
+
+all:		FP_$(MACH).a
+
+install:	tail_fp
+
+tail_fp:	FP_$(MACH).a
+		cp FP_$(MACH).a $(TARGET_HOME)/lib/$(MACH)/tail_fp
+		$(RANLIB) $(TARGET_HOME)/lib/$(MACH)/tail_fp
+
+clean:
+	rm -f $(LIST) FP_$(MACH).a
+	rm -f $(SLIST)
+
+opr:
+	make pr | opr
+
+pr:
+	@pr $(CDIR)/proto.make $(CDIR)/FP.script $(SRC)
+
+FP_$(MACH).a:	$(LIST)
+	$(ASAR) rv $@ $?
+	$(RANLIB) FP_$(MACH).a
+
+fptrp.$(SUF): $(CDIR)/fptrp.e
+	ack $(EMFLAGS) -c $(CDIR)/fptrp.e
+
+extend.$(SUF) compact.$(SUF): $(SRC_DIR)/byte_order.h $(CDIR)/get_put.h
+
+cff4.$(SUF):	$(CDIR)/cff4.c
+	ack -c.s $(EMFLAGS) $(CDIR)/cff4.c
+	ed - cff4.s <$(CDIR)/FP.script 
+	ack -c $(EMFLAGS) cff4.s
+
+cff8.$(SUF):	$(CDIR)/cff8.c
+	ack -c.s $(EMFLAGS) $(CDIR)/cff8.c
+	ed - cff8.s <$(CDIR)/FP.script 
+	ack -c $(EMFLAGS) cff8.s
+
+cfu.$(SUF):	$(CDIR)/cfu.c
+	ack -c.s $(EMFLAGS) $(CDIR)/cfu.c
+	ed - cfu.s <$(CDIR)/FP.script 
+	ack -c $(EMFLAGS) cfu.s
+
+cmf4.$(SUF):	$(CDIR)/cmf4.c
+	ack -c.s $(EMFLAGS) $(CDIR)/cmf4.c
+	ed - cmf4.s <$(CDIR)/FP.script 
+	ack -c $(EMFLAGS) cmf4.s
+
+cmf8.$(SUF):	$(CDIR)/cmf8.c
+	ack -c.s $(EMFLAGS) $(CDIR)/cmf8.c
+	ed - cmf8.s <$(CDIR)/FP.script 
+	ack -c $(EMFLAGS) cmf8.s
+
+cuf4.$(SUF):	$(CDIR)/cuf4.c
+	ack -c.s $(EMFLAGS) $(CDIR)/cuf4.c
+	ed - cuf4.s <$(CDIR)/FP.script 
+	ack -c $(EMFLAGS) cuf4.s
+
+cuf8.$(SUF):	$(CDIR)/cuf8.c
+	ack -c.s $(EMFLAGS) $(CDIR)/cuf8.c
+	ed - cuf8.s <$(CDIR)/FP.script 
+	ack -c $(EMFLAGS) cuf8.s
+
+dvf4.$(SUF):	$(CDIR)/dvf4.c
+	ack -c.s $(EMFLAGS) $(CDIR)/dvf4.c
+	ed - dvf4.s <$(CDIR)/FP.script 
+	ack -c $(EMFLAGS) dvf4.s
+
+dvf8.$(SUF):	$(CDIR)/dvf8.c
+	ack -c.s $(EMFLAGS) $(CDIR)/dvf8.c
+	ed - dvf8.s <$(CDIR)/FP.script 
+	ack -c $(EMFLAGS) dvf8.s
+
+fef4.$(SUF):	$(CDIR)/fef4.c
+	ack -c.s $(EMFLAGS) $(CDIR)/fef4.c
+	ed - fef4.s <$(CDIR)/FP.script 
+	ack -c $(EMFLAGS) fef4.s
+
+fef8.$(SUF):	$(CDIR)/fef8.c
+	ack -c.s $(EMFLAGS) $(CDIR)/fef8.c
+	ed - fef8.s <$(CDIR)/FP.script 
+	ack -c $(EMFLAGS) fef8.s
+
+fif4.$(SUF):	$(CDIR)/fif4.c
+	ack -c.s $(EMFLAGS) $(CDIR)/fif4.c
+	ed - fif4.s <$(CDIR)/FP.script 
+	ack -c $(EMFLAGS) fif4.s
+
+fif8.$(SUF):	$(CDIR)/fif8.c
+	ack -c.s $(EMFLAGS) $(CDIR)/fif8.c
+	ed - fif8.s <$(CDIR)/FP.script 
+	ack -c $(EMFLAGS) fif8.s
+
+cfi.$(SUF):	$(CDIR)/cfi.c
+	ack -c.s $(EMFLAGS) $(CDIR)/cfi.c
+	ed - cfi.s <$(CDIR)/FP.script 
+	ack -c $(EMFLAGS) cfi.s
+
+cif4.$(SUF):	$(CDIR)/cif4.c
+	ack -c.s $(EMFLAGS) $(CDIR)/cif4.c
+	ed - cif4.s <$(CDIR)/FP.script 
+	ack -c $(EMFLAGS) cif4.s
+
+cif8.$(SUF):	$(CDIR)/cif8.c
+	ack -c.s $(EMFLAGS) $(CDIR)/cif8.c
+	ed - cif8.s <$(CDIR)/FP.script 
+	ack -c $(EMFLAGS) cif8.s
+
+mlf4.$(SUF):	$(CDIR)/mlf4.c
+	ack -c.s $(EMFLAGS) $(CDIR)/mlf4.c
+	ed - mlf4.s <$(CDIR)/FP.script 
+	ack -c $(EMFLAGS) mlf4.s
+
+mlf8.$(SUF):	$(CDIR)/mlf8.c
+	ack -c.s $(EMFLAGS) $(CDIR)/mlf8.c
+	ed - mlf8.s <$(CDIR)/FP.script 
+	ack -c $(EMFLAGS) mlf8.s
+
+ngf4.$(SUF):	$(CDIR)/ngf4.c
+	ack -c.s $(EMFLAGS) $(CDIR)/ngf4.c
+	ed - ngf4.s <$(CDIR)/FP.script 
+	ack -c $(EMFLAGS) ngf4.s
+
+ngf8.$(SUF):	$(CDIR)/ngf8.c
+	ack -c.s $(EMFLAGS) $(CDIR)/ngf8.c
+	ed - ngf8.s <$(CDIR)/FP.script 
+	ack -c $(EMFLAGS) ngf8.s
+
+sbf4.$(SUF):	$(CDIR)/sbf4.c
+	ack -c.s $(EMFLAGS) $(CDIR)/sbf4.c
+	ed - sbf4.s <$(CDIR)/FP.script 
+	ack -c $(EMFLAGS) sbf4.s
+
+sbf8.$(SUF):	$(CDIR)/sbf8.c
+	ack -c.s $(EMFLAGS) $(CDIR)/sbf8.c
+	ed - sbf8.s <$(CDIR)/FP.script 
+	ack -c $(EMFLAGS) sbf8.s
+
+adf4.$(SUF):	$(CDIR)/adf4.c
+	ack -c.s $(EMFLAGS) $(CDIR)/adf4.c
+	ed - adf4.s <$(CDIR)/FP.script 
+	ack -c $(EMFLAGS) adf4.s
+
+adf8.$(SUF):	$(CDIR)/adf8.c
+	ack -c.s $(EMFLAGS) $(CDIR)/adf8.c
+	ed - adf8.s <$(CDIR)/FP.script 
+	ack -c $(EMFLAGS) adf8.s
+
+zrf4.$(SUF):	$(CDIR)/zrf4.c
+	ack -c.s $(EMFLAGS) $(CDIR)/zrf4.c
+	ed - zrf4.s <$(CDIR)/FP.script 
+	ack -c $(EMFLAGS) zrf4.s
+
+zrf8.$(SUF):	$(CDIR)/zrf8.c
+	ack -c.s $(EMFLAGS) $(CDIR)/zrf8.c
+	ed - zrf8.s <$(CDIR)/FP.script 
+	ack -c $(EMFLAGS) zrf8.s
+
+extend.$(SUF):	$(CDIR)/extend.c
+	ack -c.s $(EMFLAGS) $(CDIR)/extend.c
+	ed - extend.s <$(CDIR)/FP.script 
+	ack -c $(EMFLAGS) extend.s
+
+compact.$(SUF):	$(CDIR)/compact.c
+	ack -c.s $(EMFLAGS) $(CDIR)/compact.c
+	ed - compact.s <$(CDIR)/FP.script 
+	ack -c $(EMFLAGS) compact.s
+
+add_ext.$(SUF):	$(CDIR)/add_ext.c
+	ack -c.s $(EMFLAGS) $(CDIR)/add_ext.c
+	ed - add_ext.s <$(CDIR)/FP.script 
+	ack -c $(EMFLAGS) add_ext.s
+
+div_ext.$(SUF):	$(CDIR)/div_ext.c
+	ack -c.s $(EMFLAGS) $(CDIR)/div_ext.c
+	ed - div_ext.s <$(CDIR)/FP.script 
+	ack -c $(EMFLAGS) div_ext.s
+
+mul_ext.$(SUF):	$(CDIR)/mul_ext.c
+	ack -c.s $(EMFLAGS) $(CDIR)/mul_ext.c
+	ed - mul_ext.s <$(CDIR)/FP.script 
+	ack -c $(EMFLAGS) mul_ext.s
+
+nrm_ext.$(SUF):	$(CDIR)/nrm_ext.c
+	ack -c.s $(EMFLAGS) $(CDIR)/nrm_ext.c
+	ed - nrm_ext.s <$(CDIR)/FP.script 
+	ack -c $(EMFLAGS) nrm_ext.s
+
+sft_ext.$(SUF):	$(CDIR)/sft_ext.c
+	ack -c.s $(EMFLAGS) $(CDIR)/sft_ext.c
+	ed - sft_ext.s <$(CDIR)/FP.script 
+	ack -c $(EMFLAGS) sft_ext.s
+
+sub_ext.$(SUF):	$(CDIR)/sub_ext.c
+	ack -c.s $(EMFLAGS) $(CDIR)/sub_ext.c
+	ed - sub_ext.s <$(CDIR)/FP.script 
+	ack -c $(EMFLAGS) sub_ext.s
+
+zrf_ext.$(SUF):	$(CDIR)/zrf_ext.c
+	ack -c.s $(EMFLAGS) $(CDIR)/zrf_ext.c
+	ed - zrf_ext.s <$(CDIR)/FP.script 
+	ack -c $(EMFLAGS) zrf_ext.s
+
+adder.$(SUF):	$(CDIR)/adder.c
+	ack -c.s $(EMFLAGS) $(CDIR)/adder.c
+	ed - adder.s <$(CDIR)/FP.script 
+	ack -c $(EMFLAGS) adder.s
+
+shifter.$(SUF):	$(CDIR)/shifter.c
+	ack -c.s $(EMFLAGS) $(CDIR)/shifter.c
+	ed - shifter.s <$(CDIR)/FP.script 
+	ack -c $(EMFLAGS) shifter.s

mach/proto/libg/proto.libm2

@@ -0,0 +1,42 @@
+# $Header$
+
+#PARAMS		do not remove this line!
+
+#MACH_PARAMS	do not remove this line!
+
+MACHDEF= \
+	"MACH=$(MACH)" \
+	"SUF=$(SUF)" \
+	"ASAR=$(ASAR)" \
+	"RANLIB=$(RANLIB)" \
+	"SRC_HOME=$(SRC_HOME)" \
+	"TARGET_HOME=$(TARGET_HOME)" \
+	"COMPILE=$(SRC_HOME)/mach/proto/libg/compmodule"
+
+MAKEFILE=$(SRC_HOME)/mach/proto/libg/Makefile
+LIBM2="PREF=m2" "SRC=lang/m2/libm2"
+
+all:		libm2
+
+libm2:
+		make -f $(MAKEFILE) $(LIBM2) $(MACHDEF) all
+
+install:	cplibm2
+
+cplibm2:
+		make -f $(MAKEFILE) $(LIBM2) $(MACHDEF) cp
+
+cmp:		cmplibm2
+
+cmplibm2:	libm2
+		-cmp head_m2 $(TARGET_HOME)/lib/$(MACH)/head_m2
+		-cmp tail_m2 $(TARGET_HOME)/lib/$(MACH)/tail_m2
+
+clean:
+		-rm -f *.old *.[ce$(SUF)] tail* head*
+
+opr:
+		@echo "nothing to be printed"
+
+pr:
+		@echo "nothing to be printed"

mach/proto/libg/proto.libmon

@@ -0,0 +1,41 @@
+# $Header$
+
+#PARAMS		do not remove this line!
+
+#MACH_PARAMS	do not remove this line!
+
+MACHDEF= \
+	"MACH=$(MACH)" \
+	"SUF=$(SUF)" \
+	"ASAR=$(ASAR)" \
+	"RANLIB=$(RANLIB)" \
+	"SRC_HOME=$(SRC_HOME)" \
+	"TARGET_HOME=$(TARGET_HOME)" \
+	"COMPILE=$(SRC_HOME)/mach/proto/libg/compmodule"
+
+MAKEFILE=$(SRC_HOME)/mach/proto/libg/Makefile
+MON="PREF=mon" "SUB=" "SRC=lang/cem/libcc/mon"
+
+all:		mon
+
+mon:
+		make -f $(MAKEFILE) $(MON) $(MACHDEF) tail
+
+install:	cpmon
+
+cpmon:
+		make -f $(MAKEFILE) $(MON) $(MACHDEF) tailcp
+
+cmp:		cmpmon
+
+cmpmon:		mon
+		-cmp tail_mon $(TARGET_HOME)/lib/$(MACH)/tail_mon
+
+clean:
+		-rm -f *.old *.[ce$(SUF)] tail* head*
+
+opr:
+		@echo "nothing to be printed"
+
+pr:
+		@echo "nothing to be printed"

mach/proto/libg/proto.liboc

@@ -0,0 +1,41 @@
+# $Header$
+
+#PARAMS		do not remove this line!
+
+#MACH_PARAMS	do not remove this line!
+
+MACHDEF= \
+	"MACH=$(MACH)" \
+	"SUF=$(SUF)" \
+	"ASAR=$(ASAR)" \
+	"RANLIB=$(RANLIB)" \
+	"SRC_HOME=$(SRC_HOME)" \
+	"TARGET_HOME=$(TARGET_HOME)" \
+	"COMPILE=$(SRC_HOME)/mach/proto/libg/compmodule"
+
+MAKEFILE=$(SRC_HOME)/mach/proto/libg/Makefile
+LIBOC="PREF=ocm" "SRC=lang/occam/lib"
+
+all:		liboc
+
+liboc:
+		make -f $(MAKEFILE) $(LIBOC) $(MACHDEF) tail
+
+install:	cpliboc
+
+cpliboc:
+		make -f $(MAKEFILE) $(LIBOC) $(MACHDEF) tailcp
+
+cmp:		cmpliboc
+
+cmpliboc:	liboc
+		-cmp tail_oc $(TARGET_HOME)/lib/$(MACH)/tail_oc
+
+clean:
+		-rm -f *.old *.[ce$(SUF)] tail* head*
+
+opr:
+		@echo "nothing to be printed"
+
+pr:
+		@echo "nothing to be printed"

mach/proto/libg/proto.libpc

@@ -0,0 +1,42 @@
+# $Header$
+
+#PARAMS		do not remove this line!
+
+#MACH_PARAMS	do not remove this line!
+
+MACHDEF= \
+	"MACH=$(MACH)" \
+	"SUF=$(SUF)" \
+	"ASAR=$(ASAR)" \
+	"RANLIB=$(RANLIB)" \
+	"SRC_HOME=$(SRC_HOME)" \
+	"TARGET_HOME=$(TARGET_HOME)" \
+	"COMPILE=$(SRC_HOME)/mach/proto/libg/compmodule"
+
+MAKEFILE=$(SRC_HOME)/mach/proto/libg/Makefile
+LIBPC="PREF=pc" "SRC=lang/pc/libpc"
+
+all:		libpc
+
+libpc:
+		make -f $(MAKEFILE) $(LIBPC) $(MACHDEF) all
+
+install:	cplibpc
+
+cplibpc:
+		make -f $(MAKEFILE) $(LIBPC) $(MACHDEF) cp
+
+cmp:		cmplibpc
+
+cmplibpc:	libpc
+		-cmp head_pc $(TARGET_HOME)/lib/$(MACH)/head_pc
+		-cmp tail_pc $(TARGET_HOME)/lib/$(MACH)/tail_pc
+
+clean:
+		-rm -f *.old *.[ce$(SUF)] tail* head*
+
+opr:
+		@echo "nothing to be printed"
+
+pr:
+		@echo "nothing to be printed"

mach/proto/libg/proto.libsys

@@ -0,0 +1,39 @@
+# $Header$
+
+#PARAMS		do not remove this line!
+
+#MACH_PARAMS	do not remove this line!
+
+SRC_DIR =	$(SRC_HOME)/mach/$(MACH)/libsys
+
+all:		libmon head
+
+libmon:		$(SRC_DIR)/libmon_s.a
+		ASAR="$(ASAR)" ; export ASAR ; \
+		RANLIB="$(RANLIB)" ; export RANLIB ; \
+		MACH="$(MACH)" ; export MACH ; \
+		MACHFL="$(MACHFL)" ; export MACHFL ; \
+		if [ $(SUF) = o ] march $(SRC_DIR) libmon $(SRC_HOME)/mach/proto/libg/compmodule ; else cp $(SRC_DIR)/libmon_s.a libmon ; fi
+
+head:		$(SRC_DIR)/head_em.s
+		$(MACH) $(MACHFL) $(SRC_DIR)/head_em.s
+		mv head_em.$(SUF) head
+
+install:	all
+		cp libmon $(TARGET_HOME)/lib/$(MACH)/tail_mon
+		$(RANLIB) $(TARGET_HOME)/lib/$(MACH)/tail_mon
+		cp head $(TARGET_HOME)/lib/$(MACH)/head_em
+
+cmp:		all
+		-cmp libmon $(TARGET_HOME)/lib/$(MACH)/tail_mon
+		-cmp head $(TARGET_HOME)/lib/$(MACH)/head_em
+
+clean:
+		-rm -f *.old *.[ce$(SUF)] head libmon
+
+opr:
+		make pr | opr
+
+pr:
+		@pr $(SRC_DIR)/head_em.s
+		@arch pv $(SRC_DIR)/libmon_s.a | pr -h $(SRC_DIR)/libmon_s.a

mach/proto/libg/proto.make

@@ -0,0 +1,48 @@
+# $Header$
+
+#PARAMS		do not remove this line!
+
+MACHFL= -O -L
+SUB =
+ASAR = aal
+RANLIB = :
+COMPILE = compmodule
+#PREF = pc
+#SRC=lang/pc/libpc
+#MACH=MACHINE
+#SUF=o
+
+HEADSRC=$(SRC_HOME)/$(SRC)/head_$(PREF).e
+
+all:    head tail
+
+head:   head_$(PREF)
+
+tail:   tail_$(PREF)$(SUB)
+
+headcp: head
+	cp head_$(PREF) $(TARGET_HOME)/lib/$(MACH)/head_$(PREF)
+	rm -f head_$(PREF)
+
+tailcp: tail
+	cp tail_$(PREF) $(TARGET_HOME)/lib/$(MACH)/tail_$(PREF)
+	$(RANLIB) $(TARGET_HOME)/lib/$(MACH)/tail_$(PREF)
+	rm -f tail_$(PREF)$(SUB)
+
+cp:     headcp tailcp
+
+head_$(PREF):  $(HEADSRC)
+	cp $(HEADSRC) head_$(PREF).e
+	$(MACH) $(MACHFL) -I$(TARGET_HOME)/h head_$(PREF).e
+	mv head_$(PREF).$(SUF) head_$(PREF)
+	-rm -f head_$(PREF).[ekm$(SUF)]
+
+tail_$(PREF)$(SUB):
+	@echo translation test
+	@$(MACH) $(MACHFL) $(SRC_HOME)/mach/proto/libg/barrier.c
+	@-rm -f barrier.[oeskm] barrier.so
+	@echo OK
+	-rm -f tail_$(PREF)$(SUB)
+	MACH="$(MACH)" MACHFL="$(MACHFL) -LIB" ASAR=$(ASAR) SRC=$(SRC) \
+		RANLIB="$(RANLIB)" SUF="$(SUF)" \
+		march $(SRC_HOME)/$(SRC) tail_$(PREF)$(SUB) $(COMPILE)