Index: trunk/minix/lib/ack/libp/Makedepend-ack
===================================================================
--- trunk/minix/lib/ack/libp/Makedepend-ack	(revision 9)
+++ 	(revision )
@@ -1,76 +1,0 @@
-depend-ack:
-	rm .depend-ack
-	touch .depend-ack
-	mkdep 'cc -O -I../h -wo -E' abi.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' abl.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' abr.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' arg.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' ass.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' asz.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' atn.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' bcp.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' bts.e | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' buff.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' catch.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' clock.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' cls.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' cvt.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' diag.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' dis.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' efl.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' eln.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' encaps.e | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' exp.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' fef.e | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' fif.e | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' get.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' gto.e | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' head_pc.e | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' hlt.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' hol0.e | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' incpt.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' ini.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' log.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' mdi.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' mdl.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' new.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' nfa.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' nobuff.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' notext.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' opn.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' outcpt.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' pac.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' pclose.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' pcreat.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' pentry.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' perrno.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' pexit.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' popen.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' put.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' rcka.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' rdc.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' rdi.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' rdl.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' rdr.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' rf.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' rln.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' rnd.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' sav.e | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' sig.e | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' sin.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' sqt.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' string.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' trap.e | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' trp.e | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' unp.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' uread.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' uwrite.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' wdw.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' wf.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' wrc.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' wrf.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' wri.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' wrl.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' wrr.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' wrs.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
-	mkdep 'cc -O -I../h -wo -E' wrz.c | sed -e 's:^\(.\):../../obj-ack//./ack/libp/\1:' >> .depend-ack
Index: trunk/minix/lib/ack/libp/Makedepend-gnu
===================================================================
--- trunk/minix/lib/ack/libp/Makedepend-gnu	(revision 9)
+++ 	(revision )
@@ -1,3 +1,0 @@
-depend-gnu:
-	rm .depend-gnu
-	touch .depend-gnu
Index: trunk/minix/lib/ack/libp/Makefile
===================================================================
--- trunk/minix/lib/ack/libp/Makefile	(revision 9)
+++ 	(revision )
@@ -1,256 +1,0 @@
-#Generated from ./ack/libp/Makefile.in
-all: all-ack
-
-all-ack:
-all-gnu:
-
-makefiles: Makefile
-Makedepend-ack Makedepend-gnu: 
-	sh ../../generate.sh ./ack/libp ../../obj-ack/ ../../obj-gnu
-
-Makefile: Makefile.in Makedepend-ack Makedepend-gnu
-	sh ../../generate.sh ./ack/libp ../../obj-ack/ ../../obj-gnu
-	@echo
-	@echo *Attention*
-	@echo Makefile is regenerated... rerun command to see changes
-	@echo *Attention*
-	@echo
-
-depend: depend-ack
-all-ack: ../../obj-ack//libp.a
-
-../../obj-ack//libp.a: ../../obj-ack//libp.a(abi.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(abl.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(abr.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(arg.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(ass.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(asz.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(atn.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(bcp.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(bts.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(buff.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(catch.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(clock.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(cls.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(cvt.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(diag.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(dis.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(efl.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(eln.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(encaps.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(exp.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(fef.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(fif.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(get.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(gto.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(head_pc.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(hlt.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(hol0.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(incpt.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(ini.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(log.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(mdi.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(mdl.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(new.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(nfa.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(nobuff.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(notext.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(opn.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(outcpt.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(pac.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(pclose.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(pcreat.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(pentry.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(perrno.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(pexit.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(popen.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(put.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(rcka.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(rdc.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(rdi.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(rdl.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(rdr.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(rf.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(rln.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(rnd.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(sav.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(sig.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(sin.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(sqt.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(string.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(trap.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(trp.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(unp.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(uread.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(uwrite.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(wdw.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(wf.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(wrc.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(wrf.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(wri.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(wrl.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(wrr.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(wrs.o)
-../../obj-ack//libp.a: ../../obj-ack//libp.a(wrz.o)
-
-../../obj-ack//libp.a:
-	ar cr ../../obj-ack//libp.a ../../obj-ack//./ack/libp/*.o
-	rm ../../obj-ack//./ack/libp/*.o
-
-../../obj-ack//libp.a(abi.o): abi.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/abi.o abi.c
-../../obj-ack//libp.a(abl.o): abl.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/abl.o abl.c
-../../obj-ack//libp.a(abr.o): abr.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/abr.o abr.c
-../../obj-ack//libp.a(arg.o): arg.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/arg.o arg.c
-../../obj-ack//libp.a(ass.o): ass.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/ass.o ass.c
-../../obj-ack//libp.a(asz.o): asz.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/asz.o asz.c
-../../obj-ack//libp.a(atn.o): atn.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/atn.o atn.c
-../../obj-ack//libp.a(bcp.o): bcp.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/bcp.o bcp.c
-../../obj-ack//libp.a(bts.o): bts.e
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/bts.o bts.e
-../../obj-ack//libp.a(buff.o): buff.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/buff.o buff.c
-../../obj-ack//libp.a(catch.o): catch.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/catch.o catch.c
-../../obj-ack//libp.a(clock.o): clock.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/clock.o clock.c
-../../obj-ack//libp.a(cls.o): cls.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/cls.o cls.c
-../../obj-ack//libp.a(cvt.o): cvt.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/cvt.o cvt.c
-../../obj-ack//libp.a(diag.o): diag.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/diag.o diag.c
-../../obj-ack//libp.a(dis.o): dis.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/dis.o dis.c
-../../obj-ack//libp.a(efl.o): efl.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/efl.o efl.c
-../../obj-ack//libp.a(eln.o): eln.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/eln.o eln.c
-../../obj-ack//libp.a(encaps.o): encaps.e
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/encaps.o encaps.e
-../../obj-ack//libp.a(exp.o): exp.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/exp.o exp.c
-../../obj-ack//libp.a(fef.o): fef.e
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/fef.o fef.e
-../../obj-ack//libp.a(fif.o): fif.e
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/fif.o fif.e
-../../obj-ack//libp.a(get.o): get.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/get.o get.c
-../../obj-ack//libp.a(gto.o): gto.e
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/gto.o gto.e
-../../obj-ack//libp.a(head_pc.o): head_pc.e
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/head_pc.o head_pc.e
-../../obj-ack//libp.a(hlt.o): hlt.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/hlt.o hlt.c
-../../obj-ack//libp.a(hol0.o): hol0.e
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/hol0.o hol0.e
-../../obj-ack//libp.a(incpt.o): incpt.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/incpt.o incpt.c
-../../obj-ack//libp.a(ini.o): ini.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/ini.o ini.c
-../../obj-ack//libp.a(log.o): log.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/log.o log.c
-../../obj-ack//libp.a(mdi.o): mdi.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/mdi.o mdi.c
-../../obj-ack//libp.a(mdl.o): mdl.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/mdl.o mdl.c
-../../obj-ack//libp.a(new.o): new.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/new.o new.c
-../../obj-ack//libp.a(nfa.o): nfa.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/nfa.o nfa.c
-../../obj-ack//libp.a(nobuff.o): nobuff.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/nobuff.o nobuff.c
-../../obj-ack//libp.a(notext.o): notext.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/notext.o notext.c
-../../obj-ack//libp.a(opn.o): opn.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/opn.o opn.c
-../../obj-ack//libp.a(outcpt.o): outcpt.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/outcpt.o outcpt.c
-../../obj-ack//libp.a(pac.o): pac.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/pac.o pac.c
-../../obj-ack//libp.a(pclose.o): pclose.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/pclose.o pclose.c
-../../obj-ack//libp.a(pcreat.o): pcreat.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/pcreat.o pcreat.c
-../../obj-ack//libp.a(pentry.o): pentry.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/pentry.o pentry.c
-../../obj-ack//libp.a(perrno.o): perrno.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/perrno.o perrno.c
-../../obj-ack//libp.a(pexit.o): pexit.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/pexit.o pexit.c
-../../obj-ack//libp.a(popen.o): popen.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/popen.o popen.c
-../../obj-ack//libp.a(put.o): put.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/put.o put.c
-../../obj-ack//libp.a(rcka.o): rcka.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/rcka.o rcka.c
-../../obj-ack//libp.a(rdc.o): rdc.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/rdc.o rdc.c
-../../obj-ack//libp.a(rdi.o): rdi.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/rdi.o rdi.c
-../../obj-ack//libp.a(rdl.o): rdl.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/rdl.o rdl.c
-../../obj-ack//libp.a(rdr.o): rdr.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/rdr.o rdr.c
-../../obj-ack//libp.a(rf.o): rf.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/rf.o rf.c
-../../obj-ack//libp.a(rln.o): rln.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/rln.o rln.c
-../../obj-ack//libp.a(rnd.o): rnd.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/rnd.o rnd.c
-../../obj-ack//libp.a(sav.o): sav.e
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/sav.o sav.e
-../../obj-ack//libp.a(sig.o): sig.e
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/sig.o sig.e
-../../obj-ack//libp.a(sin.o): sin.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/sin.o sin.c
-../../obj-ack//libp.a(sqt.o): sqt.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/sqt.o sqt.c
-../../obj-ack//libp.a(string.o): string.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/string.o string.c
-../../obj-ack//libp.a(trap.o): trap.e
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/trap.o trap.e
-../../obj-ack//libp.a(trp.o): trp.e
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/trp.o trp.e
-../../obj-ack//libp.a(unp.o): unp.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/unp.o unp.c
-../../obj-ack//libp.a(uread.o): uread.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/uread.o uread.c
-../../obj-ack//libp.a(uwrite.o): uwrite.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/uwrite.o uwrite.c
-../../obj-ack//libp.a(wdw.o): wdw.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/wdw.o wdw.c
-../../obj-ack//libp.a(wf.o): wf.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/wf.o wf.c
-../../obj-ack//libp.a(wrc.o): wrc.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/wrc.o wrc.c
-../../obj-ack//libp.a(wrf.o): wrf.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/wrf.o wrf.c
-../../obj-ack//libp.a(wri.o): wri.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/wri.o wri.c
-../../obj-ack//libp.a(wrl.o): wrl.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/wrl.o wrl.c
-../../obj-ack//libp.a(wrr.o): wrr.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/wrr.o wrr.c
-../../obj-ack//libp.a(wrs.o): wrs.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/wrs.o wrs.c
-../../obj-ack//libp.a(wrz.o): wrz.c
-	cc -O -I../h -wo -c -o ../../obj-ack//./ack/libp/wrz.o wrz.c
-
-
-
-clean::
-	rm -f ../../obj-ack//./ack/libp/*
-
-include Makedepend-ack
-include .depend-ack
-
-include Makedepend-gnu
-include .depend-gnu
Index: trunk/minix/lib/ack/libp/Makefile.in
===================================================================
--- trunk/minix/lib/ack/libp/Makefile.in	(revision 9)
+++ 	(revision )
@@ -1,83 +1,0 @@
-# Makefile for lib/ack/libp.
-
-CFLAGS="-O -I../h -wo"
-#CC1	= $(CC) $(CFLAGS) -c
-
-LIBRARIES=libp
-
-libp_FILES=" \
-	abi.c \
-	abl.c \
-	abr.c \
-	arg.c \
-	ass.c \
-	asz.c \
-	atn.c \
-	bcp.c \
-	bts.e \
-	buff.c \
-	catch.c \
-	clock.c \
-	cls.c \
-	cvt.c \
-	diag.c \
-	dis.c \
-	efl.c \
-	eln.c \
-	encaps.e \
-	exp.c \
-	fef.e \
-	fif.e \
-	get.c \
-	gto.e \
-	head_pc.e \
-	hlt.c \
-	hol0.e \
-	incpt.c \
-	ini.c \
-	log.c \
-	mdi.c \
-	mdl.c \
-	new.c \
-	nfa.c \
-	nobuff.c \
-	notext.c \
-	opn.c \
-	outcpt.c \
-	pac.c \
-	pclose.c \
-	pcreat.c \
-	pentry.c \
-	perrno.c \
-	pexit.c \
-	popen.c \
-	put.c \
-	rcka.c \
-	rdc.c \
-	rdi.c \
-	rdl.c \
-	rdr.c \
-	rf.c \
-	rln.c \
-	rnd.c \
-	sav.e \
-	sig.e \
-	sin.c \
-	sqt.c \
-	string.c \
-	trap.e \
-	trp.e \
-	unp.c \
-	uread.c \
-	uwrite.c \
-	wdw.c \
-	wf.c \
-	wrc.c \
-	wrf.c \
-	wri.c \
-	wrl.c \
-	wrr.c \
-	wrs.c \
-	wrz.c"
-
-TYPE=ack
Index: trunk/minix/lib/ack/libp/abi.c
===================================================================
--- trunk/minix/lib/ack/libp/abi.c	(revision 9)
+++ 	(revision )
@@ -1,23 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/abi.c,v 1.1 2005/10/10 15:27:46 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-/* Author: J.W. Stevenson */
-
-int _abi(i) int i; {
-	return(i>=0 ? i : -i);
-}
Index: trunk/minix/lib/ack/libp/abl.c
===================================================================
--- trunk/minix/lib/ack/libp/abl.c	(revision 9)
+++ 	(revision )
@@ -1,23 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/abl.c,v 1.1 2005/10/10 15:27:46 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-/* Author: J.W. Stevenson */
-
-long _abl(i) long i; {
-	return(i>=0 ? i : -i);
-}
Index: trunk/minix/lib/ack/libp/abr.c
===================================================================
--- trunk/minix/lib/ack/libp/abr.c	(revision 9)
+++ 	(revision )
@@ -1,23 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/abr.c,v 1.1 2005/10/10 15:27:46 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-/* Author: J.W. Stevenson */
-
-double _abr(r) double r; {
-	return(r>=0 ? r : -r);
-}
Index: trunk/minix/lib/ack/libp/arg.c
===================================================================
--- trunk/minix/lib/ack/libp/arg.c	(revision 9)
+++ 	(revision )
@@ -1,56 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/arg.c,v 1.1 2005/10/10 15:27:46 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-/* Author: J.W. Stevenson */
-
-/* function argc:integer; extern; */
-/* function argv(i:integer):string; extern; */
-/* procedure argshift; extern; */
-/* function environ(i:integer):string; extern; */
-
-extern int	_pargc;
-extern char	**_pargv;
-extern char	***_penviron;
-
-int argc() {
-	return(_pargc);
-}
-
-char *argv(i) {
-	if (i >= _pargc)
-		return(0);
-	return(_pargv[i]);
-}
-
-argshift() {
-
-	if (_pargc > 1) {
-		--_pargc;
-		_pargv++;
-	}
-}
-
-char *environ(i) {
-	char **p; char *q;
-
-	if (p = *_penviron)
-		while (q = *p++)
-			if (i-- < 0)
-				return(q);
-	return(0);
-}
Index: trunk/minix/lib/ack/libp/ass.c
===================================================================
--- trunk/minix/lib/ack/libp/ass.c	(revision 9)
+++ 	(revision )
@@ -1,33 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/ass.c,v 1.1 2005/10/10 15:27:46 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-/* Author: J.W. Stevenson */
-
-#include	<em_abs.h>
-#include	<pc_err.h>
-
-extern char	*_hol0();
-extern		_trp();
-
-_ass(line,bool) int line,bool; {
-
-	if (bool==0) {
-		LINO = line;
-		_trp(EASS);
-	}
-}
Index: trunk/minix/lib/ack/libp/asz.c
===================================================================
--- trunk/minix/lib/ack/libp/asz.c	(revision 9)
+++ 	(revision )
@@ -1,29 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/asz.c,v 1.1 2005/10/10 15:27:46 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-/* Author: J.W. Stevenson */
-
-struct descr {
-	int	low;
-	int	diff;
-	int	size;
-};
-
-int _asz(dp) struct descr *dp; {
-	return(dp->size * (dp->diff + 1));
-}
Index: trunk/minix/lib/ack/libp/atn.c
===================================================================
--- trunk/minix/lib/ack/libp/atn.c	(revision 9)
+++ 	(revision )
@@ -1,72 +1,0 @@
-/*
- * (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
- * See the copyright notice in the ACK home directory, in the file "Copyright".
- *
- * Author: Ceriel J.H. Jacobs
- */
-
-/* $Header: /cvsup/minix/src/lib/ack/libp/atn.c,v 1.1 2005/10/10 15:27:46 beng Exp $ */
-
-#define __NO_DEFS
-#include <math.h>
-
-#if __STDC__
-#include <pc_math.h>
-#endif
-
-double
-_atn(x)
-	double x;
-{
-	/*	Algorithm and coefficients from:
-			"Software manual for the elementary functions"
-			by W.J. Cody and W. Waite, Prentice-Hall, 1980
-	*/
-
-	static double p[] = {
-		-0.13688768894191926929e+2,
-		-0.20505855195861651981e+2,
-		-0.84946240351320683534e+1,
-		-0.83758299368150059274e+0
-	};
-	static double q[] = {
-		 0.41066306682575781263e+2,
-		 0.86157349597130242515e+2,
-		 0.59578436142597344465e+2,
-		 0.15024001160028576121e+2,
-		 1.0
-	};
-	static double a[] = {
-		0.0,
-		0.52359877559829887307710723554658381,	/* pi/6 */
-		M_PI_2,
-		1.04719755119659774615421446109316763	/* pi/3 */
-	};
-
-	int	neg = x < 0;
-	int	n;
-	double	g;
-
-	if (neg) {
-		x = -x;
-	}
-	if (x > 1.0) {
-		x = 1.0/x;
-		n = 2;
-	}
-	else	n = 0;
-
-	if (x > 0.26794919243112270647) {	/* 2-sqtr(3) */
-		n = n + 1;
-		x = (((0.73205080756887729353*x-0.5)-0.5)+x)/
-			(1.73205080756887729353+x);
-	}
-
-	/* ??? avoid underflow ??? */
-
-	g = x * x;
-	x += x * g * POLYNOM3(g, p) / POLYNOM4(g, q);
-	if (n > 1) x = -x;
-	x += a[n];
-	return neg ? -x : x;
-}
Index: trunk/minix/lib/ack/libp/bcp.c
===================================================================
--- trunk/minix/lib/ack/libp/bcp.c	(revision 9)
+++ 	(revision )
@@ -1,30 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/bcp.c,v 1.1 2005/10/10 15:27:46 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-/* Author: J.W. Stevenson */
-
-int _bcp(sz,y,x) int sz; unsigned char *y,*x; {
-
-	while (--sz >= 0) {
-		if (*x < *y)
-			return(-1);
-		if (*x++ > *y++)
-			return(1);
-	}
-	return(0);
-}
Index: trunk/minix/lib/ack/libp/bts.e
===================================================================
--- trunk/minix/lib/ack/libp/bts.e	(revision 9)
+++ 	(revision )
@@ -1,56 +1,0 @@
-#
-; $Header: /cvsup/minix/src/lib/ack/libp/bts.e,v 1.1 2005/10/10 15:27:46 beng Exp $
-;
-; (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
-;
-;          This product is part of the Amsterdam Compiler Kit.
-;
-; Permission to use, sell, duplicate or disclose this software must be
-; obtained in writing. Requests for such permissions may be sent to
-;
-;      Dr. Andrew S. Tanenbaum
-;      Wiskundig Seminarium
-;      Vrije Universiteit
-;      Postbox 7161
-;      1007 MC Amsterdam
-;      The Netherlands
-;
-; 
-
-; Author: J.W. Stevenson */
-
- mes 2,_EM_WSIZE,_EM_PSIZE
-
-#define	SIZE	0
-#define	HIGH	_EM_WSIZE
-#define	LOWB	2*_EM_WSIZE
-#define	BASE	3*_EM_WSIZE
-
-; _bts is called with four parameters:
-;	- the initial set (BASE)
-;	- low bound of range of bits (LOWB)
-;	- high bound of range of bits (HIGH)
-;	- set size in bytes (SIZE)
-
- exp $_bts
- pro $_bts,0
- lal BASE	; address of initial set
- lol SIZE
- los _EM_WSIZE	; load initial set
-1
- lol LOWB	; low bound
- lol HIGH	; high bound
- bgt *2		; while low <= high
- lol LOWB
- lol SIZE
- set ?		; create [low]
- lol SIZE
- ior ?		; merge with initial set
- inl LOWB	; increment low bound
- bra *1		; loop back
-2
- lal BASE
- lol SIZE
- sts _EM_WSIZE	; store result over initial set
- ret 0
- end ?
Index: trunk/minix/lib/ack/libp/buff.c
===================================================================
--- trunk/minix/lib/ack/libp/buff.c	(revision 9)
+++ 	(revision )
@@ -1,35 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/buff.c,v 1.1 2005/10/10 15:27:46 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-/* Author: J.W. Stevenson */
-
-#include	<pc_file.h>
-
-extern		_flush();
-
-/* procedure buff(var f:file of ?); */
-
-buff(f) struct file *f; {
-	int sz;
-
-	if ((f->flags & (0377|WRBIT)) != (MAGIC|WRBIT))
-		return;
-	_flush(f);
-	sz = f->size;
-	f->count = f->buflen = (sz>PC_BUFLEN ? sz : PC_BUFLEN-PC_BUFLEN%sz);
-}
Index: trunk/minix/lib/ack/libp/catch.c
===================================================================
--- trunk/minix/lib/ack/libp/catch.c	(revision 9)
+++ 	(revision )
@@ -1,154 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/catch.c,v 1.1 2005/10/10 15:27:46 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-#include	<em_abs.h>
-#include	<pc_err.h>
-#include	<pc_file.h>
-
-/* to make it easier to patch ... */
-extern struct file	*_curfil;
-
-static struct errm {
-	int errno;
-	char *errmes;
-} errors[] = {
-	{ EARRAY,	"array bound error"},
-	{ ERANGE,	"range bound error"},
-	{ ESET,		"set bound error"},
-	{ EIOVFL,	"integer overflow"},
-	{ EFOVFL,	"real overflow"},
-	{ EFUNFL,	"real underflow"},
-	{ EIDIVZ,	"divide by 0"},
-	{ EFDIVZ,	"divide by 0.0"},
-	{ EIUND,	"undefined integer"},
-	{ EFUND,	"undefined real"},
-	{ ECONV,	"conversion error"},
-
-	{ ESTACK,	"stack overflow"},
-	{ EHEAP,	"heap overflow"},
-	{ EILLINS,	"illegal instruction"},
-	{ EODDZ,	"illegal size argument"},
-	{ ECASE,	"case error"},
-	{ EMEMFLT,	"addressing non existent memory"},
-	{ EBADPTR,	"bad pointer used"},
-	{ EBADPC,	"program counter out of range"},
-	{ EBADLAE,	"bad argument of lae"},
-	{ EBADMON,	"bad monitor call"},
-	{ EBADLIN,	"argument if LIN too high"},
-	{ EBADGTO,	"GTO descriptor error"},
-
-	{ EARGC,	"more args expected" },
-	{ EEXP,		"error in exp" },
-	{ ELOG,		"error in ln" },
-	{ ESQT,		"error in sqrt" },
-	{ EASS,		"assertion failed" },
-	{ EPACK,	"array bound error in pack" },
-	{ EUNPACK,	"array bound error in unpack" },
-	{ EMOD,		"only positive j in 'i mod j'" },
-	{ EBADF,	"file not yet open" },
-	{ EFREE,	"dispose error" },
-	{ EFUNASS,	"function not assigned" },
-	{ EWIDTH,	"illegal field width" },
-
-	{ EWRITEF,	"not writable" },
-	{ EREADF,	"not readable" },
-	{ EEOF,		"end of file" },
-	{ EFTRUNC,	"truncated" },
-	{ ERESET,	"reset error" },
-	{ EREWR,	"rewrite error" },
-	{ ECLOSE,	"close error" },
-	{ EREAD,	"read error" },
-	{ EWRITE,	"write error" },
-	{ EDIGIT,	"digit expected" },
-	{ EASCII,	"non-ASCII char read" },
-	{ -1,		0}
-};
-
-extern int		_pargc;
-extern char		**_pargv;
-extern char		***_penviron;
-
-extern char		*_hol0();
-extern			_trp();
-extern			_exit();
-extern int		_write();
-
-_catch(erno) unsigned erno; {
-	register struct errm *ep = &errors[0];
-	char *p,*q,*s,**qq;
-	char buf[20];
-	unsigned i;
-	int j = erno;
-	char *pp[11];
-	char xbuf[100];
-
-	qq = pp;
-	if (p = FILN)
-		*qq++ = p;
-	else
-		*qq++ = _pargv[0];
-
-	while (ep->errno != erno && ep->errmes != 0) ep++;
-	p = buf;
-	s = xbuf;
-	if (i = LINO) {
-		*qq++ = ", ";
-		do
-			*p++ = i % 10 + '0';
-		while (i /= 10);
-		while (p > buf) *s++ = *--p;
-	}
-	*s++ = ':';
-	*s++ = ' ';
-	*s++ = '\0';
-	*qq++ = xbuf;
-	if ((erno & ~037) == 0140 && (_curfil->flags&0377)==MAGIC) { 
-		/* file error */
-		*qq++ = "file ";
-		*qq++ = _curfil->fname;
-		*qq++ = ": ";
-	}
-	if (ep->errmes) *qq++ = ep->errmes;
-	else {
-		*qq++ = "error number ";
-		*qq++ = s;
-		p = buf;
-		if (j < 0) {
-			j = -j;
-			*s++ = '-';
-		}
-		do
-			*p++ = j % 10 + '0';
-		while (j /= 10);
-		while (p > buf) *s++ = *--p;
-		*s = 0;
-	}
-	*qq++ = "\n";
-	*qq = 0;
-	qq = pp;
-	while (q = *qq++) {
-		p = q;
-		while (*p)
-			p++;
-		if (_write(2,q,(int)(p-q)) < 0)
-			;
-	}
-	_exit(erno);
-error:
-	_trp(erno);
-}
Index: trunk/minix/lib/ack/libp/clock.c
===================================================================
--- trunk/minix/lib/ack/libp/clock.c	(revision 9)
+++ 	(revision )
@@ -1,47 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/clock.c,v 1.1 2005/10/10 15:27:46 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-/* Author: J.W. Stevenson */
-
-/* function clock:integer; extern; */
-
-extern int	_times();
-
-struct tbuf {
-	long	utime;
-	long	stime;
-	long	cutime;
-	long	cstime;
-};
-
-#ifndef EM_WSIZE
-#define EM_WSIZE _EM_WSIZE
-#endif
-
-int clock() {
-	struct tbuf t;
-
-	_times(&t);
-	return( (int)(t.utime + t.stime) &
-#if EM_WSIZE <= 2
-	077777
-#else
-	0x7fffffffL
-#endif
-	);
-}
Index: trunk/minix/lib/ack/libp/cls.c
===================================================================
--- trunk/minix/lib/ack/libp/cls.c	(revision 9)
+++ 	(revision )
@@ -1,67 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/cls.c,v 1.1 2005/10/10 15:27:46 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-/* Author: J.W. Stevenson */
-
-#include	<pc_file.h>
-#include	<pc_err.h>
-
-extern struct file	*_curfil;
-extern			_trp();
-extern			_flush();
-extern			_outcpt();
-extern int		_close();
-
-_xcls(f) struct file *f; {
-
-	if ((f->flags & WRBIT) == 0)
-		return;
-	if ((f->flags & (TXTBIT|ELNBIT)) == TXTBIT) {
-#ifdef CPM
-		*f->ptr = '\r';
-		_outcpt(f);
-#endif
-		*f->ptr = '\n';
-		_outcpt(f);
-	}
-	_flush(f);
-}
-
-_cls(f) struct file *f; {
-#ifdef MAYBE
-	char *p;
-#endif
-
-	_curfil = f;
-	if ((f->flags&0377) != MAGIC)
-		return;
-#ifdef MAYBE
-	p = f->bufadr;
-	if (f->ptr < p)
-		return;
-	if (f->buflen <= 0)
-		return;
-	p += f->buflen;
-	if (f->ptr >= p)
-		return;
-#endif
-	_xcls(f);
-	if (_close(f->ufd) != 0)
-		_trp(ECLOSE);
-	f->flags = 0;
-}
Index: trunk/minix/lib/ack/libp/cvt.c
===================================================================
--- trunk/minix/lib/ack/libp/cvt.c	(revision 9)
+++ 	(revision )
@@ -1,119 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/cvt.c,v 1.1 2005/10/10 15:27:46 beng Exp $ */
-#ifndef NOFLOAT
-
-#if __STDC__
-#include <float.h>
-#else
-#include <math.h>
-#define DBL_MAX	M_MAX_D
-#endif
-
-static char *cvt();
-#define NDIGITS	128
-
-char *
-_ecvt(value, ndigit, decpt, sign)
-	double value;
-	int ndigit, *decpt, *sign;
-{
-	return cvt(value, ndigit, decpt, sign, 1);
-}
-
-char *
-_fcvt(value, ndigit, decpt, sign)
-	double value;
-	int ndigit, *decpt, *sign;
-{
-	return cvt(value, ndigit, decpt, sign, 0);
-}
-
-static struct powers_of_10 {
-	double pval;
-	double rpval;
-	int exp;
-} p10[] = {
-	1.0e32, 1.0e-32, 32,
-	1.0e16, 1.0e-16, 16,
-	1.0e8, 1.0e-8, 8,
-	1.0e4, 1.0e-4, 4,
-	1.0e2, 1.0e-2, 2,
-	1.0e1, 1.0e-1, 1,
-	1.0e0, 1.0e0, 0
-};
-
-static char *
-cvt(value, ndigit, decpt, sign, ecvtflag)
-	double value;
-	int ndigit, *decpt, *sign;
-{
-	static char buf[NDIGITS+1];
-	register char *p = buf;
-	register char *pe;
-
-	if (ndigit < 0) ndigit = 0;
-	if (ndigit > NDIGITS) ndigit = NDIGITS;
-	pe = &buf[ndigit];
-	buf[0] = '\0';
-
-	*sign = 0;
-	if (value < 0) {
-		*sign = 1;
-		value = -value;
-	}
-
-	*decpt = 0;
-	if (value >= DBL_MAX) {
-		value = DBL_MAX;
-	}
-	if (value != 0.0) {
-		register struct powers_of_10 *pp = &p10[0];
-
-		if (value >= 10.0) do {
-			while (value >= pp->pval) {
-				value *= pp->rpval;
-				*decpt += pp->exp;
-			}
-		} while ((++pp)->exp > 0);
-
-		pp = &p10[0];
-		if (value < 1.0) do {
-			while (value * pp->pval < 10.0) {
-				value *= pp->pval;
-				*decpt -= pp->exp;
-			}
-		} while ((++pp)->exp > 0);
-
-		(*decpt)++;	/* because now value in [1.0, 10.0) */
-	}
-	if (! ecvtflag) {
-		/* for fcvt() we need ndigit digits behind the dot */
-		pe += *decpt;
-		if (pe > &buf[NDIGITS]) pe = &buf[NDIGITS];
-	}
-	while (p <= pe) {
-		*p++ = (int)value + '0';
-		value = 10.0 * (value - (int)value);
-	}
-	if (pe >= buf) {
-		p = pe;
-		*p += 5;	/* round of at the end */
-		while (*p > '9') {
-			*p = '0';
-			if (p > buf) ++*--p;
-			else {
-				*p = '1';
-				++*decpt;
-				if (! ecvtflag) {
-					/* maybe add another digit at the end,
-					   because the point was shifted right
-					*/
-					if (pe > buf) *pe = '0';
-					pe++;
-				}
-			}
-		}
-		*pe = '\0';
-	}
-	return buf;
-}
-#endif
Index: trunk/minix/lib/ack/libp/diag.c
===================================================================
--- trunk/minix/lib/ack/libp/diag.c	(revision 9)
+++ 	(revision )
@@ -1,34 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/diag.c,v 1.1 2005/10/10 15:27:46 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-/* Author: J.W. Stevenson */
-
-#include	<pc_file.h>
-
-/* procedure diag(var f:text); */
-
-diag(f) struct file *f; {
-
-	f->ptr = f->bufadr;
-	f->flags = WRBIT|EOFBIT|ELNBIT|TXTBIT|MAGIC;
-	f->fname = "DIAG";
-	f->ufd = 2;
-	f->size = 1;
-	f->count = 1;
-	f->buflen = 1;
-}
Index: trunk/minix/lib/ack/libp/dis.c
===================================================================
--- trunk/minix/lib/ack/libp/dis.c	(revision 9)
+++ 	(revision )
@@ -1,87 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/dis.c,v 1.1 2005/10/10 15:27:46 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-/* Author: J.W. Stevenson */
-
-#include	<pc_err.h>
-
-#define assert()	/* nothing */
-
-/*
- * use circular list of free blocks from low to high addresses
- * _highp points to free block with highest address
- */
-struct adm {
-	struct adm	*next;
-	int		size;
-};
-
-extern struct adm	*_lastp;
-extern struct adm	*_highp;
-extern			_trp();
-
-static int merge(p1,p2) struct adm *p1,*p2; {
-	struct adm *p;
-
-	p = (struct adm *)((char *)p1 + p1->size);
-	if (p > p2)
-		_trp(EFREE);
-	if (p != p2)
-		return(0);
-	p1->size += p2->size;
-	p1->next = p2->next;
-	return(1);
-}
-
-_dis(n,pp) int n; struct adm **pp; {
-	struct adm *p1,*p2;
-
-	/*
-	 * NOTE: dispose only objects whose size is a multiple of sizeof(*pp).
-	 *       this is always true for objects allocated by _new()
-	 */
-	n = ((n+sizeof(*p1)-1) / sizeof(*p1)) * sizeof(*p1);
-	if (n == 0)
-		return;
-	if ((p1= *pp) == (struct adm *) 0)
-		_trp(EFREE);
-	p1->size = n;
-	if ((p2 = _highp) == 0)  /*p1 is the only free block*/
-		p1->next = p1;
-	else {
-		if (p2 > p1) {
-			/*search for the preceding free block*/
-			if (_lastp < p1)  /*reduce search*/
-				p2 = _lastp;
-			while (p2->next < p1)
-				p2 = p2->next;
-		}
-		/* if p2 preceeds p1 in the circular list,
-		 * try to merge them			*/
-		p1->next = p2->next; p2->next = p1;
-		if (p2 <= p1 && merge(p2,p1))
-			p1 = p2;
-		p2 = p1->next;
-		/* p1 preceeds p2 in the circular list */
-		if (p2 > p1) merge(p1,p2);
-	}
-	if (p1 >= p1->next)
-		_highp = p1;
-	_lastp = p1;
-	*pp = (struct adm *) 0;
-}
Index: trunk/minix/lib/ack/libp/efl.c
===================================================================
--- trunk/minix/lib/ack/libp/efl.c	(revision 9)
+++ 	(revision )
@@ -1,36 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/efl.c,v 1.1 2005/10/10 15:27:46 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-/* Author: J.W. Stevenson */
-
-#include	<pc_file.h>
-#include	<pc_err.h>
-
-extern struct file	*_curfil;
-extern			_trp();
-extern			_incpt();
-
-int _efl(f) struct file *f; {
-
-	_curfil = f;
-	if ((f->flags & 0377) != MAGIC)
-		_trp(EBADF);
-	if ((f->flags & (WINDOW|WRBIT|EOFBIT)) == 0)
-		_incpt(f);
-	return((f->flags & EOFBIT) != 0);
-}
Index: trunk/minix/lib/ack/libp/eln.c
===================================================================
--- trunk/minix/lib/ack/libp/eln.c	(revision 9)
+++ 	(revision )
@@ -1,33 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/eln.c,v 1.1 2005/10/10 15:27:46 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-/* Author: J.W. Stevenson */
-
-#include	<pc_file.h>
-#include	<pc_err.h>
-
-extern		_trp();
-extern		_rf();
-
-int _eln(f) struct file *f; {
-
-	_rf(f);
-	if (f->flags & EOFBIT)
-		_trp(EEOF);
-	return((f->flags & ELNBIT) != 0);
-}
Index: trunk/minix/lib/ack/libp/encaps.e
===================================================================
--- trunk/minix/lib/ack/libp/encaps.e	(revision 9)
+++ 	(revision )
@@ -1,144 +1,0 @@
-#
-
-
-; $Header: /cvsup/minix/src/lib/ack/libp/encaps.e,v 1.1 2005/10/10 15:27:46 beng Exp $
-;  (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
-; 
-;           This product is part of the Amsterdam Compiler Kit.
-; 
-;  Permission to use, sell, duplicate or disclose this software must be
-;  obtained in writing. Requests for such permissions may be sent to
-; 
-;       Dr. Andrew S. Tanenbaum
-;       Wiskundig Seminarium
-;       Vrije Universiteit
-;       Postbox 7161
-;       1007 MC Amsterdam
-;       The Netherlands
-; 
-
- mes 2,_EM_WSIZE,_EM_PSIZE
-
-; procedure encaps(procedure p; procedure(q(n:integer));
-; {call q if a trap occurs during the execution of p}
-; {if q returns, continue execution of p}
-
-
- inp $handler
-
-#define PIISZ   2*_EM_PSIZE
-
-#define PARG    0
-#define QARG    PIISZ
-#define E_ELB   0-_EM_PSIZE
-#define E_EHA   -2*_EM_PSIZE
-
-; encaps is called with two parameters:
-;       - procedure instance identifier of q (QARG)
-;       - procedure instance identifier of p (PARG)
-; and two local variables:
-;       - the lb of the previous encaps      (E_ELB)
-;       - the procedure identifier of the previous handler (E_EHA)
-;
-; One static variable:
-;       - the lb of the currently active encaps (enc_lb)
-
-enc_lb
-        bss _EM_PSIZE,0,0
-
- exp $encaps
- pro $encaps,PIISZ
- ; save lb of previous encaps
- lae enc_lb
- loi _EM_PSIZE
- lal E_ELB
- sti _EM_PSIZE
- ; set new lb
- lxl 0
- lae enc_lb
- sti _EM_PSIZE
- ; save old handler id while setting up the new handler
- lpi $handler
- sig
- lal E_EHA
- sti _EM_PSIZE
- ; handler is ready, p can be called
- ; p doesn't expect parameters except possibly the static link
- ; always passing the link won't hurt
- lal PARG
- loi PIISZ
- cai
- asp _EM_PSIZE
- ; reinstate old handler
- lal E_ELB
- loi _EM_PSIZE
- lae enc_lb
- sti _EM_PSIZE
- lal E_EHA
- loi _EM_PSIZE
- sig
- asp _EM_PSIZE
- ret 0
- end ?
-
-#define TRAP    0
-#define H_ELB   0-_EM_PSIZE
-
-; handler is called with one parameter:
-;       - trap number (TRAP)
-; one local variable
-;       - the current LB of the enclosing encaps (H_ELB)
-
-
- pro $handler,_EM_PSIZE
- ; save LB of nearest encaps
- lae enc_lb
- loi _EM_PSIZE
- lal H_ELB
- sti _EM_PSIZE
- ; fetch setting for previous encaps via LB of nearest
- lal H_ELB
- loi _EM_PSIZE
- adp E_ELB
- loi _EM_PSIZE   ; LB of previous encaps
- lae enc_lb
- sti _EM_PSIZE
- lal H_ELB
- loi _EM_PSIZE
- adp E_EHA
- loi _EM_PSIZE   ; previous handler
- sig
- asp _EM_PSIZE
- ; previous handler is re-instated, time to call Q
- lol TRAP       ; the one and only real parameter
- lal H_ELB
- loi _EM_PSIZE
- lpb            ; argument base of enclosing encaps
- adp QARG
- loi PIISZ
- exg _EM_PSIZE
- dup _EM_PSIZE   ; The static link is now on top
- zer _EM_PSIZE
- cmp
- zeq *1
- ; non-zero LB
- exg _EM_PSIZE
- cai
- asp _EM_WSIZE+_EM_PSIZE
- bra *2
-1
- ; zero LB
- asp _EM_PSIZE
- cai
- asp _EM_WSIZE
-2
- ; now reinstate handler for continued execution of p
- lal H_ELB
- loi _EM_PSIZE
- lae enc_lb
- sti _EM_PSIZE
- lpi $handler
- sig
- asp _EM_PSIZE
- rtt
- end ?
Index: trunk/minix/lib/ack/libp/exp.c
===================================================================
--- trunk/minix/lib/ack/libp/exp.c	(revision 9)
+++ 	(revision )
@@ -1,118 +1,0 @@
-/*
- * (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
- * See the copyright notice in the ACK home directory, in the file "Copyright".
- *
- * Author: Ceriel J.H. Jacobs
- */
-
-/* $Header: /cvsup/minix/src/lib/ack/libp/exp.c,v 1.1 2005/10/10 15:27:46 beng Exp $ */
-#define __NO_DEFS
-#include <math.h>
-#include <pc_err.h>
-extern	_trp();
-
-#if __STDC__
-#include <float.h>
-#include <pc_math.h>
-#define M_MIN_D	DBL_MIN
-#define M_MAX_D	DBL_MAX
-#define M_DMINEXP DBL_MIN_EXP
-#endif
-#undef HUGE
-#define HUGE	1e1000
-
-static double
-Ldexp(fl,exp)
-	double fl;
-	int exp;
-{
-	extern double _fef();
-	int sign = 1;
-	int currexp;
-
-	if (fl<0) {
-		fl = -fl;
-		sign = -1;
-	}
-	fl = _fef(fl,&currexp);
-	exp += currexp;
-	if (exp > 0) {
-		while (exp>30) {
-			fl *= (double) (1L << 30);
-			exp -= 30;
-		}
-		fl *= (double) (1L << exp);
-	}
-	else	{
-		while (exp<-30) {
-			fl /= (double) (1L << 30);
-			exp += 30;
-		}
-		fl /= (double) (1L << -exp);
-	}
-	return sign * fl;
-}
-
-double
-_exp(x)
-	double x;
-{
-	/*	Algorithm and coefficients from:
-			"Software manual for the elementary functions"
-			by W.J. Cody and W. Waite, Prentice-Hall, 1980
-	*/
-
-	static double p[] = {
-	        0.25000000000000000000e+0,
-	        0.75753180159422776666e-2,
-		0.31555192765684646356e-4
-	};
-
-	static double q[] = {
-	        0.50000000000000000000e+0,
-	        0.56817302698551221787e-1,
-	        0.63121894374398503557e-3,
-		0.75104028399870046114e-6
-	};
-	double	xn, g;
-	int	n;
-	int	negative = x < 0;
-
-	if (x <= M_LN_MIN_D) {
-		g = M_MIN_D/4.0;
-
-		if (g != 0.0) {
-			/* unnormalized numbers apparently exist */
-			if (x < (M_LN2 * (M_DMINEXP - 53))) return 0.0;
-		}
-		else {
-			if (x < M_LN_MIN_D) return 0.0;
-			return M_MIN_D;
-		}
-	}
-	if (x >= M_LN_MAX_D) {
-		if (x > M_LN_MAX_D) {
-			_trp(EEXP);
-			return HUGE;
-		}
-		return M_MAX_D;
-	}
-	if (negative) x = -x;
-
-	n = x * M_LOG2E + 0.5;	/* 1/ln(2) = log2(e), 0.5 added for rounding */
-	xn = n;
-	{
-		double	x1 = (long) x;
-		double	x2 = x - x1;
-
-		g = ((x1-xn*0.693359375)+x2) - xn*(-2.1219444005469058277e-4);
-	}
-	if (negative) {
-		g = -g;
-		n = -n;
-	}
-	xn = g * g;
-	x = g * POLYNOM2(xn, p);
-	n += 1;
-	return (Ldexp(0.5 + x/(POLYNOM3(xn, q) - x), n));
-}
Index: trunk/minix/lib/ack/libp/fef.e
===================================================================
--- trunk/minix/lib/ack/libp/fef.e	(revision 9)
+++ 	(revision )
@@ -1,39 +1,0 @@
-#
-; $Header: /cvsup/minix/src/lib/ack/libp/fef.e,v 1.1 2005/10/10 15:27:46 beng Exp $
-;
-; (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
-;
-;          This product is part of the Amsterdam Compiler Kit.
-;
-; Permission to use, sell, duplicate or disclose this software must be
-; obtained in writing. Requests for such permissions may be sent to
-;
-;      Dr. Andrew S. Tanenbaum
-;      Wiskundig Seminarium
-;      Vrije Universiteit
-;      Postbox 7161
-;      1007 MC Amsterdam
-;      The Netherlands
-;
-;
-
- mes 2,_EM_WSIZE,_EM_PSIZE
-
-#define FARG    0
-#define ERES    _EM_DSIZE
-
-; _fef is called with two parameters:
-;       - address of exponent result (ERES)
-;       - floating point number to be split (FARG)
-; and returns an _EM_DSIZE-byte floating point number
-
- exp $_fef
- pro $_fef,0
- lal FARG
- loi _EM_DSIZE
- fef _EM_DSIZE
- lal ERES
- loi _EM_PSIZE
- sti _EM_WSIZE
- ret _EM_DSIZE
- end ?
Index: trunk/minix/lib/ack/libp/fif.e
===================================================================
--- trunk/minix/lib/ack/libp/fif.e	(revision 9)
+++ 	(revision )
@@ -1,41 +1,0 @@
-#
-; $Header: /cvsup/minix/src/lib/ack/libp/fif.e,v 1.1 2005/10/10 15:27:46 beng Exp $
-;
-; (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
-;
-;          This product is part of the Amsterdam Compiler Kit.
-;
-; Permission to use, sell, duplicate or disclose this software must be
-; obtained in writing. Requests for such permissions may be sent to
-;
-;      Dr. Andrew S. Tanenbaum
-;      Wiskundig Seminarium
-;      Vrije Universiteit
-;      Postbox 7161
-;      1007 MC Amsterdam
-;      The Netherlands
-;
-;
-
- mes 2,_EM_WSIZE,_EM_PSIZE
-
-#define ARG1    0
-#define ARG2    _EM_DSIZE
-#define IRES    2*_EM_DSIZE
-
-; _fif is called with three parameters:
-;       - address of integer part result (IRES)
-;       - float two (ARG2)
-;       - float one (ARG1)
-; and returns an _EM_DSIZE-byte floating point number
-
- exp $_fif
- pro $_fif,0
- lal 0
- loi 2*_EM_DSIZE
- fif _EM_DSIZE
- lal IRES
- loi _EM_PSIZE
- sti _EM_DSIZE
- ret _EM_DSIZE
- end ?
Index: trunk/minix/lib/ack/libp/get.c
===================================================================
--- trunk/minix/lib/ack/libp/get.c	(revision 9)
+++ 	(revision )
@@ -1,31 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/get.c,v 1.1 2005/10/10 15:27:46 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-#include	<pc_file.h>
-#include	<pc_err.h>
-
-extern		_rf();
-extern		_trp();
-
-_get(f) struct file *f; {
-
-	_rf(f);
-	if (f->flags&EOFBIT)
-		_trp(EEOF);
-	f->flags &= ~WINDOW;
-}
Index: trunk/minix/lib/ack/libp/gto.e
===================================================================
--- trunk/minix/lib/ack/libp/gto.e	(revision 9)
+++ 	(revision )
@@ -1,85 +1,0 @@
-#
-; $Header: /cvsup/minix/src/lib/ack/libp/gto.e,v 1.1 2005/10/10 15:27:46 beng Exp $
-;  (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
-; 
-;           This product is part of the Amsterdam Compiler Kit.
-; 
-;  Permission to use, sell, duplicate or disclose this software must be
-;  obtained in writing. Requests for such permissions may be sent to
-; 
-;       Dr. Andrew S. Tanenbaum
-;       Wiskundig Seminarium
-;       Vrije Universiteit
-;       Postbox 7161
-;       1007 MC Amsterdam
-;       The Netherlands
-; 
-
-/* Author: J.W. Stevenson */
-
-
- mes 2,_EM_WSIZE,_EM_PSIZE
-
-#define TARLB   0
-#define DESCR   _EM_PSIZE
-
-#define NEWPC   0
-#define SAVSP   _EM_PSIZE
-
-#define D_PC    0
-#define D_SP    _EM_PSIZE
-#define D_LB    _EM_PSIZE+_EM_PSIZE
-
-#define LOCLB   0-_EM_PSIZE
-
-; _gto is called with two arguments:
-;       - pointer to the label descriptor (DESCR)
-;       - local base (LB) of target procedure (TARLB)
-; the label descriptor contains two items:
-;       - label address i.e. new PC (NEWPC)
-;       - offset in target procedure frame (SAVSP)
-; using this offset and the LB of the target procedure, the address of
-; of local variable of the target procedure is constructed.
-; the target procedure must have stored the correct target SP there.
-
-descr
- bss 3*_EM_PSIZE,0,0
-
- exp $_gto
- pro $_gto,_EM_PSIZE
- lal DESCR
- loi _EM_PSIZE
- adp NEWPC
- loi _EM_PSIZE
- lae descr+D_PC
- sti _EM_PSIZE
- lal TARLB
- loi _EM_PSIZE
- zer _EM_PSIZE
- cmp
- zeq *1
- lal TARLB
- loi _EM_PSIZE
- bra *2
-1
- lae _m_lb
- loi _EM_PSIZE
-2
- lal LOCLB
- sti _EM_PSIZE
- lal LOCLB
- loi _EM_PSIZE
- lal DESCR
- loi _EM_PSIZE
- adp SAVSP
- loi _EM_WSIZE           ; or _EM_PSIZE ?
- ads _EM_WSIZE           ; or _EM_PSIZE ?
- loi _EM_PSIZE
- lae descr+D_SP
- sti _EM_PSIZE
- lal LOCLB
- loi _EM_PSIZE
- lae descr+D_LB
- sti _EM_PSIZE
- gto descr
- end ?
Index: trunk/minix/lib/ack/libp/head_pc.e
===================================================================
--- trunk/minix/lib/ack/libp/head_pc.e	(revision 9)
+++ 	(revision )
@@ -1,3 +1,0 @@
-#
-; $Header: /cvsup/minix/src/lib/ack/libp/head_pc.e,v 1.1 2005/10/10 15:27:46 beng Exp $
- mes 2,_EM_WSIZE,_EM_PSIZE
Index: trunk/minix/lib/ack/libp/hlt.c
===================================================================
--- trunk/minix/lib/ack/libp/hlt.c	(revision 9)
+++ 	(revision )
@@ -1,35 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/hlt.c,v 1.1 2005/10/10 15:27:46 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-/* Author: J.W. Stevenson */
-
-#include	<pc_file.h>
-
-extern struct file	**_extfl;
-extern int		_extflc;
-extern			_cls();
-extern			_exit();
-
-_hlt(ecode) int ecode; {
-	int i;
-
-	for (i = 0; i < _extflc; i++)
-		if (_extfl[i] != (struct file *) 0)
-			_cls(_extfl[i]);
-	_exit(ecode);
-}
Index: trunk/minix/lib/ack/libp/hol0.e
===================================================================
--- trunk/minix/lib/ack/libp/hol0.e	(revision 9)
+++ 	(revision )
@@ -1,29 +1,0 @@
-#
-
-; $Header: /cvsup/minix/src/lib/ack/libp/hol0.e,v 1.1 2005/10/10 15:27:46 beng Exp $
-;
-; (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
-;
-;          This product is part of the Amsterdam Compiler Kit.
-;
-; Permission to use, sell, duplicate or disclose this software must be
-; obtained in writing. Requests for such permissions may be sent to
-;
-;      Dr. Andrew S. Tanenbaum
-;      Wiskundig Seminarium
-;      Vrije Universiteit
-;      Postbox 7161
-;      1007 MC Amsterdam
-;      The Netherlands
-;
-;
-
- mes 2,_EM_WSIZE,_EM_PSIZE
-
-; _hol0 return the address of the ABS block (hol0)
-
- exp $_hol0
- pro $_hol0,0
- lae 0
- ret _EM_PSIZE
- end ?
Index: trunk/minix/lib/ack/libp/incpt.c
===================================================================
--- trunk/minix/lib/ack/libp/incpt.c	(revision 9)
+++ 	(revision )
@@ -1,75 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/incpt.c,v 1.1 2005/10/10 15:27:47 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-/* Author: J.W. Stevenson */
-
-#include	<pc_file.h>
-#include	<pc_err.h>
-
-#define EINTR	4
-
-extern int	errno;
-extern		_trp();
-extern int	_read();
-
-_incpt(f) struct file *f; {
-
-	if (f->flags & EOFBIT)
-		_trp(EEOF);
-	f->flags |= WINDOW;
-	f->flags &= ~ELNBIT;
-#ifdef CPM
-	do {
-#endif
-	f->ptr += f->size;
-	if (f->count == 0) {
-		f->ptr = f->bufadr;
-		for(;;) {
-			f->count=_read(f->ufd,f->bufadr,f->buflen);
-			if ( f->count<0 ) {
-				if (errno != EINTR) _trp(EREAD) ;
-				continue ;
-			}
-			break ;
-		}
-		if (f->count == 0) {
-			f->flags |= EOFBIT;
-			*f->ptr = '\0';
-			return;
-		}
-	}
-	if ((f->count -= f->size) < 0)
-		_trp(EFTRUNC);
-#ifdef CPM
-	} while ((f->flags&TXTBIT) && *f->ptr == '\r');
-#endif
-	if (f->flags & TXTBIT) {
-		if (*f->ptr & 0200)
-			_trp(EASCII);
-		if (*f->ptr == '\n') {
-			f->flags |= ELNBIT;
-			*f->ptr = ' ';
-		}
-#ifdef CPM
-		if (*f->ptr == 26) {
-			f->flags |= EOFBIT;
-			*f->ptr = 0;
-		}
-#endif
-	}
-}
Index: trunk/minix/lib/ack/libp/ini.c
===================================================================
--- trunk/minix/lib/ack/libp/ini.c	(revision 9)
+++ 	(revision )
@@ -1,72 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/ini.c,v 1.1 2005/10/10 15:27:47 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-/* Author: J.W. Stevenson */
-
-#include        <pc_file.h>
-#include        <pc_err.h>
-
-extern          (*_sig())();
-extern          _catch();
-#ifndef CPM
-extern int      _isatty();
-#endif
-
-struct file     **_extfl;
-int		_extflc;	/* number of external files */
-char            *_m_lb;         /* LB of _m_a_i_n */
-struct file     *_curfil;       /* points to file struct in case of errors */
-int             _pargc;
-char            **_pargv;
-char            ***_penviron;
-int		_fp_hook = 1;	/* This is for Minix, but does not harm others */
-
-_ini(args,c,p,mainlb) char *args,*mainlb; int c; struct file **p; {
-	struct file *f;
-	char buf[128];
-
-	_pargc= *(int *)args; args += sizeof (int);
-	_pargv= *(char ***)args;
-	_sig(_catch);
-	_extfl = p;
-	_extflc = c;
-	if( !c ) return;
-	_m_lb = mainlb;
-	if ( (f = _extfl[0]) != (struct file *) 0) {
-		f->ptr = f->bufadr;
-		f->flags = MAGIC|TXTBIT;
-		f->fname = "INPUT";
-		f->ufd = 0;
-		f->size = 1;
-		f->count = 0;
-		f->buflen = PC_BUFLEN;
-	}
-	if ( (f = _extfl[1]) != (struct file *) 0) {
-		f->ptr = f->bufadr;
-		f->flags = MAGIC|TXTBIT|WRBIT|EOFBIT|ELNBIT;
-		f->fname = "OUTPUT";
-		f->ufd = 1;
-		f->size = 1;
-#ifdef CPM
-		f->count = 1;
-#else
-		f->count = (_isatty(1) ? 1 : PC_BUFLEN);
-#endif
-		f->buflen = f->count;
-	}
-}
Index: trunk/minix/lib/ack/libp/log.c
===================================================================
--- trunk/minix/lib/ack/libp/log.c	(revision 9)
+++ 	(revision )
@@ -1,65 +1,0 @@
-/*
- * (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
- * See the copyright notice in the ACK home directory, in the file "Copyright".
- *
- * Author: Ceriel J.H. Jacobs
- */
-
-/* $Header: /cvsup/minix/src/lib/ack/libp/log.c,v 1.1 2005/10/10 15:27:47 beng Exp $ */
-
-#define __NO_DEFS
-#include <math.h>
-#include <pc_err.h>
-
-#if __STDC__
-#include <pc_math.h>
-#include <float.h>
-#endif
-#undef HUGE
-#define HUGE	1e1000
-
-double
-_log(x)
-	double	x;
-{
-	/*	Algorithm and coefficients from:
-			"Software manual for the elementary functions"
-			by W.J. Cody and W. Waite, Prentice-Hall, 1980
-	*/
-	static double a[] = {
-		-0.64124943423745581147e2,
-		 0.16383943563021534222e2,
-		-0.78956112887491257267e0
-	};
-	static double b[] = {
-		-0.76949932108494879777e3,
-		 0.31203222091924532844e3,
-		-0.35667977739034646171e2,
-		 1.0
-	};
-
-	extern double	_fef();
-	double	znum, zden, z, w;
-	int	exponent;
-
-	if (x <= 0) {
-		_trp(ELOG);
-		return -HUGE;
-	}
-
-	x = _fef(x, &exponent);
-	if (x > M_1_SQRT2) {
-		znum = (x - 0.5) - 0.5;
-		zden = x * 0.5 + 0.5;
-	}
-	else {
-		znum = x - 0.5;
-		zden = znum * 0.5 + 0.5;
-		exponent--;
-	}
-	z = znum/zden; w = z * z;
-	x = z + z * w * (POLYNOM2(w,a)/POLYNOM3(w,b));
-	z = exponent;
-	x += z * (-2.121944400546905827679e-4);
-	return x + z * 0.693359375;
-}
Index: trunk/minix/lib/ack/libp/mdi.c
===================================================================
--- trunk/minix/lib/ack/libp/mdi.c	(revision 9)
+++ 	(revision )
@@ -1,71 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/mdi.c,v 1.1 2005/10/10 15:27:47 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-/* Author: J.W. Stevenson */
-
-#include	<pc_err.h>
-
-extern		_trp();
-
-int _mdi(j,i) int j,i; {
-
-        if (j <= 0)
-                _trp(EMOD);
-        i = i % j;
-        if (i < 0)
-                i += j;
-        return(i);
-}
-
-long _mdil(j,i) long j,i; {
-
-	if (j <= 0)
-		_trp(EMOD);
-	i = i % j;
-	if (i < 0)
-		i += j;
-	return(i);
-}
-
-int _dvi(j, i) unsigned int j,i; {
-	int neg = 0;
-
-	if ((int)j < 0) {
-		j = -(int)j; neg = 1;
-	}
-	if ((int)i < 0) {
-		i = -(int)i; neg = !neg;
-	}
-	i = i / j;
-	if (neg) return -(int)i;
-	return i;
-}
-
-long _dvil(j, i) unsigned long j,i; {
-	int neg = 0;
-
-	if ((long)j < 0) {
-		j = -(long)j; neg = 1;
-	}
-	if ((long)i < 0) {
-		i = -(long)i; neg = !neg;
-	}
-	i = i / j;
-	if (neg) return -(long)i;
-	return i;
-}
Index: trunk/minix/lib/ack/libp/mdl.c
===================================================================
--- trunk/minix/lib/ack/libp/mdl.c	(revision 9)
+++ 	(revision )
@@ -1,33 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/mdl.c,v 1.1 2005/10/10 15:27:47 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-/* Author: J.W. Stevenson */
-
-#include	<pc_err.h>
-
-extern		_trp();
-
-long _mdl(j,i) long j,i; {
-
-	if (j <= 0)
-		_trp(EMOD);
-	i = i % j;
-	if (i < 0)
-		i += j;
-	return(i);
-}
Index: trunk/minix/lib/ack/libp/new.c
===================================================================
--- trunk/minix/lib/ack/libp/new.c	(revision 9)
+++ 	(revision )
@@ -1,69 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/new.c,v 1.1 2005/10/10 15:27:47 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-/* Author: J.W. Stevenson */
-
-extern		_sav();
-extern		_rst();
-
-#define assert(x)	/* nothing */
-#define	UNDEF		0x8000
-
-struct adm {
-	struct adm	*next;
-	int		size;
-};
-
-struct adm	*_lastp = 0;
-struct adm	*_highp = 0;
-
-_new(n,pp) int n; struct adm **pp; {
-	struct adm *p,*q;
-	int *ptmp;
-
-	n = ((n+sizeof(*p)-1) / sizeof(*p)) * sizeof(*p);
-	if ((p = _lastp) != 0)
-		do {
-			q = p->next;
-			if (q->size >= n) {
-				assert(q->size%sizeof(adm) == 0);
-				if ((q->size -= n) == 0) {
-					if (p == q)
-						p = 0;
-					else
-						p->next = q->next;
-					if (q == _highp)
-						_highp = p;
-				}
-				_lastp = p;
-				p = (struct adm *)((char *)q + q->size);
-				q = (struct adm *)((char *)p + n);
-				goto initialize;
-			}
-			p = q;
-		} while (p != _lastp);
-	/*no free block big enough*/
-	_sav(&p);
-	q = (struct adm *)((char *)p + n);
-	_rst(&q);
-initialize:
-	*pp = p;
-	ptmp = (int *)p;
-	while (ptmp < (int *)q)
-		*ptmp++ = UNDEF;
-}
Index: trunk/minix/lib/ack/libp/nfa.c
===================================================================
--- trunk/minix/lib/ack/libp/nfa.c	(revision 9)
+++ 	(revision )
@@ -1,16 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/nfa.c,v 1.1 2005/10/10 15:27:47 beng Exp $ */
-/*
- * (c) copyright 1990 by the Vrije Universiteit, Amsterdam, The Netherlands.
- * See the copyright notice in the ACK home directory, in the file "Copyright".
- */
-
-/* Author: Hans van Eck */
-
-#include	<pc_err.h>
-
-extern _trp();
-
-_nfa(bool)
-{
-	if (! bool) _trp(EFUNASS);
-}
Index: trunk/minix/lib/ack/libp/nobuff.c
===================================================================
--- trunk/minix/lib/ack/libp/nobuff.c	(revision 9)
+++ 	(revision )
@@ -1,33 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/nobuff.c,v 1.1 2005/10/10 15:27:47 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-/* Author: J.W. Stevenson */
-
-#include	<pc_file.h>
-
-extern		_flush();
-
-/* procedure nobuff(var f:file of ?); */
-
-nobuff(f) struct file *f; {
-
-	if ((f->flags & (0377|WRBIT)) != (MAGIC|WRBIT))
-		return;
-	_flush(f);
-	f->count = f->buflen = f->size;
-}
Index: trunk/minix/lib/ack/libp/notext.c
===================================================================
--- trunk/minix/lib/ack/libp/notext.c	(revision 9)
+++ 	(revision )
@@ -1,23 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/notext.c,v 1.1 2005/10/10 15:27:47 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-#include	<pc_file.h>
-
-notext(f) struct file *f; {
-	f->flags &= ~TXTBIT;
-}
Index: trunk/minix/lib/ack/libp/opn.c
===================================================================
--- trunk/minix/lib/ack/libp/opn.c	(revision 9)
+++ 	(revision )
@@ -1,118 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/opn.c,v 1.1 2005/10/10 15:27:47 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-/* Author: J.W. Stevenson */
-
-#include	<pc_file.h>
-#include	<pc_err.h>
-
-extern struct file	**_extfl;
-extern int		_extflc;
-extern struct file	*_curfil;
-extern int		_pargc;
-extern char		**_pargv;
-extern char		***_penviron;
-
-extern			_cls();
-extern			_xcls();
-extern			_trp();
-extern int		_getpid();
-extern int		_creat();
-extern int		_open();
-extern int		_close();
-extern int		_unlink();
-extern long		_lseek();
-
-static int tmpfil() {
-	static char namebuf[] = "/usr/tmp/plf.xxxxx";
-	int i; char *p,*q;
-
-	i = _getpid();
-	p = namebuf;
-	q = p + 13;
-	do
-		*q++ = (i & 07) + '0';
-	while (i >>= 3);
-	*q = '\0';
-	if ((i = _creat(p,0644)) < 0)
-		if ((i = _creat(p += 4,0644)) < 0)
-			if ((i = _creat(p += 5,0644)) < 0)
-				goto error;
-	if (_close(i) != 0)
-		goto error;
-	if ((i = _open(p,2)) < 0)
-		goto error;
-	if (_unlink(p) != 0)
-error:		_trp(EREWR);
-	return(i);
-}
-
-static int initfl(descr,sz,f) int descr; int sz; struct file *f; {
-	int i;
-
-	_curfil = f;
-	if (sz == 0) {
-		sz++;
-		descr |= TXTBIT;
-	}
-	for (i=0; i<_extflc; i++)
-		if (f == _extfl[i])
-			break;
-	if (i >= _extflc) {		/* local file */
-		f->fname = "LOCAL";
-		if ((descr & WRBIT) == 0 && (f->flags & 0377) == MAGIC) {
-			_xcls(f);
-			if (_lseek(f->ufd,(long)0,0) == -1)
-				_trp(ERESET);
-		} else {
-			_cls(f);
-			f->ufd = tmpfil();
-		}
-	} else {	/* external file */
-		if (--i <= 0)
-			return(0);
-		if (i >= _pargc)
-			_trp(EARGC);
-		f->fname = _pargv[i];
-		_cls(f);
-		if ((descr & WRBIT) == 0) {
-			if ((f->ufd = _open(f->fname,0)) < 0)
-				_trp(ERESET);
-		} else {
-			if ((f->ufd = _creat(f->fname,0644)) < 0)
-				_trp(EREWR);
-		}
-	}
-	f->buflen = (sz>PC_BUFLEN ? sz : PC_BUFLEN-PC_BUFLEN%sz);
-	f->size = sz;
-	f->ptr = f->bufadr;
-	f->flags = descr;
-	return(1);
-}
-
-_opn(sz,f) int sz; struct file *f; {
-
-	if (initfl(MAGIC,sz,f))
-		f->count = 0;
-}
-
-_cre(sz,f) int sz; struct file *f; {
-
-	if (initfl(WRBIT|EOFBIT|ELNBIT|MAGIC,sz,f))
-		f->count = f->buflen;
-}
Index: trunk/minix/lib/ack/libp/outcpt.c
===================================================================
--- trunk/minix/lib/ack/libp/outcpt.c	(revision 9)
+++ 	(revision )
@@ -1,50 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/outcpt.c,v 1.1 2005/10/10 15:27:47 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-/* Author: J.W. Stevenson */
-
-#include	<pc_file.h>
-#include	<pc_err.h>
-
-#define EINTR	4
-
-extern int	errno;
-extern		_trp();
-extern int	_write();
-
-_flush(f) struct file *f; {
-	int i,n;
-
-	f->ptr = f->bufadr;
-	n = f->buflen - f->count;
-	if (n <= 0)
-		return;
-	f->count = f->buflen;
-	if ((i = _write(f->ufd,f->bufadr,n)) < 0 && errno == EINTR)
-		return;
-	if (i != n)
-		_trp(EWRITE);
-}
-
-_outcpt(f) struct file *f; {
-
-	f->flags &= ~ELNBIT;
-	f->ptr += f->size;
-	if ((f->count -= f->size) <= 0)
-		_flush(f);
-}
Index: trunk/minix/lib/ack/libp/pac.c
===================================================================
--- trunk/minix/lib/ack/libp/pac.c	(revision 9)
+++ 	(revision )
@@ -1,63 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/pac.c,v 1.1 2005/10/10 15:27:47 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-/* Author: J.W. Stevenson */
-
-#include	<pc_err.h>
-
-extern		_trp();
-
-#define	assert(x)	/* nothing */
-
-#ifndef EM_WSIZE
-#define EM_WSIZE _EM_WSIZE
-#endif
-
-struct descr {
-	int	low;
-	int	diff;
-	int	size;
-};
-
-_pac(ad,zd,zp,i,ap) int i; struct descr *ad,*zd; char *zp,*ap; {
-
-	if (zd->diff > ad->diff ||
-			(i -= ad->low) < 0 ||
-			(i+zd->diff) > ad->diff)
-		_trp(EPACK);
-	ap += (i * ad->size);
-	i = (zd->diff + 1) * zd->size;
-	if (zd->size == 1) {
-		int *aptmp = (int *)ap;
-		assert(ad->size == EM_WSIZE);
-		while (--i >= 0)
-			*zp++ = *aptmp++;
-#if EM_WSIZE > 2
-	} else if (zd->size == 2) {
-		int *aptmp = (int *)ap;
-		short *zptmp = (short *) zp;
-		assert(ad->size == EM_WSIZE);
-		while (--i >= 0)
-			*zptmp++ = *aptmp++;
-#endif
-	} else {
-		assert(ad->size == zd->size);
-		while (--i >= 0)
-			*zp++ = *ap++;
-	}
-}
Index: trunk/minix/lib/ack/libp/pclose.c
===================================================================
--- trunk/minix/lib/ack/libp/pclose.c	(revision 9)
+++ 	(revision )
@@ -1,27 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/pclose.c,v 1.1 2005/10/10 15:27:47 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-#include	<pc_file.h>
-
-extern		_cls();
-
-/* procedure pclose(var f:file of ??); */
-
-pclose(f) struct file *f; {
-	_cls(f);
-}
Index: trunk/minix/lib/ack/libp/pcreat.c
===================================================================
--- trunk/minix/lib/ack/libp/pcreat.c	(revision 9)
+++ 	(revision )
@@ -1,41 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/pcreat.c,v 1.1 2005/10/10 15:27:47 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-/* Author: J.W. Stevenson */
-
-#include	<pc_file.h>
-#include	<pc_err.h>
-
-extern		_cls();
-extern		_trp();
-extern int	_creat();
-
-/* procedure pcreat(var f:text; s:string); */
-
-pcreat(f,s) struct file *f; char *s; {
-
-	_cls(f);	/* initializes _curfil */
-	f->ptr = f->bufadr;
-	f->flags = WRBIT|EOFBIT|ELNBIT|TXTBIT|MAGIC;
-	f->fname = s;
-	f->size = 1;
-	f->count = PC_BUFLEN;
-	f->buflen = PC_BUFLEN;
-	if ((f->ufd = _creat(s,0644)) < 0)
-		_trp(EREWR);
-}
Index: trunk/minix/lib/ack/libp/pentry.c
===================================================================
--- trunk/minix/lib/ack/libp/pentry.c	(revision 9)
+++ 	(revision )
@@ -1,35 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/pentry.c,v 1.1 2005/10/10 15:27:47 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-/* Author: J.W. Stevenson */
-
-#include	<pc_file.h>
-
-extern struct file	**_extfl;
-extern			_wrs();
-extern			_wrz();
-extern			_wln();
-
-procentry(name) char *name; {
-	struct file *f;
-
-	f = _extfl[1];
-	_wrs(5,"call ",f);
-	_wrz(name,f);
-	_wln(f);
-}
Index: trunk/minix/lib/ack/libp/perrno.c
===================================================================
--- trunk/minix/lib/ack/libp/perrno.c	(revision 9)
+++ 	(revision )
@@ -1,25 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/perrno.c,v 1.1 2005/10/10 15:27:47 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-/* function perrno:integer; extern; */
-
-extern int	errno;
-
-int perrno() {
-	return(errno);
-}
Index: trunk/minix/lib/ack/libp/pexit.c
===================================================================
--- trunk/minix/lib/ack/libp/pexit.c	(revision 9)
+++ 	(revision )
@@ -1,33 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/pexit.c,v 1.1 2005/10/10 15:27:47 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-#include	<pc_file.h>
-
-extern struct file	**_extfl;
-extern			_wrs();
-extern			_wrz();
-extern			_wln();
-
-procexit(name) char *name; {
-	struct file *f;
-
-	f = _extfl[1];
-	_wrs(5,"exit ",f);
-	_wrz(name,f);
-	_wln(f);
-}
Index: trunk/minix/lib/ack/libp/popen.c
===================================================================
--- trunk/minix/lib/ack/libp/popen.c	(revision 9)
+++ 	(revision )
@@ -1,41 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/popen.c,v 1.1 2005/10/10 15:27:47 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-/* Author: J.W. Stevenson */
-
-#include	<pc_file.h>
-#include	<pc_err.h>
-
-extern		_cls();
-extern		_trp();
-extern int	_open();
-
-/* procedure popen(var f:text; s:string); */
-
-popen(f,s) struct file *f; char *s; {
-
-	_cls(f);	/* initializes _curfil */
-	f->ptr = f->bufadr;
-	f->flags = TXTBIT|MAGIC;
-	f->fname = s;
-	f->size = 1;
-	f->count = 0;
-	f->buflen = PC_BUFLEN;
-	if ((f->ufd = _open(s,0)) < 0)
-		_trp(ERESET);
-}
Index: trunk/minix/lib/ack/libp/put.c
===================================================================
--- trunk/minix/lib/ack/libp/put.c	(revision 9)
+++ 	(revision )
@@ -1,27 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/put.c,v 1.1 2005/10/10 15:27:47 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-#include	<pc_file.h>
-
-extern		_wf();
-extern		_outcpt();
-
-_put(f) struct file *f; {
-	_wf(f);
-	_outcpt(f);
-}
Index: trunk/minix/lib/ack/libp/rcka.c
===================================================================
--- trunk/minix/lib/ack/libp/rcka.c	(revision 9)
+++ 	(revision )
@@ -1,25 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/rcka.c,v 1.1 2005/10/10 15:27:47 beng Exp $ */
-/*
- * (c) copyright 1990 by the Vrije Universiteit, Amsterdam, The Netherlands.
- * See the copyright notice in the ACK home directory, in the file "Copyright".
- */
-
-/* Author: Hans van Eck */
-
-#include	<em_abs.h>
-
-extern _trp();
-
-struct array_descr	{
-		int		lbound;
-		unsigned	n_elts_min_one;
-		unsigned	size;		/* doesn't really matter */
-	    };
-
-_rcka(descr, index)
-struct array_descr *descr;
-{
-	if( index < descr->lbound ||
-	    index > (int) descr->n_elts_min_one + descr->lbound )
-		_trp(EARRAY);
-}
Index: trunk/minix/lib/ack/libp/rdc.c
===================================================================
--- trunk/minix/lib/ack/libp/rdc.c	(revision 9)
+++ 	(revision )
@@ -1,31 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/rdc.c,v 1.1 2005/10/10 15:27:47 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-#include	<pc_file.h>
-
-extern		_rf();
-extern		_incpt();
-
-int _rdc(f) struct file *f; {
-	int c;
-
-	_rf(f);
-	c = *f->ptr;
-	_incpt(f);
-	return(c);
-}
Index: trunk/minix/lib/ack/libp/rdi.c
===================================================================
--- trunk/minix/lib/ack/libp/rdi.c	(revision 9)
+++ 	(revision )
@@ -1,78 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/rdi.c,v 1.1 2005/10/10 15:27:47 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-/* Author: J.W. Stevenson */
-
-#include	<pc_file.h>
-#include	<pc_err.h>
-
-extern		_trp();
-extern		_rf();
-extern		_incpt();
-
-_skipsp(f) struct file *f; {
-	while ((*f->ptr == ' ') || (*f->ptr == '\t'))
-		_incpt(f);
-}
-
-int _getsig(f) struct file *f; {
-	int sign;
-
-	if ((sign = (*f->ptr == '-')) || *f->ptr == '+')
-		_incpt(f);
-	return(sign);
-}
-
-int _fstdig(f) struct file *f; {
-	int ch;
-
-	ch = *f->ptr - '0';
-	if ((unsigned) ch > 9) {
-		_trp(EDIGIT);
-		ch = 0;
-	}
-	return(ch);
-}
-
-int _nxtdig(f) struct file *f; {
-	int ch;
-
-	_incpt(f);
-	ch = *f->ptr - '0';
-	if ((unsigned) ch > 9)
-		return(-1);
-	return(ch);
-}
-
-int _getint(f) struct file *f; {
-	int is_signed,i,ch;
-
-	is_signed = _getsig(f);
-	ch = _fstdig(f);
-	i = 0;
-	do
-		i = i*10 - ch;
-	while ((ch = _nxtdig(f)) >= 0);
-	return(is_signed ? i : -i);
-}
-
-int _rdi(f) struct file *f; {
-	_rf(f);
-	_skipsp(f);
-	return(_getint(f));
-}
Index: trunk/minix/lib/ack/libp/rdl.c
===================================================================
--- trunk/minix/lib/ack/libp/rdl.c	(revision 9)
+++ 	(revision )
@@ -1,41 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/rdl.c,v 1.1 2005/10/10 15:27:47 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-/* Author: J.W. Stevenson */
-
-#include	<pc_file.h>
-
-extern		_rf();
-extern		_skipsp();
-extern int	_getsig();
-extern int	_fstdig();
-extern int	_nxtdig();
-
-long _rdl(f) struct file *f; {
-	int is_signed,ch; long l;
-
-	_rf(f);
-	_skipsp(f);
-	is_signed = _getsig(f);
-	ch = _fstdig(f);
-	l = 0;
-	do
-		l = l*10 - ch;
-	while ((ch = _nxtdig(f)) >= 0);
-	return(is_signed ? l : -l);
-}
Index: trunk/minix/lib/ack/libp/rdr.c
===================================================================
--- trunk/minix/lib/ack/libp/rdr.c	(revision 9)
+++ 	(revision )
@@ -1,78 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/rdr.c,v 1.1 2005/10/10 15:27:47 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-/* Author: J.W. Stevenson */
-
-#include	<pc_file.h>
-
-#define	BIG	1e17
-
-extern		_rf();
-extern		_incpt();
-extern		_skipsp();
-extern int	_getsig();
-extern int	_getint();
-extern int	_fstdig();
-extern int	_nxtdig();
-
-static double		r;
-static int		pow10;
-
-static dig(ch) int ch; {
-
-	if (r>BIG)
-		pow10++;
-	else
-		r = r*10.0 + ch;
-}
-
-double _rdr(f) struct file *f; {
-	int i; double e; int is_signed,ch;
-
-	r = 0;
-	pow10 = 0;
-	_rf(f);
-	_skipsp(f);
-	is_signed = _getsig(f);
-	ch = _fstdig(f);
-	do
-		dig(ch);
-	while ((ch = _nxtdig(f)) >= 0);
-	if (*f->ptr == '.') {
-		_incpt(f);
-		ch = _fstdig(f);
-		do {
-			dig(ch);
-			pow10--;
-		} while ((ch = _nxtdig(f)) >= 0);
-	}
-	if ((*f->ptr == 'e') || (*f->ptr == 'E')) {
-		_incpt(f);
-		pow10 += _getint(f);
-	}
-	if ((i = pow10) < 0)
-		i = -i;
-	e = 1.0;
-	while (--i >= 0)
-		e *= 10.0;
-	if (pow10<0)
-		r /= e;
-	else
-		r *= e;
-	return(is_signed? -r : r);
-}
Index: trunk/minix/lib/ack/libp/rf.c
===================================================================
--- trunk/minix/lib/ack/libp/rf.c	(revision 9)
+++ 	(revision )
@@ -1,35 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/rf.c,v 1.1 2005/10/10 15:27:47 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-#include	<pc_file.h>
-#include	<pc_err.h>
-
-extern struct file	*_curfil;
-extern			_trp();
-extern			_incpt();
-
-_rf(f) struct file *f; {
-
-	_curfil = f;
-	if ((f->flags&0377) != MAGIC)
-		_trp(EBADF);
-	if (f->flags & WRBIT)
-		_trp(EREADF);
-	if ((f->flags & WINDOW) == 0)
-		_incpt(f);
-}
Index: trunk/minix/lib/ack/libp/rln.c
===================================================================
--- trunk/minix/lib/ack/libp/rln.c	(revision 9)
+++ 	(revision )
@@ -1,30 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/rln.c,v 1.1 2005/10/10 15:27:47 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-#include	<pc_file.h>
-
-extern		_rf();
-extern		_incpt();
-
-_rln(f) struct file *f; {
-
-	_rf(f);
-	while ((f->flags & ELNBIT) == 0)
-		_incpt(f);
-	f->flags &= ~WINDOW;
-}
Index: trunk/minix/lib/ack/libp/rnd.c
===================================================================
--- trunk/minix/lib/ack/libp/rnd.c	(revision 9)
+++ 	(revision )
@@ -1,21 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/rnd.c,v 1.1 2005/10/10 15:27:47 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-double _rnd(r) double r; {
-	return(r + (r<0 ? -0.5 : 0.5));
-}
Index: trunk/minix/lib/ack/libp/sav.e
===================================================================
--- trunk/minix/lib/ack/libp/sav.e	(revision 9)
+++ 	(revision )
@@ -1,49 +1,0 @@
-#
-; $Header: /cvsup/minix/src/lib/ack/libp/sav.e,v 1.1 2005/10/10 15:27:47 beng Exp $
-;  (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
-; 
-;           This product is part of the Amsterdam Compiler Kit.
-; 
-;  Permission to use, sell, duplicate or disclose this software must be
-;  obtained in writing. Requests for such permissions may be sent to
-; 
-;       Dr. Andrew S. Tanenbaum
-;       Wiskundig Seminarium
-;       Vrije Universiteit
-;       Postbox 7161
-;       1007 MC Amsterdam
-;       The Netherlands
-; 
-
-/* Author: J.W. Stevenson */
-
-
- mes 2,_EM_WSIZE,_EM_PSIZE
-
-#define	PTRAD	0
-
-#define	HP	2
-
-; _sav called with one parameter:
-;	- address of pointer variable (PTRAD)
-
- exp $_sav
- pro $_sav,0
- lor HP
- lal PTRAD
- loi _EM_PSIZE
- sti _EM_PSIZE
- ret 0
- end ?
-
-; _rst is called with one parameter:
-;	- address of pointer variable (PTRAD)
-
- exp $_rst
- pro $_rst,0
- lal PTRAD
- loi _EM_PSIZE
- loi _EM_PSIZE
- str HP
- ret 0
- end ?
Index: trunk/minix/lib/ack/libp/sig.e
===================================================================
--- trunk/minix/lib/ack/libp/sig.e	(revision 9)
+++ 	(revision )
@@ -1,35 +1,0 @@
-#define PROC    0
-
-; $Header: /cvsup/minix/src/lib/ack/libp/sig.e,v 1.1 2005/10/10 15:27:47 beng Exp $
-;
-; (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
-;
-;          This product is part of the Amsterdam Compiler Kit.
-;
-; Permission to use, sell, duplicate or disclose this software must be
-; obtained in writing. Requests for such permissions may be sent to
-;
-;      Dr. Andrew S. Tanenbaum
-;      Wiskundig Seminarium
-;      Vrije Universiteit
-;      Postbox 7161
-;      1007 MC Amsterdam
-;      The Netherlands
-;
-;
-
- mes 2,_EM_WSIZE,_EM_PSIZE
-
-; _sig is called with one parameter:
-;       - procedure instance identifier (PROC)
-; and returns nothing.
-; only the procedure identifier inside the PROC is used.
-
- exp $_sig
- pro $_sig,0
- lal PROC
- loi _EM_PSIZE
- sig
- asp _EM_PSIZE
- ret 0                  ; ignore the result of sig
- end ?
Index: trunk/minix/lib/ack/libp/sin.c
===================================================================
--- trunk/minix/lib/ack/libp/sin.c	(revision 9)
+++ 	(revision )
@@ -1,101 +1,0 @@
-/*
- * (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
- * See the copyright notice in the ACK home directory, in the file "Copyright".
- *
- * Author: Ceriel J.H. Jacobs
- */
-
-/* $Header: /cvsup/minix/src/lib/ack/libp/sin.c,v 1.1 2005/10/10 15:27:47 beng Exp $ */
-
-#define __NO_DEFS
-#include <math.h>
-
-#if __STDC__
-#include <pc_math.h>
-#endif
-
-static double
-sinus(x, cos_flag)
-	double x;
-{
-	/*	Algorithm and coefficients from:
-			"Software manual for the elementary functions"
-			by W.J. Cody and W. Waite, Prentice-Hall, 1980
-	*/
-
-	static double r[] = {
-		-0.16666666666666665052e+0,
-		 0.83333333333331650314e-2,
-		-0.19841269841201840457e-3,
-		 0.27557319210152756119e-5,
-		-0.25052106798274584544e-7,
-		 0.16058936490371589114e-9,
-		-0.76429178068910467734e-12,
-		 0.27204790957888846175e-14
-	};
-
-	double	xsqr;
-	double	y;
-	int	neg = 0;
-
-	if (x < 0) {
-		x = -x;
-		neg = 1;
-	}
-	if (cos_flag) {
-		neg = 0;
-		y = M_PI_2 + x;
-	}
-	else	y = x;
-
-	/* ??? avoid loss of significance, if y is too large, error ??? */
-
-	y = y * M_1_PI + 0.5;
-
-	/*	Use extended precision to calculate reduced argument.
-		Here we used 12 bits of the mantissa for a1.
-		Also split x in integer part x1 and fraction part x2.
-	*/
-#define A1 3.1416015625
-#define A2 -8.908910206761537356617e-6
-	{
-		double x1, x2;
-		extern double	_fif();
-
-		_fif(y, 1.0,  &y);
-		if (_fif(y, 0.5, &x1)) neg = !neg;
-		if (cos_flag) y -= 0.5;
-		x2 = _fif(x, 1.0, &x1);
-		x = x1 - y * A1;
-		x += x2;
-		x -= y * A2;
-#undef A1
-#undef A2
-	}
-
-	if (x < 0) {
-		neg = !neg;
-		x = -x;
-	}
-
-	/* ??? avoid underflow ??? */
-
-	y = x * x;
-	x += x * y * POLYNOM7(y, r);
-	return neg ? -x : x;
-}
-
-double
-_sin(x)
-	double x;
-{
-	return sinus(x, 0);
-}
-
-double
-_cos(x)
-	double x;
-{
-	if (x < 0) x = -x;
-	return sinus(x, 1);
-}
Index: trunk/minix/lib/ack/libp/sqt.c
===================================================================
--- trunk/minix/lib/ack/libp/sqt.c	(revision 9)
+++ 	(revision )
@@ -1,72 +1,0 @@
-/*
- * (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
- * See the copyright notice in the ACK home directory, in the file "Copyright".
- *
- * Author: Ceriel J.H. Jacobs
- */
-
-/* $Header: /cvsup/minix/src/lib/ack/libp/sqt.c,v 1.1 2005/10/10 15:27:47 beng Exp $ */
-#define __NO_DEFS
-#include <math.h>
-#include <pc_err.h>
-extern	_trp();
-
-#define NITER	5
-
-static double
-Ldexp(fl,exp)
-	double fl;
-	int exp;
-{
-	extern double _fef();
-	int sign = 1;
-	int currexp;
-
-	if (fl<0) {
-		fl = -fl;
-		sign = -1;
-	}
-	fl = _fef(fl,&currexp);
-	exp += currexp;
-	if (exp > 0) {
-		while (exp>30) {
-			fl *= (double) (1L << 30);
-			exp -= 30;
-		}
-		fl *= (double) (1L << exp);
-	}
-	else	{
-		while (exp<-30) {
-			fl /= (double) (1L << 30);
-			exp += 30;
-		}
-		fl /= (double) (1L << -exp);
-	}
-	return sign * fl;
-}
-
-double
-_sqt(x)
-	double x;
-{
-	extern double _fef();
-	int exponent;
-	double val;
-
-	if (x <= 0) {
-		if (x < 0) _trp(ESQT);
-		return 0;
-	}
-
-	val = _fef(x, &exponent);
-	if (exponent & 1) {
-		exponent--;
-		val *= 2;
-	}
-	val = Ldexp(val + 1.0, exponent/2 - 1);
-	/* was: val = (val + 1.0)/2.0; val = Ldexp(val, exponent/2); */
-	for (exponent = NITER - 1; exponent >= 0; exponent--) {
-		val = (val + x / val) / 2.0;
-	}
-	return val;
-}
Index: trunk/minix/lib/ack/libp/string.c
===================================================================
--- trunk/minix/lib/ack/libp/string.c	(revision 9)
+++ 	(revision )
@@ -1,60 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/string.c,v 1.1 2005/10/10 15:27:47 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-/* function strbuf(var b:charbuf):string; */
-
-char *strbuf(s) char *s; {
-	return(s);
-}
-
-/* function strtobuf(s:string; var b:charbuf; blen:integer):integer; */
-
-int strtobuf(s,b,l) char *s,*b; {
-	int i;
-
-	i = 0;
-	while (--l>=0) {
-		if ((*b++ = *s++) == 0)
-			break;
-		i++;
-	}
-	return(i);
-}
-
-/* function strlen(s:string):integer; */
-
-int strlen(s) char *s; {
-	int i;
-
-	i = 0;
-	while (*s++)
-		i++;
-	return(i);
-}
-
-/* function strfetch(s:string; i:integer):char; */
-
-int strfetch(s,i) char *s; {
-	return(s[i-1]);
-}
-
-/* procedure strstore(s:string; i:integer; c:char); */
-
-strstore(s,i,c) char *s; {
-	s[i-1] = c;
-}
Index: trunk/minix/lib/ack/libp/trap.e
===================================================================
--- trunk/minix/lib/ack/libp/trap.e	(revision 9)
+++ 	(revision )
@@ -1,33 +1,0 @@
-#
-
-; $Header: /cvsup/minix/src/lib/ack/libp/trap.e,v 1.1 2005/10/10 15:27:47 beng Exp $
-;
-; (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
-;
-;          This product is part of the Amsterdam Compiler Kit.
-;
-; Permission to use, sell, duplicate or disclose this software must be
-; obtained in writing. Requests for such permissions may be sent to
-;
-;      Dr. Andrew S. Tanenbaum
-;      Wiskundig Seminarium
-;      Vrije Universiteit
-;      Postbox 7161
-;      1007 MC Amsterdam
-;      The Netherlands
-;
-;
-
- mes 2,_EM_WSIZE,_EM_PSIZE
-
-#define	TRAP	0
-
-; trap is called with one parameter:
-;	- trap number (TRAP)
-
- exp $trap
- pro $trap,0
- lol TRAP
- trp
- ret 0
- end ?
Index: trunk/minix/lib/ack/libp/trp.e
===================================================================
--- trunk/minix/lib/ack/libp/trp.e	(revision 9)
+++ 	(revision )
@@ -1,38 +1,0 @@
-#
-
-; $Header: /cvsup/minix/src/lib/ack/libp/trp.e,v 1.1 2005/10/10 15:27:47 beng Exp $
-;
-; (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
-;
-;          This product is part of the Amsterdam Compiler Kit.
-;
-; Permission to use, sell, duplicate or disclose this software must be
-; obtained in writing. Requests for such permissions may be sent to
-;
-;      Dr. Andrew S. Tanenbaum
-;      Wiskundig Seminarium
-;      Vrije Universiteit
-;      Postbox 7161
-;      1007 MC Amsterdam
-;      The Netherlands
-;
-;
-
- mes 2,_EM_WSIZE,_EM_PSIZE
-
-#define TRAP    0
-
-; _trp() and trap() perform the same function,
-; but have to be separate. trap exists to facilitate the user.
-; _trp is there for the system, trap cannot be used for that purpose
-; because a user might define its own Pascal routine called trap.
-
-; _trp is called with one parameter:
-;       - trap number (TRAP)
-
- exp $_trp
- pro $_trp,0
- lol TRAP
- trp
- ret 0
- end ?
Index: trunk/minix/lib/ack/libp/unp.c
===================================================================
--- trunk/minix/lib/ack/libp/unp.c	(revision 9)
+++ 	(revision )
@@ -1,65 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/unp.c,v 1.1 2005/10/10 15:27:47 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-/* Author: J.W. Stevenson */
-
-#include	<pc_err.h>
-
-extern		_trp();
-
-#define	assert(x)	/* nothing */
-
-#ifndef EM_WSIZE
-#define EM_WSIZE _EM_WSIZE
-#endif
-
-struct descr {
-	int	low;
-	int	diff;
-	int	size;
-};
-
-_unp(ad,zd,i,ap,zp,noext) int i; struct descr *ad,*zd; char *ap,*zp; int noext; {
-
-	if (zd->diff > ad->diff ||
-			(i -= ad->low) < 0 ||
-			(i+zd->diff) > ad->diff)
-		_trp(EUNPACK);
-	ap += (i * ad->size);
-	i = (zd->diff + 1) * zd->size;
-	if (zd->size == 1) {
-		int *aptmp = (int *) ap;
-		assert(ad->size == EM_WSIZE);
-		while (--i >= 0)
-			if (noext) *aptmp++ = *zp++ & 0377;
-			else *aptmp++ = *zp++;
-#if EM_WSIZE > 2
-	} else if (zd->size == 2) {
-		int *aptmp = (int *) ap;
-		short *zptmp = (short *) zp;
-		assert(ad->size == EM_WSIZE);
-		while (--i >= 0)
-			if (noext) *aptmp++ = *zptmp++ & 0177777;
-			else *aptmp++ = *zptmp++;
-#endif
-	} else {
-		assert(ad->size == zd->size);
-		while (--i >= 0)
-			*ap++ = *zp++;
-	}
-}
Index: trunk/minix/lib/ack/libp/uread.c
===================================================================
--- trunk/minix/lib/ack/libp/uread.c	(revision 9)
+++ 	(revision )
@@ -1,25 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/uread.c,v 1.1 2005/10/10 15:27:47 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-/* function uread(fd:integer; var b:buf; n:integer):integer; */
-
-extern int	_read();
-
-int uread(fd,b,n) char *b; int fd,n; {
-	return(_read(fd,b,n));
-}
Index: trunk/minix/lib/ack/libp/uwrite.c
===================================================================
--- trunk/minix/lib/ack/libp/uwrite.c	(revision 9)
+++ 	(revision )
@@ -1,25 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/uwrite.c,v 1.1 2005/10/10 15:27:47 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-/* function uwrite(fd:integer; var b:buf; n:integer):integer; */
-
-extern int	_write();
-
-int uwrite(fd,b,n) char *b; int fd,n; {
-	return(_write(fd,b,n));
-}
Index: trunk/minix/lib/ack/libp/wdw.c
===================================================================
--- trunk/minix/lib/ack/libp/wdw.c	(revision 9)
+++ 	(revision )
@@ -1,30 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/wdw.c,v 1.1 2005/10/10 15:27:47 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-#include	<pc_file.h>
-
-extern struct file	*_curfil;
-extern			_incpt();
-
-char *_wdw(f) struct file *f; {
-
-	_curfil = f;
-	if ((f->flags & (WINDOW|WRBIT|0377)) == MAGIC)
-		_incpt(f);
-	return(f->ptr);
-}
Index: trunk/minix/lib/ack/libp/wf.c
===================================================================
--- trunk/minix/lib/ack/libp/wf.c	(revision 9)
+++ 	(revision )
@@ -1,32 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/wf.c,v 1.1 2005/10/10 15:27:47 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-#include	<pc_file.h>
-#include	<pc_err.h>
-
-extern struct file	*_curfil;
-extern			_trp();
-
-_wf(f) struct file *f; {
-
-	_curfil = f;
-	if ((f->flags&0377) != MAGIC)
-		_trp(EBADF);
-	if ((f->flags & WRBIT) == 0)
-		_trp(EWRITEF);
-}
Index: trunk/minix/lib/ack/libp/wrc.c
===================================================================
--- trunk/minix/lib/ack/libp/wrc.c	(revision 9)
+++ 	(revision )
@@ -1,41 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/wrc.c,v 1.1 2005/10/10 15:27:47 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-#include	<pc_file.h>
-
-extern		_wf();
-extern		_outcpt();
-
-_wrc(c,f) int c; struct file *f; {
-	*f->ptr = c;
-	_wf(f);
-	_outcpt(f);
-}
-
-_wln(f) struct file *f; {
-#ifdef CPM
-	_wrc('\r',f);
-#endif
-	_wrc('\n',f);
-	f->flags |= ELNBIT;
-}
-
-_pag(f) struct file *f; {
-	_wrc('\014',f);
-	f->flags |= ELNBIT;
-}
Index: trunk/minix/lib/ack/libp/wrf.c
===================================================================
--- trunk/minix/lib/ack/libp/wrf.c	(revision 9)
+++ 	(revision )
@@ -1,68 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/wrf.c,v 1.1 2005/10/10 15:27:47 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-/* Author: J.W. Stevenson */
-
-#include	<pc_err.h>
-#include	<pc_file.h>
-
-extern		_wstrin();
-extern char	*_fcvt();
-
-#define	assert(x)	/* nothing */
-
-#if __STDC__
-#include <float.h>
-#define	HUGE_DIG	DBL_MAX_10_EXP	/* log10(maxreal) */
-#else
-#define	HUGE_DIG	400	/* log10(maxreal) */
-#endif
-#define	PREC_DIG	80	/* the maximum digits returned by _fcvt() */
-#define	FILL_CHAR	'0'	/* char printed if all of _fcvt() used */
-#define	BUFSIZE		HUGE_DIG + PREC_DIG + 3
-
-_wrf(n,w,r,f) int n,w; double r; struct file *f; {
-	char *p,*b; int s,d; char buf[BUFSIZE];
-
-	if ( n < 0 || w < 0) _trp(EWIDTH);
-	p = buf;
-	if (n > PREC_DIG)
-		n = PREC_DIG;
-	b = _fcvt(r,n,&d,&s);
-	assert(abs(d) <= HUGE_DIG);
-	if (s)
-		*p++ = '-';
-	if (d<=0)
-		*p++ = '0';
-	else
-		do
-			*p++ = (*b ? *b++ : FILL_CHAR);
-		while (--d > 0);
-	if (n > 0)
-		*p++ = '.';
-	while (++d <= 0) {
-		if (--n < 0)
-			break;
-		*p++ = '0';
-	}
-	while (--n >= 0) {
-		*p++ = (*b ? *b++ : FILL_CHAR);
-		assert(p <= buf+BUFSIZE);
-	}
-	_wstrin(w,(int)(p-buf),buf,f);
-}
Index: trunk/minix/lib/ack/libp/wri.c
===================================================================
--- trunk/minix/lib/ack/libp/wri.c	(revision 9)
+++ 	(revision )
@@ -1,72 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/wri.c,v 1.1 2005/10/10 15:27:47 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-#include	<pc_err.h>
-#include	<pc_file.h>
-
-extern		_wstrin();
-
-#ifndef EM_WSIZE
-#ifdef _EM_WSIZE
-#define EM_WSIZE _EM_WSIZE
-#endif
-#endif
-
-#if EM_WSIZE==4
-#define SZ 11
-#define MININT -2147483648
-#define STRMININT "-2147483648"
-#endif
-#if EM_WSIZE==2
-#define SZ 6
-#define MININT -32768
-#define STRMININT "-32768"
-#endif
-#if EM_WSIZE==1
-#define SZ 4
-#define MININT -128
-#define STRMININT "-128"
-#endif
-
-#ifndef STRMININT
-Something wrong here!
-#endif
-
-_wsi(w,i,f) int w,i; struct file *f; {
-	char *p; int j; char buf[SZ];
-
-	if (w < 0) _trp(EWIDTH);
-	p = &buf[SZ];
-	if ((j=i) < 0) {
-		if (i == MININT) {
-			_wstrin(w,SZ,STRMININT,f);
-			return;
-		}
-		j = -j;
-	}
-	do
-		*--p = '0' + j%10;
-	while (j /= 10);
-	if (i<0)
-		*--p = '-';
-	_wstrin(w,(int)(&buf[SZ]-p),p,f);
-}
-
-_wri(i,f) int i; struct file *f; {
-	_wsi(SZ,i,f);
-}
Index: trunk/minix/lib/ack/libp/wrl.c
===================================================================
--- trunk/minix/lib/ack/libp/wrl.c	(revision 9)
+++ 	(revision )
@@ -1,51 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/wrl.c,v 1.1 2005/10/10 15:27:47 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-/* Author: J.W. Stevenson */
-
-#include	<pc_err.h>
-#include	<pc_file.h>
-
-extern		_wstrin();
-
-#define	MAXNEGLONG	-2147483648
-
-_wsl(w,l,f) int w; long l; struct file *f; {
-	char *p,c; long j; char buf[11];
-
-	if (w < 0) _trp(EWIDTH);
-	p = &buf[11];
-	if ((j=l) < 0) {
-		if (l == MAXNEGLONG) {
-			_wstrin(w,11,"-2147483648",f);
-			return;
-		}
-		j = -j;
-	}
-	do {
-		c = j%10;
-		*--p = c + '0';
-	} while (j /= 10);
-	if (l<0)
-		*--p = '-';
-	_wstrin(w,(int)(&buf[11]-p),p,f);
-}
-
-_wrl(l,f) long l; struct file *f; {
-	_wsl(11,l,f);
-}
Index: trunk/minix/lib/ack/libp/wrr.c
===================================================================
--- trunk/minix/lib/ack/libp/wrr.c	(revision 9)
+++ 	(revision )
@@ -1,67 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/wrr.c,v 1.1 2005/10/10 15:27:47 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-/* Author: J.W. Stevenson */
-
-#include	<pc_err.h>
-#include	<pc_file.h>
-
-extern		_wstrin();
-extern char	*_ecvt();
-
-#define	PREC_DIG	80	/* maximum digits produced by _ecvt() */
-
-_wsr(w,r,f) int w; double r; struct file *f; {
-	char *p,*b; int s,d,i; char buf[PREC_DIG+7];
-
-	if (w < 0) _trp(EWIDTH);
-	p = buf;
-	if ((i = w-6) < 2)
-		i = 2;
-	b = _ecvt(r,i,&d,&s);
-	*p++ = s? '-' : ' ';
-	if (*b == '0')
-		d++;
-	*p++ = *b++;
-	*p++ = '.';
-	while (--i > 0)
-		*p++ = *b++;
-	*p++ = 'e';
-	d--;
-	if (d < 0) {
-		d = -d;
-		*p++ = '-';
-	} else
-		*p++ = '+';
-
-	if (d >= 1000) {
-		*p++ = '*';
-		*p++ = '*';
-		*p++ = '*';
-	}
-	else {
-		*p++ = '0' + d/100;
-		*p++ = '0' + (d/10) % 10;
-		*p++ = '0' + d%10;
-	}
-	_wstrin(w,(int)(p-buf),buf,f);
-}
-
-_wrr(r,f) double r; struct file *f; {
-	_wsr(13,r,f);
-}
Index: trunk/minix/lib/ack/libp/wrs.c
===================================================================
--- trunk/minix/lib/ack/libp/wrs.c	(revision 9)
+++ 	(revision )
@@ -1,68 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/wrs.c,v 1.1 2005/10/10 15:27:47 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-/* Author: J.W. Stevenson */
-
-#include	<pc_err.h>
-#include	<pc_file.h>
-
-extern		_wf();
-extern		_outcpt();
-
-_wstrin(width,len,buf,f) int width,len; char *buf; struct file *f; {
-
-	_wf(f);
-	for (width -= len; width>0; width--) {
-		*f->ptr = ' ';
-		_outcpt(f);
-	}
-	while (--len >= 0) {
-		*f->ptr = *buf++;
-		_outcpt(f);
-	}
-}
-
-_wsc(w,c,f) int w; char c; struct file *f; {
-
-	if (w < 0) _trp(EWIDTH);
-	_wss(w,1,&c,f);
-}
-
-_wss(w,len,s,f) int w,len; char *s; struct file *f; {
-
-	if (w < 0 || len < 0) _trp(EWIDTH);
-	if (w < len)
-		len = w;
-	_wstrin(w,len,s,f);
-}
-
-_wrs(len,s,f) int len; char *s; struct file *f; {
-	if (len < 0) _trp(EWIDTH);
-	_wss(len,len,s,f);
-}
-
-_wsb(w,b,f) int w,b; struct file *f; {
-	if (b)
-		_wss(w,4,"true",f);
-	else
-		_wss(w,5,"false",f);
-}
-
-_wrb(b,f) int b; struct file *f; {
-	_wsb(5,b,f);
-}
Index: trunk/minix/lib/ack/libp/wrz.c
===================================================================
--- trunk/minix/lib/ack/libp/wrz.c	(revision 9)
+++ 	(revision )
@@ -1,38 +1,0 @@
-/* $Header: /cvsup/minix/src/lib/ack/libp/wrz.c,v 1.1 2005/10/10 15:27:47 beng Exp $ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-#include	<pc_err.h>
-#include	<pc_file.h>
-
-extern		_wss();
-extern		_wrs();
-
-_wsz(w,s,f) int w; char *s; struct file *f; {
-	char *p;
-
-	if (w < 0) _trp(EWIDTH);
-	for (p=s; *p; p++);
-	_wss(w,(int)(p-s),s,f);
-}
-
-_wrz(s,f) char *s; struct file *f; {
-	char *p;
-
-	for (p=s; *p; p++);
-	_wrs((int)(p-s),s,f);
-}