Merge pull request #70 from davidgiven/dtrg-pdp11

Make the PDP/11 code generator work.

README

@@ -2,7 +2,7 @@
                      ===================================
 
                   © 1987-2005 Vrije Universiteit, Amsterdam
-                                2017-01-07
+                                2018-02-23
 
 
 INTRODUCTION
@@ -35,6 +35,7 @@ linux68k      produces ELF executables for m68020 Linux systems
 linuxppc      produces ELF executables for PowerPC Linux systems
 cpm           produces i80 CP/M .COM files
 rpi           produces Raspberry Pi GPU binaries
+pdpv7         produces PDP/11 V7 Unix binaries
 
 
 

build.lua

@@ -14,6 +14,7 @@ vars.plats = {
 	--"qemuppc",
 	"pc86",
 	"rpi",
+	"pdpv7",
 }
 vars.plats_with_tests = {
 	"linux386",

lib/pdp/descr

@@ -1,71 +0,0 @@
-# $Revision$
-var w=2
-var p=2
-var s=2
-var l=4
-var f=4
-var d=8
-var M=pdp
-var NAME=pdp
-var LIB=lib/{M}/tail_
-var RT=lib/{M}/head_
-var CPP_F=-D__unix
-var C_LIB={EM}/{LIB}cc.1s {EM}/{LIB}cc.2g
-var OLD_C_LIB={C_LIB}
-var ALIGN=-a0:1 -a1:1 -a2:1 -a3:1
-name be
-	from .m.g
-	to .s
-	program {EM}/lib.bin/{M}/cg
-	args <
-	stdout
-	need .e
-end
-name asopt
-	from .s
-	to .so
-	program {EM}/lib.bin/{M}/top
-	args
-	optimizer
-	stdin
-	stdout
-end
-name as
-	from .s.so
-	to .o
-	program {EM}/lib.bin/{M}/as
-	args - -o > <
-	prep cond
-end
-name led
-	from .o.a
-	to .out
-	program {EM}/lib.bin/em_led
-	mapflag -l* LNAME={EM}/{LIB}*
-	mapflag -i SEPID=-b1:0
-	mapflag -n ALIGN=-a0:1 -a1:0x2000 -a2:1 -a3:1
-	mapflag -nr ALIGN=-a0:1 -a1:1 -a2:0x2000 -a3:1
-	mapflag -ansi C_LIB={EM}/{LIB}ac
-	args {ALIGN} {SEPID?} (.e:{HEAD}={EM}/{RT}em) \
-		({RTS}:.ocm.bas={EM}/{RT}cc) \
-		({RTS}{ANSI?}:.c={EM}/{RT}cc) \
-		({RTS}{ANSI?}:.cansi={EM}/{RT}ac) \
-		({RTS}:.mod={EM}/{RT}m2) \
-		({RTS}:.p={EM}/{RT}pc) \
-		-o > < \
-		(.p:{TAIL}={EM}/{LIB}pc) \
-		(.bas:{TAIL}={EM}/{LIB}bc) \
-		(.ocm:{TAIL}={EM}/{LIB}ocm) \
-		(.mod:{TAIL}={EM}/{LIB}m2) \
-		(.ocm.bas:{TAIL}={OLD_C_LIB}) \
-		(.c:{TAIL}={C_LIB}) \
-		(.e:{TAIL}={EM}/{LIB}em {EM}/{LIB}mon {EM}/lib/{M}/end_em)
-	linker
-end
-name cv
-	from .out
-	to .cv
-	program {EM}/lib.bin/{M}/cv
-	args < >
-	outfile a.out
-end

mach/pdp/Action

@@ -1,25 +0,0 @@
-name "PDP 11 assembler"
-dir as
-end
-name "PDP 11 backend"
-dir cg
-end
-name "PDP 11 target optimizer"
-dir top
-end
-name "PDP 11 conversion program"
-dir cv
-end
-name "PDP 11 interpreter"
-system pdp*
-dir int
-end
-name "PDP 11 EM library"
-dir libem
-end
-name "PDP 11 etext,edata,end library"
-dir libend
-end
-name "PDP 11 systemcall library"
-dir libsys
-end

mach/pdp/cg/mach.h

@@ -25,23 +25,23 @@
 #ifdef ACK_ASS
 #define newlbss(l,x)	fprintf(codefile,".comm %s,%u\n",l,x);
 #else
-#define newlbss(l,x)	fprintf(codefile,"%s:.=.+0%o\n",l,x);
+#define newlbss(l,x)	fprintf(codefile,"%s:.=.+%d\n",l,x);
 #endif
 
-#define cst_fmt		"$0%o"
-#define off_fmt		"0%o"
+#define cst_fmt		"$%d"
+#define off_fmt		"%d"
 #define ilb_fmt		"I%x_%x"
 #define dlb_fmt		"_%d"
 #define	hol_fmt		"hol%d"
 
-#define hol_off		"0%lo+hol%d"
+#define hol_off		"%d+hol%d"
 
 #ifdef ACK_ASS
-#define con_cst(x)	fprintf(codefile,".data2 0%lo\n",x)
+#define con_cst(x)	fprintf(codefile,".data2 %d\n",x)
 #define con_ilb(x)	fprintf(codefile,".data2 %s\n",x)
 #define con_dlb(x)	fprintf(codefile,".data2 %s\n",x)
 #else
-#define con_cst(x)	fprintf(codefile,"0%lo\n",x)
+#define con_cst(x)	fprintf(codefile,"%d\n",x)
 #define con_ilb(x)	fprintf(codefile,"%s\n",x)
 #define con_dlb(x)	fprintf(codefile,"%s\n",x)
 #endif

mach/pdp/cv/build.lua

@@ -0,0 +1,8 @@
+cprogram {
+    name = "cv",
+    srcs = { "./*.c" },
+    deps = {
+        "h+emheaders",
+        "modules/src/object+lib",
+    }
+}

mach/pdp/cv/proto.make

@@ -25,7 +25,8 @@ clean:
 	rm -f *.$(SUF) Out cv
 
 lint:
-	$(LINT) $(LINTOPTIONS) -I$(TARGET_HOME)/h $(SRC_DIR)/cv.c $(UTIL_HOME)/modules/lib/$(LINTPREF)object.$(LINTSUF)
+	$(LINT) $(LINTOPTIONS) -I$(TARGET_HOME)/h $(SRC_DIR)/cv.c
+$(UTIL_HOME)/modules/lib/$(LINTPREF)object.$(LINTSUF)
 
 pr:
 	@pr $(SRC_DIR)/proto.make $(SRC_DIR)/cv.c

mach/pdp/libem/LIST

@@ -1,72 +0,0 @@
-libem_s.a
-RT.s
-adf.s
-adi.s
-and.s
-cff.s
-cfi.s
-cif.s
-cii.s
-ciu.s
-cmf.s
-cmi.s
-cmi4.s
-cms.s
-cmu.s
-cmu4.s
-csa.s
-csb.s
-dup.s
-dvf.s
-dvi.s
-dvi4.s
-dvu.s
-dvu2.s
-dvu4.s
-eret.s
-exg.s
-fef.s
-fif.s
-gto.s
-iaar.s
-aar.s
-ilar.s
-inn.s
-isar.s
-lar.s
-los2.s
-mlf.s
-mli.s
-mli4.s
-mlu.s
-mlu4.s
-mon.s
-ngf.s
-ngi.s
-nop.s
-prf.s
-printf.s
-rck.s
-ret.s
-rmi.s
-rmi4.s
-rmu.s
-rmu2.s
-rmu4.s
-rol.s
-ror.s
-sar.s
-sbf.s
-sbi.s
-set.s
-setfl.s
-sim.s
-sli.s
-sri.s
-sru.s
-sto2.s
-strhp.s
-unknown.s
-trp.s
-xor.s
-save.s

mach/pdp/libem/build.lua

@@ -0,0 +1,8 @@
+for _, plat in ipairs(vars.plats) do
+	acklibrary {
+		name = "lib_"..plat,
+		srcs = { "./*.s" },
+		vars = { plat = plat },
+	}
+end
+

mach/pdp/libend/LIST

@@ -1,5 +0,0 @@
-end_s.a
-edata.s
-em_end.s
-end.s
-etext.s

mach/pdp/libend/build.lua

@@ -0,0 +1,8 @@
+for _, plat in ipairs(vars.plats) do
+	acklibrary {
+		name = "lib_"..plat,
+		srcs = { "./*.s" },
+		vars = { plat = plat },
+	}
+end
+

mach/pdp/libsys/LIST

@@ -1,103 +0,0 @@
-libmon_s.a
-exit.c
-cleanup.c
-stty.c
-gtty.c
-access.s
-acct.s
-alarm.s
-chdir.s
-chmod.s
-chown.s
-chroot.s
-close.s
-creat.s
-dup.s
-execl.s
-execle.s
-execv.s
-execve.s
-fetchi.s
-fork.s
-fperr.s
-fstat.s
-ftime.s
-getgid.s
-getgrp.s
-getpid.s
-getppid.s
-getuid.s
-gldav.s
-ioctl.s
-kill.s
-killbkg.s
-killpg.s
-link.s
-lock.s
-login.s
-lseek.s
-lstat.s
-mknod.s
-mount.s
-mpxcall.s
-nice.s
-nostk.s
-open.s
-pause.s
-phys.s
-pipe.s
-profil.s
-ptrace.s
-qfstat.s
-qstat.s
-quota.s
-read.s
-readlink.s
-reboot.s
-renice.s
-rtp.s
-sbrk.s
-setgid.s
-setgrp.s
-setuid.s
-signal.s
-stat.s
-stime.s
-submit.s
-symlink.s
-sync.s
-time.s
-times.s
-ucall.s
-umask.s
-umount.s
-unlink.s
-utime.s
-vfork.s
-vhangup.s
-wait.s
-write.s
-errno.s
-_alarm.s
-_close.s
-_creat.s
-_dup.s
-_execl.s
-_exit.s
-_fork.s
-_fstat.s
-_ftime.s
-_getpid.s
-_gtty.c
-_ioctl.s
-_kill.s
-_link.s
-_lseek.s
-_open.s
-_pause.s
-_pipe.s
-_read.s
-_sbrk.s
-_unlink.s
-_wait.s
-_write.s

mach/pdp/mach_params

@@ -1,5 +0,0 @@
-MACH=pdp
-SUF=o
-ASAR=aal
-RANLIB=:
-MACHFL=-O -DUFS

mach/pdp/ncg/mach.c

@@ -40,9 +40,9 @@ con_mult(sz) word sz; {
 		fatal("bad icon/ucon size");
 	l = atol(str);
 #ifdef ACK_ASS
-	fprintf(codefile,".data2 0%o, 0%o !%s\n",(int)(l>>16),(int)l, str);
+	fprintf(codefile,".data2 %d, %d !%s\n",(int)(l>>16),(int)l, str);
 #else
-	fprintf(codefile,"\t%o;%o\n",(int)(l>>16),(int)l);
+	fprintf(codefile,"\t%d;%d\n",(int)(l>>16),(int)l);
 #endif
 }
 
@@ -96,12 +96,12 @@ f_regsave() {
 		if (lbytes == 2)
 			fprintf(codefile,"tst -(sp)\n");
 		else if (lbytes!=0)
-			fprintf(codefile,"sub $0%o,sp\n",lbytes);
+			fprintf(codefile,"sub $%d,sp\n",lbytes);
 		for (i=0;i<n_regvars;i++)
 			fprintf(codefile,"mov %s,-(sp)\n",regadm[i].ra_str);
 	} else {
 		if (lbytes>6) {
-			fprintf(codefile,"mov $0%o,r0\n",lbytes);
+			fprintf(codefile,"mov $%d,r0\n",lbytes);
 			fprintf(codefile,"jsr r5,PR%s\n",Rstring);
 		} else {
 			fprintf(codefile,"jsr r5,PR%d%s\n",lbytes,Rstring);
@@ -109,7 +109,7 @@ f_regsave() {
 	}
 	for (i=0;i<n_regvars;i++)
 		if (regadm[i].ra_off>=0)
-			fprintf(codefile,"mov 0%lo(r5),%s\n",regadm[i].ra_off,
+			fprintf(codefile,"mov %d(r5),%s\n",regadm[i].ra_off,
 						regadm[i].ra_str);
 }
 
@@ -122,7 +122,7 @@ regsave(regstr,off,size) char *regstr; long off; {
 #endif
 	strcat(Rstring,regstr);
 	if (off>=0)
-		fprintf(codefile,"mov 0%lo(r5),%s\n",off,regstr);
+		fprintf(codefile,"mov %d(r5),%s\n",off,regstr);
 end of commented away */
 
 	strcat(Rstring,regstr);
@@ -154,7 +154,7 @@ prolog(nlocals) full nlocals; {
 	if (nlocals == 2)
 		fprintf(codefile,"tst -(sp)\n");
 	else
-		fprintf(codefile,"sub $0%o,sp\n",nlocals);
+		fprintf(codefile,"sub $%d,sp\n",nlocals);
 #else
 	lbytes = nlocals;
 #endif

mach/pdp/ncg/mach.h

@@ -25,23 +25,23 @@
 #ifdef ACK_ASS
 #define newlbss(l,x)	fprintf(codefile,".comm %s,%u\n",l,x);
 #else
-#define newlbss(l,x)	fprintf(codefile,"%s:.=.+0%o\n",l,x);
+#define newlbss(l,x)	fprintf(codefile,"%s:.=.+%d\n",l,x);
 #endif
 
-#define cst_fmt		"$0%o"
-#define off_fmt		"0%o"
+#define cst_fmt		"$%d"
+#define off_fmt		"%d"
 #define ilb_fmt		"I%x_%x"
 #define dlb_fmt		"_%d"
 #define	hol_fmt		"hol%d"
 
-#define hol_off		"0%lo+hol%d"
+#define hol_off		"%d+hol%d"
 
 #ifdef ACK_ASS
-#define con_cst(x)	fprintf(codefile,".data2 0%lo\n",x)
+#define con_cst(x)	fprintf(codefile,".data2 %d\n",x)
 #define con_ilb(x)	fprintf(codefile,".data2 %s\n",x)
 #define con_dlb(x)	fprintf(codefile,".data2 %s\n",x)
 #else
-#define con_cst(x)	fprintf(codefile,"0%lo\n",x)
+#define con_cst(x)	fprintf(codefile,"%d\n",x)
 #define con_ilb(x)	fprintf(codefile,"%s\n",x)
 #define con_dlb(x)	fprintf(codefile,"%s\n",x)
 #endif

mach/pdp/ncg/table

@@ -8,7 +8,7 @@ EM_BSIZE=4
 
 SL=4
 
-FORMAT = "0%lo"
+FORMAT = "%d"
 TIMEFACTOR = 1/300
 
 illins = "Illegal"

mach/proto/cg/build.lua

@@ -0,0 +1,42 @@
+include("util/cgg/build.lua")
+
+definerule("build_cg",
+	{
+		arch = { type="string" }
+	},
+	function(e)
+		-- Remember this is executed from the caller's directory; local
+		-- target names will resolve there
+		local headers = clibrary {
+			name = e.name.."/headers",
+			srcs = {},
+			hdrs = {
+				"mach/proto/cg/*.h",
+				"mach/"..e.arch.."/cg/mach.c",
+				"mach/"..e.arch.."/cg/*.h",
+			}
+		}
+
+		local tables = cgg {
+			name = e.name.."/tables",
+			srcs = { "mach/"..e.arch.."/cg/table" }
+		}
+
+		return cprogram {
+			name = e.name,
+			srcs = {
+				"mach/proto/cg/*.c",
+				matching(filenamesof(tables), "%.c$")
+			},
+			deps = {
+				"h+emheaders",
+				"modules+headers",
+				"modules/src/em_data+lib",
+				"modules/src/flt_arith+lib",
+				headers,
+				tables, -- for .h file
+			}
+		}
+	end
+)
+

mach/proto/cg/proto.make

@@ -1,190 +0,0 @@
-# $Id$
-
-#PARAMS         do not remove this line!
-
-#MACH_DEFINE	do not remove this or the next line!
-MACH = 
-
-SRC_DIR = $(SRC_HOME)/mach/$(MACH)/cg
-CDIR=$(SRC_HOME)/mach/proto/cg
-LIBEM = $(TARGET_HOME)/lib.bin/em_data.$(LIBSUF)
-LIBFLT = $(TARGET_HOME)/modules/lib/libflt.$(LIBSUF)
-CPP = $(UTIL_HOME)/lib.bin/cpp
-CGG = $(UTIL_HOME)/lib.bin/cgg
-
-PREFLAGS=-I$(TARGET_HOME)/h -I$(SRC_HOME)/mach -I$(TARGET_HOME)/modules/h -I$(SRC_DIR) -I. -I$(CDIR) -DNDEBUG
-PFLAGS=
-CFLAGS=$(PREFLAGS) $(PFLAGS) $(COPTIONS)
-LDFLAGS=$(PFLAGS) $(LDOPTIONS)
-LINTFLAGS=$(PREFLAGS) $(LINTOPTIONS)
-LIBS=$(LIBEM) $(LIBFLT)
-CFILES=$(CDIR)/codegen.c $(CDIR)/compute.c $(CDIR)/equiv.c $(CDIR)/fillem.c \
-       $(CDIR)/gencode.c $(CDIR)/glosym.c $(CDIR)/main.c $(CDIR)/move.c \
-       $(CDIR)/nextem.c $(CDIR)/reg.c $(CDIR)/regvar.c $(CDIR)/salloc.c \
-       $(CDIR)/state.c $(CDIR)/subr.c $(CDIR)/var.c
-OFILES=	codegen.$(SUF) compute.$(SUF) equiv.$(SUF) fillem.$(SUF) \
-	gencode.$(SUF) glosym.$(SUF) main.$(SUF) move.$(SUF) nextem.$(SUF) \
-	reg.$(SUF) regvar.$(SUF) salloc.$(SUF) state.$(SUF) subr.$(SUF) \
-	var.$(SUF)
-
-all:	tables.c
-	make cg
-
-cg: tables.o $(OFILES)
-	$(CC) $(LDFLAGS) $(OFILES) tables.o $(LIBS) -o cg
-
-tables.$(SUF): tables.c
-	$(CC) -c $(PREFLAGS) tables.c
-
-codegen.$(SUF): $(CDIR)/codegen.c
-	$(CC) -c $(CFLAGS) $(CDIR)/codegen.c
-compute.$(SUF): $(CDIR)/compute.c
-	$(CC) -c $(CFLAGS) $(CDIR)/compute.c
-equiv.$(SUF): $(CDIR)/equiv.c
-	$(CC) -c $(CFLAGS) $(CDIR)/equiv.c
-fillem.$(SUF): $(CDIR)/fillem.c
-	$(CC) -c $(CFLAGS) $(CDIR)/fillem.c
-gencode.$(SUF): $(CDIR)/gencode.c
-	$(CC) -c $(CFLAGS) $(CDIR)/gencode.c
-glosym.$(SUF): $(CDIR)/glosym.c
-	$(CC) -c $(CFLAGS) $(CDIR)/glosym.c
-main.$(SUF): $(CDIR)/main.c
-	$(CC) -c $(CFLAGS) $(CDIR)/main.c
-move.$(SUF): $(CDIR)/move.c
-	$(CC) -c $(CFLAGS) $(CDIR)/move.c
-nextem.$(SUF): $(CDIR)/nextem.c
-	$(CC) -c $(CFLAGS) $(CDIR)/nextem.c
-reg.$(SUF): $(CDIR)/reg.c
-	$(CC) -c $(CFLAGS) $(CDIR)/reg.c
-regvar.$(SUF): $(CDIR)/regvar.c
-	$(CC) -c $(CFLAGS) $(CDIR)/regvar.c
-salloc.$(SUF): $(CDIR)/salloc.c
-	$(CC) -c $(CFLAGS) $(CDIR)/salloc.c
-state.$(SUF): $(CDIR)/state.c
-	$(CC) -c $(CFLAGS) $(CDIR)/state.c
-subr.$(SUF): $(CDIR)/subr.c
-	$(CC) -c $(CFLAGS) $(CDIR)/subr.c
-var.$(SUF): $(CDIR)/var.c
-	$(CC) -c $(CFLAGS) $(CDIR)/var.c
-
-install: all
-	-mkdir $(TARGET_HOME)/lib.bin/$(MACH)
-	cp cg $(TARGET_HOME)/lib.bin/$(MACH)/cg
-
-cmp:	 all
-	-cmp cg $(TARGET_HOME)/lib.bin/$(MACH)/cg
-
-tables.c: $(SRC_DIR)/table $(CGG)
-	-mv tables.h tables.h.save
-	$(CPP) -P -I$(SRC_DIR) $(SRC_DIR)/table | $(CGG) > debug.out
-	-if cmp -s tables.h.save tables.h; then mv tables.h.save tables.h; else exit 0; fi
-	-if cmp -s /dev/null tables.h; then mv tables.h.save tables.h; else exit 0; fi
-
-lint:	tables.c
-	$(LINT) $(LINTFLAGS) $(CFILES) tables.c
-clean:
-	rm -f *.$(SUF) tables.c tables.h debug.out cg tables.h.save
-
-codegen.$(SUF):	$(CDIR)/assert.h
-codegen.$(SUF):	$(CDIR)/data.h
-codegen.$(SUF):	$(CDIR)/equiv.h
-codegen.$(SUF):	$(CDIR)/extern.h
-codegen.$(SUF):	$(CDIR)/param.h
-codegen.$(SUF):	$(CDIR)/result.h
-codegen.$(SUF):	$(CDIR)/state.h
-codegen.$(SUF):	tables.h
-codegen.$(SUF):	$(CDIR)/types.h
-compute.$(SUF):	$(CDIR)/assert.h
-compute.$(SUF):	$(CDIR)/data.h
-compute.$(SUF):	$(CDIR)/extern.h
-compute.$(SUF):	$(CDIR)/glosym.h
-compute.$(SUF):	$(CDIR)/param.h
-compute.$(SUF):	$(CDIR)/result.h
-compute.$(SUF):	tables.h
-compute.$(SUF):	$(CDIR)/types.h
-equiv.$(SUF):	$(CDIR)/assert.h
-equiv.$(SUF):	$(CDIR)/data.h
-equiv.$(SUF):	$(CDIR)/equiv.h
-equiv.$(SUF):	$(CDIR)/extern.h
-equiv.$(SUF):	$(CDIR)/param.h
-equiv.$(SUF):	$(CDIR)/result.h
-equiv.$(SUF):	tables.h
-equiv.$(SUF):	$(CDIR)/types.h
-fillem.$(SUF):	$(CDIR)/assert.h
-fillem.$(SUF):	$(CDIR)/data.h
-fillem.$(SUF):	$(CDIR)/extern.h
-fillem.$(SUF):	$(SRC_DIR)/mach.c
-fillem.$(SUF):	$(SRC_DIR)/mach.h
-fillem.$(SUF):	$(CDIR)/param.h
-fillem.$(SUF):	$(CDIR)/regvar.h
-fillem.$(SUF):	$(CDIR)/result.h
-fillem.$(SUF):	tables.h
-fillem.$(SUF):	$(CDIR)/types.h
-gencode.$(SUF):	$(CDIR)/assert.h
-gencode.$(SUF):	$(CDIR)/data.h
-gencode.$(SUF):	$(CDIR)/extern.h
-gencode.$(SUF):	$(CDIR)/param.h
-gencode.$(SUF):	$(CDIR)/result.h
-gencode.$(SUF):	tables.h
-gencode.$(SUF):	$(CDIR)/types.h
-glosym.$(SUF):	$(CDIR)/glosym.h
-glosym.$(SUF):	$(CDIR)/param.h
-glosym.$(SUF):	tables.h
-glosym.$(SUF):	$(CDIR)/types.h
-main.$(SUF):		$(CDIR)/param.h
-move.$(SUF):		$(CDIR)/assert.h
-move.$(SUF):		$(CDIR)/data.h
-move.$(SUF):		$(CDIR)/extern.h
-move.$(SUF):		$(CDIR)/param.h
-move.$(SUF):		$(CDIR)/result.h
-move.$(SUF):		tables.h
-move.$(SUF):		$(CDIR)/types.h
-nextem.$(SUF):	$(CDIR)/assert.h
-nextem.$(SUF):	$(CDIR)/data.h
-nextem.$(SUF):	$(CDIR)/extern.h
-nextem.$(SUF):	$(CDIR)/param.h
-nextem.$(SUF):	$(CDIR)/result.h
-nextem.$(SUF):	tables.h
-nextem.$(SUF):	$(CDIR)/types.h
-reg.$(SUF):		$(CDIR)/assert.h
-reg.$(SUF):		$(CDIR)/data.h
-reg.$(SUF):		$(CDIR)/extern.h
-reg.$(SUF):		$(CDIR)/param.h
-reg.$(SUF):		$(CDIR)/result.h
-reg.$(SUF):		tables.h
-reg.$(SUF):		$(CDIR)/types.h
-regvar.$(SUF):	$(CDIR)/assert.h
-regvar.$(SUF):	$(CDIR)/data.h
-regvar.$(SUF):	$(CDIR)/extern.h
-regvar.$(SUF):	$(CDIR)/param.h
-regvar.$(SUF):	$(CDIR)/regvar.h
-regvar.$(SUF):	$(CDIR)/result.h
-regvar.$(SUF):	tables.h
-regvar.$(SUF):	$(CDIR)/types.h
-salloc.$(SUF):	$(CDIR)/assert.h
-salloc.$(SUF):	$(CDIR)/data.h
-salloc.$(SUF):	$(CDIR)/extern.h
-salloc.$(SUF):	$(CDIR)/param.h
-salloc.$(SUF):	$(CDIR)/result.h
-salloc.$(SUF):	tables.h
-salloc.$(SUF):	$(CDIR)/types.h
-state.$(SUF):	$(CDIR)/assert.h
-state.$(SUF):	$(CDIR)/data.h
-state.$(SUF):	$(CDIR)/extern.h
-state.$(SUF):	$(CDIR)/param.h
-state.$(SUF):	$(CDIR)/result.h
-state.$(SUF):	$(CDIR)/state.h
-state.$(SUF):	tables.h
-state.$(SUF):	$(CDIR)/types.h
-subr.$(SUF):		$(CDIR)/assert.h
-subr.$(SUF):		$(CDIR)/data.h
-subr.$(SUF):		$(CDIR)/extern.h
-subr.$(SUF):		$(CDIR)/param.h
-subr.$(SUF):		$(CDIR)/result.h
-subr.$(SUF):		tables.h
-subr.$(SUF):		$(CDIR)/types.h
-var.$(SUF):		$(CDIR)/data.h
-var.$(SUF):		$(CDIR)/param.h
-var.$(SUF):		$(CDIR)/result.h
-var.$(SUF):		tables.h
-var.$(SUF):		$(CDIR)/types.h

plat/build.lua

@@ -1,4 +1,5 @@
 include("mach/proto/as/build.lua")
+include("mach/proto/cg/build.lua")
 include("mach/proto/ncg/build.lua")
 include("mach/proto/mcg/build.lua")
 include("mach/proto/top/build.lua")

plat/pdpv7/build-pkg.lua

@@ -0,0 +1,25 @@
+include("plat/build.lua")
+
+ackfile {
+	name = "boot",
+	srcs = { "./boot.s" },
+	vars = { plat = "pdpv7" }
+}
+
+build_plat_libs {
+	name = "libs",
+	arch = "pdp",
+	plat = "pdpv7",
+}
+
+installable {
+	name = "pkg",
+	map = {
+		"+tools",
+		"+libs",
+        "./include+pkg",
+		["$(PLATIND)/pdpv7/boot.o"] = "+boot",
+        ["$(PLATIND)/pdpv7/libsys.a"] = "./libsys+lib",
+	}
+}
+

plat/pdpv7/build-tools.lua

@@ -0,0 +1,28 @@
+include("plat/build.lua")
+
+build_as {
+	name = "as",
+	arch = "pdp",
+}
+
+build_cg {
+	name = "cg",
+	arch = "pdp",
+}
+
+build_top {
+	name = "top",
+	arch = "pdp"
+}
+
+return installable {
+	name = "tools",
+	map = {
+		["$(PLATDEP)/pdpv7/as"] = "+as",
+		["$(PLATDEP)/pdpv7/cg"] = "+cg",
+		["$(PLATDEP)/pdpv7/cv"] = "mach/pdp/cv+cv",
+		["$(PLATDEP)/pdpv7/top"] = "+top",
+		["$(PLATIND)/descr/pdpv7"] = "./descr",
+		"util/opt+pkg",
+	}
+}

plat/pdpv7/descr

@@ -0,0 +1,83 @@
+# $Revision$
+var w=2
+var wa=1
+var p=2
+var pa=1
+var s=2
+var sa=1
+var l=4
+var la=1
+var f=4
+var fa=1
+var d=8
+var da=1
+var x=8
+var xa=1
+
+var ARCH=pdp
+var PLATFORM=pdpv7
+var PLATFORMDIR={EM}/share/ack/{PLATFORM}
+var CPP_F=-D__unix
+var ALIGN=-a0:1 -a1:1 -a2:1 -a3:1
+
+var C_INCLUDES=-I{PLATFORMDIR}/include -I{EM}/share/ack/include/ansi
+
+name be
+	from .m.g
+	to .s
+	program {EM}/lib/ack/{PLATFORM}/cg
+	args <
+	stdout
+	need .e
+end
+name asopt
+	from .s
+	to .so
+	program {EM}/lib/ack/{PLATFORM}/top
+	args
+	optimizer
+	stdin
+	stdout
+	prep cond
+end
+name as
+	from .s.so
+	to .o
+	program {EM}/lib/ack/{PLATFORM}/as
+	args - -o > <
+	prep cond
+end
+name led
+	from .o.a
+	to .out
+	program {EM}/lib/ack/em_led
+	mapflag -l* LNAME={PLATFORMDIR}/lib*
+	mapflag -i SEPID=-b1:0
+	mapflag -n ALIGN=-a0:1 -a1:0x2000 -a2:1 -a3:1
+	mapflag -nr ALIGN=-a0:1 -a1:1 -a2:0x2000 -a3:1
+	args {ALIGN} {SEPID?} \
+		({RTS}:.b=-u _i_main) \
+		(.e:{HEAD}={PLATFORMDIR}/boot.o) \
+		({RTS}:.ocm.bas.b={PLATFORMDIR}/c-ansi.o) \
+		({RTS}:.c={PLATFORMDIR}/c-ansi.o) \
+		({RTS}:.mod={PLATFORMDIR}/modula2.o) \
+		({RTS}:.p={PLATFORMDIR}/pascal.o) \
+		-o > < \
+		(.p:{TAIL}={PLATFORMDIR}/libpascal.a) \
+		(.b:{TAIL}={PLATFORMDIR}/libb.a) \
+		(.bas:{TAIL}={PLATFORMDIR}/libbasic.a) \
+		(.mod:{TAIL}={PLATFORMDIR}/libmodula2.a) \
+		(.ocm:{TAIL}={PLATFORMDIR}/liboccam.a) \
+		(.ocm.bas.mod.b.c.p:{TAIL}={PLATFORMDIR}/libc.a) \
+		(.e:{TAIL}={PLATFORMDIR}/libem.a \
+			{PLATFORMDIR}/libsys.a \
+			{PLATFORMDIR}/libend.a)
+	linker
+end
+name cv
+	from .out
+	to .cv
+	program {EM}/lib/ack/{PLATFORM}/cv
+	args < >
+	outfile a.out
+end

plat/pdpv7/include/ack/config.h

@@ -0,0 +1,16 @@
+/*
+ * Raspberry Pi support library for the PDP/11
+ * © 2013 David Given
+ * This file is redistributable under the terms of the 3-clause BSD license.
+ * See the file 'Copying' in the root of the distribution for the full text.
+ */
+
+#ifndef _ACK_CONFIG_H
+#define _ACK_CONFIG_H
+
+/* We're providing a time() system call rather than wanting a wrapper around
+ * gettimeofday() in the libc. */
+ 
+#define ACKCONF_TIME_IS_A_SYSCALL
+
+#endif

plat/pdpv7/include/build.lua

@@ -0,0 +1,26 @@
+include("plat/build.lua")
+
+headermap = {}
+packagemap = {}
+
+local function addheader(h)
+	headermap[h] = "./"..h
+	packagemap["$(PLATIND)/pdpv7/include/"..h] = "./"..h
+end
+
+addheader("ack/config.h")
+addheader("sys/select.h")
+addheader("termios.h")
+addheader("unistd.h")
+
+acklibrary {
+	name = "headers",
+	hdrs = headermap
+}
+
+installable {
+	name = "pkg",
+	map = packagemap
+}
+
+

plat/pdpv7/include/sys/select.h

@@ -0,0 +1,13 @@
+/*
+ * Raspberry Pi support library for the PDP/11
+ * © 2013 David Given
+ * This file is redistributable under the terms of the 3-clause BSD license.
+ * See the file 'Copying' in the root of the distribution for the full text.
+ */
+
+#ifndef _SYS_SELECT_H
+#define _SYS_SELECT_H
+
+#include <unistd.h>
+
+#endif

plat/pdpv7/include/termios.h

@@ -0,0 +1,47 @@
+/*
+ * Raspberry Pi support library for the PDP/11
+ * © 2013 David Given
+ * This file is redistributable under the terms of the 3-clause BSD license.
+ * See the file 'Copying' in the root of the distribution for the full text.
+ */
+
+#ifndef _TERMIOS_H
+#define _TERMIOS_H
+
+typedef unsigned char tcflag_t;
+
+struct termios
+{
+    tcflag_t c_iflag;
+    tcflag_t c_oflag;
+    tcflag_t c_lflag;
+    tcflag_t c_cflag;
+};
+
+#define ONLCR 1
+#define ECHO 2
+#define INLCR 4
+
+/* Dummied parameters for compatibility --- only the ones above are
+ * honoured. */
+
+#define BRKINT 0
+#define ICRNL 0
+#define INPCK 0
+#define ISTRIP 0
+#define IXON 0
+#define CS8 0
+#define ICANON 0
+#define IEXTEN 0
+#define ISIG 0
+
+#define OPOST ONLCR
+
+#define TCSANOW 0
+#define TCSADRAIN 1
+#define TCSAFLUSH 2
+
+extern int tcgetattr(int fd, struct termios* t);
+extern int tcsetattr(int fd, int actions, struct termios* t);
+
+#endif

plat/pdpv7/include/unistd.h

@@ -0,0 +1,105 @@
+/*
+ * Raspberry Pi support library for the PDP/11
+ * © 2013 David Given
+ * This file is redistributable under the terms of the 3-clause BSD license.
+ * See the file 'Copying' in the root of the distribution for the full text.
+ */
+
+#ifndef _UNISTD_H
+#define _UNISTD_H
+
+#include <stddef.h>
+#include <time.h>
+
+/* Types */
+
+typedef int pid_t;
+typedef int mode_t;
+
+typedef long suseconds_t;
+
+/* Time handling. */
+
+struct timeval
+{
+	time_t tv_sec;
+	suseconds_t tv_usec;
+};
+
+struct timezone
+{
+	int tz_minuteswest;
+	int tz_dsttime;
+}; /* obsolete, unused */
+
+extern int gettimeofday(struct timeval* tv, struct timezone* tz);
+extern int settimeofday(const struct timeval* tv, const struct timezone* tz);
+
+/* Constants for file access (open and friends) */
+
+enum
+{
+	O_ACCMODE = 0x3,
+	
+	O_RDONLY = 0,
+	O_WRONLY = 1,
+	O_RDWR = 2,
+	
+	O_CREAT = 0100,
+	O_TRUNC = 01000,
+	O_APPEND = 02000,
+	O_NONBLOCK = 04000
+};
+
+/* Special variables */
+
+extern char** environ;
+
+/* Implemented system calls */
+
+extern void _exit(int);
+extern pid_t getpid(void);
+extern void* sbrk(int increment);
+extern int isatty(int d);
+extern off_t lseek(int fildes, off_t offset, int whence);
+extern int close(int d);
+extern int open(const char* path, int access, ...);
+extern int creat(const char* path, mode_t mode);
+extern int read(int fd, void* buffer, size_t count);
+extern int write(int fd, void* buffer, size_t count);
+
+/* Unimplemented system calls (these are just prototypes to let the library
+ * compile). */
+
+extern int fcntl(int fd, int op, ...);
+
+/* Signal handling */
+
+typedef int sig_atomic_t;
+
+#define SIG_ERR ((sighandler_t) -1)           /* Error return.  */
+#define SIG_DFL ((sighandler_t) 0)            /* Default action.  */
+#define SIG_IGN ((sighandler_t) 1)            /* Ignore signal.  */
+
+#define SIGABRT         6       /* Abort (ANSI) */
+#define SIGILL          11      /* Illegal instruction */
+
+#define _NSIG           32      /* Biggest signal number + 1
+                                   (not including real-time signals).  */
+typedef void (*sighandler_t)(int);
+extern sighandler_t signal(int signum, sighandler_t handler);
+extern int raise(int signum);
+
+/* Select */
+
+typedef uint32_t fd_set;
+
+extern int select(int nfds, fd_set *readfds, fd_set *writefds,
+                  fd_set *exceptfds, struct timeval *timeout);
+
+#define FD_ZERO(set) do { *set = 0; } while (0)
+#define FD_SET(fd, set) do { *set |= (1<<fd); } while (0);
+#define FD_CLR(fd, set) do { *set &= ~(1<<fd); } while (0);
+#define FD_ISSET(fd, set) (*set | (1<<fd))
+
+#endif

plat/pdpv7/libsys/build.lua

@@ -0,0 +1,16 @@
+acklibrary {
+    name = "lib",
+    srcs = {
+        "./*.c",
+        "./*.s",
+    },
+	deps = {
+		"lang/cem/libcc.ansi/headers+headers",
+		"plat/pdpv7/include+headers",
+	},
+    vars = {
+        plat = "pdpv7"
+    }
+}
+
+-- /tmp/ack-build/staging/lib/ack/cpp.ansi -D__unix -I/tmp/ack-build/obj/lang/cem/libcc.ansi/headers/headers -I/tmp/ack-build/obj/plat/rpi/include/headers -D__vc4 -D__rpi -D__ACK -I/tmp/ack-build/staging/share/ack/rpi/include -I/tmp/ack-build/staging/share/ack/include/ansi -Dvc4 -DEM_WSIZE=4 -DEM_PSIZE=4 -DEM_SSIZE=2 -DEM_LSIZE=4 -DEM_FSIZE=4 -DEM_DSIZE=4 -D_EM_WSIZE=4 -D_EM_PSIZE=4 -D_EM_SSIZE=2 -D_EM_LSIZE=4 -D_EM_FSIZE=4 -D_EM_DSIZE=4 plat/rpi/libsys/pi_user_to_phys.s

plat/pdpv7/libsys/isatty.c

@@ -0,0 +1,8 @@
+int isatty(int fd)
+{
+    char* p;
+
+    if (gtty(fd, &p) < 0)
+        return 0;
+    return 1;
+}