Throw away unused dirs, generated Makefiles.
Moved some calls back.
This commit is contained in:
Ben Gras
parent
591e943779
commit
0e9a5612d7
175 changed files with 61 additions and 17716 deletions
90
lib/Makefile
90
lib/Makefile
|
|
@ -5,9 +5,11 @@ all-ack:
|
||||||
all-gnu:
|
all-gnu:
|
||||||
|
|
||||||
makefiles: Makefile
|
makefiles: Makefile
|
||||||
|
Makedepend-ack Makedepend-gnu:
|
||||||
|
sh generate.sh . obj-ack/ obj-gnu
|
||||||
|
|
||||||
Makefile: Makefile.in
|
Makefile: Makefile.in Makedepend-ack Makedepend-gnu
|
||||||
sh generate.sh . obj-ack obj-gnu
|
sh generate.sh . obj-ack/ obj-gnu
|
||||||
@echo
|
@echo
|
||||||
@echo *Attention*
|
@echo *Attention*
|
||||||
@echo Makefile is regenerated... rerun command to see changes
|
@echo Makefile is regenerated... rerun command to see changes
|
||||||
|
|
@ -15,45 +17,45 @@ Makefile: Makefile.in
|
||||||
@echo
|
@echo
|
||||||
|
|
||||||
all-ack: makefiles
|
all-ack: makefiles
|
||||||
mkdir -p obj-ack/./ansi
|
mkdir -p obj-ack//./ansi
|
||||||
cd ansi && $(MAKE) $@
|
cd ansi && $(MAKE) $@
|
||||||
mkdir -p obj-ack/./curses
|
mkdir -p obj-ack//./curses
|
||||||
cd curses && $(MAKE) $@
|
cd curses && $(MAKE) $@
|
||||||
mkdir -p obj-ack/./dummy
|
mkdir -p obj-ack//./dummy
|
||||||
cd dummy && $(MAKE) $@
|
cd dummy && $(MAKE) $@
|
||||||
mkdir -p obj-ack/./editline
|
mkdir -p obj-ack//./editline
|
||||||
cd editline && $(MAKE) $@
|
cd editline && $(MAKE) $@
|
||||||
mkdir -p obj-ack/./end
|
mkdir -p obj-ack//./end
|
||||||
cd end && $(MAKE) $@
|
cd end && $(MAKE) $@
|
||||||
mkdir -p obj-ack/./ip
|
mkdir -p obj-ack//./ip
|
||||||
cd ip && $(MAKE) $@
|
cd ip && $(MAKE) $@
|
||||||
mkdir -p obj-ack/./math
|
mkdir -p obj-ack//./math
|
||||||
cd math && $(MAKE) $@
|
cd math && $(MAKE) $@
|
||||||
mkdir -p obj-ack/./other
|
mkdir -p obj-ack//./other
|
||||||
cd other && $(MAKE) $@
|
cd other && $(MAKE) $@
|
||||||
mkdir -p obj-ack/./posix
|
mkdir -p obj-ack//./posix
|
||||||
cd posix && $(MAKE) $@
|
cd posix && $(MAKE) $@
|
||||||
mkdir -p obj-ack/./regex
|
mkdir -p obj-ack//./regex
|
||||||
cd regex && $(MAKE) $@
|
cd regex && $(MAKE) $@
|
||||||
mkdir -p obj-ack/./stdio
|
mkdir -p obj-ack//./stdio
|
||||||
cd stdio && $(MAKE) $@
|
cd stdio && $(MAKE) $@
|
||||||
mkdir -p obj-ack/./syscall
|
mkdir -p obj-ack//./syscall
|
||||||
cd syscall && $(MAKE) $@
|
cd syscall && $(MAKE) $@
|
||||||
mkdir -p obj-ack/./syslib
|
mkdir -p obj-ack//./syslib
|
||||||
cd syslib && $(MAKE) $@
|
cd syslib && $(MAKE) $@
|
||||||
mkdir -p obj-ack/./util
|
mkdir -p obj-ack//./util
|
||||||
cd util && $(MAKE) $@
|
cd util && $(MAKE) $@
|
||||||
mkdir -p obj-ack/./sysutil
|
mkdir -p obj-ack//./sysutil
|
||||||
cd sysutil && $(MAKE) $@
|
cd sysutil && $(MAKE) $@
|
||||||
mkdir -p obj-ack/./timers
|
mkdir -p obj-ack//./timers
|
||||||
cd timers && $(MAKE) $@
|
cd timers && $(MAKE) $@
|
||||||
mkdir -p obj-ack/./i386
|
mkdir -p obj-ack//./i386
|
||||||
cd i386 && $(MAKE) $@
|
cd i386 && $(MAKE) $@
|
||||||
mkdir -p obj-ack/./zlib-1.2.3
|
mkdir -p obj-ack//./zlib-1.2.3
|
||||||
cd zlib-1.2.3 && $(MAKE) $@
|
cd zlib-1.2.3 && $(MAKE) $@
|
||||||
mkdir -p obj-ack/./ack
|
mkdir -p obj-ack//./ack
|
||||||
cd ack && $(MAKE) $@
|
cd ack && $(MAKE) $@
|
||||||
mkdir -p obj-ack/./gnu
|
mkdir -p obj-ack//./gnu
|
||||||
cd gnu && $(MAKE) $@
|
cd gnu && $(MAKE) $@
|
||||||
|
|
||||||
all-gnu: makefiles
|
all-gnu: makefiles
|
||||||
|
|
@ -142,54 +144,54 @@ makefiles: ack/Makefile
|
||||||
makefiles: gnu/Makefile
|
makefiles: gnu/Makefile
|
||||||
|
|
||||||
ansi/Makefile: ansi/Makefile.in
|
ansi/Makefile: ansi/Makefile.in
|
||||||
cd ansi && sh ../generate.sh ./ansi ../obj-ack ../obj-gnu && $(MAKE) makefiles
|
cd ansi && sh ../generate.sh ./ansi ../obj-ack/ ../obj-gnu && $(MAKE) makefiles
|
||||||
curses/Makefile: curses/Makefile.in
|
curses/Makefile: curses/Makefile.in
|
||||||
cd curses && sh ../generate.sh ./curses ../obj-ack ../obj-gnu && $(MAKE) makefiles
|
cd curses && sh ../generate.sh ./curses ../obj-ack/ ../obj-gnu && $(MAKE) makefiles
|
||||||
dummy/Makefile: dummy/Makefile.in
|
dummy/Makefile: dummy/Makefile.in
|
||||||
cd dummy && sh ../generate.sh ./dummy ../obj-ack ../obj-gnu && $(MAKE) makefiles
|
cd dummy && sh ../generate.sh ./dummy ../obj-ack/ ../obj-gnu && $(MAKE) makefiles
|
||||||
editline/Makefile: editline/Makefile.in
|
editline/Makefile: editline/Makefile.in
|
||||||
cd editline && sh ../generate.sh ./editline ../obj-ack ../obj-gnu && $(MAKE) makefiles
|
cd editline && sh ../generate.sh ./editline ../obj-ack/ ../obj-gnu && $(MAKE) makefiles
|
||||||
end/Makefile: end/Makefile.in
|
end/Makefile: end/Makefile.in
|
||||||
cd end && sh ../generate.sh ./end ../obj-ack ../obj-gnu && $(MAKE) makefiles
|
cd end && sh ../generate.sh ./end ../obj-ack/ ../obj-gnu && $(MAKE) makefiles
|
||||||
ip/Makefile: ip/Makefile.in
|
ip/Makefile: ip/Makefile.in
|
||||||
cd ip && sh ../generate.sh ./ip ../obj-ack ../obj-gnu && $(MAKE) makefiles
|
cd ip && sh ../generate.sh ./ip ../obj-ack/ ../obj-gnu && $(MAKE) makefiles
|
||||||
math/Makefile: math/Makefile.in
|
math/Makefile: math/Makefile.in
|
||||||
cd math && sh ../generate.sh ./math ../obj-ack ../obj-gnu && $(MAKE) makefiles
|
cd math && sh ../generate.sh ./math ../obj-ack/ ../obj-gnu && $(MAKE) makefiles
|
||||||
other/Makefile: other/Makefile.in
|
other/Makefile: other/Makefile.in
|
||||||
cd other && sh ../generate.sh ./other ../obj-ack ../obj-gnu && $(MAKE) makefiles
|
cd other && sh ../generate.sh ./other ../obj-ack/ ../obj-gnu && $(MAKE) makefiles
|
||||||
posix/Makefile: posix/Makefile.in
|
posix/Makefile: posix/Makefile.in
|
||||||
cd posix && sh ../generate.sh ./posix ../obj-ack ../obj-gnu && $(MAKE) makefiles
|
cd posix && sh ../generate.sh ./posix ../obj-ack/ ../obj-gnu && $(MAKE) makefiles
|
||||||
regex/Makefile: regex/Makefile.in
|
regex/Makefile: regex/Makefile.in
|
||||||
cd regex && sh ../generate.sh ./regex ../obj-ack ../obj-gnu && $(MAKE) makefiles
|
cd regex && sh ../generate.sh ./regex ../obj-ack/ ../obj-gnu && $(MAKE) makefiles
|
||||||
stdio/Makefile: stdio/Makefile.in
|
stdio/Makefile: stdio/Makefile.in
|
||||||
cd stdio && sh ../generate.sh ./stdio ../obj-ack ../obj-gnu && $(MAKE) makefiles
|
cd stdio && sh ../generate.sh ./stdio ../obj-ack/ ../obj-gnu && $(MAKE) makefiles
|
||||||
syscall/Makefile: syscall/Makefile.in
|
syscall/Makefile: syscall/Makefile.in
|
||||||
cd syscall && sh ../generate.sh ./syscall ../obj-ack ../obj-gnu && $(MAKE) makefiles
|
cd syscall && sh ../generate.sh ./syscall ../obj-ack/ ../obj-gnu && $(MAKE) makefiles
|
||||||
syslib/Makefile: syslib/Makefile.in
|
syslib/Makefile: syslib/Makefile.in
|
||||||
cd syslib && sh ../generate.sh ./syslib ../obj-ack ../obj-gnu && $(MAKE) makefiles
|
cd syslib && sh ../generate.sh ./syslib ../obj-ack/ ../obj-gnu && $(MAKE) makefiles
|
||||||
util/Makefile: util/Makefile.in
|
util/Makefile: util/Makefile.in
|
||||||
cd util && sh ../generate.sh ./util ../obj-ack ../obj-gnu && $(MAKE) makefiles
|
cd util && sh ../generate.sh ./util ../obj-ack/ ../obj-gnu && $(MAKE) makefiles
|
||||||
sysutil/Makefile: sysutil/Makefile.in
|
sysutil/Makefile: sysutil/Makefile.in
|
||||||
cd sysutil && sh ../generate.sh ./sysutil ../obj-ack ../obj-gnu && $(MAKE) makefiles
|
cd sysutil && sh ../generate.sh ./sysutil ../obj-ack/ ../obj-gnu && $(MAKE) makefiles
|
||||||
timers/Makefile: timers/Makefile.in
|
timers/Makefile: timers/Makefile.in
|
||||||
cd timers && sh ../generate.sh ./timers ../obj-ack ../obj-gnu && $(MAKE) makefiles
|
cd timers && sh ../generate.sh ./timers ../obj-ack/ ../obj-gnu && $(MAKE) makefiles
|
||||||
i386/Makefile: i386/Makefile.in
|
i386/Makefile: i386/Makefile.in
|
||||||
cd i386 && sh ../generate.sh ./i386 ../obj-ack ../obj-gnu && $(MAKE) makefiles
|
cd i386 && sh ../generate.sh ./i386 ../obj-ack/ ../obj-gnu && $(MAKE) makefiles
|
||||||
zlib-1.2.3/Makefile: zlib-1.2.3/Makefile.in
|
zlib-1.2.3/Makefile: zlib-1.2.3/Makefile.in
|
||||||
cd zlib-1.2.3 && sh ../generate.sh ./zlib-1.2.3 ../obj-ack ../obj-gnu && $(MAKE) makefiles
|
cd zlib-1.2.3 && sh ../generate.sh ./zlib-1.2.3 ../obj-ack/ ../obj-gnu && $(MAKE) makefiles
|
||||||
ack/Makefile: ack/Makefile.in
|
ack/Makefile: ack/Makefile.in
|
||||||
cd ack && sh ../generate.sh ./ack ../obj-ack ../obj-gnu && $(MAKE) makefiles
|
cd ack && sh ../generate.sh ./ack ../obj-ack/ ../obj-gnu && $(MAKE) makefiles
|
||||||
gnu/Makefile: gnu/Makefile.in
|
gnu/Makefile: gnu/Makefile.in
|
||||||
cd gnu && sh ../generate.sh ./gnu ../obj-ack ../obj-gnu && $(MAKE) makefiles
|
cd gnu && sh ../generate.sh ./gnu ../obj-ack/ ../obj-gnu && $(MAKE) makefiles
|
||||||
|
|
||||||
clean::
|
clean::
|
||||||
rm -f obj-ack/./*
|
rm -f obj-ack//./*
|
||||||
rm -f obj-gnu/./*
|
rm -f obj-gnu/./*
|
||||||
|
|
||||||
install: install-ack
|
install: install-ack
|
||||||
|
|
||||||
install-ack: all-ack
|
install-ack: all-ack
|
||||||
cp obj-ack/*.[ao] /usr/lib/i386
|
cp obj-ack//*.[ao] /usr/lib/i386
|
||||||
|
|
||||||
install-gnu: all-gnu
|
install-gnu: all-gnu
|
||||||
cp obj-gnu/*.[ao] /usr/gnu/lib
|
cp obj-gnu/*.[ao] /usr/gnu/lib
|
||||||
|
|
|
||||||
|
|
@ -1,88 +0,0 @@
|
||||||
#Generated from ./ack/Makefile.in
|
|
||||||
all: all-ack
|
|
||||||
|
|
||||||
all-ack:
|
|
||||||
all-gnu:
|
|
||||||
|
|
||||||
makefiles: Makefile
|
|
||||||
|
|
||||||
Makefile: Makefile.in
|
|
||||||
sh ../generate.sh ./ack ../obj-ack ../obj-gnu
|
|
||||||
@echo
|
|
||||||
@echo "*Attention*"
|
|
||||||
@echo "Makefile is regenerated... rerun command to see changes"
|
|
||||||
@echo "*Attention*"
|
|
||||||
@echo
|
|
||||||
|
|
||||||
all-ack: makefiles
|
|
||||||
mkdir -p ../obj-ack/./ack/float
|
|
||||||
cd float && $(MAKE) $@
|
|
||||||
mkdir -p ../obj-ack/./ack/fphook
|
|
||||||
cd fphook && $(MAKE) $@
|
|
||||||
mkdir -p ../obj-ack/./ack/i386
|
|
||||||
cd i386 && $(MAKE) $@
|
|
||||||
mkdir -p ../obj-ack/./ack/libm2
|
|
||||||
cd libm2 && $(MAKE) $@
|
|
||||||
mkdir -p ../obj-ack/./ack/libp
|
|
||||||
cd libp && $(MAKE) $@
|
|
||||||
mkdir -p ../obj-ack/./ack/liby
|
|
||||||
cd liby && $(MAKE) $@
|
|
||||||
mkdir -p ../obj-ack/./ack/math
|
|
||||||
cd math && $(MAKE) $@
|
|
||||||
mkdir -p ../obj-ack/./ack/rts
|
|
||||||
cd rts && $(MAKE) $@
|
|
||||||
|
|
||||||
all-gnu: makefiles
|
|
||||||
cd float && $(MAKE) $@
|
|
||||||
cd fphook && $(MAKE) $@
|
|
||||||
cd i386 && $(MAKE) $@
|
|
||||||
cd libm2 && $(MAKE) $@
|
|
||||||
cd libp && $(MAKE) $@
|
|
||||||
cd liby && $(MAKE) $@
|
|
||||||
cd math && $(MAKE) $@
|
|
||||||
cd rts && $(MAKE) $@
|
|
||||||
|
|
||||||
clean depend depend-ack depend-gnu:: makefiles
|
|
||||||
cd float && $(MAKE) $@
|
|
||||||
cd fphook && $(MAKE) $@
|
|
||||||
cd i386 && $(MAKE) $@
|
|
||||||
cd libm2 && $(MAKE) $@
|
|
||||||
cd libp && $(MAKE) $@
|
|
||||||
cd liby && $(MAKE) $@
|
|
||||||
cd math && $(MAKE) $@
|
|
||||||
cd rts && $(MAKE) $@
|
|
||||||
|
|
||||||
makefiles: float/Makefile
|
|
||||||
makefiles: fphook/Makefile
|
|
||||||
makefiles: i386/Makefile
|
|
||||||
makefiles: libm2/Makefile
|
|
||||||
makefiles: libp/Makefile
|
|
||||||
makefiles: liby/Makefile
|
|
||||||
makefiles: math/Makefile
|
|
||||||
makefiles: rts/Makefile
|
|
||||||
|
|
||||||
float/Makefile: float/Makefile.in
|
|
||||||
cd float && sh ../../generate.sh ./ack/float ../../obj-ack ../../obj-gnu && $(MAKE) makefiles
|
|
||||||
fphook/Makefile: fphook/Makefile.in
|
|
||||||
cd fphook && sh ../../generate.sh ./ack/fphook ../../obj-ack ../../obj-gnu && $(MAKE) makefiles
|
|
||||||
i386/Makefile: i386/Makefile.in
|
|
||||||
cd i386 && sh ../../generate.sh ./ack/i386 ../../obj-ack ../../obj-gnu && $(MAKE) makefiles
|
|
||||||
libm2/Makefile: libm2/Makefile.in
|
|
||||||
cd libm2 && sh ../../generate.sh ./ack/libm2 ../../obj-ack ../../obj-gnu && $(MAKE) makefiles
|
|
||||||
libp/Makefile: libp/Makefile.in
|
|
||||||
cd libp && sh ../../generate.sh ./ack/libp ../../obj-ack ../../obj-gnu && $(MAKE) makefiles
|
|
||||||
liby/Makefile: liby/Makefile.in
|
|
||||||
cd liby && sh ../../generate.sh ./ack/liby ../../obj-ack ../../obj-gnu && $(MAKE) makefiles
|
|
||||||
math/Makefile: math/Makefile.in
|
|
||||||
cd math && sh ../../generate.sh ./ack/math ../../obj-ack ../../obj-gnu && $(MAKE) makefiles
|
|
||||||
rts/Makefile: rts/Makefile.in
|
|
||||||
cd rts && sh ../../generate.sh ./ack/rts ../../obj-ack ../../obj-gnu && $(MAKE) makefiles
|
|
||||||
|
|
||||||
clean::
|
|
||||||
rm -f ../obj-ack/./ack/*
|
|
||||||
|
|
||||||
include Makedepend-ack
|
|
||||||
include .depend-ack
|
|
||||||
|
|
||||||
include Makedepend-gnu
|
|
||||||
include .depend-gnu
|
|
||||||
|
|
@ -1,149 +0,0 @@
|
||||||
#Generated from ./ack/float/Makefile.in
|
|
||||||
all: all-ack
|
|
||||||
|
|
||||||
all-ack:
|
|
||||||
all-gnu:
|
|
||||||
|
|
||||||
makefiles: Makefile
|
|
||||||
|
|
||||||
Makefile: Makefile.in
|
|
||||||
sh ../../generate.sh ./ack/float ../../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/libfp.a
|
|
||||||
|
|
||||||
../../obj-ack/libfp.a: ../../obj-ack/libfp.a(add_ext.o)
|
|
||||||
../../obj-ack/libfp.a: ../../obj-ack/libfp.a(adder.o)
|
|
||||||
../../obj-ack/libfp.a: ../../obj-ack/libfp.a(adf4.o)
|
|
||||||
../../obj-ack/libfp.a: ../../obj-ack/libfp.a(adf8.o)
|
|
||||||
../../obj-ack/libfp.a: ../../obj-ack/libfp.a(cff4.o)
|
|
||||||
../../obj-ack/libfp.a: ../../obj-ack/libfp.a(cff8.o)
|
|
||||||
../../obj-ack/libfp.a: ../../obj-ack/libfp.a(cfi.o)
|
|
||||||
../../obj-ack/libfp.a: ../../obj-ack/libfp.a(cfu.o)
|
|
||||||
../../obj-ack/libfp.a: ../../obj-ack/libfp.a(cif4.o)
|
|
||||||
../../obj-ack/libfp.a: ../../obj-ack/libfp.a(cif8.o)
|
|
||||||
../../obj-ack/libfp.a: ../../obj-ack/libfp.a(cmf4.o)
|
|
||||||
../../obj-ack/libfp.a: ../../obj-ack/libfp.a(cmf8.o)
|
|
||||||
../../obj-ack/libfp.a: ../../obj-ack/libfp.a(compact.o)
|
|
||||||
../../obj-ack/libfp.a: ../../obj-ack/libfp.a(cuf4.o)
|
|
||||||
../../obj-ack/libfp.a: ../../obj-ack/libfp.a(cuf8.o)
|
|
||||||
../../obj-ack/libfp.a: ../../obj-ack/libfp.a(div_ext.o)
|
|
||||||
../../obj-ack/libfp.a: ../../obj-ack/libfp.a(dvf4.o)
|
|
||||||
../../obj-ack/libfp.a: ../../obj-ack/libfp.a(dvf8.o)
|
|
||||||
../../obj-ack/libfp.a: ../../obj-ack/libfp.a(extend.o)
|
|
||||||
../../obj-ack/libfp.a: ../../obj-ack/libfp.a(fef4.o)
|
|
||||||
../../obj-ack/libfp.a: ../../obj-ack/libfp.a(fef8.o)
|
|
||||||
../../obj-ack/libfp.a: ../../obj-ack/libfp.a(fif4.o)
|
|
||||||
../../obj-ack/libfp.a: ../../obj-ack/libfp.a(fif8.o)
|
|
||||||
../../obj-ack/libfp.a: ../../obj-ack/libfp.a(fptrp.o)
|
|
||||||
../../obj-ack/libfp.a: ../../obj-ack/libfp.a(mlf4.o)
|
|
||||||
../../obj-ack/libfp.a: ../../obj-ack/libfp.a(mlf8.o)
|
|
||||||
../../obj-ack/libfp.a: ../../obj-ack/libfp.a(mul_ext.o)
|
|
||||||
../../obj-ack/libfp.a: ../../obj-ack/libfp.a(ngf4.o)
|
|
||||||
../../obj-ack/libfp.a: ../../obj-ack/libfp.a(ngf8.o)
|
|
||||||
../../obj-ack/libfp.a: ../../obj-ack/libfp.a(nrm_ext.o)
|
|
||||||
../../obj-ack/libfp.a: ../../obj-ack/libfp.a(sbf4.o)
|
|
||||||
../../obj-ack/libfp.a: ../../obj-ack/libfp.a(sbf8.o)
|
|
||||||
../../obj-ack/libfp.a: ../../obj-ack/libfp.a(sft_ext.o)
|
|
||||||
../../obj-ack/libfp.a: ../../obj-ack/libfp.a(shifter.o)
|
|
||||||
../../obj-ack/libfp.a: ../../obj-ack/libfp.a(sub_ext.o)
|
|
||||||
../../obj-ack/libfp.a: ../../obj-ack/libfp.a(zrf4.o)
|
|
||||||
../../obj-ack/libfp.a: ../../obj-ack/libfp.a(zrf8.o)
|
|
||||||
../../obj-ack/libfp.a: ../../obj-ack/libfp.a(zrf_ext.o)
|
|
||||||
|
|
||||||
../../obj-ack/libfp.a:
|
|
||||||
ar cr ../../obj-ack/libfp.a ../../obj-ack/./ack/float/*.o
|
|
||||||
rm ../../obj-ack/./ack/float/*.o
|
|
||||||
|
|
||||||
../../obj-ack/libfp.a(add_ext.o): add_ext.fc
|
|
||||||
sh ./FP.compile ../../obj-ack/./ack/float/add_ext.o add_ext.fc
|
|
||||||
../../obj-ack/libfp.a(adder.o): adder.fc
|
|
||||||
sh ./FP.compile ../../obj-ack/./ack/float/adder.o adder.fc
|
|
||||||
../../obj-ack/libfp.a(adf4.o): adf4.fc
|
|
||||||
sh ./FP.compile ../../obj-ack/./ack/float/adf4.o adf4.fc
|
|
||||||
../../obj-ack/libfp.a(adf8.o): adf8.fc
|
|
||||||
sh ./FP.compile ../../obj-ack/./ack/float/adf8.o adf8.fc
|
|
||||||
../../obj-ack/libfp.a(cff4.o): cff4.fc
|
|
||||||
sh ./FP.compile ../../obj-ack/./ack/float/cff4.o cff4.fc
|
|
||||||
../../obj-ack/libfp.a(cff8.o): cff8.fc
|
|
||||||
sh ./FP.compile ../../obj-ack/./ack/float/cff8.o cff8.fc
|
|
||||||
../../obj-ack/libfp.a(cfi.o): cfi.fc
|
|
||||||
sh ./FP.compile ../../obj-ack/./ack/float/cfi.o cfi.fc
|
|
||||||
../../obj-ack/libfp.a(cfu.o): cfu.fc
|
|
||||||
sh ./FP.compile ../../obj-ack/./ack/float/cfu.o cfu.fc
|
|
||||||
../../obj-ack/libfp.a(cif4.o): cif4.fc
|
|
||||||
sh ./FP.compile ../../obj-ack/./ack/float/cif4.o cif4.fc
|
|
||||||
../../obj-ack/libfp.a(cif8.o): cif8.fc
|
|
||||||
sh ./FP.compile ../../obj-ack/./ack/float/cif8.o cif8.fc
|
|
||||||
../../obj-ack/libfp.a(cmf4.o): cmf4.fc
|
|
||||||
sh ./FP.compile ../../obj-ack/./ack/float/cmf4.o cmf4.fc
|
|
||||||
../../obj-ack/libfp.a(cmf8.o): cmf8.fc
|
|
||||||
sh ./FP.compile ../../obj-ack/./ack/float/cmf8.o cmf8.fc
|
|
||||||
../../obj-ack/libfp.a(compact.o): compact.fc
|
|
||||||
sh ./FP.compile ../../obj-ack/./ack/float/compact.o compact.fc
|
|
||||||
../../obj-ack/libfp.a(cuf4.o): cuf4.fc
|
|
||||||
sh ./FP.compile ../../obj-ack/./ack/float/cuf4.o cuf4.fc
|
|
||||||
../../obj-ack/libfp.a(cuf8.o): cuf8.fc
|
|
||||||
sh ./FP.compile ../../obj-ack/./ack/float/cuf8.o cuf8.fc
|
|
||||||
../../obj-ack/libfp.a(div_ext.o): div_ext.fc
|
|
||||||
sh ./FP.compile ../../obj-ack/./ack/float/div_ext.o div_ext.fc
|
|
||||||
../../obj-ack/libfp.a(dvf4.o): dvf4.fc
|
|
||||||
sh ./FP.compile ../../obj-ack/./ack/float/dvf4.o dvf4.fc
|
|
||||||
../../obj-ack/libfp.a(dvf8.o): dvf8.fc
|
|
||||||
sh ./FP.compile ../../obj-ack/./ack/float/dvf8.o dvf8.fc
|
|
||||||
../../obj-ack/libfp.a(extend.o): extend.fc
|
|
||||||
sh ./FP.compile ../../obj-ack/./ack/float/extend.o extend.fc
|
|
||||||
../../obj-ack/libfp.a(fef4.o): fef4.fc
|
|
||||||
sh ./FP.compile ../../obj-ack/./ack/float/fef4.o fef4.fc
|
|
||||||
../../obj-ack/libfp.a(fef8.o): fef8.fc
|
|
||||||
sh ./FP.compile ../../obj-ack/./ack/float/fef8.o fef8.fc
|
|
||||||
../../obj-ack/libfp.a(fif4.o): fif4.fc
|
|
||||||
sh ./FP.compile ../../obj-ack/./ack/float/fif4.o fif4.fc
|
|
||||||
../../obj-ack/libfp.a(fif8.o): fif8.fc
|
|
||||||
sh ./FP.compile ../../obj-ack/./ack/float/fif8.o fif8.fc
|
|
||||||
../../obj-ack/libfp.a(fptrp.o): fptrp.s
|
|
||||||
cc -c -o ../../obj-ack/./ack/float/fptrp.o fptrp.s
|
|
||||||
../../obj-ack/libfp.a(mlf4.o): mlf4.fc
|
|
||||||
sh ./FP.compile ../../obj-ack/./ack/float/mlf4.o mlf4.fc
|
|
||||||
../../obj-ack/libfp.a(mlf8.o): mlf8.fc
|
|
||||||
sh ./FP.compile ../../obj-ack/./ack/float/mlf8.o mlf8.fc
|
|
||||||
../../obj-ack/libfp.a(mul_ext.o): mul_ext.fc
|
|
||||||
sh ./FP.compile ../../obj-ack/./ack/float/mul_ext.o mul_ext.fc
|
|
||||||
../../obj-ack/libfp.a(ngf4.o): ngf4.fc
|
|
||||||
sh ./FP.compile ../../obj-ack/./ack/float/ngf4.o ngf4.fc
|
|
||||||
../../obj-ack/libfp.a(ngf8.o): ngf8.fc
|
|
||||||
sh ./FP.compile ../../obj-ack/./ack/float/ngf8.o ngf8.fc
|
|
||||||
../../obj-ack/libfp.a(nrm_ext.o): nrm_ext.fc
|
|
||||||
sh ./FP.compile ../../obj-ack/./ack/float/nrm_ext.o nrm_ext.fc
|
|
||||||
../../obj-ack/libfp.a(sbf4.o): sbf4.fc
|
|
||||||
sh ./FP.compile ../../obj-ack/./ack/float/sbf4.o sbf4.fc
|
|
||||||
../../obj-ack/libfp.a(sbf8.o): sbf8.fc
|
|
||||||
sh ./FP.compile ../../obj-ack/./ack/float/sbf8.o sbf8.fc
|
|
||||||
../../obj-ack/libfp.a(sft_ext.o): sft_ext.fc
|
|
||||||
sh ./FP.compile ../../obj-ack/./ack/float/sft_ext.o sft_ext.fc
|
|
||||||
../../obj-ack/libfp.a(shifter.o): shifter.fc
|
|
||||||
sh ./FP.compile ../../obj-ack/./ack/float/shifter.o shifter.fc
|
|
||||||
../../obj-ack/libfp.a(sub_ext.o): sub_ext.fc
|
|
||||||
sh ./FP.compile ../../obj-ack/./ack/float/sub_ext.o sub_ext.fc
|
|
||||||
../../obj-ack/libfp.a(zrf4.o): zrf4.fc
|
|
||||||
sh ./FP.compile ../../obj-ack/./ack/float/zrf4.o zrf4.fc
|
|
||||||
../../obj-ack/libfp.a(zrf8.o): zrf8.fc
|
|
||||||
sh ./FP.compile ../../obj-ack/./ack/float/zrf8.o zrf8.fc
|
|
||||||
../../obj-ack/libfp.a(zrf_ext.o): zrf_ext.fc
|
|
||||||
sh ./FP.compile ../../obj-ack/./ack/float/zrf_ext.o zrf_ext.fc
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
clean::
|
|
||||||
rm -f ../../obj-ack/./ack/float/*
|
|
||||||
|
|
||||||
include Makedepend-ack
|
|
||||||
include .depend-ack
|
|
||||||
|
|
||||||
include Makedepend-gnu
|
|
||||||
include .depend-gnu
|
|
||||||
|
|
@ -1,52 +0,0 @@
|
||||||
#Generated from ./ack/fphook/Makefile.in
|
|
||||||
all: all-ack
|
|
||||||
|
|
||||||
all-ack:
|
|
||||||
all-gnu:
|
|
||||||
|
|
||||||
makefiles: Makefile
|
|
||||||
|
|
||||||
Makefile: Makefile.in
|
|
||||||
sh ../../generate.sh ./ack/fphook ../../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/libd.a
|
|
||||||
|
|
||||||
../../obj-ack/libd.a: ../../obj-ack/libd.a(fphook.o)
|
|
||||||
|
|
||||||
../../obj-ack/libd.a:
|
|
||||||
ar cr ../../obj-ack/libd.a ../../obj-ack/./ack/fphook/*.o
|
|
||||||
rm ../../obj-ack/./ack/fphook/*.o
|
|
||||||
|
|
||||||
../../obj-ack/libd.a(fphook.o): fphook.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I.. -c -o ../../obj-ack/./ack/fphook/fphook.o fphook.c
|
|
||||||
|
|
||||||
all-ack: ../../obj-ack/libc.a
|
|
||||||
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(fltpr.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(strtod.o)
|
|
||||||
|
|
||||||
../../obj-ack/libc.a:
|
|
||||||
ar cr ../../obj-ack/libc.a ../../obj-ack/./ack/fphook/*.o
|
|
||||||
rm ../../obj-ack/./ack/fphook/*.o
|
|
||||||
|
|
||||||
../../obj-ack/libc.a(fltpr.o): fltpr.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I.. -c -o ../../obj-ack/./ack/fphook/fltpr.o fltpr.c
|
|
||||||
../../obj-ack/libc.a(strtod.o): strtod.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I.. -c -o ../../obj-ack/./ack/fphook/strtod.o strtod.c
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
clean::
|
|
||||||
rm -f ../../obj-ack/./ack/fphook/*
|
|
||||||
|
|
||||||
include Makedepend-ack
|
|
||||||
include .depend-ack
|
|
||||||
|
|
||||||
include Makedepend-gnu
|
|
||||||
include .depend-gnu
|
|
||||||
|
|
@ -1,46 +0,0 @@
|
||||||
#Generated from ./ack/i386/Makefile.in
|
|
||||||
all: all-ack
|
|
||||||
|
|
||||||
all-ack:
|
|
||||||
all-gnu:
|
|
||||||
|
|
||||||
makefiles: Makefile
|
|
||||||
|
|
||||||
Makefile: Makefile.in
|
|
||||||
sh ../../generate.sh ./ack/i386 ../../obj-ack ../../obj-gnu
|
|
||||||
@echo
|
|
||||||
@echo "*Attention*"
|
|
||||||
@echo "Makefile is regenerated... rerun command to see changes"
|
|
||||||
@echo "*Attention*"
|
|
||||||
@echo
|
|
||||||
|
|
||||||
all-ack: makefiles
|
|
||||||
mkdir -p ../../obj-ack/./ack/i386/em
|
|
||||||
cd em && $(MAKE) $@
|
|
||||||
mkdir -p ../../obj-ack/./ack/i386/head
|
|
||||||
cd head && $(MAKE) $@
|
|
||||||
|
|
||||||
all-gnu: makefiles
|
|
||||||
cd em && $(MAKE) $@
|
|
||||||
cd head && $(MAKE) $@
|
|
||||||
|
|
||||||
clean depend depend-ack depend-gnu:: makefiles
|
|
||||||
cd em && $(MAKE) $@
|
|
||||||
cd head && $(MAKE) $@
|
|
||||||
|
|
||||||
makefiles: em/Makefile
|
|
||||||
makefiles: head/Makefile
|
|
||||||
|
|
||||||
em/Makefile: em/Makefile.in
|
|
||||||
cd em && sh ../../../generate.sh ./ack/i386/em ../../../obj-ack ../../../obj-gnu && $(MAKE) makefiles
|
|
||||||
head/Makefile: head/Makefile.in
|
|
||||||
cd head && sh ../../../generate.sh ./ack/i386/head ../../../obj-ack ../../../obj-gnu && $(MAKE) makefiles
|
|
||||||
|
|
||||||
clean::
|
|
||||||
rm -f ../../obj-ack/./ack/i386/*
|
|
||||||
|
|
||||||
include Makedepend-ack
|
|
||||||
include .depend-ack
|
|
||||||
|
|
||||||
include Makedepend-gnu
|
|
||||||
include .depend-gnu
|
|
||||||
|
|
@ -1,242 +0,0 @@
|
||||||
#Generated from ./ack/i386/em/Makefile.in
|
|
||||||
all: all-ack
|
|
||||||
|
|
||||||
all-ack:
|
|
||||||
all-gnu:
|
|
||||||
|
|
||||||
makefiles: Makefile
|
|
||||||
|
|
||||||
Makefile: Makefile.in
|
|
||||||
sh ../../../generate.sh ./ack/i386/em ../../../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/libe.a
|
|
||||||
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_adf4.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_adf8.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_adi.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_and.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_blm.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_cff4.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_cff8.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_cfi.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_cfu.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_cif4.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_cif8.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_cii.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_cmf4.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_cmf8.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_cms.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_com.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_csa4.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_csb4.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_cuf4.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_cuf8.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_cuu.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_dup.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_dvf4.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_dvf8.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_dvi.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_dvu.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_error.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_exg.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_fat.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_fef4.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_fef8.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_fif4.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_fif8.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_fp8087.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_gto.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_hol0.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_iaar.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_ilar.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_inn.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_ior.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_isar.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_lar4.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_loi.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_mlf4.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_mlf8.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_mli.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_mon.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_ngf4.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_ngf8.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_ngi.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_nop.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_print.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_rck.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_rmi.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_rmu.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_rol.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_ror.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_sar4.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_sbf4.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_sbf8.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_sbi.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_set.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_sli.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_sri.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_sti.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_stop.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_trp.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_unknown.o)
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_xor.o)
|
|
||||||
|
|
||||||
../../../obj-ack/libe.a:
|
|
||||||
ar cr ../../../obj-ack/libe.a ../../../obj-ack/./ack/i386/em/*.o
|
|
||||||
rm ../../../obj-ack/./ack/i386/em/*.o
|
|
||||||
|
|
||||||
../../../obj-ack/libe.a(em_adf4.o): em_adf4.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_adf4.o em_adf4.s
|
|
||||||
../../../obj-ack/libe.a(em_adf8.o): em_adf8.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_adf8.o em_adf8.s
|
|
||||||
../../../obj-ack/libe.a(em_adi.o): em_adi.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_adi.o em_adi.s
|
|
||||||
../../../obj-ack/libe.a(em_and.o): em_and.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_and.o em_and.s
|
|
||||||
../../../obj-ack/libe.a(em_blm.o): em_blm.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_blm.o em_blm.s
|
|
||||||
../../../obj-ack/libe.a(em_cff4.o): em_cff4.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_cff4.o em_cff4.s
|
|
||||||
../../../obj-ack/libe.a(em_cff8.o): em_cff8.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_cff8.o em_cff8.s
|
|
||||||
../../../obj-ack/libe.a(em_cfi.o): em_cfi.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_cfi.o em_cfi.s
|
|
||||||
../../../obj-ack/libe.a(em_cfu.o): em_cfu.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_cfu.o em_cfu.s
|
|
||||||
../../../obj-ack/libe.a(em_cif4.o): em_cif4.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_cif4.o em_cif4.s
|
|
||||||
../../../obj-ack/libe.a(em_cif8.o): em_cif8.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_cif8.o em_cif8.s
|
|
||||||
../../../obj-ack/libe.a(em_cii.o): em_cii.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_cii.o em_cii.s
|
|
||||||
../../../obj-ack/libe.a(em_cmf4.o): em_cmf4.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_cmf4.o em_cmf4.s
|
|
||||||
../../../obj-ack/libe.a(em_cmf8.o): em_cmf8.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_cmf8.o em_cmf8.s
|
|
||||||
../../../obj-ack/libe.a(em_cms.o): em_cms.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_cms.o em_cms.s
|
|
||||||
../../../obj-ack/libe.a(em_com.o): em_com.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_com.o em_com.s
|
|
||||||
../../../obj-ack/libe.a(em_csa4.o): em_csa4.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_csa4.o em_csa4.s
|
|
||||||
../../../obj-ack/libe.a(em_csb4.o): em_csb4.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_csb4.o em_csb4.s
|
|
||||||
../../../obj-ack/libe.a(em_cuf4.o): em_cuf4.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_cuf4.o em_cuf4.s
|
|
||||||
../../../obj-ack/libe.a(em_cuf8.o): em_cuf8.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_cuf8.o em_cuf8.s
|
|
||||||
../../../obj-ack/libe.a(em_cuu.o): em_cuu.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_cuu.o em_cuu.s
|
|
||||||
../../../obj-ack/libe.a(em_dup.o): em_dup.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_dup.o em_dup.s
|
|
||||||
../../../obj-ack/libe.a(em_dvf4.o): em_dvf4.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_dvf4.o em_dvf4.s
|
|
||||||
../../../obj-ack/libe.a(em_dvf8.o): em_dvf8.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_dvf8.o em_dvf8.s
|
|
||||||
../../../obj-ack/libe.a(em_dvi.o): em_dvi.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_dvi.o em_dvi.s
|
|
||||||
../../../obj-ack/libe.a(em_dvu.o): em_dvu.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_dvu.o em_dvu.s
|
|
||||||
../../../obj-ack/libe.a(em_error.o): em_error.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_error.o em_error.s
|
|
||||||
../../../obj-ack/libe.a(em_exg.o): em_exg.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_exg.o em_exg.s
|
|
||||||
../../../obj-ack/libe.a(em_fat.o): em_fat.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_fat.o em_fat.s
|
|
||||||
../../../obj-ack/libe.a(em_fef4.o): em_fef4.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_fef4.o em_fef4.s
|
|
||||||
../../../obj-ack/libe.a(em_fef8.o): em_fef8.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_fef8.o em_fef8.s
|
|
||||||
../../../obj-ack/libe.a(em_fif4.o): em_fif4.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_fif4.o em_fif4.s
|
|
||||||
../../../obj-ack/libe.a(em_fif8.o): em_fif8.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_fif8.o em_fif8.s
|
|
||||||
../../../obj-ack/libe.a(em_fp8087.o): em_fp8087.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_fp8087.o em_fp8087.s
|
|
||||||
../../../obj-ack/libe.a(em_gto.o): em_gto.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_gto.o em_gto.s
|
|
||||||
../../../obj-ack/libe.a(em_hol0.o): em_hol0.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_hol0.o em_hol0.s
|
|
||||||
../../../obj-ack/libe.a(em_iaar.o): em_iaar.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_iaar.o em_iaar.s
|
|
||||||
../../../obj-ack/libe.a(em_ilar.o): em_ilar.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_ilar.o em_ilar.s
|
|
||||||
../../../obj-ack/libe.a(em_inn.o): em_inn.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_inn.o em_inn.s
|
|
||||||
../../../obj-ack/libe.a(em_ior.o): em_ior.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_ior.o em_ior.s
|
|
||||||
../../../obj-ack/libe.a(em_isar.o): em_isar.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_isar.o em_isar.s
|
|
||||||
../../../obj-ack/libe.a(em_lar4.o): em_lar4.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_lar4.o em_lar4.s
|
|
||||||
../../../obj-ack/libe.a(em_loi.o): em_loi.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_loi.o em_loi.s
|
|
||||||
../../../obj-ack/libe.a(em_mlf4.o): em_mlf4.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_mlf4.o em_mlf4.s
|
|
||||||
../../../obj-ack/libe.a(em_mlf8.o): em_mlf8.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_mlf8.o em_mlf8.s
|
|
||||||
../../../obj-ack/libe.a(em_mli.o): em_mli.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_mli.o em_mli.s
|
|
||||||
../../../obj-ack/libe.a(em_mon.o): em_mon.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_mon.o em_mon.s
|
|
||||||
../../../obj-ack/libe.a(em_ngf4.o): em_ngf4.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_ngf4.o em_ngf4.s
|
|
||||||
../../../obj-ack/libe.a(em_ngf8.o): em_ngf8.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_ngf8.o em_ngf8.s
|
|
||||||
../../../obj-ack/libe.a(em_ngi.o): em_ngi.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_ngi.o em_ngi.s
|
|
||||||
../../../obj-ack/libe.a(em_nop.o): em_nop.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_nop.o em_nop.s
|
|
||||||
../../../obj-ack/libe.a(em_print.o): em_print.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_print.o em_print.s
|
|
||||||
../../../obj-ack/libe.a(em_rck.o): em_rck.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_rck.o em_rck.s
|
|
||||||
../../../obj-ack/libe.a(em_rmi.o): em_rmi.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_rmi.o em_rmi.s
|
|
||||||
../../../obj-ack/libe.a(em_rmu.o): em_rmu.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_rmu.o em_rmu.s
|
|
||||||
../../../obj-ack/libe.a(em_rol.o): em_rol.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_rol.o em_rol.s
|
|
||||||
../../../obj-ack/libe.a(em_ror.o): em_ror.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_ror.o em_ror.s
|
|
||||||
../../../obj-ack/libe.a(em_sar4.o): em_sar4.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_sar4.o em_sar4.s
|
|
||||||
../../../obj-ack/libe.a(em_sbf4.o): em_sbf4.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_sbf4.o em_sbf4.s
|
|
||||||
../../../obj-ack/libe.a(em_sbf8.o): em_sbf8.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_sbf8.o em_sbf8.s
|
|
||||||
../../../obj-ack/libe.a(em_sbi.o): em_sbi.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_sbi.o em_sbi.s
|
|
||||||
../../../obj-ack/libe.a(em_set.o): em_set.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_set.o em_set.s
|
|
||||||
../../../obj-ack/libe.a(em_sli.o): em_sli.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_sli.o em_sli.s
|
|
||||||
../../../obj-ack/libe.a(em_sri.o): em_sri.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_sri.o em_sri.s
|
|
||||||
../../../obj-ack/libe.a(em_sti.o): em_sti.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_sti.o em_sti.s
|
|
||||||
../../../obj-ack/libe.a(em_stop.o): em_stop.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_stop.o em_stop.s
|
|
||||||
../../../obj-ack/libe.a(em_trp.o): em_trp.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_trp.o em_trp.s
|
|
||||||
../../../obj-ack/libe.a(em_unknown.o): em_unknown.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_unknown.o em_unknown.s
|
|
||||||
../../../obj-ack/libe.a(em_xor.o): em_xor.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -Was-ack -c -o ../../../obj-ack/./ack/i386/em/em_xor.o em_xor.s
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
clean::
|
|
||||||
rm -f ../../../obj-ack/./ack/i386/em/*
|
|
||||||
|
|
||||||
include Makedepend-ack
|
|
||||||
include .depend-ack
|
|
||||||
|
|
||||||
include Makedepend-gnu
|
|
||||||
include .depend-gnu
|
|
||||||
|
|
@ -1,38 +0,0 @@
|
||||||
#Generated from ./ack/i386/head/Makefile.in
|
|
||||||
all: all-ack
|
|
||||||
|
|
||||||
all-ack:
|
|
||||||
all-gnu:
|
|
||||||
|
|
||||||
makefiles: Makefile
|
|
||||||
|
|
||||||
Makefile: Makefile.in
|
|
||||||
sh ../../../generate.sh ./ack/i386/head ../../../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/libe.a
|
|
||||||
|
|
||||||
../../../obj-ack/libe.a: ../../../obj-ack/libe.a(em_head.o)
|
|
||||||
|
|
||||||
../../../obj-ack/libe.a:
|
|
||||||
ar cr ../../../obj-ack/libe.a ../../../obj-ack/./ack/i386/head/*.o
|
|
||||||
rm ../../../obj-ack/./ack/i386/head/*.o
|
|
||||||
|
|
||||||
../../../obj-ack/libe.a(em_head.o): em_head.s
|
|
||||||
cc -c -o ../../../obj-ack/./ack/i386/head/em_head.o em_head.s
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
clean::
|
|
||||||
rm -f ../../../obj-ack/./ack/i386/head/*
|
|
||||||
|
|
||||||
include Makedepend-ack
|
|
||||||
include .depend-ack
|
|
||||||
|
|
||||||
include Makedepend-gnu
|
|
||||||
include .depend-gnu
|
|
||||||
|
|
@ -1,176 +0,0 @@
|
||||||
#Generated from ./ack/libm2/Makefile.in
|
|
||||||
all: all-ack
|
|
||||||
|
|
||||||
all-ack:
|
|
||||||
all-gnu:
|
|
||||||
|
|
||||||
makefiles: Makefile
|
|
||||||
|
|
||||||
Makefile: Makefile.in
|
|
||||||
sh ../../generate.sh ./ack/libm2 ../../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/libm2.a
|
|
||||||
|
|
||||||
../../obj-ack/libm2.a: ../../obj-ack/libm2.a(Arguments.o)
|
|
||||||
../../obj-ack/libm2.a: ../../obj-ack/libm2.a(ArraySort.o)
|
|
||||||
../../obj-ack/libm2.a: ../../obj-ack/libm2.a(CSP.o)
|
|
||||||
../../obj-ack/libm2.a: ../../obj-ack/libm2.a(Conversion.o)
|
|
||||||
../../obj-ack/libm2.a: ../../obj-ack/libm2.a(EM.o)
|
|
||||||
../../obj-ack/libm2.a: ../../obj-ack/libm2.a(InOut.o)
|
|
||||||
../../obj-ack/libm2.a: ../../obj-ack/libm2.a(LtoUset.o)
|
|
||||||
../../obj-ack/libm2.a: ../../obj-ack/libm2.a(MathLib0.o)
|
|
||||||
../../obj-ack/libm2.a: ../../obj-ack/libm2.a(Mathlib.o)
|
|
||||||
../../obj-ack/libm2.a: ../../obj-ack/libm2.a(PascalIO.o)
|
|
||||||
../../obj-ack/libm2.a: ../../obj-ack/libm2.a(Processes.o)
|
|
||||||
../../obj-ack/libm2.a: ../../obj-ack/libm2.a(RealConver.o)
|
|
||||||
../../obj-ack/libm2.a: ../../obj-ack/libm2.a(RealInOut.o)
|
|
||||||
../../obj-ack/libm2.a: ../../obj-ack/libm2.a(SYSTEM.o)
|
|
||||||
../../obj-ack/libm2.a: ../../obj-ack/libm2.a(Semaphores.o)
|
|
||||||
../../obj-ack/libm2.a: ../../obj-ack/libm2.a(Storage.o)
|
|
||||||
../../obj-ack/libm2.a: ../../obj-ack/libm2.a(StrAss.o)
|
|
||||||
../../obj-ack/libm2.a: ../../obj-ack/libm2.a(Streams.o)
|
|
||||||
../../obj-ack/libm2.a: ../../obj-ack/libm2.a(Strings.o)
|
|
||||||
../../obj-ack/libm2.a: ../../obj-ack/libm2.a(Termcap.o)
|
|
||||||
../../obj-ack/libm2.a: ../../obj-ack/libm2.a(Terminal.o)
|
|
||||||
../../obj-ack/libm2.a: ../../obj-ack/libm2.a(Traps.o)
|
|
||||||
../../obj-ack/libm2.a: ../../obj-ack/libm2.a(XXTermcap.o)
|
|
||||||
../../obj-ack/libm2.a: ../../obj-ack/libm2.a(absd.o)
|
|
||||||
../../obj-ack/libm2.a: ../../obj-ack/libm2.a(absf.o)
|
|
||||||
../../obj-ack/libm2.a: ../../obj-ack/libm2.a(absi.o)
|
|
||||||
../../obj-ack/libm2.a: ../../obj-ack/libm2.a(absl.o)
|
|
||||||
../../obj-ack/libm2.a: ../../obj-ack/libm2.a(blockmove.o)
|
|
||||||
../../obj-ack/libm2.a: ../../obj-ack/libm2.a(cap.o)
|
|
||||||
../../obj-ack/libm2.a: ../../obj-ack/libm2.a(catch.o)
|
|
||||||
../../obj-ack/libm2.a: ../../obj-ack/libm2.a(confarray.o)
|
|
||||||
../../obj-ack/libm2.a: ../../obj-ack/libm2.a(dvi.o)
|
|
||||||
../../obj-ack/libm2.a: ../../obj-ack/libm2.a(halt.o)
|
|
||||||
../../obj-ack/libm2.a: ../../obj-ack/libm2.a(head_m2.o)
|
|
||||||
../../obj-ack/libm2.a: ../../obj-ack/libm2.a(init.o)
|
|
||||||
../../obj-ack/libm2.a: ../../obj-ack/libm2.a(load.o)
|
|
||||||
../../obj-ack/libm2.a: ../../obj-ack/libm2.a(par_misc.o)
|
|
||||||
../../obj-ack/libm2.a: ../../obj-ack/libm2.a(random.o)
|
|
||||||
../../obj-ack/libm2.a: ../../obj-ack/libm2.a(rcka.o)
|
|
||||||
../../obj-ack/libm2.a: ../../obj-ack/libm2.a(rcki.o)
|
|
||||||
../../obj-ack/libm2.a: ../../obj-ack/libm2.a(rckil.o)
|
|
||||||
../../obj-ack/libm2.a: ../../obj-ack/libm2.a(rcku.o)
|
|
||||||
../../obj-ack/libm2.a: ../../obj-ack/libm2.a(rckul.o)
|
|
||||||
../../obj-ack/libm2.a: ../../obj-ack/libm2.a(sigtrp.o)
|
|
||||||
../../obj-ack/libm2.a: ../../obj-ack/libm2.a(stackprio.o)
|
|
||||||
../../obj-ack/libm2.a: ../../obj-ack/libm2.a(store.o)
|
|
||||||
../../obj-ack/libm2.a: ../../obj-ack/libm2.a(ucheck.o)
|
|
||||||
|
|
||||||
../../obj-ack/libm2.a:
|
|
||||||
ar cr ../../obj-ack/libm2.a ../../obj-ack/./ack/libm2/*.o
|
|
||||||
rm ../../obj-ack/./ack/libm2/*.o
|
|
||||||
|
|
||||||
../../obj-ack/libm2.a(Arguments.o): Arguments.c
|
|
||||||
cc -O -I../h -wo -c -o ../../obj-ack/./ack/libm2/Arguments.o Arguments.c
|
|
||||||
../../obj-ack/libm2.a(ArraySort.o): ArraySort.mod
|
|
||||||
m2 -O -ws -n -c -o ../../obj-ack/./ack/libm2/ArraySort.o ArraySort.mod
|
|
||||||
../../obj-ack/libm2.a(CSP.o): CSP.mod
|
|
||||||
m2 -O -ws -n -c -o ../../obj-ack/./ack/libm2/CSP.o CSP.mod
|
|
||||||
../../obj-ack/libm2.a(Conversion.o): Conversion.mod
|
|
||||||
m2 -O -ws -n -c -o ../../obj-ack/./ack/libm2/Conversion.o Conversion.mod
|
|
||||||
../../obj-ack/libm2.a(EM.o): EM.e
|
|
||||||
cc -O -I../h -wo -c -o ../../obj-ack/./ack/libm2/EM.o EM.e
|
|
||||||
../../obj-ack/libm2.a(InOut.o): InOut.mod
|
|
||||||
m2 -O -ws -n -c -o ../../obj-ack/./ack/libm2/InOut.o InOut.mod
|
|
||||||
../../obj-ack/libm2.a(LtoUset.o): LtoUset.e
|
|
||||||
cc -O -I../h -wo -c -o ../../obj-ack/./ack/libm2/LtoUset.o LtoUset.e
|
|
||||||
../../obj-ack/libm2.a(MathLib0.o): MathLib0.mod
|
|
||||||
m2 -O -ws -n -c -o ../../obj-ack/./ack/libm2/MathLib0.o MathLib0.mod
|
|
||||||
../../obj-ack/libm2.a(Mathlib.o): Mathlib.mod
|
|
||||||
m2 -O -ws -n -c -o ../../obj-ack/./ack/libm2/Mathlib.o Mathlib.mod
|
|
||||||
../../obj-ack/libm2.a(PascalIO.o): PascalIO.mod
|
|
||||||
m2 -O -ws -n -c -o ../../obj-ack/./ack/libm2/PascalIO.o PascalIO.mod
|
|
||||||
../../obj-ack/libm2.a(Processes.o): Processes.mod
|
|
||||||
m2 -O -ws -n -c -o ../../obj-ack/./ack/libm2/Processes.o Processes.mod
|
|
||||||
../../obj-ack/libm2.a(RealConver.o): RealConver.mod
|
|
||||||
m2 -O -ws -n -c -o ../../obj-ack/./ack/libm2/RealConver.o RealConver.mod
|
|
||||||
../../obj-ack/libm2.a(RealInOut.o): RealInOut.mod
|
|
||||||
m2 -O -ws -n -c -o ../../obj-ack/./ack/libm2/RealInOut.o RealInOut.mod
|
|
||||||
../../obj-ack/libm2.a(SYSTEM.o): SYSTEM.c
|
|
||||||
cc -O -I../h -wo -c -o ../../obj-ack/./ack/libm2/SYSTEM.o SYSTEM.c
|
|
||||||
../../obj-ack/libm2.a(Semaphores.o): Semaphores.mod
|
|
||||||
m2 -O -ws -n -c -o ../../obj-ack/./ack/libm2/Semaphores.o Semaphores.mod
|
|
||||||
../../obj-ack/libm2.a(Storage.o): Storage.mod
|
|
||||||
m2 -O -ws -n -c -o ../../obj-ack/./ack/libm2/Storage.o Storage.mod
|
|
||||||
../../obj-ack/libm2.a(StrAss.o): StrAss.c
|
|
||||||
cc -O -I../h -wo -c -o ../../obj-ack/./ack/libm2/StrAss.o StrAss.c
|
|
||||||
../../obj-ack/libm2.a(Streams.o): Streams.mod
|
|
||||||
m2 -O -ws -n -c -o ../../obj-ack/./ack/libm2/Streams.o Streams.mod
|
|
||||||
../../obj-ack/libm2.a(Strings.o): Strings.mod
|
|
||||||
m2 -O -ws -n -c -o ../../obj-ack/./ack/libm2/Strings.o Strings.mod
|
|
||||||
../../obj-ack/libm2.a(Termcap.o): Termcap.mod
|
|
||||||
m2 -O -ws -n -c -o ../../obj-ack/./ack/libm2/Termcap.o Termcap.mod
|
|
||||||
../../obj-ack/libm2.a(Terminal.o): Terminal.mod
|
|
||||||
m2 -O -ws -n -c -o ../../obj-ack/./ack/libm2/Terminal.o Terminal.mod
|
|
||||||
../../obj-ack/libm2.a(Traps.o): Traps.mod
|
|
||||||
m2 -O -ws -n -c -o ../../obj-ack/./ack/libm2/Traps.o Traps.mod
|
|
||||||
../../obj-ack/libm2.a(XXTermcap.o): XXTermcap.c
|
|
||||||
cc -O -I../h -wo -c -o ../../obj-ack/./ack/libm2/XXTermcap.o XXTermcap.c
|
|
||||||
../../obj-ack/libm2.a(absd.o): absd.c
|
|
||||||
cc -O -I../h -wo -c -o ../../obj-ack/./ack/libm2/absd.o absd.c
|
|
||||||
../../obj-ack/libm2.a(absf.o): absf.e
|
|
||||||
cc -O -I../h -wo -c -o ../../obj-ack/./ack/libm2/absf.o absf.e
|
|
||||||
../../obj-ack/libm2.a(absi.o): absi.c
|
|
||||||
cc -O -I../h -wo -c -o ../../obj-ack/./ack/libm2/absi.o absi.c
|
|
||||||
../../obj-ack/libm2.a(absl.o): absl.c
|
|
||||||
cc -O -I../h -wo -c -o ../../obj-ack/./ack/libm2/absl.o absl.c
|
|
||||||
../../obj-ack/libm2.a(blockmove.o): blockmove.c
|
|
||||||
cc -O -I../h -wo -c -o ../../obj-ack/./ack/libm2/blockmove.o blockmove.c
|
|
||||||
../../obj-ack/libm2.a(cap.o): cap.c
|
|
||||||
cc -O -I../h -wo -c -o ../../obj-ack/./ack/libm2/cap.o cap.c
|
|
||||||
../../obj-ack/libm2.a(catch.o): catch.c
|
|
||||||
cc -O -I../h -wo -c -o ../../obj-ack/./ack/libm2/catch.o catch.c
|
|
||||||
../../obj-ack/libm2.a(confarray.o): confarray.c
|
|
||||||
cc -O -I../h -wo -c -o ../../obj-ack/./ack/libm2/confarray.o confarray.c
|
|
||||||
../../obj-ack/libm2.a(dvi.o): dvi.c
|
|
||||||
cc -O -I../h -wo -c -o ../../obj-ack/./ack/libm2/dvi.o dvi.c
|
|
||||||
../../obj-ack/libm2.a(halt.o): halt.c
|
|
||||||
cc -O -I../h -wo -c -o ../../obj-ack/./ack/libm2/halt.o halt.c
|
|
||||||
../../obj-ack/libm2.a(head_m2.o): head_m2.e
|
|
||||||
cc -O -I../h -wo -c -o ../../obj-ack/./ack/libm2/head_m2.o head_m2.e
|
|
||||||
../../obj-ack/libm2.a(init.o): init.c
|
|
||||||
cc -O -I../h -wo -c -o ../../obj-ack/./ack/libm2/init.o init.c
|
|
||||||
../../obj-ack/libm2.a(load.o): load.c
|
|
||||||
cc -O -I../h -wo -c -o ../../obj-ack/./ack/libm2/load.o load.c
|
|
||||||
../../obj-ack/libm2.a(par_misc.o): par_misc.e
|
|
||||||
cc -O -I../h -wo -c -o ../../obj-ack/./ack/libm2/par_misc.o par_misc.e
|
|
||||||
../../obj-ack/libm2.a(random.o): random.mod
|
|
||||||
m2 -O -ws -n -c -o ../../obj-ack/./ack/libm2/random.o random.mod
|
|
||||||
../../obj-ack/libm2.a(rcka.o): rcka.c
|
|
||||||
cc -O -I../h -wo -c -o ../../obj-ack/./ack/libm2/rcka.o rcka.c
|
|
||||||
../../obj-ack/libm2.a(rcki.o): rcki.c
|
|
||||||
cc -O -I../h -wo -c -o ../../obj-ack/./ack/libm2/rcki.o rcki.c
|
|
||||||
../../obj-ack/libm2.a(rckil.o): rckil.c
|
|
||||||
cc -O -I../h -wo -c -o ../../obj-ack/./ack/libm2/rckil.o rckil.c
|
|
||||||
../../obj-ack/libm2.a(rcku.o): rcku.c
|
|
||||||
cc -O -I../h -wo -c -o ../../obj-ack/./ack/libm2/rcku.o rcku.c
|
|
||||||
../../obj-ack/libm2.a(rckul.o): rckul.c
|
|
||||||
cc -O -I../h -wo -c -o ../../obj-ack/./ack/libm2/rckul.o rckul.c
|
|
||||||
../../obj-ack/libm2.a(sigtrp.o): sigtrp.c
|
|
||||||
cc -O -I../h -wo -c -o ../../obj-ack/./ack/libm2/sigtrp.o sigtrp.c
|
|
||||||
../../obj-ack/libm2.a(stackprio.o): stackprio.c
|
|
||||||
cc -O -I../h -wo -c -o ../../obj-ack/./ack/libm2/stackprio.o stackprio.c
|
|
||||||
../../obj-ack/libm2.a(store.o): store.c
|
|
||||||
cc -O -I../h -wo -c -o ../../obj-ack/./ack/libm2/store.o store.c
|
|
||||||
../../obj-ack/libm2.a(ucheck.o): ucheck.c
|
|
||||||
cc -O -I../h -wo -c -o ../../obj-ack/./ack/libm2/ucheck.o ucheck.c
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
clean::
|
|
||||||
rm -f ../../obj-ack/./ack/libm2/*
|
|
||||||
|
|
||||||
include Makedepend-ack
|
|
||||||
include .depend-ack
|
|
||||||
|
|
||||||
include Makedepend-gnu
|
|
||||||
include .depend-gnu
|
|
||||||
|
|
@ -1,254 +0,0 @@
|
||||||
#Generated from ./ack/libp/Makefile.in
|
|
||||||
all: all-ack
|
|
||||||
|
|
||||||
all-ack:
|
|
||||||
all-gnu:
|
|
||||||
|
|
||||||
makefiles: Makefile
|
|
||||||
|
|
||||||
Makefile: Makefile.in
|
|
||||||
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
|
|
||||||
|
|
@ -1,41 +0,0 @@
|
||||||
#Generated from ./ack/liby/Makefile.in
|
|
||||||
all: all-ack
|
|
||||||
|
|
||||||
all-ack:
|
|
||||||
all-gnu:
|
|
||||||
|
|
||||||
makefiles: Makefile
|
|
||||||
|
|
||||||
Makefile: Makefile.in
|
|
||||||
sh ../../generate.sh ./ack/liby ../../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/liby.a
|
|
||||||
|
|
||||||
../../obj-ack/liby.a: ../../obj-ack/liby.a(main.o)
|
|
||||||
../../obj-ack/liby.a: ../../obj-ack/liby.a(yyerror.o)
|
|
||||||
|
|
||||||
../../obj-ack/liby.a:
|
|
||||||
ar cr ../../obj-ack/liby.a ../../obj-ack/./ack/liby/*.o
|
|
||||||
rm ../../obj-ack/./ack/liby/*.o
|
|
||||||
|
|
||||||
../../obj-ack/liby.a(main.o): main.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -wo -c -o ../../obj-ack/./ack/liby/main.o main.c
|
|
||||||
../../obj-ack/liby.a(yyerror.o): yyerror.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -wo -c -o ../../obj-ack/./ack/liby/yyerror.o yyerror.c
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
clean::
|
|
||||||
rm -f ../../obj-ack/./ack/liby/*
|
|
||||||
|
|
||||||
include Makedepend-ack
|
|
||||||
include .depend-ack
|
|
||||||
|
|
||||||
include Makedepend-gnu
|
|
||||||
include .depend-gnu
|
|
||||||
|
|
@ -1,47 +0,0 @@
|
||||||
#Generated from ./ack/math/Makefile.in
|
|
||||||
all: all-ack
|
|
||||||
|
|
||||||
all-ack:
|
|
||||||
all-gnu:
|
|
||||||
|
|
||||||
makefiles: Makefile
|
|
||||||
|
|
||||||
Makefile: Makefile.in
|
|
||||||
sh ../../generate.sh ./ack/math ../../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/libc.a
|
|
||||||
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(frexp.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(modf.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(isnan.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(ldexp.o)
|
|
||||||
|
|
||||||
../../obj-ack/libc.a:
|
|
||||||
ar cr ../../obj-ack/libc.a ../../obj-ack/./ack/math/*.o
|
|
||||||
rm ../../obj-ack/./ack/math/*.o
|
|
||||||
|
|
||||||
../../obj-ack/libc.a(frexp.o): frexp.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../../obj-ack/./ack/math/frexp.o frexp.s
|
|
||||||
../../obj-ack/libc.a(modf.o): modf.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../../obj-ack/./ack/math/modf.o modf.s
|
|
||||||
../../obj-ack/libc.a(isnan.o): isnan.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../../obj-ack/./ack/math/isnan.o isnan.c
|
|
||||||
../../obj-ack/libc.a(ldexp.o): ldexp.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../../obj-ack/./ack/math/ldexp.o ldexp.c
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
clean::
|
|
||||||
rm -f ../../obj-ack/./ack/math/*
|
|
||||||
|
|
||||||
include Makedepend-ack
|
|
||||||
include .depend-ack
|
|
||||||
|
|
||||||
include Makedepend-gnu
|
|
||||||
include .depend-gnu
|
|
||||||
|
|
@ -1,38 +0,0 @@
|
||||||
#Generated from ./ack/rts/Makefile.in
|
|
||||||
all: all-ack
|
|
||||||
|
|
||||||
all-ack:
|
|
||||||
all-gnu:
|
|
||||||
|
|
||||||
makefiles: Makefile
|
|
||||||
|
|
||||||
Makefile: Makefile.in
|
|
||||||
sh ../../generate.sh ./ack/rts ../../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/libc.a
|
|
||||||
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(setjmp.o)
|
|
||||||
|
|
||||||
../../obj-ack/libc.a:
|
|
||||||
ar cr ../../obj-ack/libc.a ../../obj-ack/./ack/rts/*.o
|
|
||||||
rm ../../obj-ack/./ack/rts/*.o
|
|
||||||
|
|
||||||
../../obj-ack/libc.a(setjmp.o): setjmp.e
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../../obj-ack/./ack/rts/setjmp.o setjmp.e
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
clean::
|
|
||||||
rm -f ../../obj-ack/./ack/rts/*
|
|
||||||
|
|
||||||
include Makedepend-ack
|
|
||||||
include .depend-ack
|
|
||||||
|
|
||||||
include Makedepend-gnu
|
|
||||||
include .depend-gnu
|
|
||||||
|
|
@ -1,491 +0,0 @@
|
||||||
#Generated from ./ansi/Makefile.in
|
|
||||||
all: all-ack
|
|
||||||
|
|
||||||
all-ack:
|
|
||||||
all-gnu:
|
|
||||||
|
|
||||||
makefiles: Makefile
|
|
||||||
|
|
||||||
Makefile: Makefile.in
|
|
||||||
sh ../generate.sh ./ansi ../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/libc.a
|
|
||||||
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(abort.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(abs.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(asctime.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(assert.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(atexit.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(atof.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(atoi.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(atol.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(bsearch.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(calloc.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(chartab.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(clock.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(ctime.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(difftime.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(div.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(errlist.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(exit.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(ext_comp.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(getenv.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(gmtime.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(isalnum.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(isalpha.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(isascii.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(iscntrl.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(isdigit.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(isgraph.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(islower.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(isprint.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(ispunct.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(isspace.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(isupper.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(isxdigit.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(labs.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(ldiv.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(localeconv.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(localtime.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(malloc.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(mblen.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(mbstowcs.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(mbtowc.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(misc.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(mktime.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(qsort.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(raise.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(rand.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(setlocale.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(sigmisc.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(signal.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(strcoll.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(strcspn.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(strerror.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(strftime.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(strpbrk.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(strspn.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(strstr.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(strtok.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(strtol.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(strxfrm.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(system.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(tolower.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(toupper.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(tzset.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(wcstombs.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(wctomb.o)
|
|
||||||
|
|
||||||
../obj-ack/libc.a:
|
|
||||||
ar cr ../obj-ack/libc.a ../obj-ack/./ansi/*.o
|
|
||||||
rm ../obj-ack/./ansi/*.o
|
|
||||||
|
|
||||||
../obj-ack/libc.a(abort.o): abort.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/abort.o abort.c
|
|
||||||
../obj-ack/libc.a(abs.o): abs.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/abs.o abs.c
|
|
||||||
../obj-ack/libc.a(asctime.o): asctime.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/asctime.o asctime.c
|
|
||||||
../obj-ack/libc.a(assert.o): assert.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/assert.o assert.c
|
|
||||||
../obj-ack/libc.a(atexit.o): atexit.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/atexit.o atexit.c
|
|
||||||
../obj-ack/libc.a(atof.o): atof.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/atof.o atof.c
|
|
||||||
../obj-ack/libc.a(atoi.o): atoi.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/atoi.o atoi.c
|
|
||||||
../obj-ack/libc.a(atol.o): atol.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/atol.o atol.c
|
|
||||||
../obj-ack/libc.a(bsearch.o): bsearch.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/bsearch.o bsearch.c
|
|
||||||
../obj-ack/libc.a(calloc.o): calloc.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/calloc.o calloc.c
|
|
||||||
../obj-ack/libc.a(chartab.o): chartab.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/chartab.o chartab.c
|
|
||||||
../obj-ack/libc.a(clock.o): clock.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/clock.o clock.c
|
|
||||||
../obj-ack/libc.a(ctime.o): ctime.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/ctime.o ctime.c
|
|
||||||
../obj-ack/libc.a(difftime.o): difftime.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/difftime.o difftime.c
|
|
||||||
../obj-ack/libc.a(div.o): div.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/div.o div.c
|
|
||||||
../obj-ack/libc.a(errlist.o): errlist.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/errlist.o errlist.c
|
|
||||||
../obj-ack/libc.a(exit.o): exit.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/exit.o exit.c
|
|
||||||
../obj-ack/libc.a(ext_comp.o): ext_comp.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/ext_comp.o ext_comp.c
|
|
||||||
../obj-ack/libc.a(getenv.o): getenv.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/getenv.o getenv.c
|
|
||||||
../obj-ack/libc.a(gmtime.o): gmtime.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/gmtime.o gmtime.c
|
|
||||||
../obj-ack/libc.a(isalnum.o): isalnum.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/isalnum.o isalnum.c
|
|
||||||
../obj-ack/libc.a(isalpha.o): isalpha.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/isalpha.o isalpha.c
|
|
||||||
../obj-ack/libc.a(isascii.o): isascii.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/isascii.o isascii.c
|
|
||||||
../obj-ack/libc.a(iscntrl.o): iscntrl.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/iscntrl.o iscntrl.c
|
|
||||||
../obj-ack/libc.a(isdigit.o): isdigit.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/isdigit.o isdigit.c
|
|
||||||
../obj-ack/libc.a(isgraph.o): isgraph.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/isgraph.o isgraph.c
|
|
||||||
../obj-ack/libc.a(islower.o): islower.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/islower.o islower.c
|
|
||||||
../obj-ack/libc.a(isprint.o): isprint.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/isprint.o isprint.c
|
|
||||||
../obj-ack/libc.a(ispunct.o): ispunct.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/ispunct.o ispunct.c
|
|
||||||
../obj-ack/libc.a(isspace.o): isspace.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/isspace.o isspace.c
|
|
||||||
../obj-ack/libc.a(isupper.o): isupper.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/isupper.o isupper.c
|
|
||||||
../obj-ack/libc.a(isxdigit.o): isxdigit.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/isxdigit.o isxdigit.c
|
|
||||||
../obj-ack/libc.a(labs.o): labs.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/labs.o labs.c
|
|
||||||
../obj-ack/libc.a(ldiv.o): ldiv.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/ldiv.o ldiv.c
|
|
||||||
../obj-ack/libc.a(localeconv.o): localeconv.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/localeconv.o localeconv.c
|
|
||||||
../obj-ack/libc.a(localtime.o): localtime.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/localtime.o localtime.c
|
|
||||||
../obj-ack/libc.a(malloc.o): malloc.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/malloc.o malloc.c
|
|
||||||
../obj-ack/libc.a(mblen.o): mblen.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/mblen.o mblen.c
|
|
||||||
../obj-ack/libc.a(mbstowcs.o): mbstowcs.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/mbstowcs.o mbstowcs.c
|
|
||||||
../obj-ack/libc.a(mbtowc.o): mbtowc.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/mbtowc.o mbtowc.c
|
|
||||||
../obj-ack/libc.a(misc.o): misc.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/misc.o misc.c
|
|
||||||
../obj-ack/libc.a(mktime.o): mktime.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/mktime.o mktime.c
|
|
||||||
../obj-ack/libc.a(qsort.o): qsort.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/qsort.o qsort.c
|
|
||||||
../obj-ack/libc.a(raise.o): raise.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/raise.o raise.c
|
|
||||||
../obj-ack/libc.a(rand.o): rand.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/rand.o rand.c
|
|
||||||
../obj-ack/libc.a(setlocale.o): setlocale.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/setlocale.o setlocale.c
|
|
||||||
../obj-ack/libc.a(sigmisc.o): sigmisc.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/sigmisc.o sigmisc.c
|
|
||||||
../obj-ack/libc.a(signal.o): signal.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/signal.o signal.c
|
|
||||||
../obj-ack/libc.a(strcoll.o): strcoll.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/strcoll.o strcoll.c
|
|
||||||
../obj-ack/libc.a(strcspn.o): strcspn.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/strcspn.o strcspn.c
|
|
||||||
../obj-ack/libc.a(strerror.o): strerror.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/strerror.o strerror.c
|
|
||||||
../obj-ack/libc.a(strftime.o): strftime.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/strftime.o strftime.c
|
|
||||||
../obj-ack/libc.a(strpbrk.o): strpbrk.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/strpbrk.o strpbrk.c
|
|
||||||
../obj-ack/libc.a(strspn.o): strspn.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/strspn.o strspn.c
|
|
||||||
../obj-ack/libc.a(strstr.o): strstr.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/strstr.o strstr.c
|
|
||||||
../obj-ack/libc.a(strtok.o): strtok.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/strtok.o strtok.c
|
|
||||||
../obj-ack/libc.a(strtol.o): strtol.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/strtol.o strtol.c
|
|
||||||
../obj-ack/libc.a(strxfrm.o): strxfrm.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/strxfrm.o strxfrm.c
|
|
||||||
../obj-ack/libc.a(system.o): system.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/system.o system.c
|
|
||||||
../obj-ack/libc.a(tolower.o): tolower.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/tolower.o tolower.c
|
|
||||||
../obj-ack/libc.a(toupper.o): toupper.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/toupper.o toupper.c
|
|
||||||
../obj-ack/libc.a(tzset.o): tzset.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/tzset.o tzset.c
|
|
||||||
../obj-ack/libc.a(wcstombs.o): wcstombs.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/wcstombs.o wcstombs.c
|
|
||||||
../obj-ack/libc.a(wctomb.o): wctomb.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-ack/./ansi/wctomb.o wctomb.c
|
|
||||||
|
|
||||||
all-gnu: ../obj-gnu/libc.a
|
|
||||||
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/abort.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/abs.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/asctime.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/assert.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/atexit.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/atof.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/atoi.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/atol.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/bsearch.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/calloc.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/chartab.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/clock.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/ctime.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/difftime.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/div.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/errlist.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/exit.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/ext_comp.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/getenv.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/gmtime.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/isalnum.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/isalpha.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/isascii.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/iscntrl.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/isdigit.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/isgraph.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/islower.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/isprint.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/ispunct.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/isspace.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/isupper.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/isxdigit.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/labs.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/ldiv.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/localeconv.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/localtime.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/malloc.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/mblen.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/mbstowcs.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/mbtowc.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/misc.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/mktime.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/qsort.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/raise.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/rand.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/setlocale.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/sigmisc.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/signal.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/strcoll.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/strcspn.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/strerror.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/strftime.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/strpbrk.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/strspn.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/strstr.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/strtok.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/strtol.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/strxfrm.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/system.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/tolower.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/toupper.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/tzset.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/wcstombs.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ansi/wctomb.o
|
|
||||||
|
|
||||||
../obj-gnu/libc.a:
|
|
||||||
gar cr ../obj-gnu/libc.a $?
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/abort.o: abort.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/abort.o abort.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/abs.o: abs.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/abs.o abs.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/asctime.o: asctime.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/asctime.o asctime.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/assert.o: assert.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/assert.o assert.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/atexit.o: atexit.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/atexit.o atexit.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/atof.o: atof.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/atof.o atof.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/atoi.o: atoi.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/atoi.o atoi.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/atol.o: atol.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/atol.o atol.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/bsearch.o: bsearch.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/bsearch.o bsearch.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/calloc.o: calloc.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/calloc.o calloc.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/chartab.o: chartab.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/chartab.o chartab.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/clock.o: clock.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/clock.o clock.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/ctime.o: ctime.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/ctime.o ctime.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/difftime.o: difftime.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/difftime.o difftime.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/div.o: div.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/div.o div.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/errlist.o: errlist.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/errlist.o errlist.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/exit.o: exit.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/exit.o exit.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/ext_comp.o: ext_comp.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/ext_comp.o ext_comp.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/getenv.o: getenv.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/getenv.o getenv.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/gmtime.o: gmtime.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/gmtime.o gmtime.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/isalnum.o: isalnum.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/isalnum.o isalnum.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/isalpha.o: isalpha.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/isalpha.o isalpha.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/isascii.o: isascii.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/isascii.o isascii.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/iscntrl.o: iscntrl.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/iscntrl.o iscntrl.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/isdigit.o: isdigit.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/isdigit.o isdigit.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/isgraph.o: isgraph.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/isgraph.o isgraph.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/islower.o: islower.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/islower.o islower.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/isprint.o: isprint.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/isprint.o isprint.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/ispunct.o: ispunct.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/ispunct.o ispunct.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/isspace.o: isspace.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/isspace.o isspace.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/isupper.o: isupper.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/isupper.o isupper.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/isxdigit.o: isxdigit.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/isxdigit.o isxdigit.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/labs.o: labs.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/labs.o labs.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/ldiv.o: ldiv.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/ldiv.o ldiv.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/localeconv.o: localeconv.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/localeconv.o localeconv.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/localtime.o: localtime.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/localtime.o localtime.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/malloc.o: malloc.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/malloc.o malloc.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/mblen.o: mblen.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/mblen.o mblen.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/mbstowcs.o: mbstowcs.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/mbstowcs.o mbstowcs.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/mbtowc.o: mbtowc.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/mbtowc.o mbtowc.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/misc.o: misc.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/misc.o misc.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/mktime.o: mktime.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/mktime.o mktime.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/qsort.o: qsort.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/qsort.o qsort.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/raise.o: raise.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/raise.o raise.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/rand.o: rand.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/rand.o rand.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/setlocale.o: setlocale.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/setlocale.o setlocale.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/sigmisc.o: sigmisc.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/sigmisc.o sigmisc.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/signal.o: signal.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/signal.o signal.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/strcoll.o: strcoll.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/strcoll.o strcoll.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/strcspn.o: strcspn.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/strcspn.o strcspn.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/strerror.o: strerror.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/strerror.o strerror.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/strftime.o: strftime.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/strftime.o strftime.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/strpbrk.o: strpbrk.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/strpbrk.o strpbrk.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/strspn.o: strspn.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/strspn.o strspn.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/strstr.o: strstr.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/strstr.o strstr.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/strtok.o: strtok.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/strtok.o strtok.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/strtol.o: strtol.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/strtol.o strtol.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/strxfrm.o: strxfrm.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/strxfrm.o strxfrm.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/system.o: system.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/system.o system.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/tolower.o: tolower.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/tolower.o tolower.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/toupper.o: toupper.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/toupper.o toupper.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/tzset.o: tzset.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/tzset.o tzset.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/wcstombs.o: wcstombs.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/wcstombs.o wcstombs.c
|
|
||||||
|
|
||||||
../obj-gnu/./ansi/wctomb.o: wctomb.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -D__USG -c -o ../obj-gnu/./ansi/wctomb.o wctomb.c
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
clean::
|
|
||||||
rm -f ../obj-ack/./ansi/*
|
|
||||||
rm -f ../obj-gnu/./ansi/*
|
|
||||||
|
|
||||||
include Makedepend-ack
|
|
||||||
include .depend-ack
|
|
||||||
|
|
||||||
include Makedepend-gnu
|
|
||||||
include .depend-gnu
|
|
||||||
|
|
@ -1,309 +0,0 @@
|
||||||
#Generated from ./curses/Makefile.in
|
|
||||||
all: all-ack
|
|
||||||
|
|
||||||
all-ack:
|
|
||||||
all-gnu:
|
|
||||||
|
|
||||||
makefiles: Makefile
|
|
||||||
|
|
||||||
Makefile: Makefile.in
|
|
||||||
sh ../generate.sh ./curses ../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/libcurses.a
|
|
||||||
|
|
||||||
../obj-ack/libcurses.a: ../obj-ack/libcurses.a(beep.o)
|
|
||||||
../obj-ack/libcurses.a: ../obj-ack/libcurses.a(charpick.o)
|
|
||||||
../obj-ack/libcurses.a: ../obj-ack/libcurses.a(curs_set.o)
|
|
||||||
../obj-ack/libcurses.a: ../obj-ack/libcurses.a(cursesio.o)
|
|
||||||
../obj-ack/libcurses.a: ../obj-ack/libcurses.a(endwin.o)
|
|
||||||
../obj-ack/libcurses.a: ../obj-ack/libcurses.a(flash.o)
|
|
||||||
../obj-ack/libcurses.a: ../obj-ack/libcurses.a(initscr.o)
|
|
||||||
../obj-ack/libcurses.a: ../obj-ack/libcurses.a(longname.o)
|
|
||||||
../obj-ack/libcurses.a: ../obj-ack/libcurses.a(move.o)
|
|
||||||
../obj-ack/libcurses.a: ../obj-ack/libcurses.a(mvcursor.o)
|
|
||||||
../obj-ack/libcurses.a: ../obj-ack/libcurses.a(newwin.o)
|
|
||||||
../obj-ack/libcurses.a: ../obj-ack/libcurses.a(options.o)
|
|
||||||
../obj-ack/libcurses.a: ../obj-ack/libcurses.a(overlay.o)
|
|
||||||
../obj-ack/libcurses.a: ../obj-ack/libcurses.a(prntscan.o)
|
|
||||||
../obj-ack/libcurses.a: ../obj-ack/libcurses.a(refresh.o)
|
|
||||||
../obj-ack/libcurses.a: ../obj-ack/libcurses.a(scrreg.o)
|
|
||||||
../obj-ack/libcurses.a: ../obj-ack/libcurses.a(setterm.o)
|
|
||||||
../obj-ack/libcurses.a: ../obj-ack/libcurses.a(tabsize.o)
|
|
||||||
../obj-ack/libcurses.a: ../obj-ack/libcurses.a(termmisc.o)
|
|
||||||
../obj-ack/libcurses.a: ../obj-ack/libcurses.a(unctrl.o)
|
|
||||||
../obj-ack/libcurses.a: ../obj-ack/libcurses.a(update.o)
|
|
||||||
../obj-ack/libcurses.a: ../obj-ack/libcurses.a(waddch.o)
|
|
||||||
../obj-ack/libcurses.a: ../obj-ack/libcurses.a(waddstr.o)
|
|
||||||
../obj-ack/libcurses.a: ../obj-ack/libcurses.a(wbox.o)
|
|
||||||
../obj-ack/libcurses.a: ../obj-ack/libcurses.a(wclear.o)
|
|
||||||
../obj-ack/libcurses.a: ../obj-ack/libcurses.a(wclrtobot.o)
|
|
||||||
../obj-ack/libcurses.a: ../obj-ack/libcurses.a(wclrtoeol.o)
|
|
||||||
../obj-ack/libcurses.a: ../obj-ack/libcurses.a(wdelch.o)
|
|
||||||
../obj-ack/libcurses.a: ../obj-ack/libcurses.a(wdeleteln.o)
|
|
||||||
../obj-ack/libcurses.a: ../obj-ack/libcurses.a(werase.o)
|
|
||||||
../obj-ack/libcurses.a: ../obj-ack/libcurses.a(wgetch.o)
|
|
||||||
../obj-ack/libcurses.a: ../obj-ack/libcurses.a(wgetstr.o)
|
|
||||||
../obj-ack/libcurses.a: ../obj-ack/libcurses.a(windel.o)
|
|
||||||
../obj-ack/libcurses.a: ../obj-ack/libcurses.a(winmove.o)
|
|
||||||
../obj-ack/libcurses.a: ../obj-ack/libcurses.a(winsch.o)
|
|
||||||
../obj-ack/libcurses.a: ../obj-ack/libcurses.a(winscrol.o)
|
|
||||||
../obj-ack/libcurses.a: ../obj-ack/libcurses.a(winsertln.o)
|
|
||||||
../obj-ack/libcurses.a: ../obj-ack/libcurses.a(wintouch.o)
|
|
||||||
|
|
||||||
../obj-ack/libcurses.a:
|
|
||||||
ar cr ../obj-ack/libcurses.a ../obj-ack/./curses/*.o
|
|
||||||
rm ../obj-ack/./curses/*.o
|
|
||||||
|
|
||||||
../obj-ack/libcurses.a(beep.o): beep.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-ack/./curses/beep.o beep.c
|
|
||||||
../obj-ack/libcurses.a(charpick.o): charpick.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-ack/./curses/charpick.o charpick.c
|
|
||||||
../obj-ack/libcurses.a(curs_set.o): curs_set.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-ack/./curses/curs_set.o curs_set.c
|
|
||||||
../obj-ack/libcurses.a(cursesio.o): cursesio.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-ack/./curses/cursesio.o cursesio.c
|
|
||||||
../obj-ack/libcurses.a(endwin.o): endwin.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-ack/./curses/endwin.o endwin.c
|
|
||||||
../obj-ack/libcurses.a(flash.o): flash.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-ack/./curses/flash.o flash.c
|
|
||||||
../obj-ack/libcurses.a(initscr.o): initscr.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-ack/./curses/initscr.o initscr.c
|
|
||||||
../obj-ack/libcurses.a(longname.o): longname.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-ack/./curses/longname.o longname.c
|
|
||||||
../obj-ack/libcurses.a(move.o): move.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-ack/./curses/move.o move.c
|
|
||||||
../obj-ack/libcurses.a(mvcursor.o): mvcursor.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-ack/./curses/mvcursor.o mvcursor.c
|
|
||||||
../obj-ack/libcurses.a(newwin.o): newwin.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-ack/./curses/newwin.o newwin.c
|
|
||||||
../obj-ack/libcurses.a(options.o): options.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-ack/./curses/options.o options.c
|
|
||||||
../obj-ack/libcurses.a(overlay.o): overlay.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-ack/./curses/overlay.o overlay.c
|
|
||||||
../obj-ack/libcurses.a(prntscan.o): prntscan.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-ack/./curses/prntscan.o prntscan.c
|
|
||||||
../obj-ack/libcurses.a(refresh.o): refresh.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-ack/./curses/refresh.o refresh.c
|
|
||||||
../obj-ack/libcurses.a(scrreg.o): scrreg.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-ack/./curses/scrreg.o scrreg.c
|
|
||||||
../obj-ack/libcurses.a(setterm.o): setterm.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-ack/./curses/setterm.o setterm.c
|
|
||||||
../obj-ack/libcurses.a(tabsize.o): tabsize.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-ack/./curses/tabsize.o tabsize.c
|
|
||||||
../obj-ack/libcurses.a(termmisc.o): termmisc.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-ack/./curses/termmisc.o termmisc.c
|
|
||||||
../obj-ack/libcurses.a(unctrl.o): unctrl.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-ack/./curses/unctrl.o unctrl.c
|
|
||||||
../obj-ack/libcurses.a(update.o): update.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-ack/./curses/update.o update.c
|
|
||||||
../obj-ack/libcurses.a(waddch.o): waddch.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-ack/./curses/waddch.o waddch.c
|
|
||||||
../obj-ack/libcurses.a(waddstr.o): waddstr.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-ack/./curses/waddstr.o waddstr.c
|
|
||||||
../obj-ack/libcurses.a(wbox.o): wbox.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-ack/./curses/wbox.o wbox.c
|
|
||||||
../obj-ack/libcurses.a(wclear.o): wclear.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-ack/./curses/wclear.o wclear.c
|
|
||||||
../obj-ack/libcurses.a(wclrtobot.o): wclrtobot.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-ack/./curses/wclrtobot.o wclrtobot.c
|
|
||||||
../obj-ack/libcurses.a(wclrtoeol.o): wclrtoeol.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-ack/./curses/wclrtoeol.o wclrtoeol.c
|
|
||||||
../obj-ack/libcurses.a(wdelch.o): wdelch.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-ack/./curses/wdelch.o wdelch.c
|
|
||||||
../obj-ack/libcurses.a(wdeleteln.o): wdeleteln.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-ack/./curses/wdeleteln.o wdeleteln.c
|
|
||||||
../obj-ack/libcurses.a(werase.o): werase.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-ack/./curses/werase.o werase.c
|
|
||||||
../obj-ack/libcurses.a(wgetch.o): wgetch.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-ack/./curses/wgetch.o wgetch.c
|
|
||||||
../obj-ack/libcurses.a(wgetstr.o): wgetstr.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-ack/./curses/wgetstr.o wgetstr.c
|
|
||||||
../obj-ack/libcurses.a(windel.o): windel.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-ack/./curses/windel.o windel.c
|
|
||||||
../obj-ack/libcurses.a(winmove.o): winmove.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-ack/./curses/winmove.o winmove.c
|
|
||||||
../obj-ack/libcurses.a(winsch.o): winsch.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-ack/./curses/winsch.o winsch.c
|
|
||||||
../obj-ack/libcurses.a(winscrol.o): winscrol.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-ack/./curses/winscrol.o winscrol.c
|
|
||||||
../obj-ack/libcurses.a(winsertln.o): winsertln.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-ack/./curses/winsertln.o winsertln.c
|
|
||||||
../obj-ack/libcurses.a(wintouch.o): wintouch.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-ack/./curses/wintouch.o wintouch.c
|
|
||||||
|
|
||||||
all-gnu: ../obj-gnu/libcurses.a
|
|
||||||
|
|
||||||
../obj-gnu/libcurses.a: ../obj-gnu/./curses/beep.o
|
|
||||||
../obj-gnu/libcurses.a: ../obj-gnu/./curses/charpick.o
|
|
||||||
../obj-gnu/libcurses.a: ../obj-gnu/./curses/curs_set.o
|
|
||||||
../obj-gnu/libcurses.a: ../obj-gnu/./curses/cursesio.o
|
|
||||||
../obj-gnu/libcurses.a: ../obj-gnu/./curses/endwin.o
|
|
||||||
../obj-gnu/libcurses.a: ../obj-gnu/./curses/flash.o
|
|
||||||
../obj-gnu/libcurses.a: ../obj-gnu/./curses/initscr.o
|
|
||||||
../obj-gnu/libcurses.a: ../obj-gnu/./curses/longname.o
|
|
||||||
../obj-gnu/libcurses.a: ../obj-gnu/./curses/move.o
|
|
||||||
../obj-gnu/libcurses.a: ../obj-gnu/./curses/mvcursor.o
|
|
||||||
../obj-gnu/libcurses.a: ../obj-gnu/./curses/newwin.o
|
|
||||||
../obj-gnu/libcurses.a: ../obj-gnu/./curses/options.o
|
|
||||||
../obj-gnu/libcurses.a: ../obj-gnu/./curses/overlay.o
|
|
||||||
../obj-gnu/libcurses.a: ../obj-gnu/./curses/prntscan.o
|
|
||||||
../obj-gnu/libcurses.a: ../obj-gnu/./curses/refresh.o
|
|
||||||
../obj-gnu/libcurses.a: ../obj-gnu/./curses/scrreg.o
|
|
||||||
../obj-gnu/libcurses.a: ../obj-gnu/./curses/setterm.o
|
|
||||||
../obj-gnu/libcurses.a: ../obj-gnu/./curses/tabsize.o
|
|
||||||
../obj-gnu/libcurses.a: ../obj-gnu/./curses/termmisc.o
|
|
||||||
../obj-gnu/libcurses.a: ../obj-gnu/./curses/unctrl.o
|
|
||||||
../obj-gnu/libcurses.a: ../obj-gnu/./curses/update.o
|
|
||||||
../obj-gnu/libcurses.a: ../obj-gnu/./curses/waddch.o
|
|
||||||
../obj-gnu/libcurses.a: ../obj-gnu/./curses/waddstr.o
|
|
||||||
../obj-gnu/libcurses.a: ../obj-gnu/./curses/wbox.o
|
|
||||||
../obj-gnu/libcurses.a: ../obj-gnu/./curses/wclear.o
|
|
||||||
../obj-gnu/libcurses.a: ../obj-gnu/./curses/wclrtobot.o
|
|
||||||
../obj-gnu/libcurses.a: ../obj-gnu/./curses/wclrtoeol.o
|
|
||||||
../obj-gnu/libcurses.a: ../obj-gnu/./curses/wdelch.o
|
|
||||||
../obj-gnu/libcurses.a: ../obj-gnu/./curses/wdeleteln.o
|
|
||||||
../obj-gnu/libcurses.a: ../obj-gnu/./curses/werase.o
|
|
||||||
../obj-gnu/libcurses.a: ../obj-gnu/./curses/wgetch.o
|
|
||||||
../obj-gnu/libcurses.a: ../obj-gnu/./curses/wgetstr.o
|
|
||||||
../obj-gnu/libcurses.a: ../obj-gnu/./curses/windel.o
|
|
||||||
../obj-gnu/libcurses.a: ../obj-gnu/./curses/winmove.o
|
|
||||||
../obj-gnu/libcurses.a: ../obj-gnu/./curses/winsch.o
|
|
||||||
../obj-gnu/libcurses.a: ../obj-gnu/./curses/winscrol.o
|
|
||||||
../obj-gnu/libcurses.a: ../obj-gnu/./curses/winsertln.o
|
|
||||||
../obj-gnu/libcurses.a: ../obj-gnu/./curses/wintouch.o
|
|
||||||
|
|
||||||
../obj-gnu/libcurses.a:
|
|
||||||
gar cr ../obj-gnu/libcurses.a $?
|
|
||||||
|
|
||||||
../obj-gnu/./curses/beep.o: beep.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-gnu/./curses/beep.o beep.c
|
|
||||||
|
|
||||||
../obj-gnu/./curses/charpick.o: charpick.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-gnu/./curses/charpick.o charpick.c
|
|
||||||
|
|
||||||
../obj-gnu/./curses/curs_set.o: curs_set.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-gnu/./curses/curs_set.o curs_set.c
|
|
||||||
|
|
||||||
../obj-gnu/./curses/cursesio.o: cursesio.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-gnu/./curses/cursesio.o cursesio.c
|
|
||||||
|
|
||||||
../obj-gnu/./curses/endwin.o: endwin.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-gnu/./curses/endwin.o endwin.c
|
|
||||||
|
|
||||||
../obj-gnu/./curses/flash.o: flash.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-gnu/./curses/flash.o flash.c
|
|
||||||
|
|
||||||
../obj-gnu/./curses/initscr.o: initscr.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-gnu/./curses/initscr.o initscr.c
|
|
||||||
|
|
||||||
../obj-gnu/./curses/longname.o: longname.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-gnu/./curses/longname.o longname.c
|
|
||||||
|
|
||||||
../obj-gnu/./curses/move.o: move.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-gnu/./curses/move.o move.c
|
|
||||||
|
|
||||||
../obj-gnu/./curses/mvcursor.o: mvcursor.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-gnu/./curses/mvcursor.o mvcursor.c
|
|
||||||
|
|
||||||
../obj-gnu/./curses/newwin.o: newwin.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-gnu/./curses/newwin.o newwin.c
|
|
||||||
|
|
||||||
../obj-gnu/./curses/options.o: options.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-gnu/./curses/options.o options.c
|
|
||||||
|
|
||||||
../obj-gnu/./curses/overlay.o: overlay.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-gnu/./curses/overlay.o overlay.c
|
|
||||||
|
|
||||||
../obj-gnu/./curses/prntscan.o: prntscan.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-gnu/./curses/prntscan.o prntscan.c
|
|
||||||
|
|
||||||
../obj-gnu/./curses/refresh.o: refresh.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-gnu/./curses/refresh.o refresh.c
|
|
||||||
|
|
||||||
../obj-gnu/./curses/scrreg.o: scrreg.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-gnu/./curses/scrreg.o scrreg.c
|
|
||||||
|
|
||||||
../obj-gnu/./curses/setterm.o: setterm.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-gnu/./curses/setterm.o setterm.c
|
|
||||||
|
|
||||||
../obj-gnu/./curses/tabsize.o: tabsize.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-gnu/./curses/tabsize.o tabsize.c
|
|
||||||
|
|
||||||
../obj-gnu/./curses/termmisc.o: termmisc.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-gnu/./curses/termmisc.o termmisc.c
|
|
||||||
|
|
||||||
../obj-gnu/./curses/unctrl.o: unctrl.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-gnu/./curses/unctrl.o unctrl.c
|
|
||||||
|
|
||||||
../obj-gnu/./curses/update.o: update.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-gnu/./curses/update.o update.c
|
|
||||||
|
|
||||||
../obj-gnu/./curses/waddch.o: waddch.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-gnu/./curses/waddch.o waddch.c
|
|
||||||
|
|
||||||
../obj-gnu/./curses/waddstr.o: waddstr.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-gnu/./curses/waddstr.o waddstr.c
|
|
||||||
|
|
||||||
../obj-gnu/./curses/wbox.o: wbox.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-gnu/./curses/wbox.o wbox.c
|
|
||||||
|
|
||||||
../obj-gnu/./curses/wclear.o: wclear.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-gnu/./curses/wclear.o wclear.c
|
|
||||||
|
|
||||||
../obj-gnu/./curses/wclrtobot.o: wclrtobot.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-gnu/./curses/wclrtobot.o wclrtobot.c
|
|
||||||
|
|
||||||
../obj-gnu/./curses/wclrtoeol.o: wclrtoeol.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-gnu/./curses/wclrtoeol.o wclrtoeol.c
|
|
||||||
|
|
||||||
../obj-gnu/./curses/wdelch.o: wdelch.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-gnu/./curses/wdelch.o wdelch.c
|
|
||||||
|
|
||||||
../obj-gnu/./curses/wdeleteln.o: wdeleteln.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-gnu/./curses/wdeleteln.o wdeleteln.c
|
|
||||||
|
|
||||||
../obj-gnu/./curses/werase.o: werase.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-gnu/./curses/werase.o werase.c
|
|
||||||
|
|
||||||
../obj-gnu/./curses/wgetch.o: wgetch.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-gnu/./curses/wgetch.o wgetch.c
|
|
||||||
|
|
||||||
../obj-gnu/./curses/wgetstr.o: wgetstr.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-gnu/./curses/wgetstr.o wgetstr.c
|
|
||||||
|
|
||||||
../obj-gnu/./curses/windel.o: windel.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-gnu/./curses/windel.o windel.c
|
|
||||||
|
|
||||||
../obj-gnu/./curses/winmove.o: winmove.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-gnu/./curses/winmove.o winmove.c
|
|
||||||
|
|
||||||
../obj-gnu/./curses/winsch.o: winsch.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-gnu/./curses/winsch.o winsch.c
|
|
||||||
|
|
||||||
../obj-gnu/./curses/winscrol.o: winscrol.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-gnu/./curses/winscrol.o winscrol.c
|
|
||||||
|
|
||||||
../obj-gnu/./curses/winsertln.o: winsertln.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-gnu/./curses/winsertln.o winsertln.c
|
|
||||||
|
|
||||||
../obj-gnu/./curses/wintouch.o: wintouch.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -c -o ../obj-gnu/./curses/wintouch.o wintouch.c
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
clean::
|
|
||||||
rm -f ../obj-ack/./curses/*
|
|
||||||
rm -f ../obj-gnu/./curses/*
|
|
||||||
|
|
||||||
include Makedepend-ack
|
|
||||||
include .depend-ack
|
|
||||||
|
|
||||||
include Makedepend-gnu
|
|
||||||
include .depend-gnu
|
|
||||||
|
|
@ -1,50 +0,0 @@
|
||||||
#Generated from ./dummy/Makefile.in
|
|
||||||
all: all-ack
|
|
||||||
|
|
||||||
all-ack:
|
|
||||||
all-gnu:
|
|
||||||
|
|
||||||
makefiles: Makefile
|
|
||||||
|
|
||||||
Makefile: Makefile.in
|
|
||||||
sh ../generate.sh ./dummy ../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/libm.a
|
|
||||||
|
|
||||||
../obj-ack/libm.a: ../obj-ack/libm.a(dummy.o)
|
|
||||||
|
|
||||||
../obj-ack/libm.a:
|
|
||||||
ar cr ../obj-ack/libm.a ../obj-ack/./dummy/*.o
|
|
||||||
rm ../obj-ack/./dummy/*.o
|
|
||||||
|
|
||||||
../obj-ack/libm.a(dummy.o): dummy.c
|
|
||||||
cc -c -o ../obj-ack/./dummy/dummy.o dummy.c
|
|
||||||
|
|
||||||
all-gnu: ../obj-gnu/libm.a
|
|
||||||
|
|
||||||
../obj-gnu/libm.a: ../obj-gnu/./dummy/dummy.o
|
|
||||||
|
|
||||||
../obj-gnu/libm.a:
|
|
||||||
gar cr ../obj-gnu/libm.a $?
|
|
||||||
|
|
||||||
../obj-gnu/./dummy/dummy.o: dummy.c
|
|
||||||
gcc -c -o ../obj-gnu/./dummy/dummy.o dummy.c
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
clean::
|
|
||||||
rm -f ../obj-ack/./dummy/*
|
|
||||||
rm -f ../obj-gnu/./dummy/*
|
|
||||||
|
|
||||||
include Makedepend-ack
|
|
||||||
include .depend-ack
|
|
||||||
|
|
||||||
include Makedepend-gnu
|
|
||||||
include .depend-gnu
|
|
||||||
|
|
@ -1,64 +0,0 @@
|
||||||
#Generated from ./editline/Makefile.in
|
|
||||||
all: all-ack
|
|
||||||
|
|
||||||
all-ack:
|
|
||||||
all-gnu:
|
|
||||||
|
|
||||||
makefiles: Makefile
|
|
||||||
|
|
||||||
Makefile: Makefile.in
|
|
||||||
sh ../generate.sh ./editline ../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/libedit.a
|
|
||||||
|
|
||||||
../obj-ack/libedit.a: ../obj-ack/libedit.a(editline.o)
|
|
||||||
../obj-ack/libedit.a: ../obj-ack/libedit.a(complete.o)
|
|
||||||
../obj-ack/libedit.a: ../obj-ack/libedit.a(sysunix.o)
|
|
||||||
|
|
||||||
../obj-ack/libedit.a:
|
|
||||||
ar cr ../obj-ack/libedit.a ../obj-ack/./editline/*.o
|
|
||||||
rm ../obj-ack/./editline/*.o
|
|
||||||
|
|
||||||
../obj-ack/libedit.a(editline.o): editline.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -DANSI_ARROWS -DHAVE_STDLIB -DHAVE_TCGETATTR -DHIDE -DUSE_DIRENT -DHIST_SIZE=100 -DUSE_TERMCAP -DSYS_UNIX -wo -c -o ../obj-ack/./editline/editline.o editline.c
|
|
||||||
../obj-ack/libedit.a(complete.o): complete.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -DANSI_ARROWS -DHAVE_STDLIB -DHAVE_TCGETATTR -DHIDE -DUSE_DIRENT -DHIST_SIZE=100 -DUSE_TERMCAP -DSYS_UNIX -wo -c -o ../obj-ack/./editline/complete.o complete.c
|
|
||||||
../obj-ack/libedit.a(sysunix.o): sysunix.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -DANSI_ARROWS -DHAVE_STDLIB -DHAVE_TCGETATTR -DHIDE -DUSE_DIRENT -DHIST_SIZE=100 -DUSE_TERMCAP -DSYS_UNIX -wo -c -o ../obj-ack/./editline/sysunix.o sysunix.c
|
|
||||||
|
|
||||||
all-gnu: ../obj-gnu/libedit.a
|
|
||||||
|
|
||||||
../obj-gnu/libedit.a: ../obj-gnu/./editline/editline.o
|
|
||||||
../obj-gnu/libedit.a: ../obj-gnu/./editline/complete.o
|
|
||||||
../obj-gnu/libedit.a: ../obj-gnu/./editline/sysunix.o
|
|
||||||
|
|
||||||
../obj-gnu/libedit.a:
|
|
||||||
gar cr ../obj-gnu/libedit.a $?
|
|
||||||
|
|
||||||
../obj-gnu/./editline/editline.o: editline.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -DANSI_ARROWS -DHAVE_STDLIB -DHAVE_TCGETATTR -DHIDE -DUSE_DIRENT -DHIST_SIZE=100 -DUSE_TERMCAP -DSYS_UNIX -wo -c -o ../obj-gnu/./editline/editline.o editline.c
|
|
||||||
|
|
||||||
../obj-gnu/./editline/complete.o: complete.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -DANSI_ARROWS -DHAVE_STDLIB -DHAVE_TCGETATTR -DHIDE -DUSE_DIRENT -DHIST_SIZE=100 -DUSE_TERMCAP -DSYS_UNIX -wo -c -o ../obj-gnu/./editline/complete.o complete.c
|
|
||||||
|
|
||||||
../obj-gnu/./editline/sysunix.o: sysunix.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -DANSI_ARROWS -DHAVE_STDLIB -DHAVE_TCGETATTR -DHIDE -DUSE_DIRENT -DHIST_SIZE=100 -DUSE_TERMCAP -DSYS_UNIX -wo -c -o ../obj-gnu/./editline/sysunix.o sysunix.c
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
clean::
|
|
||||||
rm -f ../obj-ack/./editline/*
|
|
||||||
rm -f ../obj-gnu/./editline/*
|
|
||||||
|
|
||||||
include Makedepend-ack
|
|
||||||
include .depend-ack
|
|
||||||
|
|
||||||
include Makedepend-gnu
|
|
||||||
include .depend-gnu
|
|
||||||
|
|
@ -1,75 +0,0 @@
|
||||||
#Generated from ./end/Makefile.in
|
|
||||||
all: all-ack
|
|
||||||
|
|
||||||
all-ack:
|
|
||||||
all-gnu:
|
|
||||||
|
|
||||||
makefiles: Makefile
|
|
||||||
|
|
||||||
Makefile: Makefile.in
|
|
||||||
sh ../generate.sh ./end ../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/end.a
|
|
||||||
|
|
||||||
../obj-ack/end.a: ../obj-ack/end.a(edata.o)
|
|
||||||
../obj-ack/end.a: ../obj-ack/end.a(em_end.o)
|
|
||||||
../obj-ack/end.a: ../obj-ack/end.a(end.o)
|
|
||||||
../obj-ack/end.a: ../obj-ack/end.a(etext.o)
|
|
||||||
|
|
||||||
../obj-ack/end.a:
|
|
||||||
ar cr ../obj-ack/end.a ../obj-ack/./end/*.o
|
|
||||||
rm ../obj-ack/./end/*.o
|
|
||||||
|
|
||||||
../obj-ack/end.a(edata.o): edata.s
|
|
||||||
cc -c -o ../obj-ack/./end/edata.o edata.s
|
|
||||||
../obj-ack/end.a(em_end.o): em_end.s
|
|
||||||
cc -c -o ../obj-ack/./end/em_end.o em_end.s
|
|
||||||
../obj-ack/end.a(end.o): end.s
|
|
||||||
cc -c -o ../obj-ack/./end/end.o end.s
|
|
||||||
../obj-ack/end.a(etext.o): etext.s
|
|
||||||
cc -c -o ../obj-ack/./end/etext.o etext.s
|
|
||||||
|
|
||||||
all-gnu: ../obj-gnu/end.a
|
|
||||||
|
|
||||||
../obj-gnu/end.a: ../obj-gnu/./end/edata.o
|
|
||||||
../obj-gnu/end.a: ../obj-gnu/./end/em_end.o
|
|
||||||
../obj-gnu/end.a: ../obj-gnu/./end/end.o
|
|
||||||
../obj-gnu/end.a: ../obj-gnu/./end/etext.o
|
|
||||||
|
|
||||||
../obj-gnu/end.a:
|
|
||||||
gar cr ../obj-gnu/end.a $?
|
|
||||||
|
|
||||||
../obj-gnu/./end/edata.o: edata.s
|
|
||||||
gcc -E -x assembler-with-cpp -I. edata.s | asmconv -mi386 ack gnu > ../obj-gnu/./end/edata.s.gnu || true
|
|
||||||
gas -o ../obj-gnu/./end/edata.o ../obj-gnu/./end/edata.s.gnu
|
|
||||||
|
|
||||||
../obj-gnu/./end/em_end.o: em_end.s
|
|
||||||
gcc -E -x assembler-with-cpp -I. em_end.s | asmconv -mi386 ack gnu > ../obj-gnu/./end/em_end.s.gnu || true
|
|
||||||
gas -o ../obj-gnu/./end/em_end.o ../obj-gnu/./end/em_end.s.gnu
|
|
||||||
|
|
||||||
../obj-gnu/./end/end.o: end.s
|
|
||||||
gcc -E -x assembler-with-cpp -I. end.s | asmconv -mi386 ack gnu > ../obj-gnu/./end/end.s.gnu || true
|
|
||||||
gas -o ../obj-gnu/./end/end.o ../obj-gnu/./end/end.s.gnu
|
|
||||||
|
|
||||||
../obj-gnu/./end/etext.o: etext.s
|
|
||||||
gcc -E -x assembler-with-cpp -I. etext.s | asmconv -mi386 ack gnu > ../obj-gnu/./end/etext.s.gnu || true
|
|
||||||
gas -o ../obj-gnu/./end/etext.o ../obj-gnu/./end/etext.s.gnu
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
clean::
|
|
||||||
rm -f ../obj-ack/./end/*
|
|
||||||
rm -f ../obj-gnu/./end/*
|
|
||||||
|
|
||||||
include Makedepend-ack
|
|
||||||
include .depend-ack
|
|
||||||
|
|
||||||
include Makedepend-gnu
|
|
||||||
include .depend-gnu
|
|
||||||
|
|
@ -29,13 +29,15 @@ echo "all-ack:"
|
||||||
echo "all-gnu:"
|
echo "all-gnu:"
|
||||||
echo
|
echo
|
||||||
echo "makefiles: Makefile"
|
echo "makefiles: Makefile"
|
||||||
|
echo "Makedepend-ack Makedepend-gnu: "
|
||||||
|
echo " sh $0 $OBJDIR $ACKBASE $GNUBASE"
|
||||||
echo
|
echo
|
||||||
echo "Makefile: Makefile.in"
|
echo "Makefile: Makefile.in Makedepend-ack Makedepend-gnu"
|
||||||
echo " sh $0 $OBJDIR $ACKBASE $GNUBASE"
|
echo " sh $0 $OBJDIR $ACKBASE $GNUBASE"
|
||||||
echo " @echo"
|
echo " @echo"
|
||||||
echo " @echo \"*Attention*\""
|
echo " @echo *Attention*"
|
||||||
echo " @echo \"Makefile is regenerated... rerun command to see changes\""
|
echo " @echo Makefile is regenerated... rerun command to see changes"
|
||||||
echo " @echo \"*Attention*\""
|
echo " @echo *Attention*"
|
||||||
echo " @echo"
|
echo " @echo"
|
||||||
echo
|
echo
|
||||||
if [ ! -z "$SUBDIRS" ]; then
|
if [ ! -z "$SUBDIRS" ]; then
|
||||||
|
|
|
||||||
|
|
@ -1,53 +0,0 @@
|
||||||
#Generated from ./gnu/Makefile.in
|
|
||||||
all: all-ack
|
|
||||||
|
|
||||||
all-ack:
|
|
||||||
all-gnu:
|
|
||||||
|
|
||||||
makefiles: Makefile
|
|
||||||
|
|
||||||
Makefile: Makefile.in
|
|
||||||
sh ../generate.sh ./gnu ../obj-ack ../obj-gnu
|
|
||||||
@echo
|
|
||||||
@echo "*Attention*"
|
|
||||||
@echo "Makefile is regenerated... rerun command to see changes"
|
|
||||||
@echo "*Attention*"
|
|
||||||
@echo
|
|
||||||
|
|
||||||
all-ack: makefiles
|
|
||||||
cd end && $(MAKE) $@
|
|
||||||
cd ieee_float && $(MAKE) $@
|
|
||||||
cd rts && $(MAKE) $@
|
|
||||||
|
|
||||||
all-gnu: makefiles
|
|
||||||
mkdir -p ../obj-gnu/./gnu/end
|
|
||||||
cd end && $(MAKE) $@
|
|
||||||
mkdir -p ../obj-gnu/./gnu/ieee_float
|
|
||||||
cd ieee_float && $(MAKE) $@
|
|
||||||
mkdir -p ../obj-gnu/./gnu/rts
|
|
||||||
cd rts && $(MAKE) $@
|
|
||||||
|
|
||||||
clean depend depend-ack depend-gnu:: makefiles
|
|
||||||
cd end && $(MAKE) $@
|
|
||||||
cd ieee_float && $(MAKE) $@
|
|
||||||
cd rts && $(MAKE) $@
|
|
||||||
|
|
||||||
makefiles: end/Makefile
|
|
||||||
makefiles: ieee_float/Makefile
|
|
||||||
makefiles: rts/Makefile
|
|
||||||
|
|
||||||
end/Makefile: end/Makefile.in
|
|
||||||
cd end && sh ../../generate.sh ./gnu/end ../../obj-ack ../../obj-gnu && $(MAKE) makefiles
|
|
||||||
ieee_float/Makefile: ieee_float/Makefile.in
|
|
||||||
cd ieee_float && sh ../../generate.sh ./gnu/ieee_float ../../obj-ack ../../obj-gnu && $(MAKE) makefiles
|
|
||||||
rts/Makefile: rts/Makefile.in
|
|
||||||
cd rts && sh ../../generate.sh ./gnu/rts ../../obj-ack ../../obj-gnu && $(MAKE) makefiles
|
|
||||||
|
|
||||||
clean::
|
|
||||||
rm -f ../obj-gnu/./gnu/*
|
|
||||||
|
|
||||||
include Makedepend-ack
|
|
||||||
include .depend-ack
|
|
||||||
|
|
||||||
include Makedepend-gnu
|
|
||||||
include .depend-gnu
|
|
||||||
|
|
@ -1,38 +0,0 @@
|
||||||
#Generated from ./gnu/end/Makefile.in
|
|
||||||
all: all-ack
|
|
||||||
|
|
||||||
all-ack:
|
|
||||||
all-gnu:
|
|
||||||
|
|
||||||
makefiles: Makefile
|
|
||||||
|
|
||||||
Makefile: Makefile.in
|
|
||||||
sh ../../generate.sh ./gnu/end ../../obj-ack ../../obj-gnu
|
|
||||||
@echo
|
|
||||||
@echo "*Attention*"
|
|
||||||
@echo "Makefile is regenerated... rerun command to see changes"
|
|
||||||
@echo "*Attention*"
|
|
||||||
@echo
|
|
||||||
|
|
||||||
depend: depend-ack
|
|
||||||
all-gnu: ../../obj-gnu/end.a
|
|
||||||
|
|
||||||
../../obj-gnu/end.a: ../../obj-gnu/./gnu/end/gnu_end.o
|
|
||||||
|
|
||||||
../../obj-gnu/end.a:
|
|
||||||
gar cr ../../obj-gnu/end.a $?
|
|
||||||
|
|
||||||
../../obj-gnu/./gnu/end/gnu_end.o: gnu_end.gs
|
|
||||||
gas -o ../../obj-gnu/./gnu/end/gnu_end.o gnu_end.gs
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
clean::
|
|
||||||
rm -f ../../obj-gnu/./gnu/end/*
|
|
||||||
|
|
||||||
include Makedepend-ack
|
|
||||||
include .depend-ack
|
|
||||||
|
|
||||||
include Makedepend-gnu
|
|
||||||
include .depend-gnu
|
|
||||||
|
|
@ -1,58 +0,0 @@
|
||||||
#Generated from ./gnu/ieee_float/Makefile.in
|
|
||||||
all: all-ack
|
|
||||||
|
|
||||||
all-ack:
|
|
||||||
all-gnu:
|
|
||||||
|
|
||||||
makefiles: Makefile
|
|
||||||
|
|
||||||
Makefile: Makefile.in
|
|
||||||
sh ../../generate.sh ./gnu/ieee_float ../../obj-ack ../../obj-gnu
|
|
||||||
@echo
|
|
||||||
@echo "*Attention*"
|
|
||||||
@echo "Makefile is regenerated... rerun command to see changes"
|
|
||||||
@echo "*Attention*"
|
|
||||||
@echo
|
|
||||||
|
|
||||||
depend: depend-ack
|
|
||||||
all-gnu: ../../obj-gnu/libc.a
|
|
||||||
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./gnu/ieee_float/frexp.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./gnu/ieee_float/isinf.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./gnu/ieee_float/isnan.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./gnu/ieee_float/ldexp.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./gnu/ieee_float/modf.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./gnu/ieee_float/fphook.o
|
|
||||||
|
|
||||||
../../obj-gnu/libc.a:
|
|
||||||
gar cr ../../obj-gnu/libc.a $?
|
|
||||||
|
|
||||||
../../obj-gnu/./gnu/ieee_float/frexp.o: frexp.c
|
|
||||||
gcc -O -I.. -c -o ../../obj-gnu/./gnu/ieee_float/frexp.o frexp.c
|
|
||||||
|
|
||||||
../../obj-gnu/./gnu/ieee_float/isinf.o: isinf.c
|
|
||||||
gcc -O -I.. -c -o ../../obj-gnu/./gnu/ieee_float/isinf.o isinf.c
|
|
||||||
|
|
||||||
../../obj-gnu/./gnu/ieee_float/isnan.o: isnan.c
|
|
||||||
gcc -O -I.. -c -o ../../obj-gnu/./gnu/ieee_float/isnan.o isnan.c
|
|
||||||
|
|
||||||
../../obj-gnu/./gnu/ieee_float/ldexp.o: ldexp.c
|
|
||||||
gcc -O -I.. -c -o ../../obj-gnu/./gnu/ieee_float/ldexp.o ldexp.c
|
|
||||||
|
|
||||||
../../obj-gnu/./gnu/ieee_float/modf.o: modf.c
|
|
||||||
gcc -O -I.. -c -o ../../obj-gnu/./gnu/ieee_float/modf.o modf.c
|
|
||||||
|
|
||||||
../../obj-gnu/./gnu/ieee_float/fphook.o: fphook.c
|
|
||||||
gcc -O -I.. -c -o ../../obj-gnu/./gnu/ieee_float/fphook.o fphook.c
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
clean::
|
|
||||||
rm -f ../../obj-gnu/./gnu/ieee_float/*
|
|
||||||
|
|
||||||
include Makedepend-ack
|
|
||||||
include .depend-ack
|
|
||||||
|
|
||||||
include Makedepend-gnu
|
|
||||||
include .depend-gnu
|
|
||||||
|
|
@ -1,50 +0,0 @@
|
||||||
#Generated from ./gnu/rts/Makefile.in
|
|
||||||
all: all-ack
|
|
||||||
|
|
||||||
all-ack:
|
|
||||||
all-gnu:
|
|
||||||
|
|
||||||
makefiles: Makefile
|
|
||||||
|
|
||||||
Makefile: Makefile.in
|
|
||||||
sh ../../generate.sh ./gnu/rts ../../obj-ack ../../obj-gnu
|
|
||||||
@echo
|
|
||||||
@echo "*Attention*"
|
|
||||||
@echo "Makefile is regenerated... rerun command to see changes"
|
|
||||||
@echo "*Attention*"
|
|
||||||
@echo
|
|
||||||
|
|
||||||
depend: depend-ack
|
|
||||||
all-gnu: ../../obj-gnu/libc.a
|
|
||||||
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./gnu/rts/_longjmp.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./gnu/rts/_setjmp.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./gnu/rts/longjmp.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./gnu/rts/setjmp.o
|
|
||||||
|
|
||||||
../../obj-gnu/libc.a:
|
|
||||||
gar cr ../../obj-gnu/libc.a $?
|
|
||||||
|
|
||||||
../../obj-gnu/./gnu/rts/_longjmp.o: _longjmp.gs
|
|
||||||
gas -o ../../obj-gnu/./gnu/rts/_longjmp.o _longjmp.gs
|
|
||||||
|
|
||||||
../../obj-gnu/./gnu/rts/_setjmp.o: _setjmp.gs
|
|
||||||
gas -o ../../obj-gnu/./gnu/rts/_setjmp.o _setjmp.gs
|
|
||||||
|
|
||||||
../../obj-gnu/./gnu/rts/longjmp.o: longjmp.gs
|
|
||||||
gas -o ../../obj-gnu/./gnu/rts/longjmp.o longjmp.gs
|
|
||||||
|
|
||||||
../../obj-gnu/./gnu/rts/setjmp.o: setjmp.gs
|
|
||||||
gas -o ../../obj-gnu/./gnu/rts/setjmp.o setjmp.gs
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
clean::
|
|
||||||
rm -f ../../obj-gnu/./gnu/rts/*
|
|
||||||
|
|
||||||
include Makedepend-ack
|
|
||||||
include .depend-ack
|
|
||||||
|
|
||||||
include Makedepend-gnu
|
|
||||||
include .depend-gnu
|
|
||||||
|
|
@ -1,35 +0,0 @@
|
||||||
/* $Header$ */
|
|
||||||
/*
|
|
||||||
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
*/
|
|
||||||
#define LINO_AD 0
|
|
||||||
#define FILN_AD 4
|
|
||||||
|
|
||||||
#define LINO (*(int *)(_hol0()+LINO_AD))
|
|
||||||
#define FILN (*(char **)(_hol0()+FILN_AD))
|
|
||||||
|
|
||||||
#define EARRAY 0
|
|
||||||
#define ERANGE 1
|
|
||||||
#define ESET 2
|
|
||||||
#define EIOVFL 3
|
|
||||||
#define EFOVFL 4
|
|
||||||
#define EFUNFL 5
|
|
||||||
#define EIDIVZ 6
|
|
||||||
#define EFDIVZ 7
|
|
||||||
#define EIUND 8
|
|
||||||
#define EFUND 9
|
|
||||||
#define ECONV 10
|
|
||||||
|
|
||||||
#define ESTACK 16
|
|
||||||
#define EHEAP 17
|
|
||||||
#define EILLINS 18
|
|
||||||
#define EODDZ 19
|
|
||||||
#define ECASE 20
|
|
||||||
#define EMEMFLT 21
|
|
||||||
#define EBADPTR 22
|
|
||||||
#define EBADPC 23
|
|
||||||
#define EBADLAE 24
|
|
||||||
#define EBADMON 25
|
|
||||||
#define EBADLIN 26
|
|
||||||
#define EBADGTO 27
|
|
||||||
|
|
@ -1,16 +0,0 @@
|
||||||
/* $Header$ */
|
|
||||||
/*
|
|
||||||
* (c) copyright 1990 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
*/
|
|
||||||
|
|
||||||
/* Modula-2 runtime errors */
|
|
||||||
|
|
||||||
#define M2_TOOLARGE 64 /* stack of process too large */
|
|
||||||
#define M2_TOOMANY 65 /* too many nested traps & handlers */
|
|
||||||
#define M2_NORESULT 66 /* no RETURN from procedure function */
|
|
||||||
#define M2_UOVFL 67 /* cardinal overflow */
|
|
||||||
#define M2_FORCH 68 /* FOR-loop control variable changed */
|
|
||||||
#define M2_UUVFL 69 /* cardinal underflow */
|
|
||||||
#define M2_INTERNAL 70 /* internal error, should not happen */
|
|
||||||
#define M2_UNIXSIG 71 /* unix signal */
|
|
||||||
|
|
@ -1,29 +0,0 @@
|
||||||
/* $Header$ */
|
|
||||||
/*
|
|
||||||
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
*/
|
|
||||||
#define EARGC 64
|
|
||||||
#define EEXP 65
|
|
||||||
#define ELOG 66
|
|
||||||
#define ESQT 67
|
|
||||||
#define EASS 68
|
|
||||||
#define EPACK 69
|
|
||||||
#define EUNPACK 70
|
|
||||||
#define EMOD 71
|
|
||||||
#define EBADF 72
|
|
||||||
#define EFREE 73
|
|
||||||
#define EFUNASS 74
|
|
||||||
#define EWIDTH 75
|
|
||||||
|
|
||||||
#define EWRITEF 96
|
|
||||||
#define EREADF 97
|
|
||||||
#define EEOF 98
|
|
||||||
#define EFTRUNC 99
|
|
||||||
#define ERESET 100
|
|
||||||
#define EREWR 101
|
|
||||||
#define ECLOSE 102
|
|
||||||
#define EREAD 103
|
|
||||||
#define EWRITE 104
|
|
||||||
#define EDIGIT 105
|
|
||||||
#define EASCII 106
|
|
||||||
|
|
@ -1,24 +0,0 @@
|
||||||
/* $Header$ */
|
|
||||||
/*
|
|
||||||
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
*/
|
|
||||||
#define WRBIT 0100000
|
|
||||||
#define TXTBIT 040000
|
|
||||||
#define EOFBIT 020000
|
|
||||||
#define ELNBIT 010000
|
|
||||||
#define WINDOW 04000
|
|
||||||
#define MAGIC 0252
|
|
||||||
|
|
||||||
#define PC_BUFLEN 1024
|
|
||||||
|
|
||||||
struct file {
|
|
||||||
char *ptr;
|
|
||||||
unsigned flags;
|
|
||||||
char *fname;
|
|
||||||
int ufd;
|
|
||||||
int size;
|
|
||||||
int count;
|
|
||||||
int buflen;
|
|
||||||
char bufadr[PC_BUFLEN];
|
|
||||||
};
|
|
||||||
|
|
@ -1,42 +0,0 @@
|
||||||
/*
|
|
||||||
* localmath.h - This header is used by the mathematical library.
|
|
||||||
*/
|
|
||||||
/* $Header$ */
|
|
||||||
|
|
||||||
/* some constants (Hart & Cheney) */
|
|
||||||
#define M_PI 3.14159265358979323846264338327950288
|
|
||||||
#define M_2PI 6.28318530717958647692528676655900576
|
|
||||||
#define M_3PI_4 2.35619449019234492884698253745962716
|
|
||||||
#define M_PI_2 1.57079632679489661923132169163975144
|
|
||||||
#define M_3PI_8 1.17809724509617246442349126872981358
|
|
||||||
#define M_PI_4 0.78539816339744830961566084581987572
|
|
||||||
#define M_PI_8 0.39269908169872415480783042290993786
|
|
||||||
#define M_1_PI 0.31830988618379067153776752674502872
|
|
||||||
#define M_2_PI 0.63661977236758134307553505349005744
|
|
||||||
#define M_4_PI 1.27323954473516268615107010698011488
|
|
||||||
#define M_E 2.71828182845904523536028747135266250
|
|
||||||
#define M_LOG2E 1.44269504088896340735992468100189213
|
|
||||||
#define M_LOG10E 0.43429448190325182765112891891660508
|
|
||||||
#define M_LN2 0.69314718055994530941723212145817657
|
|
||||||
#define M_LN10 2.30258509299404568401799145468436421
|
|
||||||
#define M_SQRT2 1.41421356237309504880168872420969808
|
|
||||||
#define M_1_SQRT2 0.70710678118654752440084436210484904
|
|
||||||
#define M_EULER 0.57721566490153286060651209008240243
|
|
||||||
|
|
||||||
/* macros for constructing polynomials */
|
|
||||||
#define POLYNOM1(x, a) ((a)[1]*(x)+(a)[0])
|
|
||||||
#define POLYNOM2(x, a) (POLYNOM1((x),(a)+1)*(x)+(a)[0])
|
|
||||||
#define POLYNOM3(x, a) (POLYNOM2((x),(a)+1)*(x)+(a)[0])
|
|
||||||
#define POLYNOM4(x, a) (POLYNOM3((x),(a)+1)*(x)+(a)[0])
|
|
||||||
#define POLYNOM5(x, a) (POLYNOM4((x),(a)+1)*(x)+(a)[0])
|
|
||||||
#define POLYNOM6(x, a) (POLYNOM5((x),(a)+1)*(x)+(a)[0])
|
|
||||||
#define POLYNOM7(x, a) (POLYNOM6((x),(a)+1)*(x)+(a)[0])
|
|
||||||
#define POLYNOM8(x, a) (POLYNOM7((x),(a)+1)*(x)+(a)[0])
|
|
||||||
#define POLYNOM9(x, a) (POLYNOM8((x),(a)+1)*(x)+(a)[0])
|
|
||||||
#define POLYNOM10(x, a) (POLYNOM9((x),(a)+1)*(x)+(a)[0])
|
|
||||||
#define POLYNOM11(x, a) (POLYNOM10((x),(a)+1)*(x)+(a)[0])
|
|
||||||
#define POLYNOM12(x, a) (POLYNOM11((x),(a)+1)*(x)+(a)[0])
|
|
||||||
#define POLYNOM13(x, a) (POLYNOM12((x),(a)+1)*(x)+(a)[0])
|
|
||||||
|
|
||||||
#define M_LN_MAX_D (M_LN2 * DBL_MAX_EXP)
|
|
||||||
#define M_LN_MIN_D (M_LN2 * (DBL_MIN_EXP - 1))
|
|
||||||
|
|
@ -1,65 +0,0 @@
|
||||||
#Generated from ./i386/Makefile.in
|
|
||||||
all: all-ack
|
|
||||||
|
|
||||||
all-ack:
|
|
||||||
all-gnu:
|
|
||||||
|
|
||||||
makefiles: Makefile
|
|
||||||
|
|
||||||
Makefile: Makefile.in
|
|
||||||
sh ../generate.sh ./i386 ../obj-ack ../obj-gnu
|
|
||||||
@echo
|
|
||||||
@echo "*Attention*"
|
|
||||||
@echo "Makefile is regenerated... rerun command to see changes"
|
|
||||||
@echo "*Attention*"
|
|
||||||
@echo
|
|
||||||
|
|
||||||
all-ack: makefiles
|
|
||||||
mkdir -p ../obj-ack/./i386/int64
|
|
||||||
cd int64 && $(MAKE) $@
|
|
||||||
mkdir -p ../obj-ack/./i386/misc
|
|
||||||
cd misc && $(MAKE) $@
|
|
||||||
mkdir -p ../obj-ack/./i386/rts
|
|
||||||
cd rts && $(MAKE) $@
|
|
||||||
mkdir -p ../obj-ack/./i386/string
|
|
||||||
cd string && $(MAKE) $@
|
|
||||||
|
|
||||||
all-gnu: makefiles
|
|
||||||
mkdir -p ../obj-gnu/./i386/int64
|
|
||||||
cd int64 && $(MAKE) $@
|
|
||||||
mkdir -p ../obj-gnu/./i386/misc
|
|
||||||
cd misc && $(MAKE) $@
|
|
||||||
mkdir -p ../obj-gnu/./i386/rts
|
|
||||||
cd rts && $(MAKE) $@
|
|
||||||
mkdir -p ../obj-gnu/./i386/string
|
|
||||||
cd string && $(MAKE) $@
|
|
||||||
|
|
||||||
clean depend depend-ack depend-gnu:: makefiles
|
|
||||||
cd int64 && $(MAKE) $@
|
|
||||||
cd misc && $(MAKE) $@
|
|
||||||
cd rts && $(MAKE) $@
|
|
||||||
cd string && $(MAKE) $@
|
|
||||||
|
|
||||||
makefiles: int64/Makefile
|
|
||||||
makefiles: misc/Makefile
|
|
||||||
makefiles: rts/Makefile
|
|
||||||
makefiles: string/Makefile
|
|
||||||
|
|
||||||
int64/Makefile: int64/Makefile.in
|
|
||||||
cd int64 && sh ../../generate.sh ./i386/int64 ../../obj-ack ../../obj-gnu && $(MAKE) makefiles
|
|
||||||
misc/Makefile: misc/Makefile.in
|
|
||||||
cd misc && sh ../../generate.sh ./i386/misc ../../obj-ack ../../obj-gnu && $(MAKE) makefiles
|
|
||||||
rts/Makefile: rts/Makefile.in
|
|
||||||
cd rts && sh ../../generate.sh ./i386/rts ../../obj-ack ../../obj-gnu && $(MAKE) makefiles
|
|
||||||
string/Makefile: string/Makefile.in
|
|
||||||
cd string && sh ../../generate.sh ./i386/string ../../obj-ack ../../obj-gnu && $(MAKE) makefiles
|
|
||||||
|
|
||||||
clean::
|
|
||||||
rm -f ../obj-ack/./i386/*
|
|
||||||
rm -f ../obj-gnu/./i386/*
|
|
||||||
|
|
||||||
include Makedepend-ack
|
|
||||||
include .depend-ack
|
|
||||||
|
|
||||||
include Makedepend-gnu
|
|
||||||
include .depend-gnu
|
|
||||||
|
|
@ -1,139 +0,0 @@
|
||||||
#Generated from ./i386/int64/Makefile.in
|
|
||||||
all: all-ack
|
|
||||||
|
|
||||||
all-ack:
|
|
||||||
all-gnu:
|
|
||||||
|
|
||||||
makefiles: Makefile
|
|
||||||
|
|
||||||
Makefile: Makefile.in
|
|
||||||
sh ../../generate.sh ./i386/int64 ../../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/libc.a
|
|
||||||
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(add64.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(add64u.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(cmp64.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(cv64u.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(cvu64.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(diff64.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(div64u.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(ex64.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(make64.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(mul64u.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(sub64.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(sub64u.o)
|
|
||||||
|
|
||||||
../../obj-ack/libc.a:
|
|
||||||
ar cr ../../obj-ack/libc.a ../../obj-ack/./i386/int64/*.o
|
|
||||||
rm ../../obj-ack/./i386/int64/*.o
|
|
||||||
|
|
||||||
../../obj-ack/libc.a(add64.o): add64.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../../obj-ack/./i386/int64/add64.o add64.s
|
|
||||||
../../obj-ack/libc.a(add64u.o): add64u.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../../obj-ack/./i386/int64/add64u.o add64u.s
|
|
||||||
../../obj-ack/libc.a(cmp64.o): cmp64.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../../obj-ack/./i386/int64/cmp64.o cmp64.s
|
|
||||||
../../obj-ack/libc.a(cv64u.o): cv64u.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../../obj-ack/./i386/int64/cv64u.o cv64u.s
|
|
||||||
../../obj-ack/libc.a(cvu64.o): cvu64.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../../obj-ack/./i386/int64/cvu64.o cvu64.s
|
|
||||||
../../obj-ack/libc.a(diff64.o): diff64.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../../obj-ack/./i386/int64/diff64.o diff64.s
|
|
||||||
../../obj-ack/libc.a(div64u.o): div64u.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../../obj-ack/./i386/int64/div64u.o div64u.s
|
|
||||||
../../obj-ack/libc.a(ex64.o): ex64.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../../obj-ack/./i386/int64/ex64.o ex64.s
|
|
||||||
../../obj-ack/libc.a(make64.o): make64.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../../obj-ack/./i386/int64/make64.o make64.s
|
|
||||||
../../obj-ack/libc.a(mul64u.o): mul64u.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../../obj-ack/./i386/int64/mul64u.o mul64u.s
|
|
||||||
../../obj-ack/libc.a(sub64.o): sub64.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../../obj-ack/./i386/int64/sub64.o sub64.s
|
|
||||||
../../obj-ack/libc.a(sub64u.o): sub64u.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../../obj-ack/./i386/int64/sub64u.o sub64u.s
|
|
||||||
|
|
||||||
all-gnu: ../../obj-gnu/libc.a
|
|
||||||
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/int64/add64.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/int64/add64u.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/int64/cmp64.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/int64/cv64u.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/int64/cvu64.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/int64/diff64.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/int64/div64u.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/int64/ex64.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/int64/make64.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/int64/mul64u.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/int64/sub64.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/int64/sub64u.o
|
|
||||||
|
|
||||||
../../obj-gnu/libc.a:
|
|
||||||
gar cr ../../obj-gnu/libc.a $?
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/int64/add64.o: add64.s
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -E -x assembler-with-cpp -I. add64.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/int64/add64.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/int64/add64.o ../../obj-gnu/./i386/int64/add64.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/int64/add64u.o: add64u.s
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -E -x assembler-with-cpp -I. add64u.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/int64/add64u.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/int64/add64u.o ../../obj-gnu/./i386/int64/add64u.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/int64/cmp64.o: cmp64.s
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -E -x assembler-with-cpp -I. cmp64.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/int64/cmp64.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/int64/cmp64.o ../../obj-gnu/./i386/int64/cmp64.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/int64/cv64u.o: cv64u.s
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -E -x assembler-with-cpp -I. cv64u.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/int64/cv64u.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/int64/cv64u.o ../../obj-gnu/./i386/int64/cv64u.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/int64/cvu64.o: cvu64.s
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -E -x assembler-with-cpp -I. cvu64.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/int64/cvu64.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/int64/cvu64.o ../../obj-gnu/./i386/int64/cvu64.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/int64/diff64.o: diff64.s
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -E -x assembler-with-cpp -I. diff64.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/int64/diff64.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/int64/diff64.o ../../obj-gnu/./i386/int64/diff64.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/int64/div64u.o: div64u.s
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -E -x assembler-with-cpp -I. div64u.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/int64/div64u.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/int64/div64u.o ../../obj-gnu/./i386/int64/div64u.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/int64/ex64.o: ex64.s
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -E -x assembler-with-cpp -I. ex64.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/int64/ex64.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/int64/ex64.o ../../obj-gnu/./i386/int64/ex64.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/int64/make64.o: make64.s
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -E -x assembler-with-cpp -I. make64.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/int64/make64.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/int64/make64.o ../../obj-gnu/./i386/int64/make64.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/int64/mul64u.o: mul64u.s
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -E -x assembler-with-cpp -I. mul64u.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/int64/mul64u.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/int64/mul64u.o ../../obj-gnu/./i386/int64/mul64u.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/int64/sub64.o: sub64.s
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -E -x assembler-with-cpp -I. sub64.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/int64/sub64.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/int64/sub64.o ../../obj-gnu/./i386/int64/sub64.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/int64/sub64u.o: sub64u.s
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -E -x assembler-with-cpp -I. sub64u.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/int64/sub64u.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/int64/sub64u.o ../../obj-gnu/./i386/int64/sub64u.s.gnu
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
clean::
|
|
||||||
rm -f ../../obj-ack/./i386/int64/*
|
|
||||||
rm -f ../../obj-gnu/./i386/int64/*
|
|
||||||
|
|
||||||
include Makedepend-ack
|
|
||||||
include .depend-ack
|
|
||||||
|
|
||||||
include Makedepend-gnu
|
|
||||||
include .depend-gnu
|
|
||||||
|
|
@ -1,179 +0,0 @@
|
||||||
#Generated from ./i386/misc/Makefile.in
|
|
||||||
all: all-ack
|
|
||||||
|
|
||||||
all-ack:
|
|
||||||
all-gnu:
|
|
||||||
|
|
||||||
makefiles: Makefile
|
|
||||||
|
|
||||||
Makefile: Makefile.in
|
|
||||||
sh ../../generate.sh ./i386/misc ../../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/libc.a
|
|
||||||
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(alloca.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(get_bp.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(getprocessor.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(io_inb.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(io_inl.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(io_insb.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(io_insl.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(io_insw.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(io_intr.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(io_inw.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(io_outb.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(io_outl.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(io_outsb.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(io_outsl.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(io_outsw.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(io_outw.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(oneC_sum.o)
|
|
||||||
|
|
||||||
../../obj-ack/libc.a:
|
|
||||||
ar cr ../../obj-ack/libc.a ../../obj-ack/./i386/misc/*.o
|
|
||||||
rm ../../obj-ack/./i386/misc/*.o
|
|
||||||
|
|
||||||
../../obj-ack/libc.a(alloca.o): alloca.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../../obj-ack/./i386/misc/alloca.o alloca.s
|
|
||||||
../../obj-ack/libc.a(get_bp.o): get_bp.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../../obj-ack/./i386/misc/get_bp.o get_bp.s
|
|
||||||
../../obj-ack/libc.a(getprocessor.o): getprocessor.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../../obj-ack/./i386/misc/getprocessor.o getprocessor.s
|
|
||||||
../../obj-ack/libc.a(io_inb.o): io_inb.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../../obj-ack/./i386/misc/io_inb.o io_inb.s
|
|
||||||
../../obj-ack/libc.a(io_inl.o): io_inl.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../../obj-ack/./i386/misc/io_inl.o io_inl.s
|
|
||||||
../../obj-ack/libc.a(io_insb.o): io_insb.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../../obj-ack/./i386/misc/io_insb.o io_insb.s
|
|
||||||
../../obj-ack/libc.a(io_insl.o): io_insl.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../../obj-ack/./i386/misc/io_insl.o io_insl.s
|
|
||||||
../../obj-ack/libc.a(io_insw.o): io_insw.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../../obj-ack/./i386/misc/io_insw.o io_insw.s
|
|
||||||
../../obj-ack/libc.a(io_intr.o): io_intr.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../../obj-ack/./i386/misc/io_intr.o io_intr.s
|
|
||||||
../../obj-ack/libc.a(io_inw.o): io_inw.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../../obj-ack/./i386/misc/io_inw.o io_inw.s
|
|
||||||
../../obj-ack/libc.a(io_outb.o): io_outb.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../../obj-ack/./i386/misc/io_outb.o io_outb.s
|
|
||||||
../../obj-ack/libc.a(io_outl.o): io_outl.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../../obj-ack/./i386/misc/io_outl.o io_outl.s
|
|
||||||
../../obj-ack/libc.a(io_outsb.o): io_outsb.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../../obj-ack/./i386/misc/io_outsb.o io_outsb.s
|
|
||||||
../../obj-ack/libc.a(io_outsl.o): io_outsl.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../../obj-ack/./i386/misc/io_outsl.o io_outsl.s
|
|
||||||
../../obj-ack/libc.a(io_outsw.o): io_outsw.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../../obj-ack/./i386/misc/io_outsw.o io_outsw.s
|
|
||||||
../../obj-ack/libc.a(io_outw.o): io_outw.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../../obj-ack/./i386/misc/io_outw.o io_outw.s
|
|
||||||
../../obj-ack/libc.a(oneC_sum.o): oneC_sum.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../../obj-ack/./i386/misc/oneC_sum.o oneC_sum.s
|
|
||||||
|
|
||||||
all-gnu: ../../obj-gnu/libc.a
|
|
||||||
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/misc/alloca.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/misc/get_bp.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/misc/getprocessor.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/misc/io_inb.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/misc/io_inl.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/misc/io_insb.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/misc/io_insl.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/misc/io_insw.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/misc/io_intr.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/misc/io_inw.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/misc/io_outb.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/misc/io_outl.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/misc/io_outsb.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/misc/io_outsl.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/misc/io_outsw.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/misc/io_outw.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/misc/oneC_sum.o
|
|
||||||
|
|
||||||
../../obj-gnu/libc.a:
|
|
||||||
gar cr ../../obj-gnu/libc.a $?
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/misc/alloca.o: alloca.s
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -E -x assembler-with-cpp -I. alloca.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/misc/alloca.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/misc/alloca.o ../../obj-gnu/./i386/misc/alloca.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/misc/get_bp.o: get_bp.s
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -E -x assembler-with-cpp -I. get_bp.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/misc/get_bp.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/misc/get_bp.o ../../obj-gnu/./i386/misc/get_bp.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/misc/getprocessor.o: getprocessor.s
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -E -x assembler-with-cpp -I. getprocessor.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/misc/getprocessor.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/misc/getprocessor.o ../../obj-gnu/./i386/misc/getprocessor.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/misc/io_inb.o: io_inb.s
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -E -x assembler-with-cpp -I. io_inb.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/misc/io_inb.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/misc/io_inb.o ../../obj-gnu/./i386/misc/io_inb.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/misc/io_inl.o: io_inl.s
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -E -x assembler-with-cpp -I. io_inl.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/misc/io_inl.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/misc/io_inl.o ../../obj-gnu/./i386/misc/io_inl.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/misc/io_insb.o: io_insb.s
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -E -x assembler-with-cpp -I. io_insb.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/misc/io_insb.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/misc/io_insb.o ../../obj-gnu/./i386/misc/io_insb.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/misc/io_insl.o: io_insl.s
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -E -x assembler-with-cpp -I. io_insl.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/misc/io_insl.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/misc/io_insl.o ../../obj-gnu/./i386/misc/io_insl.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/misc/io_insw.o: io_insw.s
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -E -x assembler-with-cpp -I. io_insw.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/misc/io_insw.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/misc/io_insw.o ../../obj-gnu/./i386/misc/io_insw.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/misc/io_intr.o: io_intr.s
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -E -x assembler-with-cpp -I. io_intr.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/misc/io_intr.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/misc/io_intr.o ../../obj-gnu/./i386/misc/io_intr.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/misc/io_inw.o: io_inw.s
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -E -x assembler-with-cpp -I. io_inw.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/misc/io_inw.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/misc/io_inw.o ../../obj-gnu/./i386/misc/io_inw.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/misc/io_outb.o: io_outb.s
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -E -x assembler-with-cpp -I. io_outb.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/misc/io_outb.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/misc/io_outb.o ../../obj-gnu/./i386/misc/io_outb.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/misc/io_outl.o: io_outl.s
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -E -x assembler-with-cpp -I. io_outl.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/misc/io_outl.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/misc/io_outl.o ../../obj-gnu/./i386/misc/io_outl.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/misc/io_outsb.o: io_outsb.s
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -E -x assembler-with-cpp -I. io_outsb.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/misc/io_outsb.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/misc/io_outsb.o ../../obj-gnu/./i386/misc/io_outsb.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/misc/io_outsl.o: io_outsl.s
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -E -x assembler-with-cpp -I. io_outsl.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/misc/io_outsl.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/misc/io_outsl.o ../../obj-gnu/./i386/misc/io_outsl.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/misc/io_outsw.o: io_outsw.s
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -E -x assembler-with-cpp -I. io_outsw.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/misc/io_outsw.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/misc/io_outsw.o ../../obj-gnu/./i386/misc/io_outsw.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/misc/io_outw.o: io_outw.s
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -E -x assembler-with-cpp -I. io_outw.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/misc/io_outw.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/misc/io_outw.o ../../obj-gnu/./i386/misc/io_outw.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/misc/oneC_sum.o: oneC_sum.s
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -E -x assembler-with-cpp -I. oneC_sum.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/misc/oneC_sum.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/misc/oneC_sum.o ../../obj-gnu/./i386/misc/oneC_sum.s.gnu
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
clean::
|
|
||||||
rm -f ../../obj-ack/./i386/misc/*
|
|
||||||
rm -f ../../obj-gnu/./i386/misc/*
|
|
||||||
|
|
||||||
include Makedepend-ack
|
|
||||||
include .depend-ack
|
|
||||||
|
|
||||||
include Makedepend-gnu
|
|
||||||
include .depend-gnu
|
|
||||||
|
|
@ -1,103 +0,0 @@
|
||||||
#Generated from ./i386/rts/Makefile.in
|
|
||||||
all: all-ack
|
|
||||||
|
|
||||||
all-ack:
|
|
||||||
all-gnu:
|
|
||||||
|
|
||||||
makefiles: Makefile
|
|
||||||
|
|
||||||
Makefile: Makefile.in
|
|
||||||
sh ../../generate.sh ./i386/rts ../../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/libc.a
|
|
||||||
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(__sigreturn.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(_ipc.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(brksize.o)
|
|
||||||
|
|
||||||
../../obj-ack/libc.a:
|
|
||||||
ar cr ../../obj-ack/libc.a ../../obj-ack/./i386/rts/*.o
|
|
||||||
rm ../../obj-ack/./i386/rts/*.o
|
|
||||||
|
|
||||||
../../obj-ack/libc.a(__sigreturn.o): __sigreturn.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../../obj-ack/./i386/rts/__sigreturn.o __sigreturn.s
|
|
||||||
../../obj-ack/libc.a(_ipc.o): _ipc.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../../obj-ack/./i386/rts/_ipc.o _ipc.s
|
|
||||||
../../obj-ack/libc.a(brksize.o): brksize.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../../obj-ack/./i386/rts/brksize.o brksize.s
|
|
||||||
|
|
||||||
all-gnu: ../../obj-gnu/libc.a
|
|
||||||
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/rts/__sigreturn.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/rts/_ipc.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/rts/brksize.o
|
|
||||||
|
|
||||||
../../obj-gnu/libc.a:
|
|
||||||
gar cr ../../obj-gnu/libc.a $?
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/rts/__sigreturn.o: __sigreturn.s
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -E -x assembler-with-cpp -I. __sigreturn.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/rts/__sigreturn.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/rts/__sigreturn.o ../../obj-gnu/./i386/rts/__sigreturn.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/rts/_ipc.o: _ipc.s
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -E -x assembler-with-cpp -I. _ipc.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/rts/_ipc.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/rts/_ipc.o ../../obj-gnu/./i386/rts/_ipc.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/rts/brksize.o: brksize.s
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -E -x assembler-with-cpp -I. brksize.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/rts/brksize.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/rts/brksize.o ../../obj-gnu/./i386/rts/brksize.s.gnu
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
all-ack: ../../obj-ack/crtso.o
|
|
||||||
|
|
||||||
../../obj-ack/crtso.o: crtso.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../../obj-ack/crtso.o crtso.s
|
|
||||||
|
|
||||||
all-gnu: ../../obj-gnu/crtso.o
|
|
||||||
|
|
||||||
../../obj-gnu/crtso.o: crtso.s
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -E -x assembler-with-cpp -I. crtso.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/rts/crtso.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/crtso.o ../../obj-gnu/./i386/rts/crtso.s.gnu
|
|
||||||
|
|
||||||
|
|
||||||
all-ack: ../../obj-ack/m2rtso.o
|
|
||||||
|
|
||||||
../../obj-ack/m2rtso.o: m2rtso.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../../obj-ack/m2rtso.o m2rtso.s
|
|
||||||
|
|
||||||
all-gnu: ../../obj-gnu/m2rtso.o
|
|
||||||
|
|
||||||
../../obj-gnu/m2rtso.o: m2rtso.s
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -E -x assembler-with-cpp -I. m2rtso.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/rts/m2rtso.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/m2rtso.o ../../obj-gnu/./i386/rts/m2rtso.s.gnu
|
|
||||||
|
|
||||||
|
|
||||||
all-ack: ../../obj-ack/prtso.o
|
|
||||||
|
|
||||||
../../obj-ack/prtso.o: prtso.s
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -c -o ../../obj-ack/prtso.o prtso.s
|
|
||||||
|
|
||||||
all-gnu: ../../obj-gnu/prtso.o
|
|
||||||
|
|
||||||
../../obj-gnu/prtso.o: prtso.s
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -E -x assembler-with-cpp -I. prtso.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/rts/prtso.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/prtso.o ../../obj-gnu/./i386/rts/prtso.s.gnu
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
clean::
|
|
||||||
rm -f ../../obj-ack/./i386/rts/*
|
|
||||||
rm -f ../../obj-gnu/./i386/rts/*
|
|
||||||
|
|
||||||
include Makedepend-ack
|
|
||||||
include .depend-ack
|
|
||||||
|
|
||||||
include Makedepend-gnu
|
|
||||||
include .depend-gnu
|
|
||||||
|
|
@ -1,243 +0,0 @@
|
||||||
#Generated from ./i386/string/Makefile.in
|
|
||||||
all: all-ack
|
|
||||||
|
|
||||||
all-ack:
|
|
||||||
all-gnu:
|
|
||||||
|
|
||||||
makefiles: Makefile
|
|
||||||
|
|
||||||
Makefile: Makefile.in
|
|
||||||
sh ../../generate.sh ./i386/string ../../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/libc.a
|
|
||||||
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(_memmove.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(_strncat.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(_strncmp.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(_strncpy.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(_strnlen.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(bcmp.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(bcopy.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(bzero.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(index.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(memchr.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(memcmp.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(memcpy.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(memmove.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(memset.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(rindex.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(strcat.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(strchr.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(strcmp.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(strcpy.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(strlen.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(strncat.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(strncmp.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(strncpy.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(strnlen.o)
|
|
||||||
../../obj-ack/libc.a: ../../obj-ack/libc.a(strrchr.o)
|
|
||||||
|
|
||||||
../../obj-ack/libc.a:
|
|
||||||
ar cr ../../obj-ack/libc.a ../../obj-ack/./i386/string/*.o
|
|
||||||
rm ../../obj-ack/./i386/string/*.o
|
|
||||||
|
|
||||||
../../obj-ack/libc.a(_memmove.o): _memmove.s
|
|
||||||
cc -c -o ../../obj-ack/./i386/string/_memmove.o _memmove.s
|
|
||||||
../../obj-ack/libc.a(_strncat.o): _strncat.s
|
|
||||||
cc -c -o ../../obj-ack/./i386/string/_strncat.o _strncat.s
|
|
||||||
../../obj-ack/libc.a(_strncmp.o): _strncmp.s
|
|
||||||
cc -c -o ../../obj-ack/./i386/string/_strncmp.o _strncmp.s
|
|
||||||
../../obj-ack/libc.a(_strncpy.o): _strncpy.s
|
|
||||||
cc -c -o ../../obj-ack/./i386/string/_strncpy.o _strncpy.s
|
|
||||||
../../obj-ack/libc.a(_strnlen.o): _strnlen.s
|
|
||||||
cc -c -o ../../obj-ack/./i386/string/_strnlen.o _strnlen.s
|
|
||||||
../../obj-ack/libc.a(bcmp.o): bcmp.s
|
|
||||||
cc -c -o ../../obj-ack/./i386/string/bcmp.o bcmp.s
|
|
||||||
../../obj-ack/libc.a(bcopy.o): bcopy.s
|
|
||||||
cc -c -o ../../obj-ack/./i386/string/bcopy.o bcopy.s
|
|
||||||
../../obj-ack/libc.a(bzero.o): bzero.s
|
|
||||||
cc -c -o ../../obj-ack/./i386/string/bzero.o bzero.s
|
|
||||||
../../obj-ack/libc.a(index.o): index.s
|
|
||||||
cc -c -o ../../obj-ack/./i386/string/index.o index.s
|
|
||||||
../../obj-ack/libc.a(memchr.o): memchr.s
|
|
||||||
cc -c -o ../../obj-ack/./i386/string/memchr.o memchr.s
|
|
||||||
../../obj-ack/libc.a(memcmp.o): memcmp.s
|
|
||||||
cc -c -o ../../obj-ack/./i386/string/memcmp.o memcmp.s
|
|
||||||
../../obj-ack/libc.a(memcpy.o): memcpy.s
|
|
||||||
cc -c -o ../../obj-ack/./i386/string/memcpy.o memcpy.s
|
|
||||||
../../obj-ack/libc.a(memmove.o): memmove.s
|
|
||||||
cc -c -o ../../obj-ack/./i386/string/memmove.o memmove.s
|
|
||||||
../../obj-ack/libc.a(memset.o): memset.s
|
|
||||||
cc -c -o ../../obj-ack/./i386/string/memset.o memset.s
|
|
||||||
../../obj-ack/libc.a(rindex.o): rindex.s
|
|
||||||
cc -c -o ../../obj-ack/./i386/string/rindex.o rindex.s
|
|
||||||
../../obj-ack/libc.a(strcat.o): strcat.s
|
|
||||||
cc -c -o ../../obj-ack/./i386/string/strcat.o strcat.s
|
|
||||||
../../obj-ack/libc.a(strchr.o): strchr.s
|
|
||||||
cc -c -o ../../obj-ack/./i386/string/strchr.o strchr.s
|
|
||||||
../../obj-ack/libc.a(strcmp.o): strcmp.s
|
|
||||||
cc -c -o ../../obj-ack/./i386/string/strcmp.o strcmp.s
|
|
||||||
../../obj-ack/libc.a(strcpy.o): strcpy.s
|
|
||||||
cc -c -o ../../obj-ack/./i386/string/strcpy.o strcpy.s
|
|
||||||
../../obj-ack/libc.a(strlen.o): strlen.s
|
|
||||||
cc -c -o ../../obj-ack/./i386/string/strlen.o strlen.s
|
|
||||||
../../obj-ack/libc.a(strncat.o): strncat.s
|
|
||||||
cc -c -o ../../obj-ack/./i386/string/strncat.o strncat.s
|
|
||||||
../../obj-ack/libc.a(strncmp.o): strncmp.s
|
|
||||||
cc -c -o ../../obj-ack/./i386/string/strncmp.o strncmp.s
|
|
||||||
../../obj-ack/libc.a(strncpy.o): strncpy.s
|
|
||||||
cc -c -o ../../obj-ack/./i386/string/strncpy.o strncpy.s
|
|
||||||
../../obj-ack/libc.a(strnlen.o): strnlen.s
|
|
||||||
cc -c -o ../../obj-ack/./i386/string/strnlen.o strnlen.s
|
|
||||||
../../obj-ack/libc.a(strrchr.o): strrchr.s
|
|
||||||
cc -c -o ../../obj-ack/./i386/string/strrchr.o strrchr.s
|
|
||||||
|
|
||||||
all-gnu: ../../obj-gnu/libc.a
|
|
||||||
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/string/_memmove.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/string/_strncat.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/string/_strncmp.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/string/_strncpy.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/string/_strnlen.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/string/bcmp.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/string/bcopy.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/string/bzero.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/string/index.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/string/memchr.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/string/memcmp.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/string/memcpy.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/string/memmove.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/string/memset.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/string/rindex.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/string/strcat.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/string/strchr.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/string/strcmp.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/string/strcpy.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/string/strlen.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/string/strncat.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/string/strncmp.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/string/strncpy.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/string/strnlen.o
|
|
||||||
../../obj-gnu/libc.a: ../../obj-gnu/./i386/string/strrchr.o
|
|
||||||
|
|
||||||
../../obj-gnu/libc.a:
|
|
||||||
gar cr ../../obj-gnu/libc.a $?
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/string/_memmove.o: _memmove.s
|
|
||||||
gcc -E -x assembler-with-cpp -I. _memmove.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/string/_memmove.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/string/_memmove.o ../../obj-gnu/./i386/string/_memmove.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/string/_strncat.o: _strncat.s
|
|
||||||
gcc -E -x assembler-with-cpp -I. _strncat.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/string/_strncat.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/string/_strncat.o ../../obj-gnu/./i386/string/_strncat.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/string/_strncmp.o: _strncmp.s
|
|
||||||
gcc -E -x assembler-with-cpp -I. _strncmp.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/string/_strncmp.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/string/_strncmp.o ../../obj-gnu/./i386/string/_strncmp.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/string/_strncpy.o: _strncpy.s
|
|
||||||
gcc -E -x assembler-with-cpp -I. _strncpy.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/string/_strncpy.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/string/_strncpy.o ../../obj-gnu/./i386/string/_strncpy.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/string/_strnlen.o: _strnlen.s
|
|
||||||
gcc -E -x assembler-with-cpp -I. _strnlen.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/string/_strnlen.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/string/_strnlen.o ../../obj-gnu/./i386/string/_strnlen.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/string/bcmp.o: bcmp.s
|
|
||||||
gcc -E -x assembler-with-cpp -I. bcmp.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/string/bcmp.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/string/bcmp.o ../../obj-gnu/./i386/string/bcmp.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/string/bcopy.o: bcopy.s
|
|
||||||
gcc -E -x assembler-with-cpp -I. bcopy.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/string/bcopy.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/string/bcopy.o ../../obj-gnu/./i386/string/bcopy.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/string/bzero.o: bzero.s
|
|
||||||
gcc -E -x assembler-with-cpp -I. bzero.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/string/bzero.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/string/bzero.o ../../obj-gnu/./i386/string/bzero.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/string/index.o: index.s
|
|
||||||
gcc -E -x assembler-with-cpp -I. index.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/string/index.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/string/index.o ../../obj-gnu/./i386/string/index.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/string/memchr.o: memchr.s
|
|
||||||
gcc -E -x assembler-with-cpp -I. memchr.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/string/memchr.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/string/memchr.o ../../obj-gnu/./i386/string/memchr.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/string/memcmp.o: memcmp.s
|
|
||||||
gcc -E -x assembler-with-cpp -I. memcmp.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/string/memcmp.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/string/memcmp.o ../../obj-gnu/./i386/string/memcmp.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/string/memcpy.o: memcpy.s
|
|
||||||
gcc -E -x assembler-with-cpp -I. memcpy.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/string/memcpy.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/string/memcpy.o ../../obj-gnu/./i386/string/memcpy.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/string/memmove.o: memmove.s
|
|
||||||
gcc -E -x assembler-with-cpp -I. memmove.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/string/memmove.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/string/memmove.o ../../obj-gnu/./i386/string/memmove.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/string/memset.o: memset.s
|
|
||||||
gcc -E -x assembler-with-cpp -I. memset.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/string/memset.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/string/memset.o ../../obj-gnu/./i386/string/memset.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/string/rindex.o: rindex.s
|
|
||||||
gcc -E -x assembler-with-cpp -I. rindex.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/string/rindex.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/string/rindex.o ../../obj-gnu/./i386/string/rindex.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/string/strcat.o: strcat.s
|
|
||||||
gcc -E -x assembler-with-cpp -I. strcat.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/string/strcat.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/string/strcat.o ../../obj-gnu/./i386/string/strcat.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/string/strchr.o: strchr.s
|
|
||||||
gcc -E -x assembler-with-cpp -I. strchr.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/string/strchr.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/string/strchr.o ../../obj-gnu/./i386/string/strchr.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/string/strcmp.o: strcmp.s
|
|
||||||
gcc -E -x assembler-with-cpp -I. strcmp.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/string/strcmp.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/string/strcmp.o ../../obj-gnu/./i386/string/strcmp.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/string/strcpy.o: strcpy.s
|
|
||||||
gcc -E -x assembler-with-cpp -I. strcpy.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/string/strcpy.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/string/strcpy.o ../../obj-gnu/./i386/string/strcpy.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/string/strlen.o: strlen.s
|
|
||||||
gcc -E -x assembler-with-cpp -I. strlen.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/string/strlen.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/string/strlen.o ../../obj-gnu/./i386/string/strlen.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/string/strncat.o: strncat.s
|
|
||||||
gcc -E -x assembler-with-cpp -I. strncat.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/string/strncat.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/string/strncat.o ../../obj-gnu/./i386/string/strncat.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/string/strncmp.o: strncmp.s
|
|
||||||
gcc -E -x assembler-with-cpp -I. strncmp.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/string/strncmp.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/string/strncmp.o ../../obj-gnu/./i386/string/strncmp.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/string/strncpy.o: strncpy.s
|
|
||||||
gcc -E -x assembler-with-cpp -I. strncpy.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/string/strncpy.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/string/strncpy.o ../../obj-gnu/./i386/string/strncpy.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/string/strnlen.o: strnlen.s
|
|
||||||
gcc -E -x assembler-with-cpp -I. strnlen.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/string/strnlen.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/string/strnlen.o ../../obj-gnu/./i386/string/strnlen.s.gnu
|
|
||||||
|
|
||||||
../../obj-gnu/./i386/string/strrchr.o: strrchr.s
|
|
||||||
gcc -E -x assembler-with-cpp -I. strrchr.s | asmconv -mi386 ack gnu > ../../obj-gnu/./i386/string/strrchr.s.gnu || true
|
|
||||||
gas -o ../../obj-gnu/./i386/string/strrchr.o ../../obj-gnu/./i386/string/strrchr.s.gnu
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
clean::
|
|
||||||
rm -f ../../obj-ack/./i386/string/*
|
|
||||||
rm -f ../../obj-gnu/./i386/string/*
|
|
||||||
|
|
||||||
include Makedepend-ack
|
|
||||||
include .depend-ack
|
|
||||||
|
|
||||||
include Makedepend-gnu
|
|
||||||
include .depend-gnu
|
|
||||||
393
lib/ip/Makefile
393
lib/ip/Makefile
|
|
@ -1,393 +0,0 @@
|
||||||
#Generated from ./ip/Makefile.in
|
|
||||||
all: all-ack
|
|
||||||
|
|
||||||
all-ack:
|
|
||||||
all-gnu:
|
|
||||||
|
|
||||||
makefiles: Makefile
|
|
||||||
|
|
||||||
Makefile: Makefile.in
|
|
||||||
sh ../generate.sh ./ip ../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/libc.a
|
|
||||||
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(accept.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(bind.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(connect.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(dhcp_gettag.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(dhcp_settag.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(ether_line.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(ethera2n.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(ethere2a.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(etherh2n.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(ethern2h.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(getdomain.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(gethnmadr.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(gethostent.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(gethostname.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(getnetbyaddr.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(getnetbyname.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(getnetent.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(getpeername.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(getproto.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(getprotoent.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(getprotoname.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(getservent.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(getsockname.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(getsockopt.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(getsrvbyname.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(getsrvbyport.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(hton.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(inet_addr.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(inet_network.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(inet_ntoa.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(listen.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(memcspn.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(oneC_sum.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(rcmd.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(recv.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(recvfrom.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(res_comp.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(res_init.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(res_mkquery.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(res_query.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(res_send.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(ruserok.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(send.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(sendto.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(servxcheck.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(sethostent.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(setsockopt.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(shutdown.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(socket.o)
|
|
||||||
../obj-ack/libc.a: ../obj-ack/libc.a(strcasecmp.o)
|
|
||||||
|
|
||||||
../obj-ack/libc.a:
|
|
||||||
ar cr ../obj-ack/libc.a ../obj-ack/./ip/*.o
|
|
||||||
rm ../obj-ack/./ip/*.o
|
|
||||||
|
|
||||||
../obj-ack/libc.a(accept.o): accept.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/accept.o accept.c
|
|
||||||
../obj-ack/libc.a(bind.o): bind.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/bind.o bind.c
|
|
||||||
../obj-ack/libc.a(connect.o): connect.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/connect.o connect.c
|
|
||||||
../obj-ack/libc.a(dhcp_gettag.o): dhcp_gettag.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/dhcp_gettag.o dhcp_gettag.c
|
|
||||||
../obj-ack/libc.a(dhcp_settag.o): dhcp_settag.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/dhcp_settag.o dhcp_settag.c
|
|
||||||
../obj-ack/libc.a(ether_line.o): ether_line.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/ether_line.o ether_line.c
|
|
||||||
../obj-ack/libc.a(ethera2n.o): ethera2n.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/ethera2n.o ethera2n.c
|
|
||||||
../obj-ack/libc.a(ethere2a.o): ethere2a.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/ethere2a.o ethere2a.c
|
|
||||||
../obj-ack/libc.a(etherh2n.o): etherh2n.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/etherh2n.o etherh2n.c
|
|
||||||
../obj-ack/libc.a(ethern2h.o): ethern2h.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/ethern2h.o ethern2h.c
|
|
||||||
../obj-ack/libc.a(getdomain.o): getdomain.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/getdomain.o getdomain.c
|
|
||||||
../obj-ack/libc.a(gethnmadr.o): gethnmadr.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/gethnmadr.o gethnmadr.c
|
|
||||||
../obj-ack/libc.a(gethostent.o): gethostent.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/gethostent.o gethostent.c
|
|
||||||
../obj-ack/libc.a(gethostname.o): gethostname.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/gethostname.o gethostname.c
|
|
||||||
../obj-ack/libc.a(getnetbyaddr.o): getnetbyaddr.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/getnetbyaddr.o getnetbyaddr.c
|
|
||||||
../obj-ack/libc.a(getnetbyname.o): getnetbyname.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/getnetbyname.o getnetbyname.c
|
|
||||||
../obj-ack/libc.a(getnetent.o): getnetent.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/getnetent.o getnetent.c
|
|
||||||
../obj-ack/libc.a(getpeername.o): getpeername.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/getpeername.o getpeername.c
|
|
||||||
../obj-ack/libc.a(getproto.o): getproto.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/getproto.o getproto.c
|
|
||||||
../obj-ack/libc.a(getprotoent.o): getprotoent.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/getprotoent.o getprotoent.c
|
|
||||||
../obj-ack/libc.a(getprotoname.o): getprotoname.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/getprotoname.o getprotoname.c
|
|
||||||
../obj-ack/libc.a(getservent.o): getservent.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/getservent.o getservent.c
|
|
||||||
../obj-ack/libc.a(getsockname.o): getsockname.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/getsockname.o getsockname.c
|
|
||||||
../obj-ack/libc.a(getsockopt.o): getsockopt.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/getsockopt.o getsockopt.c
|
|
||||||
../obj-ack/libc.a(getsrvbyname.o): getsrvbyname.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/getsrvbyname.o getsrvbyname.c
|
|
||||||
../obj-ack/libc.a(getsrvbyport.o): getsrvbyport.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/getsrvbyport.o getsrvbyport.c
|
|
||||||
../obj-ack/libc.a(hton.o): hton.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/hton.o hton.c
|
|
||||||
../obj-ack/libc.a(inet_addr.o): inet_addr.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/inet_addr.o inet_addr.c
|
|
||||||
../obj-ack/libc.a(inet_network.o): inet_network.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/inet_network.o inet_network.c
|
|
||||||
../obj-ack/libc.a(inet_ntoa.o): inet_ntoa.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/inet_ntoa.o inet_ntoa.c
|
|
||||||
../obj-ack/libc.a(listen.o): listen.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/listen.o listen.c
|
|
||||||
../obj-ack/libc.a(memcspn.o): memcspn.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/memcspn.o memcspn.c
|
|
||||||
../obj-ack/libc.a(oneC_sum.o): oneC_sum.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/oneC_sum.o oneC_sum.c
|
|
||||||
../obj-ack/libc.a(rcmd.o): rcmd.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/rcmd.o rcmd.c
|
|
||||||
../obj-ack/libc.a(recv.o): recv.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/recv.o recv.c
|
|
||||||
../obj-ack/libc.a(recvfrom.o): recvfrom.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/recvfrom.o recvfrom.c
|
|
||||||
../obj-ack/libc.a(res_comp.o): res_comp.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/res_comp.o res_comp.c
|
|
||||||
../obj-ack/libc.a(res_init.o): res_init.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/res_init.o res_init.c
|
|
||||||
../obj-ack/libc.a(res_mkquery.o): res_mkquery.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/res_mkquery.o res_mkquery.c
|
|
||||||
../obj-ack/libc.a(res_query.o): res_query.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/res_query.o res_query.c
|
|
||||||
../obj-ack/libc.a(res_send.o): res_send.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/res_send.o res_send.c
|
|
||||||
../obj-ack/libc.a(ruserok.o): ruserok.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/ruserok.o ruserok.c
|
|
||||||
../obj-ack/libc.a(send.o): send.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/send.o send.c
|
|
||||||
../obj-ack/libc.a(sendto.o): sendto.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/sendto.o sendto.c
|
|
||||||
../obj-ack/libc.a(servxcheck.o): servxcheck.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/servxcheck.o servxcheck.c
|
|
||||||
../obj-ack/libc.a(sethostent.o): sethostent.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/sethostent.o sethostent.c
|
|
||||||
../obj-ack/libc.a(setsockopt.o): setsockopt.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/setsockopt.o setsockopt.c
|
|
||||||
../obj-ack/libc.a(shutdown.o): shutdown.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/shutdown.o shutdown.c
|
|
||||||
../obj-ack/libc.a(socket.o): socket.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/socket.o socket.c
|
|
||||||
../obj-ack/libc.a(strcasecmp.o): strcasecmp.c
|
|
||||||
cc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-ack/./ip/strcasecmp.o strcasecmp.c
|
|
||||||
|
|
||||||
all-gnu: ../obj-gnu/libc.a
|
|
||||||
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/accept.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/bind.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/connect.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/dhcp_gettag.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/dhcp_settag.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/ether_line.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/ethera2n.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/ethere2a.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/etherh2n.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/ethern2h.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/getdomain.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/gethnmadr.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/gethostent.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/gethostname.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/getnetbyaddr.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/getnetbyname.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/getnetent.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/getpeername.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/getproto.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/getprotoent.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/getprotoname.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/getservent.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/getsockname.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/getsockopt.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/getsrvbyname.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/getsrvbyport.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/hton.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/inet_addr.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/inet_network.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/inet_ntoa.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/listen.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/memcspn.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/oneC_sum.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/rcmd.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/recv.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/recvfrom.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/res_comp.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/res_init.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/res_mkquery.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/res_query.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/res_send.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/ruserok.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/send.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/sendto.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/servxcheck.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/sethostent.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/setsockopt.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/shutdown.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/socket.o
|
|
||||||
../obj-gnu/libc.a: ../obj-gnu/./ip/strcasecmp.o
|
|
||||||
|
|
||||||
../obj-gnu/libc.a:
|
|
||||||
gar cr ../obj-gnu/libc.a $?
|
|
||||||
|
|
||||||
../obj-gnu/./ip/accept.o: accept.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/accept.o accept.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/bind.o: bind.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/bind.o bind.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/connect.o: connect.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/connect.o connect.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/dhcp_gettag.o: dhcp_gettag.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/dhcp_gettag.o dhcp_gettag.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/dhcp_settag.o: dhcp_settag.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/dhcp_settag.o dhcp_settag.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/ether_line.o: ether_line.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/ether_line.o ether_line.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/ethera2n.o: ethera2n.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/ethera2n.o ethera2n.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/ethere2a.o: ethere2a.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/ethere2a.o ethere2a.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/etherh2n.o: etherh2n.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/etherh2n.o etherh2n.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/ethern2h.o: ethern2h.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/ethern2h.o ethern2h.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/getdomain.o: getdomain.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/getdomain.o getdomain.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/gethnmadr.o: gethnmadr.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/gethnmadr.o gethnmadr.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/gethostent.o: gethostent.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/gethostent.o gethostent.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/gethostname.o: gethostname.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/gethostname.o gethostname.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/getnetbyaddr.o: getnetbyaddr.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/getnetbyaddr.o getnetbyaddr.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/getnetbyname.o: getnetbyname.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/getnetbyname.o getnetbyname.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/getnetent.o: getnetent.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/getnetent.o getnetent.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/getpeername.o: getpeername.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/getpeername.o getpeername.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/getproto.o: getproto.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/getproto.o getproto.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/getprotoent.o: getprotoent.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/getprotoent.o getprotoent.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/getprotoname.o: getprotoname.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/getprotoname.o getprotoname.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/getservent.o: getservent.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/getservent.o getservent.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/getsockname.o: getsockname.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/getsockname.o getsockname.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/getsockopt.o: getsockopt.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/getsockopt.o getsockopt.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/getsrvbyname.o: getsrvbyname.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/getsrvbyname.o getsrvbyname.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/getsrvbyport.o: getsrvbyport.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/getsrvbyport.o getsrvbyport.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/hton.o: hton.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/hton.o hton.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/inet_addr.o: inet_addr.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/inet_addr.o inet_addr.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/inet_network.o: inet_network.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/inet_network.o inet_network.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/inet_ntoa.o: inet_ntoa.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/inet_ntoa.o inet_ntoa.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/listen.o: listen.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/listen.o listen.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/memcspn.o: memcspn.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/memcspn.o memcspn.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/oneC_sum.o: oneC_sum.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/oneC_sum.o oneC_sum.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/rcmd.o: rcmd.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/rcmd.o rcmd.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/recv.o: recv.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/recv.o recv.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/recvfrom.o: recvfrom.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/recvfrom.o recvfrom.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/res_comp.o: res_comp.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/res_comp.o res_comp.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/res_init.o: res_init.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/res_init.o res_init.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/res_mkquery.o: res_mkquery.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/res_mkquery.o res_mkquery.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/res_query.o: res_query.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/res_query.o res_query.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/res_send.o: res_send.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/res_send.o res_send.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/ruserok.o: ruserok.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/ruserok.o ruserok.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/send.o: send.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/send.o send.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/sendto.o: sendto.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/sendto.o sendto.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/servxcheck.o: servxcheck.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/servxcheck.o servxcheck.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/sethostent.o: sethostent.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/sethostent.o sethostent.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/setsockopt.o: setsockopt.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/setsockopt.o setsockopt.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/shutdown.o: shutdown.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/shutdown.o shutdown.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/socket.o: socket.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/socket.o socket.c
|
|
||||||
|
|
||||||
../obj-gnu/./ip/strcasecmp.o: strcasecmp.c
|
|
||||||
gcc -O -D_MINIX -D_POSIX_SOURCE -I. -DNDEBUG -c -o ../obj-gnu/./ip/strcasecmp.o strcasecmp.c
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
clean::
|
|
||||||
rm -f ../obj-ack/./ip/*
|
|
||||||
rm -f ../obj-gnu/./ip/*
|
|
||||||
|
|
||||||
include Makedepend-ack
|
|
||||||
include .depend-ack
|
|
||||||
|
|
||||||
include Makedepend-gnu
|
|
||||||
include .depend-gnu
|
|
||||||
|
|
@ -12,6 +12,7 @@ libc_FILES=" \
|
||||||
connect.c \
|
connect.c \
|
||||||
dhcp_gettag.c \
|
dhcp_gettag.c \
|
||||||
dhcp_settag.c \
|
dhcp_settag.c \
|
||||||
|
domainname.c \
|
||||||
ether_line.c \
|
ether_line.c \
|
||||||
ethera2n.c \
|
ethera2n.c \
|
||||||
ethere2a.c \
|
ethere2a.c \
|
||||||
|
|
|
||||||
|
|
@ -1,73 +0,0 @@
|
||||||
/*
|
|
||||||
(c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
*/
|
|
||||||
|
|
||||||
/*
|
|
||||||
Module: Access to program arguments and environment
|
|
||||||
Author: Ceriel J.H. Jacobs
|
|
||||||
Version: $Header$
|
|
||||||
*/
|
|
||||||
|
|
||||||
extern char **argv, ***_penviron;
|
|
||||||
extern int argc;
|
|
||||||
unsigned int _Arguments__Argc;
|
|
||||||
|
|
||||||
static char *
|
|
||||||
findname(s1, s2)
|
|
||||||
register char *s1, *s2;
|
|
||||||
{
|
|
||||||
|
|
||||||
while (*s1 == *s2++) s1++;
|
|
||||||
if (*s1 == '\0' && *(s2-1) == '=') return s2;
|
|
||||||
return 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
static unsigned int
|
|
||||||
scopy(src, dst, max)
|
|
||||||
register char *src, *dst;
|
|
||||||
unsigned int max;
|
|
||||||
{
|
|
||||||
register unsigned int i = 0;
|
|
||||||
|
|
||||||
while (*src && i <= max) {
|
|
||||||
i++;
|
|
||||||
*dst++ = *src++;
|
|
||||||
}
|
|
||||||
if (i <= max) {
|
|
||||||
*dst = '\0';
|
|
||||||
return i+1;
|
|
||||||
}
|
|
||||||
while (*src++) i++;
|
|
||||||
return i + 1;
|
|
||||||
}
|
|
||||||
|
|
||||||
_Arguments_()
|
|
||||||
{
|
|
||||||
_Arguments__Argc = argc;
|
|
||||||
}
|
|
||||||
|
|
||||||
unsigned
|
|
||||||
_Arguments__Argv(n, argument, l, u, s)
|
|
||||||
unsigned int u;
|
|
||||||
char *argument;
|
|
||||||
{
|
|
||||||
|
|
||||||
if (n >= argc) return 0;
|
|
||||||
return scopy(argv[n], argument, u);
|
|
||||||
}
|
|
||||||
|
|
||||||
unsigned
|
|
||||||
_Arguments__GetEnv(name, nn, nu, ns, value, l, u, s)
|
|
||||||
char *name, *value;
|
|
||||||
unsigned int nu, u;
|
|
||||||
{
|
|
||||||
register char **p = *_penviron;
|
|
||||||
register char *v = 0;
|
|
||||||
|
|
||||||
while (*p && !(v = findname(name, *p++))) {
|
|
||||||
/* nothing */
|
|
||||||
}
|
|
||||||
if (!v) return 0;
|
|
||||||
return scopy(v, value, u);
|
|
||||||
}
|
|
||||||
|
|
@ -1,155 +0,0 @@
|
||||||
(*
|
|
||||||
(c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
*)
|
|
||||||
|
|
||||||
(*$R-*)
|
|
||||||
IMPLEMENTATION MODULE ArraySort;
|
|
||||||
(*
|
|
||||||
Module: Array sorting module.
|
|
||||||
Author: Ceriel J.H. Jacobs
|
|
||||||
Version: $Header$
|
|
||||||
*)
|
|
||||||
FROM SYSTEM IMPORT ADDRESS, BYTE; (* no generics in Modula-2, sorry *)
|
|
||||||
|
|
||||||
TYPE BytePtr = POINTER TO BYTE;
|
|
||||||
|
|
||||||
VAR compareproc: CompareProc;
|
|
||||||
|
|
||||||
PROCEDURE Sort(base: ADDRESS; (* address of array *)
|
|
||||||
nel: CARDINAL; (* number of elements in array *)
|
|
||||||
size: CARDINAL; (* size of each element *)
|
|
||||||
compar: CompareProc); (* the comparison procedure *)
|
|
||||||
BEGIN
|
|
||||||
compareproc := compar;
|
|
||||||
qsort(base, base+(nel-1)*size, size);
|
|
||||||
END Sort;
|
|
||||||
|
|
||||||
PROCEDURE qsort(a1, a2: ADDRESS; size: CARDINAL);
|
|
||||||
(* Implemented with quick-sort, with some extra's *)
|
|
||||||
VAR left, right, lefteq, righteq: ADDRESS;
|
|
||||||
cmp: CompareResult;
|
|
||||||
mainloop: BOOLEAN;
|
|
||||||
BEGIN
|
|
||||||
WHILE a2 > a1 DO
|
|
||||||
left := a1;
|
|
||||||
right := a2;
|
|
||||||
lefteq := a1 + size * (((a2 - a1) + size) DIV (2 * size));
|
|
||||||
righteq := lefteq;
|
|
||||||
(*
|
|
||||||
Pick an element in the middle of the array.
|
|
||||||
We will collect the equals around it.
|
|
||||||
"lefteq" and "righteq" indicate the left and right
|
|
||||||
bounds of the equals respectively.
|
|
||||||
Smaller elements end up left of it, larger elements end
|
|
||||||
up right of it.
|
|
||||||
*)
|
|
||||||
LOOP
|
|
||||||
LOOP
|
|
||||||
IF left >= lefteq THEN EXIT END;
|
|
||||||
cmp := compareproc(left, lefteq);
|
|
||||||
IF cmp = greater THEN EXIT END;
|
|
||||||
IF cmp = less THEN
|
|
||||||
left := left + size;
|
|
||||||
ELSE
|
|
||||||
(* equal, so exchange with the element
|
|
||||||
to the left of the "equal"-interval.
|
|
||||||
*)
|
|
||||||
lefteq := lefteq - size;
|
|
||||||
exchange(left, lefteq, size);
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
mainloop := FALSE;
|
|
||||||
LOOP
|
|
||||||
IF right <= righteq THEN EXIT END;
|
|
||||||
cmp := compareproc(right, righteq);
|
|
||||||
IF cmp = less THEN
|
|
||||||
IF left < lefteq THEN
|
|
||||||
(* larger one at the left,
|
|
||||||
so exchange
|
|
||||||
*)
|
|
||||||
exchange(left,right,size);
|
|
||||||
left := left + size;
|
|
||||||
right := right - size;
|
|
||||||
mainloop := TRUE;
|
|
||||||
EXIT;
|
|
||||||
END;
|
|
||||||
(*
|
|
||||||
no more room at the left part, so we
|
|
||||||
move the "equal-interval" one place to the
|
|
||||||
right, and the smaller element to the
|
|
||||||
left of it.
|
|
||||||
This is best expressed as a three-way
|
|
||||||
exchange.
|
|
||||||
*)
|
|
||||||
righteq := righteq + size;
|
|
||||||
threewayexchange(left, righteq, right,
|
|
||||||
size);
|
|
||||||
lefteq := lefteq + size;
|
|
||||||
left := lefteq;
|
|
||||||
ELSIF cmp = equal THEN
|
|
||||||
(* equal, zo exchange with the element
|
|
||||||
to the right of the "equal"
|
|
||||||
interval
|
|
||||||
*)
|
|
||||||
righteq := righteq + size;
|
|
||||||
exchange(right, righteq, size);
|
|
||||||
ELSE
|
|
||||||
(* leave it where it is *)
|
|
||||||
right := right - size;
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
IF (NOT mainloop) THEN
|
|
||||||
IF left >= lefteq THEN
|
|
||||||
(* sort "smaller" part *)
|
|
||||||
qsort(a1, lefteq - size, size);
|
|
||||||
(* and now the "larger" part, saving a
|
|
||||||
procedure call, because of this big
|
|
||||||
WHILE loop
|
|
||||||
*)
|
|
||||||
a1 := righteq + size;
|
|
||||||
EXIT; (* from the LOOP *)
|
|
||||||
END;
|
|
||||||
(* larger element to the left, but no more room,
|
|
||||||
so move the "equal-interval" one place to the
|
|
||||||
left, and the larger element to the right
|
|
||||||
of it.
|
|
||||||
*)
|
|
||||||
lefteq := lefteq - size;
|
|
||||||
threewayexchange(right, lefteq, left, size);
|
|
||||||
righteq := righteq - size;
|
|
||||||
right := righteq;
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
END qsort;
|
|
||||||
|
|
||||||
PROCEDURE exchange(a,b: BytePtr; size : CARDINAL);
|
|
||||||
VAR c: BYTE;
|
|
||||||
BEGIN
|
|
||||||
WHILE size > 0 DO
|
|
||||||
DEC(size);
|
|
||||||
c := a^;
|
|
||||||
a^ := b^;
|
|
||||||
a := ADDRESS(a) + 1;
|
|
||||||
b^ := c;
|
|
||||||
b := ADDRESS(b) + 1;
|
|
||||||
END;
|
|
||||||
END exchange;
|
|
||||||
|
|
||||||
PROCEDURE threewayexchange(p,q,r: BytePtr; size: CARDINAL);
|
|
||||||
VAR c: BYTE;
|
|
||||||
BEGIN
|
|
||||||
WHILE size > 0 DO
|
|
||||||
DEC(size);
|
|
||||||
c := p^;
|
|
||||||
p^ := r^;
|
|
||||||
p := ADDRESS(p) + 1;
|
|
||||||
r^ := q^;
|
|
||||||
r := ADDRESS(r) + 1;
|
|
||||||
q^ := c;
|
|
||||||
q := ADDRESS(q) + 1;
|
|
||||||
END;
|
|
||||||
END threewayexchange;
|
|
||||||
|
|
||||||
END ArraySort.
|
|
||||||
|
|
@ -1,347 +0,0 @@
|
||||||
(*$R-*)
|
|
||||||
IMPLEMENTATION MODULE CSP;
|
|
||||||
(*
|
|
||||||
Module: Communicating Sequential Processes
|
|
||||||
From: "A Modula-2 Implementation of CSP",
|
|
||||||
M. Collado, R. Morales, J.J. Moreno,
|
|
||||||
SIGPlan Notices, Volume 22, Number 6, June 1987.
|
|
||||||
Some modifications by Ceriel J.H. Jacobs
|
|
||||||
Version: $Header$
|
|
||||||
|
|
||||||
See this article for an explanation of the use of this module.
|
|
||||||
*)
|
|
||||||
|
|
||||||
FROM random IMPORT Uniform;
|
|
||||||
FROM SYSTEM IMPORT BYTE, ADDRESS, NEWPROCESS, TRANSFER;
|
|
||||||
FROM Storage IMPORT Allocate, Deallocate;
|
|
||||||
FROM Traps IMPORT Message;
|
|
||||||
|
|
||||||
CONST WorkSpaceSize = 2000;
|
|
||||||
|
|
||||||
TYPE ByteAddress = POINTER TO BYTE;
|
|
||||||
Channel = POINTER TO ChannelDescriptor;
|
|
||||||
ProcessType = POINTER TO ProcessDescriptor;
|
|
||||||
ProcessDescriptor = RECORD
|
|
||||||
next: ProcessType;
|
|
||||||
father: ProcessType;
|
|
||||||
cor: ADDRESS;
|
|
||||||
wsp: ADDRESS;
|
|
||||||
guardindex: INTEGER;
|
|
||||||
guardno: CARDINAL;
|
|
||||||
guardcount: CARDINAL;
|
|
||||||
opened: Channel;
|
|
||||||
sons: CARDINAL;
|
|
||||||
msgadr: ADDRESS;
|
|
||||||
msglen: CARDINAL;
|
|
||||||
END;
|
|
||||||
|
|
||||||
Queue = RECORD
|
|
||||||
head, tail: ProcessType;
|
|
||||||
END;
|
|
||||||
|
|
||||||
ChannelDescriptor = RECORD
|
|
||||||
senders: Queue;
|
|
||||||
owner: ProcessType;
|
|
||||||
guardindex: INTEGER;
|
|
||||||
next: Channel;
|
|
||||||
END;
|
|
||||||
|
|
||||||
VAR cp: ProcessType;
|
|
||||||
free, ready: Queue;
|
|
||||||
|
|
||||||
(* ------------ Private modules and procedures ------------- *)
|
|
||||||
|
|
||||||
MODULE ProcessQueue;
|
|
||||||
|
|
||||||
IMPORT ProcessType, Queue;
|
|
||||||
EXPORT Push, Pop, InitQueue, IsEmpty;
|
|
||||||
|
|
||||||
PROCEDURE InitQueue(VAR q: Queue);
|
|
||||||
BEGIN
|
|
||||||
WITH q DO
|
|
||||||
head := NIL;
|
|
||||||
tail := NIL
|
|
||||||
END
|
|
||||||
END InitQueue;
|
|
||||||
|
|
||||||
PROCEDURE Push(p: ProcessType; VAR q: Queue);
|
|
||||||
BEGIN
|
|
||||||
p^.next := NIL;
|
|
||||||
WITH q DO
|
|
||||||
IF head = NIL THEN
|
|
||||||
tail := p
|
|
||||||
ELSE
|
|
||||||
head^.next := p
|
|
||||||
END;
|
|
||||||
head := p
|
|
||||||
END
|
|
||||||
END Push;
|
|
||||||
|
|
||||||
PROCEDURE Pop(VAR q: Queue; VAR p: ProcessType);
|
|
||||||
BEGIN
|
|
||||||
WITH q DO
|
|
||||||
p := tail;
|
|
||||||
IF p # NIL THEN
|
|
||||||
tail := tail^.next;
|
|
||||||
IF head = p THEN
|
|
||||||
head := NIL
|
|
||||||
END
|
|
||||||
END
|
|
||||||
END
|
|
||||||
END Pop;
|
|
||||||
|
|
||||||
PROCEDURE IsEmpty(q: Queue): BOOLEAN;
|
|
||||||
BEGIN
|
|
||||||
RETURN q.head = NIL
|
|
||||||
END IsEmpty;
|
|
||||||
|
|
||||||
END ProcessQueue;
|
|
||||||
|
|
||||||
|
|
||||||
PROCEDURE DoTransfer;
|
|
||||||
VAR aux: ProcessType;
|
|
||||||
BEGIN
|
|
||||||
aux := cp;
|
|
||||||
Pop(ready, cp);
|
|
||||||
IF cp = NIL THEN
|
|
||||||
HALT
|
|
||||||
ELSE
|
|
||||||
TRANSFER(aux^.cor, cp^.cor)
|
|
||||||
END
|
|
||||||
END DoTransfer;
|
|
||||||
|
|
||||||
PROCEDURE OpenChannel(ch: Channel; n: INTEGER);
|
|
||||||
BEGIN
|
|
||||||
WITH ch^ DO
|
|
||||||
IF guardindex = 0 THEN
|
|
||||||
guardindex := n;
|
|
||||||
next := cp^.opened;
|
|
||||||
cp^.opened := ch
|
|
||||||
END
|
|
||||||
END
|
|
||||||
END OpenChannel;
|
|
||||||
|
|
||||||
PROCEDURE CloseChannels(p: ProcessType);
|
|
||||||
BEGIN
|
|
||||||
WITH p^ DO
|
|
||||||
WHILE opened # NIL DO
|
|
||||||
opened^.guardindex := 0;
|
|
||||||
opened := opened^.next
|
|
||||||
END
|
|
||||||
END
|
|
||||||
END CloseChannels;
|
|
||||||
|
|
||||||
PROCEDURE ThereAreOpenChannels(): BOOLEAN;
|
|
||||||
BEGIN
|
|
||||||
RETURN cp^.opened # NIL;
|
|
||||||
END ThereAreOpenChannels;
|
|
||||||
|
|
||||||
PROCEDURE Sending(ch: Channel): BOOLEAN;
|
|
||||||
BEGIN
|
|
||||||
RETURN NOT IsEmpty(ch^.senders)
|
|
||||||
END Sending;
|
|
||||||
|
|
||||||
(* -------------- Public Procedures ----------------- *)
|
|
||||||
|
|
||||||
PROCEDURE COBEGIN;
|
|
||||||
(* Beginning of a COBEGIN .. COEND structure *)
|
|
||||||
BEGIN
|
|
||||||
END COBEGIN;
|
|
||||||
|
|
||||||
PROCEDURE COEND;
|
|
||||||
(* End of a COBEGIN .. COEND structure *)
|
|
||||||
(* VAR aux: ProcessType; *)
|
|
||||||
BEGIN
|
|
||||||
IF cp^.sons > 0 THEN
|
|
||||||
DoTransfer
|
|
||||||
END
|
|
||||||
END COEND;
|
|
||||||
|
|
||||||
PROCEDURE StartProcess(P: PROC);
|
|
||||||
(* Start an anonimous process that executes the procedure P *)
|
|
||||||
VAR newprocess: ProcessType;
|
|
||||||
BEGIN
|
|
||||||
Pop(free, newprocess);
|
|
||||||
IF newprocess = NIL THEN
|
|
||||||
Allocate(newprocess,SIZE(ProcessDescriptor));
|
|
||||||
Allocate(newprocess^.wsp, WorkSpaceSize)
|
|
||||||
END;
|
|
||||||
WITH newprocess^ DO
|
|
||||||
father := cp;
|
|
||||||
sons := 0;
|
|
||||||
msglen := 0;
|
|
||||||
NEWPROCESS(P, wsp, WorkSpaceSize, cor)
|
|
||||||
END;
|
|
||||||
cp^.sons := cp^.sons + 1;
|
|
||||||
Push(newprocess, ready)
|
|
||||||
END StartProcess;
|
|
||||||
|
|
||||||
PROCEDURE StopProcess;
|
|
||||||
(* Terminate a Process (itself) *)
|
|
||||||
VAR aux: ProcessType;
|
|
||||||
BEGIN
|
|
||||||
aux := cp^.father;
|
|
||||||
aux^.sons := aux^.sons - 1;
|
|
||||||
IF aux^.sons = 0 THEN
|
|
||||||
Push(aux, ready)
|
|
||||||
END;
|
|
||||||
aux := cp;
|
|
||||||
Push(aux, free);
|
|
||||||
Pop(ready, cp);
|
|
||||||
IF cp = NIL THEN
|
|
||||||
HALT
|
|
||||||
ELSE
|
|
||||||
TRANSFER(aux^.cor, cp^.cor)
|
|
||||||
END
|
|
||||||
END StopProcess;
|
|
||||||
|
|
||||||
PROCEDURE InitChannel(VAR ch: Channel);
|
|
||||||
(* Initialize the channel ch *)
|
|
||||||
BEGIN
|
|
||||||
Allocate(ch, SIZE(ChannelDescriptor));
|
|
||||||
WITH ch^ DO
|
|
||||||
InitQueue(senders);
|
|
||||||
owner := NIL;
|
|
||||||
next := NIL;
|
|
||||||
guardindex := 0
|
|
||||||
END
|
|
||||||
END InitChannel;
|
|
||||||
|
|
||||||
PROCEDURE GetChannel(ch: Channel);
|
|
||||||
(* Assign the channel ch to the process that gets it *)
|
|
||||||
BEGIN
|
|
||||||
WITH ch^ DO
|
|
||||||
IF owner # NIL THEN
|
|
||||||
Message("Channel already has an owner");
|
|
||||||
HALT
|
|
||||||
END;
|
|
||||||
owner := cp
|
|
||||||
END
|
|
||||||
END GetChannel;
|
|
||||||
|
|
||||||
PROCEDURE Send(data: ARRAY OF BYTE; VAR ch: Channel);
|
|
||||||
(* Send a message with the data to the cvhannel ch *)
|
|
||||||
VAR m: ByteAddress;
|
|
||||||
(* aux: ProcessType; *)
|
|
||||||
i: CARDINAL;
|
|
||||||
BEGIN
|
|
||||||
WITH ch^ DO
|
|
||||||
Push(cp, senders);
|
|
||||||
Allocate(cp^.msgadr, SIZE(data));
|
|
||||||
m := cp^.msgadr;
|
|
||||||
cp^.msglen := HIGH(data);
|
|
||||||
FOR i := 0 TO HIGH(data) DO
|
|
||||||
m^ := data[i];
|
|
||||||
m := ADDRESS(m) + 1
|
|
||||||
END;
|
|
||||||
IF guardindex # 0 THEN
|
|
||||||
owner^.guardindex := guardindex;
|
|
||||||
CloseChannels(owner);
|
|
||||||
Push(owner, ready)
|
|
||||||
END
|
|
||||||
END;
|
|
||||||
DoTransfer
|
|
||||||
END Send;
|
|
||||||
|
|
||||||
PROCEDURE Receive(VAR ch: Channel; VAR dest: ARRAY OF BYTE);
|
|
||||||
(* Receive a message from the channel ch into the dest variable *)
|
|
||||||
VAR aux: ProcessType;
|
|
||||||
m: ByteAddress;
|
|
||||||
i: CARDINAL;
|
|
||||||
BEGIN
|
|
||||||
WITH ch^ DO
|
|
||||||
IF cp # owner THEN
|
|
||||||
Message("Only owner of channel can receive from it");
|
|
||||||
HALT
|
|
||||||
END;
|
|
||||||
IF Sending(ch) THEN
|
|
||||||
Pop(senders, aux);
|
|
||||||
m := aux^.msgadr;
|
|
||||||
FOR i := 0 TO aux^.msglen DO
|
|
||||||
dest[i] := m^;
|
|
||||||
m := ADDRESS(m) + 1
|
|
||||||
END;
|
|
||||||
Push(aux, ready);
|
|
||||||
Push(cp, ready);
|
|
||||||
CloseChannels(cp)
|
|
||||||
ELSE
|
|
||||||
OpenChannel(ch, -1);
|
|
||||||
DoTransfer;
|
|
||||||
Pop(senders, aux);
|
|
||||||
m := aux^.msgadr;
|
|
||||||
FOR i := 0 TO aux^.msglen DO
|
|
||||||
dest[i] := m^;
|
|
||||||
m := ADDRESS(m) + 1
|
|
||||||
END;
|
|
||||||
Push(cp, ready);
|
|
||||||
Push(aux, ready)
|
|
||||||
END;
|
|
||||||
Deallocate(aux^.msgadr, aux^.msglen+1);
|
|
||||||
DoTransfer
|
|
||||||
END
|
|
||||||
END Receive;
|
|
||||||
|
|
||||||
PROCEDURE SELECT(n: CARDINAL);
|
|
||||||
(* Beginning of a SELECT structure with n guards *)
|
|
||||||
BEGIN
|
|
||||||
cp^.guardindex := Uniform(1,n);
|
|
||||||
cp^.guardno := n;
|
|
||||||
cp^.guardcount := n
|
|
||||||
END SELECT;
|
|
||||||
|
|
||||||
PROCEDURE NEXTGUARD(): CARDINAL;
|
|
||||||
(* Returns an index to the next guard to be evaluated in a SELECT *)
|
|
||||||
BEGIN
|
|
||||||
RETURN cp^.guardindex
|
|
||||||
END NEXTGUARD;
|
|
||||||
|
|
||||||
PROCEDURE GUARD(cond: BOOLEAN; ch: Channel;
|
|
||||||
VAR dest: ARRAY OF BYTE): BOOLEAN;
|
|
||||||
(* Evaluates a guard, including reception management *)
|
|
||||||
(* VAR aux: ProcessType; *)
|
|
||||||
BEGIN
|
|
||||||
IF NOT cond THEN
|
|
||||||
RETURN FALSE
|
|
||||||
ELSIF ch = NIL THEN
|
|
||||||
CloseChannels(cp);
|
|
||||||
cp^.guardindex := 0;
|
|
||||||
RETURN TRUE
|
|
||||||
ELSIF Sending(ch) THEN
|
|
||||||
Receive(ch, dest);
|
|
||||||
cp^.guardindex := 0;
|
|
||||||
RETURN TRUE
|
|
||||||
ELSE
|
|
||||||
OpenChannel(ch, cp^.guardindex);
|
|
||||||
RETURN FALSE
|
|
||||||
END
|
|
||||||
END GUARD;
|
|
||||||
|
|
||||||
PROCEDURE ENDSELECT(): BOOLEAN;
|
|
||||||
(* End of a SELECT structure *)
|
|
||||||
BEGIN
|
|
||||||
WITH cp^ DO
|
|
||||||
IF guardindex <= 0 THEN
|
|
||||||
RETURN TRUE
|
|
||||||
END;
|
|
||||||
guardcount := guardcount - 1;
|
|
||||||
IF guardcount # 0 THEN
|
|
||||||
guardindex := (guardindex MOD INTEGER(guardno)) + 1
|
|
||||||
ELSIF ThereAreOpenChannels() THEN
|
|
||||||
DoTransfer
|
|
||||||
ELSE
|
|
||||||
guardindex := 0
|
|
||||||
END
|
|
||||||
END;
|
|
||||||
RETURN FALSE
|
|
||||||
END ENDSELECT;
|
|
||||||
|
|
||||||
BEGIN
|
|
||||||
InitQueue(free);
|
|
||||||
InitQueue(ready);
|
|
||||||
Allocate(cp,SIZE(ProcessDescriptor));
|
|
||||||
WITH cp^ DO
|
|
||||||
sons := 0;
|
|
||||||
father := NIL
|
|
||||||
END
|
|
||||||
END CSP.
|
|
||||||
|
|
||||||
|
|
@ -1,73 +0,0 @@
|
||||||
(*
|
|
||||||
(c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
*)
|
|
||||||
|
|
||||||
(*$R-*)
|
|
||||||
IMPLEMENTATION MODULE Conversions;
|
|
||||||
(*
|
|
||||||
Module: numeric-to-string conversions
|
|
||||||
Author: Ceriel J.H. Jacobs
|
|
||||||
Version: $Header$
|
|
||||||
*)
|
|
||||||
|
|
||||||
PROCEDURE ConvertNum(num, len, base: CARDINAL;
|
|
||||||
neg: BOOLEAN;
|
|
||||||
VAR str: ARRAY OF CHAR);
|
|
||||||
VAR i: CARDINAL;
|
|
||||||
r: CARDINAL;
|
|
||||||
tmp: ARRAY [0..20] OF CHAR;
|
|
||||||
BEGIN
|
|
||||||
i := 0;
|
|
||||||
REPEAT
|
|
||||||
r := num MOD base;
|
|
||||||
num := num DIV base;
|
|
||||||
IF r <= 9 THEN
|
|
||||||
tmp[i] := CHR(r + ORD('0'));
|
|
||||||
ELSE
|
|
||||||
tmp[i] := CHR(r - 10 + ORD('A'));
|
|
||||||
END;
|
|
||||||
INC(i);
|
|
||||||
UNTIL num = 0;
|
|
||||||
IF neg THEN
|
|
||||||
tmp[i] := '-';
|
|
||||||
INC(i)
|
|
||||||
END;
|
|
||||||
IF len > HIGH(str) + 1 THEN len := HIGH(str) + 1; END;
|
|
||||||
IF i > HIGH(str) + 1 THEN i := HIGH(str) + 1; END;
|
|
||||||
r := 0;
|
|
||||||
WHILE len > i DO str[r] := ' '; INC(r); DEC(len); END;
|
|
||||||
WHILE i > 0 DO str[r] := tmp[i-1]; DEC(i); INC(r); END;
|
|
||||||
WHILE r <= HIGH(str) DO
|
|
||||||
str[r] := 0C;
|
|
||||||
INC(r);
|
|
||||||
END;
|
|
||||||
END ConvertNum;
|
|
||||||
|
|
||||||
PROCEDURE ConvertOctal(num, len: CARDINAL; VAR str: ARRAY OF CHAR);
|
|
||||||
BEGIN
|
|
||||||
ConvertNum(num, len, 8, FALSE, str);
|
|
||||||
END ConvertOctal;
|
|
||||||
|
|
||||||
PROCEDURE ConvertHex(num, len: CARDINAL; VAR str: ARRAY OF CHAR);
|
|
||||||
BEGIN
|
|
||||||
ConvertNum(num, len, 16, FALSE, str);
|
|
||||||
END ConvertHex;
|
|
||||||
|
|
||||||
PROCEDURE ConvertCardinal(num, len: CARDINAL; VAR str: ARRAY OF CHAR);
|
|
||||||
BEGIN
|
|
||||||
ConvertNum(num, len, 10, FALSE, str);
|
|
||||||
END ConvertCardinal;
|
|
||||||
|
|
||||||
PROCEDURE ConvertInteger(num: INTEGER;
|
|
||||||
len: CARDINAL;
|
|
||||||
VAR str: ARRAY OF CHAR);
|
|
||||||
BEGIN
|
|
||||||
IF (num < 0) AND (num >= -MAX(INTEGER)) THEN
|
|
||||||
ConvertNum(-num, len, 10, TRUE, str);
|
|
||||||
ELSE
|
|
||||||
ConvertNum(CARDINAL(num), len, 10, num < 0, str);
|
|
||||||
END;
|
|
||||||
END ConvertInteger;
|
|
||||||
|
|
||||||
END Conversions.
|
|
||||||
100
lib/libm2/EM.e
100
lib/libm2/EM.e
|
|
@ -1,100 +0,0 @@
|
||||||
#
|
|
||||||
;
|
|
||||||
; (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
; See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
;
|
|
||||||
;
|
|
||||||
; Module: Interface to some EM instructions and data
|
|
||||||
; Author: Ceriel J.H. Jacobs
|
|
||||||
; Version: $Header$
|
|
||||||
;
|
|
||||||
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
|
|
||||||
; Definition:
|
|
||||||
; PROCEDURE FIF(ARG1, ARG2: LONGREAL; VAR IRES: LONGREAL) : LONGREAL;
|
|
||||||
|
|
||||||
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 ?
|
|
||||||
|
|
||||||
#define FARG 0
|
|
||||||
#define ERES _EM_DSIZE
|
|
||||||
|
|
||||||
; FEF is called with two parameters:
|
|
||||||
; - address of base 2 exponent result (ERES)
|
|
||||||
; - floating point number to be split (FARG)
|
|
||||||
; and returns an _EM_DSIZE-byte floating point number (the mantissa)
|
|
||||||
; Definition:
|
|
||||||
; PROCEDURE FEF(FARG: LONGREAL; VAR ERES: integer): LONGREAL;
|
|
||||||
|
|
||||||
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 ?
|
|
||||||
|
|
||||||
#define TRAP 0
|
|
||||||
|
|
||||||
; TRP is called with one parameter:
|
|
||||||
; - trap number (TRAP)
|
|
||||||
; Definition:
|
|
||||||
; PROCEDURE TRP(trapno: INTEGER);
|
|
||||||
|
|
||||||
exp $TRP
|
|
||||||
pro $TRP, 0
|
|
||||||
lol TRAP
|
|
||||||
trp
|
|
||||||
ret 0
|
|
||||||
end ?
|
|
||||||
|
|
||||||
#define PROC 0
|
|
||||||
|
|
||||||
; SIG is called with one parameter:
|
|
||||||
; - procedure instance identifier (PROC)
|
|
||||||
; and returns the old traphandler.
|
|
||||||
|
|
||||||
exa handler
|
|
||||||
exp $SIG
|
|
||||||
pro $SIG, 0
|
|
||||||
lae handler
|
|
||||||
loi _EM_PSIZE
|
|
||||||
lal PROC
|
|
||||||
loi _EM_PSIZE
|
|
||||||
lae handler
|
|
||||||
sti _EM_PSIZE
|
|
||||||
ret _EM_PSIZE
|
|
||||||
end ?
|
|
||||||
|
|
||||||
exp $LINO
|
|
||||||
pro $LINO,0
|
|
||||||
loe 0
|
|
||||||
ret _EM_WSIZE
|
|
||||||
end ?
|
|
||||||
|
|
||||||
exp $FILN
|
|
||||||
pro $FILN,0
|
|
||||||
lae 4
|
|
||||||
loi _EM_PSIZE
|
|
||||||
ret _EM_PSIZE
|
|
||||||
end ?
|
|
||||||
|
|
@ -1,371 +0,0 @@
|
||||||
(*
|
|
||||||
(c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
*)
|
|
||||||
|
|
||||||
(*$R-*)
|
|
||||||
IMPLEMENTATION MODULE InOut ;
|
|
||||||
(*
|
|
||||||
Module: Wirth's Input/Output module
|
|
||||||
Author: Ceriel J.H. Jacobs
|
|
||||||
Version: $Header$
|
|
||||||
*)
|
|
||||||
|
|
||||||
IMPORT Streams;
|
|
||||||
FROM Conversions IMPORT
|
|
||||||
ConvertCardinal, ConvertInteger,
|
|
||||||
ConvertOctal, ConvertHex;
|
|
||||||
FROM Traps IMPORT Message;
|
|
||||||
|
|
||||||
CONST TAB = 11C;
|
|
||||||
|
|
||||||
TYPE numbuf = ARRAY[0..255] OF CHAR;
|
|
||||||
|
|
||||||
VAR unread: BOOLEAN;
|
|
||||||
unreadch: CHAR;
|
|
||||||
CurrIn, CurrOut: Streams.Stream;
|
|
||||||
result: Streams.StreamResult;
|
|
||||||
|
|
||||||
PROCEDURE Read(VAR c : CHAR);
|
|
||||||
|
|
||||||
BEGIN
|
|
||||||
IF unread THEN
|
|
||||||
unread := FALSE;
|
|
||||||
c := unreadch;
|
|
||||||
Done := TRUE;
|
|
||||||
ELSE
|
|
||||||
Streams.Read(CurrIn, c, result);
|
|
||||||
Done := result = Streams.succeeded;
|
|
||||||
END;
|
|
||||||
END Read;
|
|
||||||
|
|
||||||
PROCEDURE UnRead(ch: CHAR);
|
|
||||||
BEGIN
|
|
||||||
unread := TRUE;
|
|
||||||
unreadch := ch;
|
|
||||||
END UnRead;
|
|
||||||
|
|
||||||
PROCEDURE Write(c: CHAR);
|
|
||||||
BEGIN
|
|
||||||
Streams.Write(CurrOut, c, result);
|
|
||||||
END Write;
|
|
||||||
|
|
||||||
PROCEDURE OpenInput(defext: ARRAY OF CHAR);
|
|
||||||
VAR namebuf : ARRAY [1..128] OF CHAR;
|
|
||||||
BEGIN
|
|
||||||
IF CurrIn # Streams.InputStream THEN
|
|
||||||
Streams.CloseStream(CurrIn, result);
|
|
||||||
END;
|
|
||||||
MakeFileName("Name of input file: ", defext, namebuf);
|
|
||||||
IF NOT Done THEN RETURN; END;
|
|
||||||
openinput(namebuf);
|
|
||||||
END OpenInput;
|
|
||||||
|
|
||||||
PROCEDURE OpenInputFile(filename: ARRAY OF CHAR);
|
|
||||||
BEGIN
|
|
||||||
IF CurrIn # Streams.InputStream THEN
|
|
||||||
Streams.CloseStream(CurrIn, result);
|
|
||||||
END;
|
|
||||||
openinput(filename);
|
|
||||||
END OpenInputFile;
|
|
||||||
|
|
||||||
PROCEDURE openinput(namebuf: ARRAY OF CHAR);
|
|
||||||
BEGIN
|
|
||||||
IF (namebuf[0] = '-') AND (namebuf[1] = 0C) THEN
|
|
||||||
CurrIn := Streams.InputStream;
|
|
||||||
Done := TRUE;
|
|
||||||
ELSE
|
|
||||||
Streams.OpenStream(CurrIn, namebuf, Streams.text,
|
|
||||||
Streams.reading, result);
|
|
||||||
Done := result = Streams.succeeded;
|
|
||||||
END;
|
|
||||||
END openinput;
|
|
||||||
|
|
||||||
PROCEDURE CloseInput;
|
|
||||||
BEGIN
|
|
||||||
IF CurrIn # Streams.InputStream THEN
|
|
||||||
Streams.CloseStream(CurrIn, result);
|
|
||||||
END;
|
|
||||||
CurrIn := Streams.InputStream;
|
|
||||||
END CloseInput;
|
|
||||||
|
|
||||||
PROCEDURE OpenOutput(defext: ARRAY OF CHAR);
|
|
||||||
VAR namebuf : ARRAY [1..128] OF CHAR;
|
|
||||||
BEGIN
|
|
||||||
IF CurrOut # Streams.OutputStream THEN
|
|
||||||
Streams.CloseStream(CurrOut, result);
|
|
||||||
END;
|
|
||||||
MakeFileName("Name of output file: ", defext, namebuf);
|
|
||||||
IF NOT Done THEN RETURN; END;
|
|
||||||
openoutput(namebuf);
|
|
||||||
END OpenOutput;
|
|
||||||
|
|
||||||
PROCEDURE OpenOutputFile(filename: ARRAY OF CHAR);
|
|
||||||
BEGIN
|
|
||||||
IF CurrOut # Streams.OutputStream THEN
|
|
||||||
Streams.CloseStream(CurrOut, result);
|
|
||||||
END;
|
|
||||||
openoutput(filename);
|
|
||||||
END OpenOutputFile;
|
|
||||||
|
|
||||||
PROCEDURE openoutput(namebuf: ARRAY OF CHAR);
|
|
||||||
BEGIN
|
|
||||||
IF (namebuf[1] = '-') AND (namebuf[2] = 0C) THEN
|
|
||||||
CurrOut := Streams.OutputStream;
|
|
||||||
Done := TRUE;
|
|
||||||
ELSE
|
|
||||||
Streams.OpenStream(CurrOut, namebuf, Streams.text,
|
|
||||||
Streams.writing, result);
|
|
||||||
Done := result = Streams.succeeded;
|
|
||||||
END;
|
|
||||||
END openoutput;
|
|
||||||
|
|
||||||
PROCEDURE CloseOutput;
|
|
||||||
BEGIN
|
|
||||||
IF CurrOut # Streams.OutputStream THEN
|
|
||||||
Streams.CloseStream(CurrOut, result);
|
|
||||||
END;
|
|
||||||
CurrOut := Streams.OutputStream;
|
|
||||||
END CloseOutput;
|
|
||||||
|
|
||||||
PROCEDURE MakeFileName(prompt, defext : ARRAY OF CHAR;
|
|
||||||
VAR buf : ARRAY OF CHAR);
|
|
||||||
VAR i : INTEGER;
|
|
||||||
j : CARDINAL;
|
|
||||||
BEGIN
|
|
||||||
Done := TRUE;
|
|
||||||
IF Streams.isatty(Streams.InputStream, result) THEN
|
|
||||||
XWriteString(prompt);
|
|
||||||
END;
|
|
||||||
XReadString(buf);
|
|
||||||
i := 0;
|
|
||||||
WHILE buf[i] # 0C DO i := i + 1 END;
|
|
||||||
IF i # 0 THEN
|
|
||||||
i := i - 1;
|
|
||||||
IF buf[i] = '.' THEN
|
|
||||||
FOR j := 0 TO HIGH(defext) DO
|
|
||||||
i := i + 1;
|
|
||||||
buf[i] := defext[j];
|
|
||||||
END;
|
|
||||||
buf[i+1] := 0C;
|
|
||||||
END;
|
|
||||||
RETURN;
|
|
||||||
END;
|
|
||||||
Done := FALSE;
|
|
||||||
END MakeFileName;
|
|
||||||
|
|
||||||
PROCEDURE ReadInt(VAR integ : INTEGER);
|
|
||||||
CONST
|
|
||||||
SAFELIMITDIV10 = MAX(INTEGER) DIV 10;
|
|
||||||
SAFELIMITREM10 = MAX(INTEGER) MOD 10;
|
|
||||||
TYPE
|
|
||||||
itype = [0..31];
|
|
||||||
ibuf = ARRAY itype OF CHAR;
|
|
||||||
VAR
|
|
||||||
int : INTEGER;
|
|
||||||
neg : BOOLEAN;
|
|
||||||
safedigit: [0 .. 9];
|
|
||||||
chvalue: CARDINAL;
|
|
||||||
buf : ibuf;
|
|
||||||
index : itype;
|
|
||||||
BEGIN
|
|
||||||
ReadString(buf);
|
|
||||||
IF NOT Done THEN
|
|
||||||
RETURN
|
|
||||||
END;
|
|
||||||
index := 0;
|
|
||||||
IF buf[index] = '-' THEN
|
|
||||||
neg := TRUE;
|
|
||||||
INC(index);
|
|
||||||
ELSIF buf[index] = '+' THEN
|
|
||||||
neg := FALSE;
|
|
||||||
INC(index);
|
|
||||||
ELSE
|
|
||||||
neg := FALSE
|
|
||||||
END;
|
|
||||||
|
|
||||||
safedigit := SAFELIMITREM10;
|
|
||||||
IF neg THEN safedigit := safedigit + 1 END;
|
|
||||||
int := 0;
|
|
||||||
WHILE (buf[index] >= '0') & (buf[index] <= '9') DO
|
|
||||||
chvalue := ORD(buf[index]) - ORD('0');
|
|
||||||
IF (int > SAFELIMITDIV10) OR
|
|
||||||
( (int = SAFELIMITDIV10) AND
|
|
||||||
(chvalue > safedigit)) THEN
|
|
||||||
Message("integer too large");
|
|
||||||
HALT;
|
|
||||||
ELSE
|
|
||||||
int := 10*int + VAL(INTEGER, chvalue);
|
|
||||||
INC(index)
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
IF neg THEN
|
|
||||||
integ := -int
|
|
||||||
ELSE
|
|
||||||
integ := int
|
|
||||||
END;
|
|
||||||
IF buf[index] > " " THEN
|
|
||||||
Message("illegal integer");
|
|
||||||
HALT;
|
|
||||||
END;
|
|
||||||
Done := TRUE;
|
|
||||||
END ReadInt;
|
|
||||||
|
|
||||||
PROCEDURE ReadCard(VAR card : CARDINAL);
|
|
||||||
CONST
|
|
||||||
SAFELIMITDIV10 = MAX(CARDINAL) DIV 10;
|
|
||||||
SAFELIMITREM10 = MAX(CARDINAL) MOD 10;
|
|
||||||
|
|
||||||
TYPE
|
|
||||||
itype = [0..31];
|
|
||||||
ibuf = ARRAY itype OF CHAR;
|
|
||||||
|
|
||||||
VAR
|
|
||||||
int : CARDINAL;
|
|
||||||
index : itype;
|
|
||||||
buf : ibuf;
|
|
||||||
safedigit: [0 .. 9];
|
|
||||||
chvalue: CARDINAL;
|
|
||||||
BEGIN
|
|
||||||
ReadString(buf);
|
|
||||||
IF NOT Done THEN RETURN; END;
|
|
||||||
index := 0;
|
|
||||||
safedigit := SAFELIMITREM10;
|
|
||||||
int := 0;
|
|
||||||
WHILE (buf[index] >= '0') & (buf[index] <= '9') DO
|
|
||||||
chvalue := ORD(buf[index]) - ORD('0');
|
|
||||||
IF (int > SAFELIMITDIV10) OR
|
|
||||||
( (int = SAFELIMITDIV10) AND
|
|
||||||
(chvalue > safedigit)) THEN
|
|
||||||
Message("cardinal too large");
|
|
||||||
HALT;
|
|
||||||
ELSE
|
|
||||||
int := 10*int + chvalue;
|
|
||||||
INC(index);
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
IF buf[index] > " " THEN
|
|
||||||
Message("illegal cardinal");
|
|
||||||
HALT;
|
|
||||||
END;
|
|
||||||
card := int;
|
|
||||||
Done := TRUE;
|
|
||||||
END ReadCard;
|
|
||||||
|
|
||||||
PROCEDURE ReadString(VAR s : ARRAY OF CHAR);
|
|
||||||
TYPE charset = SET OF CHAR;
|
|
||||||
VAR i : CARDINAL;
|
|
||||||
ch : CHAR;
|
|
||||||
|
|
||||||
BEGIN
|
|
||||||
i := 0;
|
|
||||||
REPEAT
|
|
||||||
Read(ch);
|
|
||||||
UNTIL NOT (ch IN charset{' ', TAB, 12C, 15C});
|
|
||||||
IF NOT Done THEN
|
|
||||||
RETURN;
|
|
||||||
END;
|
|
||||||
UnRead(ch);
|
|
||||||
REPEAT
|
|
||||||
Read(ch);
|
|
||||||
termCH := ch;
|
|
||||||
IF i <= HIGH(s) THEN
|
|
||||||
s[i] := ch;
|
|
||||||
IF (NOT Done) OR (ch <= " ") THEN
|
|
||||||
s[i] := 0C;
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
INC(i);
|
|
||||||
UNTIL (NOT Done) OR (ch <= " ");
|
|
||||||
IF Done THEN UnRead(ch); END;
|
|
||||||
END ReadString;
|
|
||||||
|
|
||||||
PROCEDURE XReadString(VAR s : ARRAY OF CHAR);
|
|
||||||
VAR j : CARDINAL;
|
|
||||||
ch : CHAR;
|
|
||||||
|
|
||||||
BEGIN
|
|
||||||
j := 0;
|
|
||||||
LOOP
|
|
||||||
Streams.Read(Streams.InputStream, ch, result);
|
|
||||||
IF result # Streams.succeeded THEN
|
|
||||||
EXIT;
|
|
||||||
END;
|
|
||||||
IF ch <= " " THEN
|
|
||||||
s[j] := 0C;
|
|
||||||
EXIT;
|
|
||||||
END;
|
|
||||||
IF j < HIGH(s) THEN
|
|
||||||
s[j] := ch;
|
|
||||||
INC(j);
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
END XReadString;
|
|
||||||
|
|
||||||
PROCEDURE XWriteString(s: ARRAY OF CHAR);
|
|
||||||
VAR i: CARDINAL;
|
|
||||||
BEGIN
|
|
||||||
i := 0;
|
|
||||||
LOOP
|
|
||||||
IF (i <= HIGH(s)) AND (s[i] # 0C) THEN
|
|
||||||
Streams.Write(Streams.OutputStream, s[i], result);
|
|
||||||
INC(i);
|
|
||||||
ELSE
|
|
||||||
EXIT;
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
END XWriteString;
|
|
||||||
|
|
||||||
PROCEDURE WriteCard(card, width : CARDINAL);
|
|
||||||
VAR
|
|
||||||
buf : numbuf;
|
|
||||||
BEGIN
|
|
||||||
ConvertCardinal(card, width, buf);
|
|
||||||
WriteString(buf);
|
|
||||||
END WriteCard;
|
|
||||||
|
|
||||||
PROCEDURE WriteInt(int : INTEGER; width : CARDINAL);
|
|
||||||
VAR
|
|
||||||
buf : numbuf;
|
|
||||||
BEGIN
|
|
||||||
ConvertInteger(int, width, buf);
|
|
||||||
WriteString(buf);
|
|
||||||
END WriteInt;
|
|
||||||
|
|
||||||
PROCEDURE WriteHex(card, width : CARDINAL);
|
|
||||||
VAR
|
|
||||||
buf : numbuf;
|
|
||||||
BEGIN
|
|
||||||
ConvertHex(card, width, buf);
|
|
||||||
WriteString(buf);
|
|
||||||
END WriteHex;
|
|
||||||
|
|
||||||
PROCEDURE WriteLn;
|
|
||||||
BEGIN
|
|
||||||
Write(EOL)
|
|
||||||
END WriteLn;
|
|
||||||
|
|
||||||
PROCEDURE WriteOct(card, width : CARDINAL);
|
|
||||||
VAR
|
|
||||||
buf : numbuf;
|
|
||||||
BEGIN
|
|
||||||
ConvertOctal(card, width, buf);
|
|
||||||
WriteString(buf);
|
|
||||||
END WriteOct;
|
|
||||||
|
|
||||||
PROCEDURE WriteString(str : ARRAY OF CHAR);
|
|
||||||
VAR
|
|
||||||
nbytes : CARDINAL;
|
|
||||||
BEGIN
|
|
||||||
nbytes := 0;
|
|
||||||
WHILE (nbytes <= HIGH(str)) AND (str[nbytes] # 0C) DO
|
|
||||||
Write(str[nbytes]);
|
|
||||||
INC(nbytes)
|
|
||||||
END;
|
|
||||||
END WriteString;
|
|
||||||
|
|
||||||
BEGIN (* InOut initialization *)
|
|
||||||
CurrIn := Streams.InputStream;
|
|
||||||
CurrOut := Streams.OutputStream;
|
|
||||||
unread := FALSE;
|
|
||||||
END InOut.
|
|
||||||
|
|
@ -1,61 +0,0 @@
|
||||||
#
|
|
||||||
;
|
|
||||||
; (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
; See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
;
|
|
||||||
;
|
|
||||||
; Module: Compute non-constant set displays
|
|
||||||
; Author: Ceriel J.H. Jacobs
|
|
||||||
; Version: $Header$
|
|
||||||
;
|
|
||||||
mes 2,_EM_WSIZE,_EM_PSIZE
|
|
||||||
|
|
||||||
; LtoUset is called for set displays containing { expr1 .. expr2 }.
|
|
||||||
; It has six parameters, of which the caller must pop five:
|
|
||||||
; - The set in which bits must be set.
|
|
||||||
; - the lower bound of the set type.
|
|
||||||
; - The set size in bytes.
|
|
||||||
; - The upper bound of set elements, specified by the set-type.
|
|
||||||
; - "expr2", the upper bound
|
|
||||||
; - "expr1", the lower bound
|
|
||||||
|
|
||||||
#define SETBASE 5*_EM_WSIZE
|
|
||||||
#define SETLOW 4*_EM_WSIZE
|
|
||||||
#define SETSIZE 3*_EM_WSIZE
|
|
||||||
#define USETSIZ 2*_EM_WSIZE
|
|
||||||
#define LWB _EM_WSIZE
|
|
||||||
#define UPB 0
|
|
||||||
exp $LtoUset
|
|
||||||
pro $LtoUset,0
|
|
||||||
lal SETBASE ; address of initial set
|
|
||||||
lol SETSIZE
|
|
||||||
los _EM_WSIZE ; load initial set
|
|
||||||
lol LWB ; low bound
|
|
||||||
lol SETLOW
|
|
||||||
sbu _EM_WSIZE
|
|
||||||
stl LWB
|
|
||||||
lol UPB ; high bound
|
|
||||||
lol SETLOW
|
|
||||||
sbu _EM_WSIZE
|
|
||||||
stl UPB
|
|
||||||
1
|
|
||||||
lol LWB
|
|
||||||
lol UPB
|
|
||||||
cmu _EM_WSIZE
|
|
||||||
zgt *2 ; while low <= high
|
|
||||||
lol LWB
|
|
||||||
lol SETSIZE
|
|
||||||
set ? ; create [low]
|
|
||||||
lol SETSIZE
|
|
||||||
ior ? ; merge with initial set
|
|
||||||
lol LWB
|
|
||||||
loc 1
|
|
||||||
adu _EM_WSIZE
|
|
||||||
stl LWB
|
|
||||||
bra *1 ; loop back
|
|
||||||
2
|
|
||||||
lal SETBASE
|
|
||||||
lol SETSIZE
|
|
||||||
sts _EM_WSIZE ; store result over initial set
|
|
||||||
ret 0
|
|
||||||
end 0
|
|
||||||
|
|
@ -1,204 +0,0 @@
|
||||||
# Makefile for lib/ack/libm2.
|
|
||||||
|
|
||||||
M2 = m2
|
|
||||||
CFLAGS = -O -I../h -wo
|
|
||||||
CC1 = $(CC) $(CFLAGS) -c
|
|
||||||
M2FLAGS = -O -ws -n
|
|
||||||
M21 = $(M2) $(M2FLAGS) -c
|
|
||||||
|
|
||||||
LIBRARY = ../libm2.a
|
|
||||||
all: $(LIBRARY)
|
|
||||||
|
|
||||||
OBJECTS = \
|
|
||||||
$(LIBRARY)(Arguments.o) \
|
|
||||||
$(LIBRARY)(ArraySort.o) \
|
|
||||||
$(LIBRARY)(CSP.o) \
|
|
||||||
$(LIBRARY)(Conversion.o) \
|
|
||||||
$(LIBRARY)(EM.o) \
|
|
||||||
$(LIBRARY)(InOut.o) \
|
|
||||||
$(LIBRARY)(LtoUset.o) \
|
|
||||||
$(LIBRARY)(MathLib0.o) \
|
|
||||||
$(LIBRARY)(Mathlib.o) \
|
|
||||||
$(LIBRARY)(PascalIO.o) \
|
|
||||||
$(LIBRARY)(Processes.o) \
|
|
||||||
$(LIBRARY)(RealConver.o) \
|
|
||||||
$(LIBRARY)(RealInOut.o) \
|
|
||||||
$(LIBRARY)(SYSTEM.o) \
|
|
||||||
$(LIBRARY)(Semaphores.o) \
|
|
||||||
$(LIBRARY)(Storage.o) \
|
|
||||||
$(LIBRARY)(StrAss.o) \
|
|
||||||
$(LIBRARY)(Streams.o) \
|
|
||||||
$(LIBRARY)(Strings.o) \
|
|
||||||
$(LIBRARY)(Termcap.o) \
|
|
||||||
$(LIBRARY)(Terminal.o) \
|
|
||||||
$(LIBRARY)(Traps.o) \
|
|
||||||
$(LIBRARY)(XXTermcap.o) \
|
|
||||||
$(LIBRARY)(absd.o) \
|
|
||||||
$(LIBRARY)(absf.o) \
|
|
||||||
$(LIBRARY)(absi.o) \
|
|
||||||
$(LIBRARY)(absl.o) \
|
|
||||||
$(LIBRARY)(blockmove.o) \
|
|
||||||
$(LIBRARY)(cap.o) \
|
|
||||||
$(LIBRARY)(catch.o) \
|
|
||||||
$(LIBRARY)(confarray.o) \
|
|
||||||
$(LIBRARY)(dvi.o) \
|
|
||||||
$(LIBRARY)(halt.o) \
|
|
||||||
$(LIBRARY)(head_m2.o) \
|
|
||||||
$(LIBRARY)(init.o) \
|
|
||||||
$(LIBRARY)(load.o) \
|
|
||||||
$(LIBRARY)(par_misc.o) \
|
|
||||||
$(LIBRARY)(random.o) \
|
|
||||||
$(LIBRARY)(rcka.o) \
|
|
||||||
$(LIBRARY)(rcki.o) \
|
|
||||||
$(LIBRARY)(rckil.o) \
|
|
||||||
$(LIBRARY)(rcku.o) \
|
|
||||||
$(LIBRARY)(rckul.o) \
|
|
||||||
$(LIBRARY)(sigtrp.o) \
|
|
||||||
$(LIBRARY)(stackprio.o) \
|
|
||||||
$(LIBRARY)(store.o) \
|
|
||||||
$(LIBRARY)(ucheck.o) \
|
|
||||||
|
|
||||||
$(LIBRARY): $(OBJECTS)
|
|
||||||
aal cr $@ *.o
|
|
||||||
rm *.o
|
|
||||||
|
|
||||||
$(LIBRARY)(Arguments.o): Arguments.c
|
|
||||||
$(CC1) Arguments.c
|
|
||||||
|
|
||||||
$(LIBRARY)(ArraySort.o): ArraySort.mod
|
|
||||||
$(M21) ArraySort.mod
|
|
||||||
|
|
||||||
$(LIBRARY)(CSP.o): CSP.mod
|
|
||||||
$(M21) CSP.mod
|
|
||||||
|
|
||||||
$(LIBRARY)(Conversion.o): Conversion.mod
|
|
||||||
$(M21) Conversion.mod
|
|
||||||
|
|
||||||
$(LIBRARY)(EM.o): EM.e
|
|
||||||
$(CC1) EM.e
|
|
||||||
|
|
||||||
$(LIBRARY)(InOut.o): InOut.mod
|
|
||||||
$(M21) InOut.mod
|
|
||||||
|
|
||||||
$(LIBRARY)(LtoUset.o): LtoUset.e
|
|
||||||
$(CC1) LtoUset.e
|
|
||||||
|
|
||||||
$(LIBRARY)(MathLib0.o): MathLib0.mod
|
|
||||||
$(M21) MathLib0.mod
|
|
||||||
|
|
||||||
$(LIBRARY)(Mathlib.o): Mathlib.mod
|
|
||||||
$(M21) Mathlib.mod
|
|
||||||
|
|
||||||
$(LIBRARY)(PascalIO.o): PascalIO.mod
|
|
||||||
$(M21) PascalIO.mod
|
|
||||||
|
|
||||||
$(LIBRARY)(Processes.o): Processes.mod
|
|
||||||
$(M21) Processes.mod
|
|
||||||
|
|
||||||
$(LIBRARY)(RealConver.o): RealConver.mod
|
|
||||||
$(M21) RealConver.mod
|
|
||||||
|
|
||||||
$(LIBRARY)(RealInOut.o): RealInOut.mod
|
|
||||||
$(M21) RealInOut.mod
|
|
||||||
|
|
||||||
$(LIBRARY)(SYSTEM.o): SYSTEM.c
|
|
||||||
$(CC1) SYSTEM.c
|
|
||||||
|
|
||||||
$(LIBRARY)(Semaphores.o): Semaphores.mod
|
|
||||||
$(M21) Semaphores.mod
|
|
||||||
|
|
||||||
$(LIBRARY)(Storage.o): Storage.mod
|
|
||||||
$(M21) Storage.mod
|
|
||||||
|
|
||||||
$(LIBRARY)(StrAss.o): StrAss.c
|
|
||||||
$(CC1) StrAss.c
|
|
||||||
|
|
||||||
$(LIBRARY)(Streams.o): Streams.mod
|
|
||||||
$(M21) Streams.mod
|
|
||||||
|
|
||||||
$(LIBRARY)(Strings.o): Strings.mod
|
|
||||||
$(M21) Strings.mod
|
|
||||||
|
|
||||||
$(LIBRARY)(Termcap.o): Termcap.mod
|
|
||||||
$(M21) Termcap.mod
|
|
||||||
|
|
||||||
$(LIBRARY)(Terminal.o): Terminal.mod
|
|
||||||
$(M21) -D__USG Terminal.mod
|
|
||||||
|
|
||||||
$(LIBRARY)(Traps.o): Traps.mod
|
|
||||||
$(M21) Traps.mod
|
|
||||||
|
|
||||||
$(LIBRARY)(XXTermcap.o): XXTermcap.c
|
|
||||||
$(CC1) XXTermcap.c
|
|
||||||
|
|
||||||
$(LIBRARY)(absd.o): absd.c
|
|
||||||
$(CC1) absd.c
|
|
||||||
|
|
||||||
$(LIBRARY)(absf.o): absf.e
|
|
||||||
$(CC1) absf.e
|
|
||||||
|
|
||||||
$(LIBRARY)(absi.o): absi.c
|
|
||||||
$(CC1) absi.c
|
|
||||||
|
|
||||||
$(LIBRARY)(absl.o): absl.c
|
|
||||||
$(CC1) absl.c
|
|
||||||
|
|
||||||
$(LIBRARY)(blockmove.o): blockmove.c
|
|
||||||
$(CC1) blockmove.c
|
|
||||||
|
|
||||||
$(LIBRARY)(cap.o): cap.c
|
|
||||||
$(CC1) cap.c
|
|
||||||
|
|
||||||
$(LIBRARY)(catch.o): catch.c
|
|
||||||
$(CC1) catch.c
|
|
||||||
|
|
||||||
$(LIBRARY)(confarray.o): confarray.c
|
|
||||||
$(CC1) confarray.c
|
|
||||||
|
|
||||||
$(LIBRARY)(dvi.o): dvi.c
|
|
||||||
$(CC1) dvi.c
|
|
||||||
|
|
||||||
$(LIBRARY)(halt.o): halt.c
|
|
||||||
$(CC1) halt.c
|
|
||||||
|
|
||||||
$(LIBRARY)(head_m2.o): head_m2.e
|
|
||||||
$(CC1) head_m2.e
|
|
||||||
|
|
||||||
$(LIBRARY)(init.o): init.c
|
|
||||||
$(CC1) init.c
|
|
||||||
|
|
||||||
$(LIBRARY)(load.o): load.c
|
|
||||||
$(CC1) load.c
|
|
||||||
|
|
||||||
$(LIBRARY)(par_misc.o): par_misc.e
|
|
||||||
$(CC1) par_misc.e
|
|
||||||
|
|
||||||
$(LIBRARY)(random.o): random.mod
|
|
||||||
$(M21) random.mod
|
|
||||||
|
|
||||||
$(LIBRARY)(rcka.o): rcka.c
|
|
||||||
$(CC1) rcka.c
|
|
||||||
|
|
||||||
$(LIBRARY)(rcki.o): rcki.c
|
|
||||||
$(CC1) rcki.c
|
|
||||||
|
|
||||||
$(LIBRARY)(rckil.o): rckil.c
|
|
||||||
$(CC1) rckil.c
|
|
||||||
|
|
||||||
$(LIBRARY)(rcku.o): rcku.c
|
|
||||||
$(CC1) rcku.c
|
|
||||||
|
|
||||||
$(LIBRARY)(rckul.o): rckul.c
|
|
||||||
$(CC1) rckul.c
|
|
||||||
|
|
||||||
$(LIBRARY)(sigtrp.o): sigtrp.c
|
|
||||||
$(CC1) sigtrp.c
|
|
||||||
|
|
||||||
$(LIBRARY)(stackprio.o): stackprio.c
|
|
||||||
$(CC1) stackprio.c
|
|
||||||
|
|
||||||
$(LIBRARY)(store.o): store.c
|
|
||||||
$(CC1) store.c
|
|
||||||
|
|
||||||
$(LIBRARY)(ucheck.o): ucheck.c
|
|
||||||
$(CC1) ucheck.c
|
|
||||||
|
|
@ -1,69 +0,0 @@
|
||||||
(*
|
|
||||||
(c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
*)
|
|
||||||
|
|
||||||
(*$R-*)
|
|
||||||
IMPLEMENTATION MODULE MathLib0;
|
|
||||||
(*
|
|
||||||
Module: Some mathematical functions
|
|
||||||
Author: Ceriel J.H. Jacobs
|
|
||||||
Version: $Header$
|
|
||||||
*)
|
|
||||||
|
|
||||||
IMPORT Mathlib;
|
|
||||||
|
|
||||||
PROCEDURE cos(arg: REAL): REAL;
|
|
||||||
BEGIN
|
|
||||||
RETURN Mathlib.cos(arg);
|
|
||||||
END cos;
|
|
||||||
|
|
||||||
PROCEDURE sin(arg: REAL): REAL;
|
|
||||||
BEGIN
|
|
||||||
RETURN Mathlib.sin(arg);
|
|
||||||
END sin;
|
|
||||||
|
|
||||||
PROCEDURE arctan(arg: REAL): REAL;
|
|
||||||
BEGIN
|
|
||||||
RETURN Mathlib.arctan(arg);
|
|
||||||
END arctan;
|
|
||||||
|
|
||||||
PROCEDURE sqrt(arg: REAL): REAL;
|
|
||||||
BEGIN
|
|
||||||
RETURN Mathlib.sqrt(arg);
|
|
||||||
END sqrt;
|
|
||||||
|
|
||||||
PROCEDURE ln(arg: REAL): REAL;
|
|
||||||
BEGIN
|
|
||||||
RETURN Mathlib.ln(arg);
|
|
||||||
END ln;
|
|
||||||
|
|
||||||
PROCEDURE exp(arg: REAL): REAL;
|
|
||||||
BEGIN
|
|
||||||
RETURN Mathlib.exp(arg);
|
|
||||||
END exp;
|
|
||||||
|
|
||||||
PROCEDURE entier(x: REAL): INTEGER;
|
|
||||||
VAR i: INTEGER;
|
|
||||||
BEGIN
|
|
||||||
IF x < 0.0 THEN
|
|
||||||
i := TRUNC(-x);
|
|
||||||
IF FLOAT(i) = -x THEN
|
|
||||||
RETURN -i;
|
|
||||||
ELSE
|
|
||||||
RETURN -i -1;
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
RETURN TRUNC(x);
|
|
||||||
END entier;
|
|
||||||
|
|
||||||
PROCEDURE real(x: INTEGER): REAL;
|
|
||||||
BEGIN
|
|
||||||
IF x < 0 THEN
|
|
||||||
RETURN - FLOAT(-x);
|
|
||||||
END;
|
|
||||||
RETURN FLOAT(x);
|
|
||||||
END real;
|
|
||||||
|
|
||||||
BEGIN
|
|
||||||
END MathLib0.
|
|
||||||
|
|
@ -1,576 +0,0 @@
|
||||||
(*
|
|
||||||
(c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
*)
|
|
||||||
|
|
||||||
(*$R-*)
|
|
||||||
IMPLEMENTATION MODULE Mathlib;
|
|
||||||
(*
|
|
||||||
Module: Mathematical functions
|
|
||||||
Author: Ceriel J.H. Jacobs
|
|
||||||
Version: $Header$
|
|
||||||
*)
|
|
||||||
|
|
||||||
FROM EM IMPORT FIF, FEF;
|
|
||||||
FROM Traps IMPORT Message;
|
|
||||||
|
|
||||||
CONST
|
|
||||||
OneRadianInDegrees = 57.295779513082320876798155D;
|
|
||||||
OneDegreeInRadians = 0.017453292519943295769237D;
|
|
||||||
OneOverSqrt2 = 0.70710678118654752440084436210484904D;
|
|
||||||
|
|
||||||
(* basic functions *)
|
|
||||||
|
|
||||||
PROCEDURE pow(x: REAL; i: INTEGER): REAL;
|
|
||||||
BEGIN
|
|
||||||
RETURN SHORT(longpow(LONG(x), i));
|
|
||||||
END pow;
|
|
||||||
|
|
||||||
PROCEDURE longpow(x: LONGREAL; i: INTEGER): LONGREAL;
|
|
||||||
VAR val: LONGREAL;
|
|
||||||
ri: LONGREAL;
|
|
||||||
BEGIN
|
|
||||||
ri := FLOATD(i);
|
|
||||||
IF x < 0.0D THEN
|
|
||||||
val := longexp(longln(-x) * ri);
|
|
||||||
IF ODD(i) THEN RETURN -val;
|
|
||||||
ELSE RETURN val;
|
|
||||||
END;
|
|
||||||
ELSIF x = 0.0D THEN
|
|
||||||
RETURN 0.0D;
|
|
||||||
ELSE
|
|
||||||
RETURN longexp(longln(x) * ri);
|
|
||||||
END;
|
|
||||||
END longpow;
|
|
||||||
|
|
||||||
PROCEDURE sqrt(x: REAL): REAL;
|
|
||||||
BEGIN
|
|
||||||
RETURN SHORT(longsqrt(LONG(x)));
|
|
||||||
END sqrt;
|
|
||||||
|
|
||||||
PROCEDURE longsqrt(x: LONGREAL): LONGREAL;
|
|
||||||
VAR
|
|
||||||
temp: LONGREAL;
|
|
||||||
exp, i: INTEGER;
|
|
||||||
BEGIN
|
|
||||||
IF x <= 0.0D THEN
|
|
||||||
IF x < 0.0D THEN
|
|
||||||
Message("sqrt: negative argument");
|
|
||||||
HALT
|
|
||||||
END;
|
|
||||||
RETURN 0.0D;
|
|
||||||
END;
|
|
||||||
temp := FEF(x,exp);
|
|
||||||
(*
|
|
||||||
* NOTE
|
|
||||||
* this wont work on 1's comp
|
|
||||||
*)
|
|
||||||
IF ODD(exp) THEN
|
|
||||||
temp := 2.0D * temp;
|
|
||||||
DEC(exp);
|
|
||||||
END;
|
|
||||||
temp := 0.5D*(1.0D + temp);
|
|
||||||
|
|
||||||
WHILE exp > 28 DO
|
|
||||||
temp := temp * 16384.0D;
|
|
||||||
exp := exp - 28;
|
|
||||||
END;
|
|
||||||
WHILE exp < -28 DO
|
|
||||||
temp := temp / 16384.0D;
|
|
||||||
exp := exp + 28;
|
|
||||||
END;
|
|
||||||
WHILE exp >= 2 DO
|
|
||||||
temp := temp * 2.0D;
|
|
||||||
exp := exp - 2;
|
|
||||||
END;
|
|
||||||
WHILE exp <= -2 DO
|
|
||||||
temp := temp / 2.0D;
|
|
||||||
exp := exp + 2;
|
|
||||||
END;
|
|
||||||
FOR i := 0 TO 5 DO
|
|
||||||
temp := 0.5D*(temp + x/temp);
|
|
||||||
END;
|
|
||||||
RETURN temp;
|
|
||||||
END longsqrt;
|
|
||||||
|
|
||||||
PROCEDURE ldexp(x:LONGREAL; n: INTEGER): LONGREAL;
|
|
||||||
BEGIN
|
|
||||||
WHILE n >= 16 DO
|
|
||||||
x := x * 65536.0D;
|
|
||||||
n := n - 16;
|
|
||||||
END;
|
|
||||||
WHILE n > 0 DO
|
|
||||||
x := x * 2.0D;
|
|
||||||
DEC(n);
|
|
||||||
END;
|
|
||||||
WHILE n <= -16 DO
|
|
||||||
x := x / 65536.0D;
|
|
||||||
n := n + 16;
|
|
||||||
END;
|
|
||||||
WHILE n < 0 DO
|
|
||||||
x := x / 2.0D;
|
|
||||||
INC(n);
|
|
||||||
END;
|
|
||||||
RETURN x;
|
|
||||||
END ldexp;
|
|
||||||
|
|
||||||
PROCEDURE exp(x: REAL): REAL;
|
|
||||||
BEGIN
|
|
||||||
RETURN SHORT(longexp(LONG(x)));
|
|
||||||
END exp;
|
|
||||||
|
|
||||||
PROCEDURE longexp(x: LONGREAL): LONGREAL;
|
|
||||||
(* Algorithm and coefficients from:
|
|
||||||
"Software manual for the elementary functions"
|
|
||||||
by W.J. Cody and W. Waite, Prentice-Hall, 1980
|
|
||||||
*)
|
|
||||||
CONST
|
|
||||||
p0 = 0.25000000000000000000D+00;
|
|
||||||
p1 = 0.75753180159422776666D-02;
|
|
||||||
p2 = 0.31555192765684646356D-04;
|
|
||||||
q0 = 0.50000000000000000000D+00;
|
|
||||||
q1 = 0.56817302698551221787D-01;
|
|
||||||
q2 = 0.63121894374398503557D-03;
|
|
||||||
q3 = 0.75104028399870046114D-06;
|
|
||||||
|
|
||||||
VAR
|
|
||||||
neg: BOOLEAN;
|
|
||||||
n: INTEGER;
|
|
||||||
xn, g, x1, x2: LONGREAL;
|
|
||||||
BEGIN
|
|
||||||
neg := x < 0.0D;
|
|
||||||
IF neg THEN
|
|
||||||
x := -x;
|
|
||||||
END;
|
|
||||||
n := TRUNC(x/longln2 + 0.5D);
|
|
||||||
xn := FLOATD(n);
|
|
||||||
x1 := FLOATD(TRUNCD(x));
|
|
||||||
x2 := x - x1;
|
|
||||||
g := ((x1 - xn * 0.693359375D)+x2) - xn * (-2.1219444005469058277D-4);
|
|
||||||
IF neg THEN
|
|
||||||
g := -g;
|
|
||||||
n := -n;
|
|
||||||
END;
|
|
||||||
xn := g*g;
|
|
||||||
x := g*((p2*xn+p1)*xn+p0);
|
|
||||||
INC(n);
|
|
||||||
RETURN ldexp(0.5D + x/((((q3*xn+q2)*xn+q1)*xn+q0) - x), n);
|
|
||||||
END longexp;
|
|
||||||
|
|
||||||
PROCEDURE ln(x: REAL): REAL; (* natural log *)
|
|
||||||
BEGIN
|
|
||||||
RETURN SHORT(longln(LONG(x)));
|
|
||||||
END ln;
|
|
||||||
|
|
||||||
PROCEDURE longln(x: LONGREAL): LONGREAL; (* natural log *)
|
|
||||||
(* Algorithm and coefficients from:
|
|
||||||
"Software manual for the elementary functions"
|
|
||||||
by W.J. Cody and W. Waite, Prentice-Hall, 1980
|
|
||||||
*)
|
|
||||||
CONST
|
|
||||||
p0 = -0.64124943423745581147D+02;
|
|
||||||
p1 = 0.16383943563021534222D+02;
|
|
||||||
p2 = -0.78956112887491257267D+00;
|
|
||||||
q0 = -0.76949932108494879777D+03;
|
|
||||||
q1 = 0.31203222091924532844D+03;
|
|
||||||
q2 = -0.35667977739034646171D+02;
|
|
||||||
q3 = 1.0D;
|
|
||||||
VAR
|
|
||||||
exp: INTEGER;
|
|
||||||
z, znum, zden, w: LONGREAL;
|
|
||||||
|
|
||||||
BEGIN
|
|
||||||
IF x <= 0.0D THEN
|
|
||||||
Message("ln: argument <= 0");
|
|
||||||
HALT
|
|
||||||
END;
|
|
||||||
x := FEF(x, exp);
|
|
||||||
IF x > OneOverSqrt2 THEN
|
|
||||||
znum := (x - 0.5D) - 0.5D;
|
|
||||||
zden := x * 0.5D + 0.5D;
|
|
||||||
ELSE
|
|
||||||
znum := x - 0.5D;
|
|
||||||
zden := znum * 0.5D + 0.5D;
|
|
||||||
DEC(exp);
|
|
||||||
END;
|
|
||||||
z := znum / zden;
|
|
||||||
w := z * z;
|
|
||||||
x := z + z * w * (((p2*w+p1)*w+p0)/(((q3*w+q2)*w+q1)*w+q0));
|
|
||||||
z := FLOATD(exp);
|
|
||||||
x := x + z * (-2.121944400546905827679D-4);
|
|
||||||
RETURN x + z * 0.693359375D;
|
|
||||||
END longln;
|
|
||||||
|
|
||||||
PROCEDURE log(x: REAL): REAL; (* log with base 10 *)
|
|
||||||
BEGIN
|
|
||||||
RETURN SHORT(longlog(LONG(x)));
|
|
||||||
END log;
|
|
||||||
|
|
||||||
PROCEDURE longlog(x: LONGREAL): LONGREAL; (* log with base 10 *)
|
|
||||||
BEGIN
|
|
||||||
RETURN longln(x)/longln10;
|
|
||||||
END longlog;
|
|
||||||
|
|
||||||
(* trigonometric functions; arguments in radians *)
|
|
||||||
|
|
||||||
PROCEDURE sin(x: REAL): REAL;
|
|
||||||
BEGIN
|
|
||||||
RETURN SHORT(longsin(LONG(x)));
|
|
||||||
END sin;
|
|
||||||
|
|
||||||
PROCEDURE sinus(x: LONGREAL; cosflag: BOOLEAN) : LONGREAL;
|
|
||||||
(* Algorithm and coefficients from:
|
|
||||||
"Software manual for the elementary functions"
|
|
||||||
by W.J. Cody and W. Waite, Prentice-Hall, 1980
|
|
||||||
*)
|
|
||||||
CONST
|
|
||||||
r0 = -0.16666666666666665052D+00;
|
|
||||||
r1 = 0.83333333333331650314D-02;
|
|
||||||
r2 = -0.19841269841201840457D-03;
|
|
||||||
r3 = 0.27557319210152756119D-05;
|
|
||||||
r4 = -0.25052106798274584544D-07;
|
|
||||||
r5 = 0.16058936490371589114D-09;
|
|
||||||
r6 = -0.76429178068910467734D-12;
|
|
||||||
r7 = 0.27204790957888846175D-14;
|
|
||||||
A1 = 3.1416015625D;
|
|
||||||
A2 = -8.908910206761537356617D-6;
|
|
||||||
VAR
|
|
||||||
x1, x2, y : LONGREAL;
|
|
||||||
neg : BOOLEAN;
|
|
||||||
BEGIN
|
|
||||||
IF x < 0.0D THEN
|
|
||||||
neg := TRUE;
|
|
||||||
x := -x
|
|
||||||
ELSE neg := FALSE
|
|
||||||
END;
|
|
||||||
IF cosflag THEN
|
|
||||||
neg := FALSE;
|
|
||||||
y := longhalfpi + x
|
|
||||||
ELSE
|
|
||||||
y := x
|
|
||||||
END;
|
|
||||||
y := y / longpi + 0.5D;
|
|
||||||
|
|
||||||
IF FIF(y, 1.0D, y) < 0.0D THEN ; END;
|
|
||||||
IF FIF(y, 0.5D, x1) # 0.0D THEN neg := NOT neg END;
|
|
||||||
IF cosflag THEN y := y - 0.5D END;
|
|
||||||
x2 := FIF(x, 1.0, x1);
|
|
||||||
x := x1 - y * A1;
|
|
||||||
x := x + x2;
|
|
||||||
x := x - y * A2;
|
|
||||||
|
|
||||||
IF x < 0.0D THEN
|
|
||||||
neg := NOT neg;
|
|
||||||
x := -x
|
|
||||||
END;
|
|
||||||
y := x * x;
|
|
||||||
x := x + x * y * (((((((r7*y+r6)*y+r5)*y+r4)*y+r3)*y+r2)*y+r1)*y+r0);
|
|
||||||
IF neg THEN RETURN -x END;
|
|
||||||
RETURN x;
|
|
||||||
END sinus;
|
|
||||||
|
|
||||||
PROCEDURE longsin(x: LONGREAL): LONGREAL;
|
|
||||||
BEGIN
|
|
||||||
RETURN sinus(x, FALSE);
|
|
||||||
END longsin;
|
|
||||||
|
|
||||||
PROCEDURE cos(x: REAL): REAL;
|
|
||||||
BEGIN
|
|
||||||
RETURN SHORT(longcos(LONG(x)));
|
|
||||||
END cos;
|
|
||||||
|
|
||||||
PROCEDURE longcos(x: LONGREAL): LONGREAL;
|
|
||||||
BEGIN
|
|
||||||
IF x < 0.0D THEN x := -x; END;
|
|
||||||
RETURN sinus(x, TRUE);
|
|
||||||
END longcos;
|
|
||||||
|
|
||||||
PROCEDURE tan(x: REAL): REAL;
|
|
||||||
BEGIN
|
|
||||||
RETURN SHORT(longtan(LONG(x)));
|
|
||||||
END tan;
|
|
||||||
|
|
||||||
PROCEDURE longtan(x: LONGREAL): LONGREAL;
|
|
||||||
(* Algorithm and coefficients from:
|
|
||||||
"Software manual for the elementary functions"
|
|
||||||
by W.J. Cody and W. Waite, Prentice-Hall, 1980
|
|
||||||
*)
|
|
||||||
|
|
||||||
CONST
|
|
||||||
p1 = -0.13338350006421960681D+00;
|
|
||||||
p2 = 0.34248878235890589960D-02;
|
|
||||||
p3 = -0.17861707342254426711D-04;
|
|
||||||
|
|
||||||
q0 = 1.0D;
|
|
||||||
q1 = -0.46671683339755294240D+00;
|
|
||||||
q2 = 0.25663832289440112864D-01;
|
|
||||||
q3 = -0.31181531907010027307D-03;
|
|
||||||
q4 = 0.49819433993786512270D-06;
|
|
||||||
|
|
||||||
A1 = 1.57080078125D;
|
|
||||||
A2 = -4.454455103380768678308D-06;
|
|
||||||
|
|
||||||
VAR y, x1, x2: LONGREAL;
|
|
||||||
negative: BOOLEAN;
|
|
||||||
invert: BOOLEAN;
|
|
||||||
BEGIN
|
|
||||||
negative := x < 0.0D;
|
|
||||||
y := x / longhalfpi + 0.5D;
|
|
||||||
|
|
||||||
(* 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.
|
|
||||||
*)
|
|
||||||
IF FIF(y, 1.0D, y) < 0.0D THEN ; END;
|
|
||||||
invert := FIF(y, 0.5D, x1) # 0.0D;
|
|
||||||
x2 := FIF(x, 1.0D, x1);
|
|
||||||
x := x1 - y * A1;
|
|
||||||
x := x + x2;
|
|
||||||
x := x - y * A2;
|
|
||||||
|
|
||||||
y := x * x;
|
|
||||||
x := x + x * y * ((p3*y+p2)*y+p1);
|
|
||||||
y := (((q4*y+q3)*y+q2)*y+q1)*y+q0;
|
|
||||||
IF negative THEN x := -x END;
|
|
||||||
IF invert THEN RETURN -y/x END;
|
|
||||||
RETURN x/y;
|
|
||||||
END longtan;
|
|
||||||
|
|
||||||
PROCEDURE arcsin(x: REAL): REAL;
|
|
||||||
BEGIN
|
|
||||||
RETURN SHORT(longarcsin(LONG(x)));
|
|
||||||
END arcsin;
|
|
||||||
|
|
||||||
PROCEDURE arcsincos(x: LONGREAL; cosfl: BOOLEAN): LONGREAL;
|
|
||||||
CONST
|
|
||||||
p0 = -0.27368494524164255994D+02;
|
|
||||||
p1 = 0.57208227877891731407D+02;
|
|
||||||
p2 = -0.39688862997540877339D+02;
|
|
||||||
p3 = 0.10152522233806463645D+02;
|
|
||||||
p4 = -0.69674573447350646411D+00;
|
|
||||||
|
|
||||||
q0 = -0.16421096714498560795D+03;
|
|
||||||
q1 = 0.41714430248260412556D+03;
|
|
||||||
q2 = -0.38186303361750149284D+03;
|
|
||||||
q3 = 0.15095270841030604719D+03;
|
|
||||||
q4 = -0.23823859153670238830D+02;
|
|
||||||
q5 = 1.0D;
|
|
||||||
VAR
|
|
||||||
negative : BOOLEAN;
|
|
||||||
big: BOOLEAN;
|
|
||||||
g: LONGREAL;
|
|
||||||
BEGIN
|
|
||||||
negative := x < 0.0D;
|
|
||||||
IF negative THEN x := -x; END;
|
|
||||||
IF x > 0.5D THEN
|
|
||||||
big := TRUE;
|
|
||||||
IF x > 1.0D THEN
|
|
||||||
Message("arcsin or arccos: argument > 1");
|
|
||||||
HALT
|
|
||||||
END;
|
|
||||||
g := 0.5D - 0.5D * x;
|
|
||||||
x := -longsqrt(g);
|
|
||||||
x := x + x;
|
|
||||||
ELSE
|
|
||||||
big := FALSE;
|
|
||||||
g := x * x;
|
|
||||||
END;
|
|
||||||
x := x + x * g *
|
|
||||||
((((p4*g+p3)*g+p2)*g+p1)*g+p0)/(((((q5*g+q4)*g+q3)*g+q2)*g+q1)*g+q0);
|
|
||||||
IF cosfl AND NOT negative THEN x := -x END;
|
|
||||||
IF cosfl = NOT big THEN
|
|
||||||
x := (x + longquartpi) + longquartpi;
|
|
||||||
ELSIF cosfl AND negative AND big THEN
|
|
||||||
x := (x + longhalfpi) + longhalfpi;
|
|
||||||
END;
|
|
||||||
IF negative AND NOT cosfl THEN x := -x END;
|
|
||||||
RETURN x;
|
|
||||||
END arcsincos;
|
|
||||||
|
|
||||||
PROCEDURE longarcsin(x: LONGREAL): LONGREAL;
|
|
||||||
BEGIN
|
|
||||||
RETURN arcsincos(x, FALSE);
|
|
||||||
END longarcsin;
|
|
||||||
|
|
||||||
PROCEDURE arccos(x: REAL): REAL;
|
|
||||||
BEGIN
|
|
||||||
RETURN SHORT(longarccos(LONG(x)));
|
|
||||||
END arccos;
|
|
||||||
|
|
||||||
PROCEDURE longarccos(x: LONGREAL): LONGREAL;
|
|
||||||
BEGIN
|
|
||||||
RETURN arcsincos(x, TRUE);
|
|
||||||
END longarccos;
|
|
||||||
|
|
||||||
PROCEDURE arctan(x: REAL): REAL;
|
|
||||||
BEGIN
|
|
||||||
RETURN SHORT(longarctan(LONG(x)));
|
|
||||||
END arctan;
|
|
||||||
|
|
||||||
VAR A: ARRAY[0..3] OF LONGREAL;
|
|
||||||
arctaninit: BOOLEAN;
|
|
||||||
|
|
||||||
PROCEDURE longarctan(x: LONGREAL): LONGREAL;
|
|
||||||
(* Algorithm and coefficients from:
|
|
||||||
"Software manual for the elementary functions"
|
|
||||||
by W.J. Cody and W. Waite, Prentice-Hall, 1980
|
|
||||||
*)
|
|
||||||
CONST
|
|
||||||
p0 = -0.13688768894191926929D+02;
|
|
||||||
p1 = -0.20505855195861651981D+02;
|
|
||||||
p2 = -0.84946240351320683534D+01;
|
|
||||||
p3 = -0.83758299368150059274D+00;
|
|
||||||
q0 = 0.41066306682575781263D+02;
|
|
||||||
q1 = 0.86157349597130242515D+02;
|
|
||||||
q2 = 0.59578436142597344465D+02;
|
|
||||||
q3 = 0.15024001160028576121D+02;
|
|
||||||
q4 = 1.0D;
|
|
||||||
VAR
|
|
||||||
g: LONGREAL;
|
|
||||||
neg: BOOLEAN;
|
|
||||||
n: INTEGER;
|
|
||||||
BEGIN
|
|
||||||
IF NOT arctaninit THEN
|
|
||||||
arctaninit := TRUE;
|
|
||||||
A[0] := 0.0D;
|
|
||||||
A[1] := 0.52359877559829887307710723554658381D; (* p1/6 *)
|
|
||||||
A[2] := longhalfpi;
|
|
||||||
A[3] := 1.04719755119659774615421446109316763D; (* pi/3 *)
|
|
||||||
END;
|
|
||||||
neg := FALSE;
|
|
||||||
IF x < 0.0D THEN
|
|
||||||
neg := TRUE;
|
|
||||||
x := -x;
|
|
||||||
END;
|
|
||||||
IF x > 1.0D THEN
|
|
||||||
x := 1.0D/x;
|
|
||||||
n := 2
|
|
||||||
ELSE
|
|
||||||
n := 0
|
|
||||||
END;
|
|
||||||
IF x > 0.26794919243112270647D (* 2-sqrt(3) *) THEN
|
|
||||||
INC(n);
|
|
||||||
x := (((0.73205080756887729353D*x-0.5D)-0.5D)+x)/
|
|
||||||
(1.73205080756887729353D + x);
|
|
||||||
END;
|
|
||||||
g := x*x;
|
|
||||||
x := x + x * g * (((p3*g+p2)*g+p1)*g+p0) / ((((q4*g+q3)*g+q2)*g+q1)*g+q0);
|
|
||||||
IF n > 1 THEN x := -x END;
|
|
||||||
x := x + A[n];
|
|
||||||
IF neg THEN RETURN -x; END;
|
|
||||||
RETURN x;
|
|
||||||
END longarctan;
|
|
||||||
|
|
||||||
(* hyperbolic functions *)
|
|
||||||
(* The C math library has better implementations for some of these, but
|
|
||||||
they depend on some properties of the floating point implementation,
|
|
||||||
and, for now, we don't want that in the Modula-2 system.
|
|
||||||
*)
|
|
||||||
|
|
||||||
PROCEDURE sinh(x: REAL): REAL;
|
|
||||||
BEGIN
|
|
||||||
RETURN SHORT(longsinh(LONG(x)));
|
|
||||||
END sinh;
|
|
||||||
|
|
||||||
PROCEDURE longsinh(x: LONGREAL): LONGREAL;
|
|
||||||
VAR expx: LONGREAL;
|
|
||||||
BEGIN
|
|
||||||
expx := longexp(x);
|
|
||||||
RETURN (expx - 1.0D/expx)/2.0D;
|
|
||||||
END longsinh;
|
|
||||||
|
|
||||||
PROCEDURE cosh(x: REAL): REAL;
|
|
||||||
BEGIN
|
|
||||||
RETURN SHORT(longcosh(LONG(x)));
|
|
||||||
END cosh;
|
|
||||||
|
|
||||||
PROCEDURE longcosh(x: LONGREAL): LONGREAL;
|
|
||||||
VAR expx: LONGREAL;
|
|
||||||
BEGIN
|
|
||||||
expx := longexp(x);
|
|
||||||
RETURN (expx + 1.0D/expx)/2.0D;
|
|
||||||
END longcosh;
|
|
||||||
|
|
||||||
PROCEDURE tanh(x: REAL): REAL;
|
|
||||||
BEGIN
|
|
||||||
RETURN SHORT(longtanh(LONG(x)));
|
|
||||||
END tanh;
|
|
||||||
|
|
||||||
PROCEDURE longtanh(x: LONGREAL): LONGREAL;
|
|
||||||
VAR expx: LONGREAL;
|
|
||||||
BEGIN
|
|
||||||
expx := longexp(x);
|
|
||||||
RETURN (expx - 1.0D/expx) / (expx + 1.0D/expx);
|
|
||||||
END longtanh;
|
|
||||||
|
|
||||||
PROCEDURE arcsinh(x: REAL): REAL;
|
|
||||||
BEGIN
|
|
||||||
RETURN SHORT(longarcsinh(LONG(x)));
|
|
||||||
END arcsinh;
|
|
||||||
|
|
||||||
PROCEDURE longarcsinh(x: LONGREAL): LONGREAL;
|
|
||||||
VAR neg: BOOLEAN;
|
|
||||||
BEGIN
|
|
||||||
neg := FALSE;
|
|
||||||
IF x < 0.0D THEN
|
|
||||||
neg := TRUE;
|
|
||||||
x := -x;
|
|
||||||
END;
|
|
||||||
x := longln(x + longsqrt(x*x+1.0D));
|
|
||||||
IF neg THEN RETURN -x; END;
|
|
||||||
RETURN x;
|
|
||||||
END longarcsinh;
|
|
||||||
|
|
||||||
PROCEDURE arccosh(x: REAL): REAL;
|
|
||||||
BEGIN
|
|
||||||
RETURN SHORT(longarccosh(LONG(x)));
|
|
||||||
END arccosh;
|
|
||||||
|
|
||||||
PROCEDURE longarccosh(x: LONGREAL): LONGREAL;
|
|
||||||
BEGIN
|
|
||||||
IF x < 1.0D THEN
|
|
||||||
Message("arccosh: argument < 1");
|
|
||||||
HALT
|
|
||||||
END;
|
|
||||||
RETURN longln(x + longsqrt(x*x - 1.0D));
|
|
||||||
END longarccosh;
|
|
||||||
|
|
||||||
PROCEDURE arctanh(x: REAL): REAL;
|
|
||||||
BEGIN
|
|
||||||
RETURN SHORT(longarctanh(LONG(x)));
|
|
||||||
END arctanh;
|
|
||||||
|
|
||||||
PROCEDURE longarctanh(x: LONGREAL): LONGREAL;
|
|
||||||
BEGIN
|
|
||||||
IF (x <= -1.0D) OR (x >= 1.0D) THEN
|
|
||||||
Message("arctanh: ABS(argument) >= 1");
|
|
||||||
HALT
|
|
||||||
END;
|
|
||||||
RETURN longln((1.0D + x)/(1.0D - x)) / 2.0D;
|
|
||||||
END longarctanh;
|
|
||||||
|
|
||||||
(* conversions *)
|
|
||||||
|
|
||||||
PROCEDURE RadianToDegree(x: REAL): REAL;
|
|
||||||
BEGIN
|
|
||||||
RETURN SHORT(longRadianToDegree(LONG(x)));
|
|
||||||
END RadianToDegree;
|
|
||||||
|
|
||||||
PROCEDURE longRadianToDegree(x: LONGREAL): LONGREAL;
|
|
||||||
BEGIN
|
|
||||||
RETURN x * OneRadianInDegrees;
|
|
||||||
END longRadianToDegree;
|
|
||||||
|
|
||||||
PROCEDURE DegreeToRadian(x: REAL): REAL;
|
|
||||||
BEGIN
|
|
||||||
RETURN SHORT(longDegreeToRadian(LONG(x)));
|
|
||||||
END DegreeToRadian;
|
|
||||||
|
|
||||||
PROCEDURE longDegreeToRadian(x: LONGREAL): LONGREAL;
|
|
||||||
BEGIN
|
|
||||||
RETURN x * OneDegreeInRadians;
|
|
||||||
END longDegreeToRadian;
|
|
||||||
|
|
||||||
BEGIN
|
|
||||||
arctaninit := FALSE;
|
|
||||||
END Mathlib.
|
|
||||||
|
|
@ -1,437 +0,0 @@
|
||||||
(*
|
|
||||||
(c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
*)
|
|
||||||
|
|
||||||
(*$R-*)
|
|
||||||
IMPLEMENTATION MODULE PascalIO;
|
|
||||||
(*
|
|
||||||
Module: Pascal-like Input/Output
|
|
||||||
Author: Ceriel J.H. Jacobs
|
|
||||||
Version: $Header$
|
|
||||||
*)
|
|
||||||
|
|
||||||
FROM Conversions IMPORT
|
|
||||||
ConvertInteger, ConvertCardinal;
|
|
||||||
FROM RealConversions IMPORT
|
|
||||||
LongRealToString, StringToLongReal;
|
|
||||||
FROM Traps IMPORT Message;
|
|
||||||
FROM Streams IMPORT Stream, StreamKind, StreamMode, StreamResult,
|
|
||||||
InputStream, OutputStream, OpenStream, CloseStream,
|
|
||||||
EndOfStream, Read, Write, StreamBuffering;
|
|
||||||
FROM Storage IMPORT Allocate;
|
|
||||||
FROM SYSTEM IMPORT ADR;
|
|
||||||
|
|
||||||
TYPE charset = SET OF CHAR;
|
|
||||||
btype = (Preading, Pwriting, free);
|
|
||||||
|
|
||||||
CONST spaces = charset{11C, 12C, 13C, 14C, 15C, ' '};
|
|
||||||
|
|
||||||
TYPE IOstream = RECORD
|
|
||||||
type: btype;
|
|
||||||
done, eof : BOOLEAN;
|
|
||||||
ch: CHAR;
|
|
||||||
next: Text;
|
|
||||||
stream: Stream;
|
|
||||||
END;
|
|
||||||
Text = POINTER TO IOstream;
|
|
||||||
numbuf = ARRAY[0..255] OF CHAR;
|
|
||||||
|
|
||||||
VAR ibuf, obuf: IOstream;
|
|
||||||
head: Text;
|
|
||||||
result: StreamResult;
|
|
||||||
|
|
||||||
PROCEDURE Reset(VAR InputText: Text; Filename: ARRAY OF CHAR);
|
|
||||||
BEGIN
|
|
||||||
doclose(InputText);
|
|
||||||
getstruct(InputText);
|
|
||||||
WITH InputText^ DO
|
|
||||||
OpenStream(stream, Filename, text, reading, result);
|
|
||||||
IF result # succeeded THEN
|
|
||||||
Message("could not open input file");
|
|
||||||
HALT;
|
|
||||||
END;
|
|
||||||
type := Preading;
|
|
||||||
done := FALSE;
|
|
||||||
eof := FALSE;
|
|
||||||
END;
|
|
||||||
END Reset;
|
|
||||||
|
|
||||||
PROCEDURE Rewrite(VAR OutputText: Text; Filename: ARRAY OF CHAR);
|
|
||||||
BEGIN
|
|
||||||
doclose(OutputText);
|
|
||||||
getstruct(OutputText);
|
|
||||||
WITH OutputText^ DO
|
|
||||||
OpenStream(stream, Filename, text, writing, result);
|
|
||||||
IF result # succeeded THEN
|
|
||||||
Message("could not open output file");
|
|
||||||
HALT;
|
|
||||||
END;
|
|
||||||
type := Pwriting;
|
|
||||||
END;
|
|
||||||
END Rewrite;
|
|
||||||
|
|
||||||
PROCEDURE CloseOutput();
|
|
||||||
VAR p: Text;
|
|
||||||
BEGIN
|
|
||||||
p := head;
|
|
||||||
WHILE p # NIL DO
|
|
||||||
doclose(p);
|
|
||||||
p := p^.next;
|
|
||||||
END;
|
|
||||||
END CloseOutput;
|
|
||||||
|
|
||||||
PROCEDURE doclose(Xtext: Text);
|
|
||||||
BEGIN
|
|
||||||
IF Xtext # Notext THEN
|
|
||||||
WITH Xtext^ DO
|
|
||||||
IF type # free THEN
|
|
||||||
CloseStream(stream, result);
|
|
||||||
type := free;
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
END doclose;
|
|
||||||
|
|
||||||
PROCEDURE getstruct(VAR Xtext: Text);
|
|
||||||
BEGIN
|
|
||||||
Xtext := head;
|
|
||||||
WHILE (Xtext # NIL) AND (Xtext^.type # free) DO
|
|
||||||
Xtext := Xtext^.next;
|
|
||||||
END;
|
|
||||||
IF Xtext = NIL THEN
|
|
||||||
Allocate(Xtext,SIZE(IOstream));
|
|
||||||
Xtext^.next := head;
|
|
||||||
head := Xtext;
|
|
||||||
END;
|
|
||||||
END getstruct;
|
|
||||||
|
|
||||||
PROCEDURE Error(tp: btype);
|
|
||||||
BEGIN
|
|
||||||
IF tp = Preading THEN
|
|
||||||
Message("input text expected");
|
|
||||||
ELSE
|
|
||||||
Message("output text expected");
|
|
||||||
END;
|
|
||||||
HALT;
|
|
||||||
END Error;
|
|
||||||
|
|
||||||
PROCEDURE ReadChar(InputText: Text; VAR ch : CHAR);
|
|
||||||
BEGIN
|
|
||||||
ch := NextChar(InputText);
|
|
||||||
IF InputText^.eof THEN
|
|
||||||
Message("unexpected EOF");
|
|
||||||
HALT;
|
|
||||||
END;
|
|
||||||
InputText^.done := FALSE;
|
|
||||||
END ReadChar;
|
|
||||||
|
|
||||||
PROCEDURE NextChar(InputText: Text): CHAR;
|
|
||||||
BEGIN
|
|
||||||
WITH InputText^ DO
|
|
||||||
IF type # Preading THEN Error(Preading); END;
|
|
||||||
IF NOT done THEN
|
|
||||||
IF EndOfStream(stream, result) THEN
|
|
||||||
eof := TRUE;
|
|
||||||
ch := 0C;
|
|
||||||
ELSE
|
|
||||||
Read(stream, ch, result);
|
|
||||||
done := TRUE;
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
RETURN ch;
|
|
||||||
END;
|
|
||||||
END NextChar;
|
|
||||||
|
|
||||||
PROCEDURE Get(InputText: Text);
|
|
||||||
VAR dummy: CHAR;
|
|
||||||
BEGIN
|
|
||||||
ReadChar(InputText, dummy);
|
|
||||||
END Get;
|
|
||||||
|
|
||||||
PROCEDURE Eoln(InputText: Text): BOOLEAN;
|
|
||||||
BEGIN
|
|
||||||
RETURN NextChar(InputText) = 12C;
|
|
||||||
END Eoln;
|
|
||||||
|
|
||||||
PROCEDURE Eof(InputText: Text): BOOLEAN;
|
|
||||||
BEGIN
|
|
||||||
RETURN (NextChar(InputText) = 0C) AND InputText^.eof;
|
|
||||||
END Eof;
|
|
||||||
|
|
||||||
PROCEDURE ReadLn(InputText: Text);
|
|
||||||
VAR ch: CHAR;
|
|
||||||
BEGIN
|
|
||||||
REPEAT
|
|
||||||
ReadChar(InputText, ch)
|
|
||||||
UNTIL ch = 12C;
|
|
||||||
END ReadLn;
|
|
||||||
|
|
||||||
PROCEDURE WriteChar(OutputText: Text; char: CHAR);
|
|
||||||
BEGIN
|
|
||||||
WITH OutputText^ DO
|
|
||||||
IF type # Pwriting THEN Error(Pwriting); END;
|
|
||||||
Write(stream, char, result);
|
|
||||||
END;
|
|
||||||
END WriteChar;
|
|
||||||
|
|
||||||
PROCEDURE WriteLn(OutputText: Text);
|
|
||||||
BEGIN
|
|
||||||
WriteChar(OutputText, 12C);
|
|
||||||
END WriteLn;
|
|
||||||
|
|
||||||
PROCEDURE Page(OutputText: Text);
|
|
||||||
BEGIN
|
|
||||||
WriteChar(OutputText, 14C);
|
|
||||||
END Page;
|
|
||||||
|
|
||||||
PROCEDURE ReadInteger(InputText: Text; VAR int : INTEGER);
|
|
||||||
CONST
|
|
||||||
SAFELIMITDIV10 = MAX(INTEGER) DIV 10;
|
|
||||||
SAFELIMITREM10 = MAX(INTEGER) MOD 10;
|
|
||||||
VAR
|
|
||||||
neg : BOOLEAN;
|
|
||||||
safedigit: CARDINAL;
|
|
||||||
ch: CHAR;
|
|
||||||
chvalue: CARDINAL;
|
|
||||||
BEGIN
|
|
||||||
WHILE NextChar(InputText) IN spaces DO
|
|
||||||
Get(InputText);
|
|
||||||
END;
|
|
||||||
ch := NextChar(InputText);
|
|
||||||
IF ch = '-' THEN
|
|
||||||
Get(InputText);
|
|
||||||
ch := NextChar(InputText);
|
|
||||||
neg := TRUE;
|
|
||||||
ELSIF ch = '+' THEN
|
|
||||||
Get(InputText);
|
|
||||||
ch := NextChar(InputText);
|
|
||||||
neg := FALSE;
|
|
||||||
ELSE
|
|
||||||
neg := FALSE
|
|
||||||
END;
|
|
||||||
|
|
||||||
safedigit := SAFELIMITREM10;
|
|
||||||
IF neg THEN safedigit := safedigit + 1 END;
|
|
||||||
int := 0;
|
|
||||||
IF (ch >= '0') AND (ch <= '9') THEN
|
|
||||||
WHILE (ch >= '0') & (ch <= '9') DO
|
|
||||||
chvalue := ORD(ch) - ORD('0');
|
|
||||||
IF (int < -SAFELIMITDIV10) OR
|
|
||||||
( (int = -SAFELIMITDIV10) AND
|
|
||||||
(chvalue > safedigit)) THEN
|
|
||||||
Message("integer too large");
|
|
||||||
HALT;
|
|
||||||
ELSE
|
|
||||||
int := 10*int - VAL(INTEGER, chvalue);
|
|
||||||
Get(InputText);
|
|
||||||
ch := NextChar(InputText);
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
IF NOT neg THEN
|
|
||||||
int := -int
|
|
||||||
END;
|
|
||||||
ELSE
|
|
||||||
Message("integer expected");
|
|
||||||
HALT;
|
|
||||||
END;
|
|
||||||
END ReadInteger;
|
|
||||||
|
|
||||||
PROCEDURE ReadCardinal(InputText: Text; VAR card : CARDINAL);
|
|
||||||
CONST
|
|
||||||
SAFELIMITDIV10 = MAX(CARDINAL) DIV 10;
|
|
||||||
SAFELIMITREM10 = MAX(CARDINAL) MOD 10;
|
|
||||||
|
|
||||||
VAR
|
|
||||||
ch : CHAR;
|
|
||||||
safedigit: CARDINAL;
|
|
||||||
chvalue: CARDINAL;
|
|
||||||
BEGIN
|
|
||||||
WHILE NextChar(InputText) IN spaces DO
|
|
||||||
Get(InputText);
|
|
||||||
END;
|
|
||||||
ch := NextChar(InputText);
|
|
||||||
safedigit := SAFELIMITREM10;
|
|
||||||
card := 0;
|
|
||||||
IF (ch >= '0') AND (ch <= '9') THEN
|
|
||||||
WHILE (ch >= '0') & (ch <= '9') DO
|
|
||||||
chvalue := ORD(ch) - ORD('0');
|
|
||||||
IF (card > SAFELIMITDIV10) OR
|
|
||||||
( (card = SAFELIMITDIV10) AND
|
|
||||||
(chvalue > safedigit)) THEN
|
|
||||||
Message("cardinal too large");
|
|
||||||
HALT;
|
|
||||||
ELSE
|
|
||||||
card := 10*card + chvalue;
|
|
||||||
Get(InputText);
|
|
||||||
ch := NextChar(InputText);
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
ELSE
|
|
||||||
Message("cardinal expected");
|
|
||||||
HALT;
|
|
||||||
END;
|
|
||||||
END ReadCardinal;
|
|
||||||
|
|
||||||
PROCEDURE ReadReal(InputText: Text; VAR real: REAL);
|
|
||||||
VAR x1: LONGREAL;
|
|
||||||
BEGIN
|
|
||||||
ReadLongReal(InputText, x1);
|
|
||||||
real := x1
|
|
||||||
END ReadReal;
|
|
||||||
|
|
||||||
PROCEDURE ReadLongReal(InputText: Text; VAR real: LONGREAL);
|
|
||||||
VAR
|
|
||||||
buf: numbuf;
|
|
||||||
ch: CHAR;
|
|
||||||
ok: BOOLEAN;
|
|
||||||
index: INTEGER;
|
|
||||||
|
|
||||||
PROCEDURE inch(): CHAR;
|
|
||||||
BEGIN
|
|
||||||
buf[index] := ch;
|
|
||||||
INC(index);
|
|
||||||
Get(InputText);
|
|
||||||
RETURN NextChar(InputText);
|
|
||||||
END inch;
|
|
||||||
|
|
||||||
BEGIN
|
|
||||||
index := 0;
|
|
||||||
ok := TRUE;
|
|
||||||
WHILE NextChar(InputText) IN spaces DO
|
|
||||||
Get(InputText);
|
|
||||||
END;
|
|
||||||
ch := NextChar(InputText);
|
|
||||||
IF (ch ='+') OR (ch = '-') THEN
|
|
||||||
ch := inch();
|
|
||||||
END;
|
|
||||||
IF (ch >= '0') AND (ch <= '9') THEN
|
|
||||||
WHILE (ch >= '0') AND (ch <= '9') DO
|
|
||||||
ch := inch();
|
|
||||||
END;
|
|
||||||
IF (ch = '.') THEN
|
|
||||||
ch := inch();
|
|
||||||
IF (ch >= '0') AND (ch <= '9') THEN
|
|
||||||
WHILE (ch >= '0') AND (ch <= '9') DO
|
|
||||||
ch := inch();
|
|
||||||
END;
|
|
||||||
ELSE
|
|
||||||
ok := FALSE;
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
IF ok AND (ch = 'E') THEN
|
|
||||||
ch := inch();
|
|
||||||
IF (ch ='+') OR (ch = '-') THEN
|
|
||||||
ch := inch();
|
|
||||||
END;
|
|
||||||
IF (ch >= '0') AND (ch <= '9') THEN
|
|
||||||
WHILE (ch >= '0') AND (ch <= '9') DO
|
|
||||||
ch := inch();
|
|
||||||
END;
|
|
||||||
ELSE
|
|
||||||
ok := FALSE;
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
ELSE
|
|
||||||
ok := FALSE;
|
|
||||||
END;
|
|
||||||
IF ok THEN
|
|
||||||
buf[index] := 0C;
|
|
||||||
StringToLongReal(buf, real, ok);
|
|
||||||
END;
|
|
||||||
IF NOT ok THEN
|
|
||||||
Message("Illegal real");
|
|
||||||
HALT;
|
|
||||||
END;
|
|
||||||
END ReadLongReal;
|
|
||||||
|
|
||||||
PROCEDURE WriteCardinal(OutputText: Text; card: CARDINAL; width: CARDINAL);
|
|
||||||
VAR
|
|
||||||
buf : numbuf;
|
|
||||||
BEGIN
|
|
||||||
ConvertCardinal(card, 1, buf);
|
|
||||||
WriteString(OutputText, buf, width);
|
|
||||||
END WriteCardinal;
|
|
||||||
|
|
||||||
PROCEDURE WriteInteger(OutputText: Text; int: INTEGER; width: CARDINAL);
|
|
||||||
VAR
|
|
||||||
buf : numbuf;
|
|
||||||
BEGIN
|
|
||||||
ConvertInteger(int, 1, buf);
|
|
||||||
WriteString(OutputText, buf, width);
|
|
||||||
END WriteInteger;
|
|
||||||
|
|
||||||
PROCEDURE WriteBoolean(OutputText: Text; bool: BOOLEAN; width: CARDINAL);
|
|
||||||
BEGIN
|
|
||||||
IF bool THEN
|
|
||||||
WriteString(OutputText, " TRUE", width);
|
|
||||||
ELSE
|
|
||||||
WriteString(OutputText, "FALSE", width);
|
|
||||||
END;
|
|
||||||
END WriteBoolean;
|
|
||||||
|
|
||||||
PROCEDURE WriteReal(OutputText: Text; real: REAL; width, nfrac: CARDINAL);
|
|
||||||
BEGIN
|
|
||||||
WriteLongReal(OutputText, LONG(real), width, nfrac)
|
|
||||||
END WriteReal;
|
|
||||||
|
|
||||||
PROCEDURE WriteLongReal(OutputText: Text; real: LONGREAL; width, nfrac: CARDINAL);
|
|
||||||
VAR
|
|
||||||
buf: numbuf;
|
|
||||||
ok: BOOLEAN;
|
|
||||||
digits: INTEGER;
|
|
||||||
BEGIN
|
|
||||||
IF width > SIZE(buf) THEN
|
|
||||||
width := SIZE(buf);
|
|
||||||
END;
|
|
||||||
IF nfrac > 0 THEN
|
|
||||||
LongRealToString(real, width, nfrac, buf, ok);
|
|
||||||
ELSE
|
|
||||||
IF width < 9 THEN width := 9; END;
|
|
||||||
IF real < 0.0D THEN
|
|
||||||
digits := 7 - INTEGER(width);
|
|
||||||
ELSE
|
|
||||||
digits := 6 - INTEGER(width);
|
|
||||||
END;
|
|
||||||
LongRealToString(real, width, digits, buf, ok);
|
|
||||||
END;
|
|
||||||
WriteString(OutputText, buf, 0);
|
|
||||||
END WriteLongReal;
|
|
||||||
|
|
||||||
PROCEDURE WriteString(OutputText: Text; str: ARRAY OF CHAR; width: CARDINAL);
|
|
||||||
VAR index: CARDINAL;
|
|
||||||
BEGIN
|
|
||||||
index := 0;
|
|
||||||
WHILE (index <= HIGH(str)) AND (str[index] # Eos) DO
|
|
||||||
INC(index);
|
|
||||||
END;
|
|
||||||
WHILE index < width DO
|
|
||||||
WriteChar(OutputText, " ");
|
|
||||||
INC(index);
|
|
||||||
END;
|
|
||||||
index := 0;
|
|
||||||
WHILE (index <= HIGH(str)) AND (str[index] # Eos) DO
|
|
||||||
WriteChar(OutputText, str[index]);
|
|
||||||
INC(index);
|
|
||||||
END;
|
|
||||||
END WriteString;
|
|
||||||
|
|
||||||
BEGIN (* PascalIO initialization *)
|
|
||||||
WITH ibuf DO
|
|
||||||
stream := InputStream;
|
|
||||||
eof := FALSE;
|
|
||||||
type := Preading;
|
|
||||||
done := FALSE;
|
|
||||||
END;
|
|
||||||
WITH obuf DO
|
|
||||||
stream := OutputStream;
|
|
||||||
eof := FALSE;
|
|
||||||
type := Pwriting;
|
|
||||||
END;
|
|
||||||
Notext := NIL;
|
|
||||||
Input := ADR(ibuf);
|
|
||||||
Output := ADR(obuf);
|
|
||||||
Input^.next := Output;
|
|
||||||
Output^.next := NIL;
|
|
||||||
head := Input;
|
|
||||||
END PascalIO.
|
|
||||||
|
|
@ -1,101 +0,0 @@
|
||||||
(*$R-*)
|
|
||||||
IMPLEMENTATION MODULE Processes [1];
|
|
||||||
(*
|
|
||||||
Module: Processes
|
|
||||||
From: "Programming in Modula-2", 3rd, corrected edition, by N. Wirth
|
|
||||||
Version: $Header$
|
|
||||||
*)
|
|
||||||
|
|
||||||
FROM SYSTEM IMPORT ADDRESS, TSIZE, NEWPROCESS, TRANSFER;
|
|
||||||
FROM Storage IMPORT Allocate;
|
|
||||||
FROM Traps IMPORT Message;
|
|
||||||
|
|
||||||
TYPE SIGNAL = POINTER TO ProcessDescriptor;
|
|
||||||
|
|
||||||
ProcessDescriptor =
|
|
||||||
RECORD next: SIGNAL; (* ring *)
|
|
||||||
queue: SIGNAL; (* queue of waiting processes *)
|
|
||||||
cor: ADDRESS;
|
|
||||||
ready: BOOLEAN;
|
|
||||||
END;
|
|
||||||
|
|
||||||
VAR cp: SIGNAL; (* current process *)
|
|
||||||
|
|
||||||
PROCEDURE StartProcess(P: PROC; n: CARDINAL);
|
|
||||||
VAR s0: SIGNAL;
|
|
||||||
wsp: ADDRESS;
|
|
||||||
BEGIN
|
|
||||||
s0 := cp;
|
|
||||||
Allocate(wsp, n);
|
|
||||||
Allocate(cp, TSIZE(ProcessDescriptor));
|
|
||||||
WITH cp^ DO
|
|
||||||
next := s0^.next;
|
|
||||||
s0^.next := cp;
|
|
||||||
ready := TRUE;
|
|
||||||
queue := NIL
|
|
||||||
END;
|
|
||||||
NEWPROCESS(P, wsp, n, cp^.cor);
|
|
||||||
TRANSFER(s0^.cor, cp^.cor);
|
|
||||||
END StartProcess;
|
|
||||||
|
|
||||||
PROCEDURE SEND(VAR s: SIGNAL);
|
|
||||||
VAR s0: SIGNAL;
|
|
||||||
BEGIN
|
|
||||||
IF s # NIL THEN
|
|
||||||
s0 := cp;
|
|
||||||
cp := s;
|
|
||||||
WITH cp^ DO
|
|
||||||
s := queue;
|
|
||||||
ready := TRUE;
|
|
||||||
queue := NIL
|
|
||||||
END;
|
|
||||||
TRANSFER(s0^.cor, cp^.cor);
|
|
||||||
END
|
|
||||||
END SEND;
|
|
||||||
|
|
||||||
PROCEDURE WAIT(VAR s: SIGNAL);
|
|
||||||
VAR s0, s1: SIGNAL;
|
|
||||||
BEGIN
|
|
||||||
(* insert cp in queue s *)
|
|
||||||
IF s = NIL THEN
|
|
||||||
s := cp
|
|
||||||
ELSE
|
|
||||||
s0 := s;
|
|
||||||
s1 := s0^.queue;
|
|
||||||
WHILE s1 # NIL DO
|
|
||||||
s0 := s1;
|
|
||||||
s1 := s0^.queue
|
|
||||||
END;
|
|
||||||
s0^.queue := cp
|
|
||||||
END;
|
|
||||||
s0 := cp;
|
|
||||||
REPEAT
|
|
||||||
cp := cp^.next
|
|
||||||
UNTIL cp^.ready;
|
|
||||||
IF cp = s0 THEN
|
|
||||||
(* deadlock *)
|
|
||||||
Message("deadlock");
|
|
||||||
HALT
|
|
||||||
END;
|
|
||||||
s0^.ready := FALSE;
|
|
||||||
TRANSFER(s0^.cor, cp^.cor)
|
|
||||||
END WAIT;
|
|
||||||
|
|
||||||
PROCEDURE Awaited(s: SIGNAL): BOOLEAN;
|
|
||||||
BEGIN
|
|
||||||
RETURN s # NIL
|
|
||||||
END Awaited;
|
|
||||||
|
|
||||||
PROCEDURE Init(VAR s: SIGNAL);
|
|
||||||
BEGIN
|
|
||||||
s := NIL
|
|
||||||
END Init;
|
|
||||||
|
|
||||||
BEGIN
|
|
||||||
Allocate(cp, TSIZE(ProcessDescriptor));
|
|
||||||
WITH cp^ DO
|
|
||||||
next := cp;
|
|
||||||
ready := TRUE;
|
|
||||||
queue := NIL
|
|
||||||
END
|
|
||||||
END Processes.
|
|
||||||
|
|
@ -1,337 +0,0 @@
|
||||||
(*
|
|
||||||
(c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
*)
|
|
||||||
|
|
||||||
(*$R-*)
|
|
||||||
IMPLEMENTATION MODULE RealConversions;
|
|
||||||
(*
|
|
||||||
Module: string-to-real and real-to-string conversions
|
|
||||||
Author: Ceriel J.H. Jacobs
|
|
||||||
Version: $Header$
|
|
||||||
*)
|
|
||||||
|
|
||||||
|
|
||||||
PROCEDURE RealToString(arg: REAL;
|
|
||||||
width, digits: INTEGER;
|
|
||||||
VAR str: ARRAY OF CHAR;
|
|
||||||
VAR ok: BOOLEAN);
|
|
||||||
BEGIN
|
|
||||||
LongRealToString(LONG(arg), width, digits, str, ok);
|
|
||||||
END RealToString;
|
|
||||||
|
|
||||||
TYPE
|
|
||||||
Powers = RECORD
|
|
||||||
pval: LONGREAL;
|
|
||||||
rpval: LONGREAL;
|
|
||||||
exp: INTEGER
|
|
||||||
END;
|
|
||||||
|
|
||||||
VAR Powers10: ARRAY[1..6] OF Powers;
|
|
||||||
|
|
||||||
PROCEDURE LongRealToString(arg: LONGREAL;
|
|
||||||
width, digits: INTEGER;
|
|
||||||
VAR str: ARRAY OF CHAR;
|
|
||||||
VAR ok: BOOLEAN);
|
|
||||||
VAR pointpos: INTEGER;
|
|
||||||
i: CARDINAL;
|
|
||||||
ecvtflag: BOOLEAN;
|
|
||||||
r: LONGREAL;
|
|
||||||
ind1, ind2 : CARDINAL;
|
|
||||||
sign: BOOLEAN;
|
|
||||||
ndigits: CARDINAL;
|
|
||||||
|
|
||||||
BEGIN
|
|
||||||
r := arg;
|
|
||||||
IF digits < 0 THEN
|
|
||||||
ecvtflag := TRUE;
|
|
||||||
ndigits := -digits;
|
|
||||||
ELSE
|
|
||||||
ecvtflag := FALSE;
|
|
||||||
ndigits := digits;
|
|
||||||
END;
|
|
||||||
IF (HIGH(str) < ndigits + 3) THEN
|
|
||||||
str[0] := 0C; ok := FALSE; RETURN
|
|
||||||
END;
|
|
||||||
pointpos := 0;
|
|
||||||
sign := r < 0.0D;
|
|
||||||
IF sign THEN r := -r END;
|
|
||||||
ok := TRUE;
|
|
||||||
IF NOT (r / 10.0D < r) THEN
|
|
||||||
(* assume Nan or Infinity *)
|
|
||||||
r := 0.0D;
|
|
||||||
ok := FALSE;
|
|
||||||
END;
|
|
||||||
IF r # 0.0D THEN
|
|
||||||
IF r >= 10.0D THEN
|
|
||||||
FOR i := 1 TO 6 DO
|
|
||||||
WITH Powers10[i] DO
|
|
||||||
WHILE r >= pval DO
|
|
||||||
r := r * rpval;
|
|
||||||
INC(pointpos, exp)
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
IF r < 1.0D THEN
|
|
||||||
FOR i := 1 TO 6 DO
|
|
||||||
WITH Powers10[i] DO
|
|
||||||
WHILE r*pval < 10.0D DO
|
|
||||||
r := r * pval;
|
|
||||||
DEC(pointpos, exp)
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
(* Now, we have r in [1.0, 10.0) *)
|
|
||||||
INC(pointpos);
|
|
||||||
END;
|
|
||||||
ind1 := 0;
|
|
||||||
ind2 := ndigits+1;
|
|
||||||
|
|
||||||
IF NOT ecvtflag THEN
|
|
||||||
IF INTEGER(ind2) + pointpos <= 0 THEN
|
|
||||||
ind2 := 1;
|
|
||||||
ELSE
|
|
||||||
ind2 := INTEGER(ind2) + pointpos
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
IF ind2 > HIGH(str) THEN
|
|
||||||
ok := FALSE;
|
|
||||||
str[0] := 0C;
|
|
||||||
RETURN;
|
|
||||||
END;
|
|
||||||
WHILE ind1 < ind2 DO
|
|
||||||
str[ind1] := CHR(TRUNC(r)+ORD('0'));
|
|
||||||
r := 10.0D * (r - FLOATD(TRUNC(r)));
|
|
||||||
INC(ind1);
|
|
||||||
END;
|
|
||||||
IF ind2 > 0 THEN
|
|
||||||
DEC(ind2);
|
|
||||||
ind1 := ind2;
|
|
||||||
str[ind2] := CHR(ORD(str[ind2])+5);
|
|
||||||
WHILE str[ind2] > '9' DO
|
|
||||||
str[ind2] := '0';
|
|
||||||
IF ind2 > 0 THEN
|
|
||||||
DEC(ind2);
|
|
||||||
str[ind2] := CHR(ORD(str[ind2])+1);
|
|
||||||
ELSE
|
|
||||||
str[ind2] := '1';
|
|
||||||
INC(pointpos);
|
|
||||||
IF NOT ecvtflag THEN
|
|
||||||
IF ind1 > 0 THEN str[ind1] := '0'; END;
|
|
||||||
INC(ind1);
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
IF (NOT ecvtflag) AND (ind1 = 0) THEN
|
|
||||||
str[0] := CHR(ORD(str[0])-5);
|
|
||||||
INC(ind1);
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
IF ecvtflag THEN
|
|
||||||
FOR i := ind1 TO 2 BY -1 DO
|
|
||||||
str[i] := str[i-1];
|
|
||||||
END;
|
|
||||||
str[1] := '.';
|
|
||||||
INC(ind1);
|
|
||||||
IF sign THEN
|
|
||||||
FOR i := ind1 TO 1 BY -1 DO
|
|
||||||
str[i] := str[i-1];
|
|
||||||
END;
|
|
||||||
INC(ind1);
|
|
||||||
str[0] := '-';
|
|
||||||
END;
|
|
||||||
IF (ind1 + 4) > HIGH(str) THEN
|
|
||||||
str[0] := 0C;
|
|
||||||
ok := FALSE;
|
|
||||||
RETURN;
|
|
||||||
END;
|
|
||||||
str[ind1] := 'E'; INC(ind1);
|
|
||||||
IF arg # 0.0D THEN DEC(pointpos); END;
|
|
||||||
IF pointpos < 0 THEN
|
|
||||||
pointpos := -pointpos;
|
|
||||||
str[ind1] := '-';
|
|
||||||
ELSE
|
|
||||||
str[ind1] := '+';
|
|
||||||
END;
|
|
||||||
INC(ind1);
|
|
||||||
str[ind1] := CHR(ORD('0') + CARDINAL(pointpos DIV 100));
|
|
||||||
pointpos := pointpos MOD 100;
|
|
||||||
INC(ind1);
|
|
||||||
str[ind1] := CHR(ORD('0') + CARDINAL(pointpos DIV 10));
|
|
||||||
INC(ind1);
|
|
||||||
str[ind1] := CHR(ORD('0') + CARDINAL(pointpos MOD 10));
|
|
||||||
ELSE
|
|
||||||
IF pointpos <= 0 THEN
|
|
||||||
FOR i := ind1 TO 1 BY -1 DO
|
|
||||||
str[i+CARDINAL(-pointpos)] := str[i-1];
|
|
||||||
END;
|
|
||||||
FOR i := 0 TO CARDINAL(-pointpos) DO
|
|
||||||
str[i] := '0';
|
|
||||||
END;
|
|
||||||
ind1 := ind1 + CARDINAL(1 - pointpos);
|
|
||||||
pointpos := 1;
|
|
||||||
END;
|
|
||||||
FOR i := ind1 TO CARDINAL(pointpos+1) BY -1 DO
|
|
||||||
str[i] := str[i-1];
|
|
||||||
END;
|
|
||||||
IF ndigits = 0 THEN
|
|
||||||
str[pointpos] := 0C;
|
|
||||||
ind1 := pointpos - 1;
|
|
||||||
ELSE
|
|
||||||
str[pointpos] := '.';
|
|
||||||
IF INTEGER(ind1) > pointpos+INTEGER(ndigits) THEN
|
|
||||||
ind1 := pointpos+INTEGER(ndigits);
|
|
||||||
END;
|
|
||||||
str[pointpos+INTEGER(ndigits)+1] := 0C;
|
|
||||||
END;
|
|
||||||
IF sign THEN
|
|
||||||
FOR i := ind1 TO 0 BY -1 DO
|
|
||||||
str[i+1] := str[i];
|
|
||||||
END;
|
|
||||||
str[0] := '-';
|
|
||||||
INC(ind1);
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
IF (ind1+1) <= HIGH(str) THEN str[ind1+1] := 0C; END;
|
|
||||||
IF ind1 >= CARDINAL(width) THEN
|
|
||||||
ok := FALSE;
|
|
||||||
RETURN;
|
|
||||||
END;
|
|
||||||
IF width > 0 THEN
|
|
||||||
DEC(width);
|
|
||||||
END;
|
|
||||||
IF (width > 0) AND (ind1 < CARDINAL(width)) THEN
|
|
||||||
FOR i := ind1 TO 0 BY -1 DO
|
|
||||||
str[i + CARDINAL(width) - ind1] := str[i];
|
|
||||||
END;
|
|
||||||
FOR i := 0 TO CARDINAL(width)-(ind1+1) DO
|
|
||||||
str[i] := ' ';
|
|
||||||
END;
|
|
||||||
ind1 := CARDINAL(width);
|
|
||||||
IF (ind1+1) <= HIGH(str) THEN
|
|
||||||
FOR ind1 := ind1+1 TO HIGH(str) DO
|
|
||||||
str[ind1] := 0C;
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
|
|
||||||
END LongRealToString;
|
|
||||||
|
|
||||||
|
|
||||||
PROCEDURE StringToReal(str: ARRAY OF CHAR;
|
|
||||||
VAR r: REAL; VAR ok: BOOLEAN);
|
|
||||||
VAR x: LONGREAL;
|
|
||||||
BEGIN
|
|
||||||
StringToLongReal(str, x, ok);
|
|
||||||
IF ok THEN
|
|
||||||
r := x;
|
|
||||||
END;
|
|
||||||
END StringToReal;
|
|
||||||
|
|
||||||
PROCEDURE StringToLongReal(str: ARRAY OF CHAR;
|
|
||||||
VAR r: LONGREAL; VAR ok: BOOLEAN);
|
|
||||||
CONST BIG = 1.0D17;
|
|
||||||
TYPE SETOFCHAR = SET OF CHAR;
|
|
||||||
VAR pow10 : INTEGER;
|
|
||||||
i : INTEGER;
|
|
||||||
e : LONGREAL;
|
|
||||||
ch : CHAR;
|
|
||||||
signed: BOOLEAN;
|
|
||||||
signedexp: BOOLEAN;
|
|
||||||
iB: CARDINAL;
|
|
||||||
|
|
||||||
BEGIN
|
|
||||||
r := 0.0D;
|
|
||||||
pow10 := 0;
|
|
||||||
iB := 0;
|
|
||||||
ok := TRUE;
|
|
||||||
signed := FALSE;
|
|
||||||
WHILE (str[iB] = ' ') OR (str[iB] = CHR(9)) DO
|
|
||||||
INC(iB);
|
|
||||||
IF iB > HIGH(str) THEN
|
|
||||||
ok := FALSE;
|
|
||||||
RETURN;
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
IF str[iB] = '-' THEN signed := TRUE; INC(iB)
|
|
||||||
ELSIF str[iB] = '+' THEN INC(iB)
|
|
||||||
END;
|
|
||||||
ch := str[iB]; INC(iB);
|
|
||||||
IF NOT (ch IN SETOFCHAR{'0'..'9'}) THEN ok := FALSE; RETURN END;
|
|
||||||
REPEAT
|
|
||||||
IF r>BIG THEN INC(pow10) ELSE r:= 10.0D*r+FLOATD(ORD(ch)-ORD('0')) END;
|
|
||||||
IF iB <= HIGH(str) THEN
|
|
||||||
ch := str[iB]; INC(iB);
|
|
||||||
END;
|
|
||||||
UNTIL (iB > HIGH(str)) OR NOT (ch IN SETOFCHAR{'0'..'9'});
|
|
||||||
IF (ch = '.') AND (iB <= HIGH(str)) THEN
|
|
||||||
ch := str[iB]; INC(iB);
|
|
||||||
IF NOT (ch IN SETOFCHAR{'0'..'9'}) THEN ok := FALSE; RETURN END;
|
|
||||||
REPEAT
|
|
||||||
IF r < BIG THEN
|
|
||||||
r := 10.0D * r + FLOATD(ORD(ch)-ORD('0'));
|
|
||||||
DEC(pow10);
|
|
||||||
END;
|
|
||||||
IF iB <= HIGH(str) THEN
|
|
||||||
ch := str[iB]; INC(iB);
|
|
||||||
END;
|
|
||||||
UNTIL (iB > HIGH(str)) OR NOT (ch IN SETOFCHAR{'0'..'9'});
|
|
||||||
END;
|
|
||||||
IF (ch = 'E') THEN
|
|
||||||
IF iB > HIGH(str) THEN
|
|
||||||
ok := FALSE;
|
|
||||||
RETURN;
|
|
||||||
ELSE
|
|
||||||
ch := str[iB]; INC(iB);
|
|
||||||
END;
|
|
||||||
i := 0;
|
|
||||||
signedexp := FALSE;
|
|
||||||
IF (ch = '-') OR (ch = '+') THEN
|
|
||||||
signedexp := ch = '-';
|
|
||||||
IF iB > HIGH(str) THEN
|
|
||||||
ok := FALSE;
|
|
||||||
RETURN;
|
|
||||||
ELSE
|
|
||||||
ch := str[iB]; INC(iB);
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
IF NOT (ch IN SETOFCHAR{'0'..'9'}) THEN ok := FALSE; RETURN END;
|
|
||||||
REPEAT
|
|
||||||
i := i*10 + INTEGER(ORD(ch) - ORD('0'));
|
|
||||||
IF iB <= HIGH(str) THEN
|
|
||||||
ch := str[iB]; INC(iB);
|
|
||||||
END;
|
|
||||||
UNTIL (iB > HIGH(str)) OR NOT (ch IN SETOFCHAR{'0'..'9'});
|
|
||||||
IF signedexp THEN i := -i END;
|
|
||||||
pow10 := pow10 + i;
|
|
||||||
END;
|
|
||||||
IF pow10 < 0 THEN i := -pow10; ELSE i := pow10; END;
|
|
||||||
e := 1.0D;
|
|
||||||
DEC(i);
|
|
||||||
WHILE i >= 10 DO
|
|
||||||
e := e * 10000000000.0D;
|
|
||||||
DEC(i,10);
|
|
||||||
END;
|
|
||||||
WHILE i >= 0 DO
|
|
||||||
e := e * 10.0D;
|
|
||||||
DEC(i)
|
|
||||||
END;
|
|
||||||
IF pow10<0 THEN
|
|
||||||
r := r / e;
|
|
||||||
ELSE
|
|
||||||
r := r * e;
|
|
||||||
END;
|
|
||||||
IF signed THEN r := -r; END;
|
|
||||||
IF (iB <= HIGH(str)) AND (ORD(ch) > ORD(' ')) THEN ok := FALSE; END
|
|
||||||
END StringToLongReal;
|
|
||||||
|
|
||||||
BEGIN
|
|
||||||
WITH Powers10[1] DO pval := 1.0D32; rpval := 1.0D-32; exp := 32 END;
|
|
||||||
WITH Powers10[2] DO pval := 1.0D16; rpval := 1.0D-16; exp := 16 END;
|
|
||||||
WITH Powers10[3] DO pval := 1.0D8; rpval := 1.0D-8; exp := 8 END;
|
|
||||||
WITH Powers10[4] DO pval := 1.0D4; rpval := 1.0D-4; exp := 4 END;
|
|
||||||
WITH Powers10[5] DO pval := 1.0D2; rpval := 1.0D-2; exp := 2 END;
|
|
||||||
WITH Powers10[6] DO pval := 1.0D1; rpval := 1.0D-1; exp := 1 END;
|
|
||||||
END RealConversions.
|
|
||||||
|
|
@ -1,97 +0,0 @@
|
||||||
(*
|
|
||||||
(c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
*)
|
|
||||||
|
|
||||||
(*$R-*)
|
|
||||||
IMPLEMENTATION MODULE RealInOut;
|
|
||||||
(*
|
|
||||||
Module: InOut for REAL numbers
|
|
||||||
Author: Ceriel J.H. Jacobs
|
|
||||||
Version: $Header$
|
|
||||||
*)
|
|
||||||
|
|
||||||
FROM InOut IMPORT ReadString, WriteString, WriteOct;
|
|
||||||
FROM Traps IMPORT Message;
|
|
||||||
FROM SYSTEM IMPORT WORD;
|
|
||||||
FROM RealConversions IMPORT
|
|
||||||
LongRealToString, StringToLongReal;
|
|
||||||
|
|
||||||
CONST MAXNDIG = 32;
|
|
||||||
MAXWIDTH = MAXNDIG+7;
|
|
||||||
TYPE RBUF = ARRAY [0..MAXWIDTH+1] OF CHAR;
|
|
||||||
|
|
||||||
PROCEDURE WriteReal(arg: REAL; ndigits: CARDINAL);
|
|
||||||
BEGIN
|
|
||||||
WriteLongReal(LONG(arg), ndigits)
|
|
||||||
END WriteReal;
|
|
||||||
|
|
||||||
PROCEDURE WriteLongReal(arg: LONGREAL; ndigits: CARDINAL);
|
|
||||||
VAR buf : RBUF;
|
|
||||||
ok : BOOLEAN;
|
|
||||||
|
|
||||||
BEGIN
|
|
||||||
IF ndigits > MAXWIDTH THEN ndigits := MAXWIDTH; END;
|
|
||||||
IF ndigits < 10 THEN ndigits := 10; END;
|
|
||||||
LongRealToString(arg, ndigits, -INTEGER(ndigits - 7), buf, ok);
|
|
||||||
WriteString(buf);
|
|
||||||
END WriteLongReal;
|
|
||||||
|
|
||||||
PROCEDURE WriteFixPt(arg: REAL; n, k: CARDINAL);
|
|
||||||
BEGIN
|
|
||||||
WriteLongFixPt(LONG(arg), n, k)
|
|
||||||
END WriteFixPt;
|
|
||||||
|
|
||||||
PROCEDURE WriteLongFixPt(arg: LONGREAL; n, k: CARDINAL);
|
|
||||||
VAR buf: RBUF;
|
|
||||||
ok : BOOLEAN;
|
|
||||||
|
|
||||||
BEGIN
|
|
||||||
IF n > MAXWIDTH THEN n := MAXWIDTH END;
|
|
||||||
LongRealToString(arg, n, k, buf, ok);
|
|
||||||
WriteString(buf);
|
|
||||||
END WriteLongFixPt;
|
|
||||||
|
|
||||||
PROCEDURE ReadReal(VAR x: REAL);
|
|
||||||
VAR x1: LONGREAL;
|
|
||||||
BEGIN
|
|
||||||
ReadLongReal(x1);
|
|
||||||
x := x1
|
|
||||||
END ReadReal;
|
|
||||||
|
|
||||||
PROCEDURE ReadLongReal(VAR x: LONGREAL);
|
|
||||||
VAR Buf: ARRAY[0..512] OF CHAR;
|
|
||||||
ok: BOOLEAN;
|
|
||||||
|
|
||||||
BEGIN
|
|
||||||
ReadString(Buf);
|
|
||||||
StringToLongReal(Buf, x, ok);
|
|
||||||
IF NOT ok THEN
|
|
||||||
Message("real expected");
|
|
||||||
HALT;
|
|
||||||
END;
|
|
||||||
Done := TRUE;
|
|
||||||
END ReadLongReal;
|
|
||||||
|
|
||||||
PROCEDURE wroct(x: ARRAY OF WORD);
|
|
||||||
VAR i: CARDINAL;
|
|
||||||
BEGIN
|
|
||||||
FOR i := 0 TO HIGH(x) DO
|
|
||||||
WriteOct(CARDINAL(x[i]), 0);
|
|
||||||
WriteString(" ");
|
|
||||||
END;
|
|
||||||
END wroct;
|
|
||||||
|
|
||||||
PROCEDURE WriteRealOct(x: REAL);
|
|
||||||
BEGIN
|
|
||||||
wroct(x);
|
|
||||||
END WriteRealOct;
|
|
||||||
|
|
||||||
PROCEDURE WriteLongRealOct(x: LONGREAL);
|
|
||||||
BEGIN
|
|
||||||
wroct(x);
|
|
||||||
END WriteLongRealOct;
|
|
||||||
|
|
||||||
BEGIN
|
|
||||||
Done := FALSE;
|
|
||||||
END RealInOut.
|
|
||||||
|
|
@ -1,115 +0,0 @@
|
||||||
/*
|
|
||||||
(c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
*/
|
|
||||||
|
|
||||||
/*
|
|
||||||
Module: SYSTEM
|
|
||||||
Author: Ceriel J.H. Jacobs
|
|
||||||
Version: $Header$
|
|
||||||
*/
|
|
||||||
|
|
||||||
/*
|
|
||||||
An implementation of the Modula-2 NEWPROCESS and TRANSFER facilities
|
|
||||||
using the topsize, topsave, and topload facilities.
|
|
||||||
For each coroutine, a proc structure is built. For the main routine,
|
|
||||||
a static space is declared to save its stack. For the other coroutines,
|
|
||||||
the user specifies this space.
|
|
||||||
*/
|
|
||||||
|
|
||||||
#include <m2_traps.h>
|
|
||||||
|
|
||||||
#define MAXMAIN 2048
|
|
||||||
|
|
||||||
struct proc {
|
|
||||||
unsigned size; /* size of saved stackframe(s) */
|
|
||||||
int (*proc)(); /* address of coroutine procedure */
|
|
||||||
char *brk; /* stack break of this coroutine */
|
|
||||||
};
|
|
||||||
|
|
||||||
extern unsigned topsize();
|
|
||||||
|
|
||||||
static struct proc mainproc[MAXMAIN/sizeof(struct proc) + 1];
|
|
||||||
|
|
||||||
static struct proc *curproc = 0;/* current coroutine */
|
|
||||||
extern char *MainLB; /* stack break of main routine */
|
|
||||||
|
|
||||||
_SYSTEM__NEWPROCESS(p, a, n, p1)
|
|
||||||
int (*p)(); /* coroutine procedure */
|
|
||||||
struct proc *a; /* pointer to area for saved stack-frame */
|
|
||||||
unsigned n; /* size of this area */
|
|
||||||
struct proc **p1; /* where to leave coroutine descriptor,
|
|
||||||
in this implementation the address of
|
|
||||||
the area for saved stack-frame(s) */
|
|
||||||
{
|
|
||||||
/* This procedure creates a new coroutine, but does not
|
|
||||||
transfer control to it. The routine "topsize" will compute the
|
|
||||||
stack break, which will be the local base of this routine.
|
|
||||||
Notice that we can do this because we do not need the stack
|
|
||||||
above this point for this coroutine. In Modula-2, coroutines
|
|
||||||
must be level 0 procedures without parameters.
|
|
||||||
*/
|
|
||||||
char *brk = 0;
|
|
||||||
unsigned sz = topsize(&brk);
|
|
||||||
|
|
||||||
if (sz + sizeof(struct proc) > n) {
|
|
||||||
/* not enough space */
|
|
||||||
TRP(M2_TOOLARGE);
|
|
||||||
}
|
|
||||||
a->size = n;
|
|
||||||
a->proc = p;
|
|
||||||
a->brk = brk;
|
|
||||||
*p1 = a;
|
|
||||||
if (topsave(brk, a+1))
|
|
||||||
/* stack frame saved; now just return */
|
|
||||||
;
|
|
||||||
else {
|
|
||||||
/* We get here through the first transfer to the coroutine
|
|
||||||
created above.
|
|
||||||
This also means that curproc is now set to this coroutine.
|
|
||||||
We cannot trust the parameters anymore.
|
|
||||||
Just call the coroutine procedure.
|
|
||||||
*/
|
|
||||||
(*(curproc->proc))();
|
|
||||||
_cleanup();
|
|
||||||
_exit(0);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
_SYSTEM__TRANSFER(a, b)
|
|
||||||
struct proc **a, **b;
|
|
||||||
{
|
|
||||||
/* transfer from one coroutine to another, saving the current
|
|
||||||
descriptor in the space indicated by "a", and transfering to
|
|
||||||
the coroutine in descriptor "b".
|
|
||||||
*/
|
|
||||||
unsigned size;
|
|
||||||
|
|
||||||
if (! curproc) {
|
|
||||||
/* the current coroutine is the main process;
|
|
||||||
initialize a coroutine descriptor for it ...
|
|
||||||
*/
|
|
||||||
mainproc[0].brk = MainLB;
|
|
||||||
mainproc[0].size = sizeof(mainproc);
|
|
||||||
curproc = &mainproc[0];
|
|
||||||
}
|
|
||||||
*a = curproc; /* save current descriptor in "a" */
|
|
||||||
if (*b == curproc) {
|
|
||||||
/* transfer to itself is a no-op */
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
size = topsize(&(curproc->brk));
|
|
||||||
if (size + sizeof(struct proc) > curproc->size) {
|
|
||||||
TRP(M2_TOOLARGE);
|
|
||||||
}
|
|
||||||
if (topsave(curproc->brk, curproc+1)) {
|
|
||||||
/* stack top saved. Now restore context of target
|
|
||||||
coroutine
|
|
||||||
*/
|
|
||||||
curproc = *b;
|
|
||||||
topload(curproc+1);
|
|
||||||
/* we never get here ... */
|
|
||||||
}
|
|
||||||
/* but we do get here, when a transfer is done to the coroutine in "a".
|
|
||||||
*/
|
|
||||||
}
|
|
||||||
|
|
@ -1,118 +0,0 @@
|
||||||
(*
|
|
||||||
(c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
*)
|
|
||||||
|
|
||||||
(*$R-*)
|
|
||||||
IMPLEMENTATION MODULE Semaphores [1];
|
|
||||||
(*
|
|
||||||
Module: Processes with semaphores
|
|
||||||
Author: Ceriel J.H. Jacobs
|
|
||||||
Version: $Header$
|
|
||||||
|
|
||||||
Quasi-concurrency implementation
|
|
||||||
*)
|
|
||||||
|
|
||||||
FROM SYSTEM IMPORT ADDRESS, NEWPROCESS, TRANSFER;
|
|
||||||
FROM Storage IMPORT Allocate;
|
|
||||||
FROM random IMPORT Uniform;
|
|
||||||
FROM Traps IMPORT Message;
|
|
||||||
|
|
||||||
TYPE Sema = POINTER TO Semaphore;
|
|
||||||
Processes = POINTER TO Process;
|
|
||||||
Semaphore =
|
|
||||||
RECORD
|
|
||||||
level: CARDINAL;
|
|
||||||
END;
|
|
||||||
Process =
|
|
||||||
RECORD next: Processes;
|
|
||||||
proc: ADDRESS;
|
|
||||||
waiting: Sema;
|
|
||||||
END;
|
|
||||||
|
|
||||||
VAR cp: Processes; (* current process *)
|
|
||||||
|
|
||||||
PROCEDURE StartProcess(P: PROC; n: CARDINAL);
|
|
||||||
VAR s0: Processes;
|
|
||||||
wsp: ADDRESS;
|
|
||||||
BEGIN
|
|
||||||
s0 := cp;
|
|
||||||
Allocate(wsp, n);
|
|
||||||
Allocate(cp, SIZE(Process));
|
|
||||||
WITH cp^ DO
|
|
||||||
next := s0^.next;
|
|
||||||
s0^.next := cp;
|
|
||||||
waiting := NIL;
|
|
||||||
END;
|
|
||||||
NEWPROCESS(P, wsp, n, cp^.proc);
|
|
||||||
TRANSFER(s0^.proc, cp^.proc);
|
|
||||||
END StartProcess;
|
|
||||||
|
|
||||||
PROCEDURE Up(VAR s: Sema);
|
|
||||||
BEGIN
|
|
||||||
s^.level := s^.level + 1;
|
|
||||||
ReSchedule;
|
|
||||||
END Up;
|
|
||||||
|
|
||||||
PROCEDURE Down(VAR s: Sema);
|
|
||||||
BEGIN
|
|
||||||
IF s^.level = 0 THEN
|
|
||||||
cp^.waiting := s;
|
|
||||||
ELSE
|
|
||||||
s^.level := s^.level - 1;
|
|
||||||
END;
|
|
||||||
ReSchedule;
|
|
||||||
END Down;
|
|
||||||
|
|
||||||
PROCEDURE NewSema(n: CARDINAL): Sema;
|
|
||||||
VAR s: Sema;
|
|
||||||
BEGIN
|
|
||||||
Allocate(s, SIZE(Semaphore));
|
|
||||||
s^.level := n;
|
|
||||||
RETURN s;
|
|
||||||
END NewSema;
|
|
||||||
|
|
||||||
PROCEDURE Level(s: Sema): CARDINAL;
|
|
||||||
BEGIN
|
|
||||||
RETURN s^.level;
|
|
||||||
END Level;
|
|
||||||
|
|
||||||
PROCEDURE ReSchedule;
|
|
||||||
VAR s0: Processes;
|
|
||||||
i, j: CARDINAL;
|
|
||||||
BEGIN
|
|
||||||
s0 := cp;
|
|
||||||
i := Uniform(1, 5);
|
|
||||||
j := i;
|
|
||||||
LOOP
|
|
||||||
cp := cp^.next;
|
|
||||||
IF Runnable(cp) THEN
|
|
||||||
DEC(i);
|
|
||||||
IF i = 0 THEN EXIT END;
|
|
||||||
END;
|
|
||||||
IF (cp = s0) AND (j = i) THEN
|
|
||||||
(* deadlock *)
|
|
||||||
Message("deadlock");
|
|
||||||
HALT
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
IF cp # s0 THEN TRANSFER(s0^.proc, cp^.proc); END;
|
|
||||||
END ReSchedule;
|
|
||||||
|
|
||||||
PROCEDURE Runnable(p: Processes): BOOLEAN;
|
|
||||||
BEGIN
|
|
||||||
IF p^.waiting = NIL THEN RETURN TRUE; END;
|
|
||||||
IF p^.waiting^.level > 0 THEN
|
|
||||||
p^.waiting^.level := p^.waiting^.level - 1;
|
|
||||||
p^.waiting := NIL;
|
|
||||||
RETURN TRUE;
|
|
||||||
END;
|
|
||||||
RETURN FALSE;
|
|
||||||
END Runnable;
|
|
||||||
BEGIN
|
|
||||||
Allocate(cp, SIZE(Process));
|
|
||||||
WITH cp^ DO
|
|
||||||
next := cp;
|
|
||||||
waiting := NIL;
|
|
||||||
END
|
|
||||||
END Semaphores.
|
|
||||||
|
|
@ -1,353 +0,0 @@
|
||||||
(*
|
|
||||||
(c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
*)
|
|
||||||
|
|
||||||
(*$R-*)
|
|
||||||
IMPLEMENTATION MODULE Storage;
|
|
||||||
(*
|
|
||||||
Module: Dynamic Storage Allocation
|
|
||||||
Author: Ceriel J.H. Jacobs
|
|
||||||
Adapted from a version in C by Hans Tebra
|
|
||||||
Version: $Header$
|
|
||||||
*)
|
|
||||||
(* This storage manager maintains an array of lists of objects with the
|
|
||||||
same size. Commonly used sizes have their own bucket. The larger ones
|
|
||||||
are put in a single list.
|
|
||||||
*)
|
|
||||||
FROM Unix IMPORT sbrk, ILLBREAK;
|
|
||||||
FROM SYSTEM IMPORT ADDRESS, ADR;
|
|
||||||
FROM Traps IMPORT Message;
|
|
||||||
|
|
||||||
CONST
|
|
||||||
NLISTS = 20;
|
|
||||||
MAGICW = 0A5A5H;
|
|
||||||
MAGICC = 175C;
|
|
||||||
|
|
||||||
TYPE
|
|
||||||
ALIGNTYPE =
|
|
||||||
RECORD
|
|
||||||
CASE : INTEGER OF
|
|
||||||
1: l: LONGINT |
|
|
||||||
2: p: ADDRESS |
|
|
||||||
3: d: LONGREAL
|
|
||||||
END
|
|
||||||
END; (* A type with high alignment requirements *)
|
|
||||||
BucketPtr = POINTER TO Bucket;
|
|
||||||
Bucket =
|
|
||||||
RECORD
|
|
||||||
CASE : BOOLEAN OF
|
|
||||||
FALSE:
|
|
||||||
BNEXT: BucketPtr; (* next free Bucket *)
|
|
||||||
BSIZE: CARDINAL; | (* size of user part in UNITs *)
|
|
||||||
TRUE: BXX: ALIGNTYPE
|
|
||||||
END;
|
|
||||||
BSTORE: ALIGNTYPE;
|
|
||||||
END;
|
|
||||||
|
|
||||||
CONST
|
|
||||||
UNIT = SIZE(ALIGNTYPE);
|
|
||||||
|
|
||||||
VAR
|
|
||||||
FreeLists: ARRAY[0..NLISTS] OF BucketPtr; (* small blocks *)
|
|
||||||
Llist: BucketPtr; (* others *)
|
|
||||||
Compacted: BOOLEAN; (* avoid recursive reorganization *)
|
|
||||||
FirstBlock: BucketPtr;
|
|
||||||
USED: ADDRESS;
|
|
||||||
|
|
||||||
PROCEDURE MyAllocate(size: CARDINAL) : ADDRESS;
|
|
||||||
VAR nu : CARDINAL;
|
|
||||||
b : CARDINAL;
|
|
||||||
p, q: BucketPtr;
|
|
||||||
pc: POINTER TO CHAR;
|
|
||||||
brk : ADDRESS;
|
|
||||||
BEGIN
|
|
||||||
IF size > CARDINAL(MAX(INTEGER)-2*UNIT + 1) THEN
|
|
||||||
RETURN NIL;
|
|
||||||
END;
|
|
||||||
nu := (size + (UNIT-1)) DIV UNIT;
|
|
||||||
IF nu = 0 THEN
|
|
||||||
nu := 1;
|
|
||||||
END;
|
|
||||||
IF nu <= NLISTS THEN
|
|
||||||
b := nu;
|
|
||||||
IF FreeLists[b] # NIL THEN
|
|
||||||
(* Exact fit *)
|
|
||||||
p := FreeLists[b];
|
|
||||||
FreeLists[b] := p^.BNEXT;
|
|
||||||
p^.BNEXT := USED;
|
|
||||||
IF p^.BSIZE * UNIT # size THEN
|
|
||||||
pc := ADR(p^.BSTORE) + size;
|
|
||||||
pc^ := MAGICC;
|
|
||||||
END;
|
|
||||||
p^.BSIZE := size;
|
|
||||||
RETURN ADR(p^.BSTORE);
|
|
||||||
END;
|
|
||||||
|
|
||||||
(* Search for a block with >= 2 units more than requested.
|
|
||||||
We pay for an additional header when the block is split.
|
|
||||||
*)
|
|
||||||
FOR b := b+2 TO NLISTS DO
|
|
||||||
IF FreeLists[b] # NIL THEN
|
|
||||||
q := FreeLists[b];
|
|
||||||
FreeLists[b] := q^.BNEXT;
|
|
||||||
p := ADDRESS(q) + (nu+1)*UNIT;
|
|
||||||
(* p indicates the block that must be given
|
|
||||||
back
|
|
||||||
*)
|
|
||||||
p^.BSIZE := q^.BSIZE - nu - 1;
|
|
||||||
p^.BNEXT := FreeLists[p^.BSIZE];
|
|
||||||
FreeLists[p^.BSIZE] := p;
|
|
||||||
q^.BSIZE := nu;
|
|
||||||
q^.BNEXT := USED;
|
|
||||||
IF q^.BSIZE * UNIT # size THEN
|
|
||||||
pc := ADR(q^.BSTORE) + size;
|
|
||||||
pc^ := MAGICC;
|
|
||||||
END;
|
|
||||||
q^.BSIZE := size;
|
|
||||||
RETURN ADR(q^.BSTORE);
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
|
|
||||||
p := Llist;
|
|
||||||
IF p # NIL THEN
|
|
||||||
q := NIL;
|
|
||||||
WHILE (p # NIL) AND (p^.BSIZE < nu) DO
|
|
||||||
q := p;
|
|
||||||
p := p^.BNEXT;
|
|
||||||
END;
|
|
||||||
|
|
||||||
IF p # NIL THEN
|
|
||||||
(* p^.BSIZE >= nu *)
|
|
||||||
IF p^.BSIZE <= nu + NLISTS + 1 THEN
|
|
||||||
(* Remove p from this list *)
|
|
||||||
IF q # NIL THEN q^.BNEXT := p^.BNEXT
|
|
||||||
ELSE Llist := p^.BNEXT;
|
|
||||||
END;
|
|
||||||
p^.BNEXT := USED;
|
|
||||||
IF p^.BSIZE > nu + 1 THEN
|
|
||||||
(* split block,
|
|
||||||
tail goes to FreeLists area
|
|
||||||
*)
|
|
||||||
q := ADDRESS(p) + (nu+1)*UNIT;
|
|
||||||
q^.BSIZE := p^.BSIZE -nu -1;
|
|
||||||
q^.BNEXT := FreeLists[q^.BSIZE];
|
|
||||||
FreeLists[q^.BSIZE] := q;
|
|
||||||
p^.BSIZE := nu;
|
|
||||||
END;
|
|
||||||
IF p^.BSIZE * UNIT # size THEN
|
|
||||||
pc := ADR(p^.BSTORE) + size;
|
|
||||||
pc^ := MAGICC;
|
|
||||||
END;
|
|
||||||
p^.BSIZE := size;
|
|
||||||
RETURN ADR(p^.BSTORE);
|
|
||||||
END;
|
|
||||||
(* Give part of tail of original block.
|
|
||||||
Block stays in this list.
|
|
||||||
*)
|
|
||||||
q := ADDRESS(p) + (p^.BSIZE-nu)*UNIT;
|
|
||||||
q^.BSIZE := nu;
|
|
||||||
p^.BSIZE := p^.BSIZE - nu - 1;
|
|
||||||
q^.BNEXT := USED;
|
|
||||||
IF q^.BSIZE * UNIT # size THEN
|
|
||||||
pc := ADR(q^.BSTORE) + size;
|
|
||||||
pc^ := MAGICC;
|
|
||||||
END;
|
|
||||||
q^.BSIZE := size;
|
|
||||||
RETURN ADR(q^.BSTORE);
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
|
|
||||||
IF Compacted THEN
|
|
||||||
(* reorganization did not yield sufficient memory *)
|
|
||||||
RETURN NIL;
|
|
||||||
END;
|
|
||||||
|
|
||||||
brk := sbrk(UNIT * (nu + 1));
|
|
||||||
IF brk = ILLBREAK THEN
|
|
||||||
ReOrganize();
|
|
||||||
Compacted := TRUE;
|
|
||||||
brk := MyAllocate(size);
|
|
||||||
Compacted := FALSE;
|
|
||||||
RETURN brk;
|
|
||||||
END;
|
|
||||||
|
|
||||||
p := brk;
|
|
||||||
p^.BSIZE := nu;
|
|
||||||
p^.BNEXT := USED;
|
|
||||||
IF p^.BSIZE * UNIT # size THEN
|
|
||||||
pc := ADR(p^.BSTORE) + size;
|
|
||||||
pc^ := MAGICC;
|
|
||||||
END;
|
|
||||||
p^.BSIZE := size;
|
|
||||||
RETURN ADR(p^.BSTORE);
|
|
||||||
END MyAllocate;
|
|
||||||
|
|
||||||
PROCEDURE ALLOCATE(VAR a: ADDRESS; size: CARDINAL);
|
|
||||||
BEGIN
|
|
||||||
Allocate(a, size);
|
|
||||||
END ALLOCATE;
|
|
||||||
|
|
||||||
PROCEDURE Allocate(VAR a: ADDRESS; size: CARDINAL);
|
|
||||||
BEGIN
|
|
||||||
a := MyAllocate(size);
|
|
||||||
IF a = NIL THEN
|
|
||||||
Message("out of core");
|
|
||||||
HALT;
|
|
||||||
END;
|
|
||||||
END Allocate;
|
|
||||||
|
|
||||||
PROCEDURE Available(size: CARDINAL): BOOLEAN;
|
|
||||||
VAR a: ADDRESS;
|
|
||||||
BEGIN
|
|
||||||
a:= MyAllocate(size);
|
|
||||||
IF a # NIL THEN
|
|
||||||
Deallocate(a, size);
|
|
||||||
RETURN TRUE;
|
|
||||||
END;
|
|
||||||
RETURN FALSE;
|
|
||||||
END Available;
|
|
||||||
|
|
||||||
PROCEDURE DEALLOCATE(VAR a: ADDRESS; size: CARDINAL);
|
|
||||||
BEGIN
|
|
||||||
Deallocate(a, size);
|
|
||||||
END DEALLOCATE;
|
|
||||||
|
|
||||||
PROCEDURE Deallocate(VAR a: ADDRESS; size: CARDINAL);
|
|
||||||
VAR p: BucketPtr;
|
|
||||||
pc: POINTER TO CHAR;
|
|
||||||
BEGIN
|
|
||||||
IF (a = NIL) THEN
|
|
||||||
Message("(Warning) Deallocate: NIL pointer deallocated");
|
|
||||||
RETURN;
|
|
||||||
END;
|
|
||||||
p := a - UNIT;
|
|
||||||
IF (p^.BNEXT # BucketPtr(USED)) THEN
|
|
||||||
Message("(Warning) Deallocate: area already deallocated or heap corrupted");
|
|
||||||
a := NIL;
|
|
||||||
RETURN;
|
|
||||||
END;
|
|
||||||
WITH p^ DO
|
|
||||||
IF BSIZE # size THEN
|
|
||||||
Message("(Warning) Deallocate: wrong size or heap corrupted");
|
|
||||||
END;
|
|
||||||
BSIZE := (size + (UNIT - 1)) DIV UNIT;
|
|
||||||
IF (BSIZE*UNIT # size) THEN
|
|
||||||
pc := a + size;
|
|
||||||
IF pc^ # MAGICC THEN
|
|
||||||
Message("(Warning) Deallocate: heap corrupted");
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
IF BSIZE <= NLISTS THEN
|
|
||||||
BNEXT := FreeLists[BSIZE];
|
|
||||||
FreeLists[BSIZE] := p;
|
|
||||||
ELSE
|
|
||||||
BNEXT := Llist;
|
|
||||||
Llist := p;
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
a := NIL
|
|
||||||
END Deallocate;
|
|
||||||
|
|
||||||
PROCEDURE ReOrganize();
|
|
||||||
VAR lastblock: BucketPtr;
|
|
||||||
b, be: BucketPtr;
|
|
||||||
i: CARDINAL;
|
|
||||||
BEGIN
|
|
||||||
lastblock := NIL;
|
|
||||||
FOR i := 1 TO NLISTS DO
|
|
||||||
b := FreeLists[i];
|
|
||||||
WHILE b # NIL DO
|
|
||||||
IF ADDRESS(b) > ADDRESS(lastblock) THEN
|
|
||||||
lastblock := b;
|
|
||||||
END;
|
|
||||||
be := b^.BNEXT;
|
|
||||||
b^.BNEXT := NIL; (* temporary free mark *)
|
|
||||||
b := be;
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
|
|
||||||
b := Llist;
|
|
||||||
WHILE b # NIL DO
|
|
||||||
IF ADDRESS(b) > ADDRESS(lastblock) THEN
|
|
||||||
lastblock := b;
|
|
||||||
END;
|
|
||||||
be := b^.BNEXT;
|
|
||||||
b^.BNEXT := NIL;
|
|
||||||
b := be;
|
|
||||||
END;
|
|
||||||
|
|
||||||
(* Now, all free blocks have b^.BNEXT = NIL *)
|
|
||||||
|
|
||||||
b := FirstBlock;
|
|
||||||
WHILE ADDRESS(b) < ADDRESS(lastblock) DO
|
|
||||||
LOOP
|
|
||||||
be := ADDRESS(b)+(b^.BSIZE+1)*UNIT;
|
|
||||||
IF b^.BNEXT # NIL THEN
|
|
||||||
(* this block is not free *)
|
|
||||||
EXIT;
|
|
||||||
END;
|
|
||||||
IF ADDRESS(be) > ADDRESS(lastblock) THEN
|
|
||||||
(* no next block *)
|
|
||||||
EXIT;
|
|
||||||
END;
|
|
||||||
IF be^.BNEXT # NIL THEN
|
|
||||||
(* next block is not free *)
|
|
||||||
EXIT;
|
|
||||||
END;
|
|
||||||
(* this block and the next one are free,
|
|
||||||
so merge them, but only if it is not too big
|
|
||||||
*)
|
|
||||||
IF MAX(CARDINAL) - b^.BSIZE > be^.BSIZE THEN
|
|
||||||
b^.BSIZE := b^.BSIZE + be^.BSIZE + 1;
|
|
||||||
ELSE
|
|
||||||
EXIT;
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
b := be;
|
|
||||||
END;
|
|
||||||
|
|
||||||
(* clear all free lists *)
|
|
||||||
FOR i := 1 TO NLISTS DO FreeLists[i] := NIL; END;
|
|
||||||
Llist := NIL;
|
|
||||||
|
|
||||||
(* collect free blocks in them again *)
|
|
||||||
b := FirstBlock;
|
|
||||||
WHILE ADDRESS(b) <= ADDRESS(lastblock) DO
|
|
||||||
WITH b^ DO
|
|
||||||
IF BNEXT = NIL THEN
|
|
||||||
IF BSIZE <= NLISTS THEN
|
|
||||||
BNEXT := FreeLists[BSIZE];
|
|
||||||
FreeLists[BSIZE] := b;
|
|
||||||
ELSE
|
|
||||||
BNEXT := Llist;
|
|
||||||
Llist := b;
|
|
||||||
END;
|
|
||||||
b := ADDRESS(b) + (BSIZE+1) * UNIT;
|
|
||||||
ELSE
|
|
||||||
b := ADDRESS(b) +
|
|
||||||
((BSIZE + (UNIT - 1)) DIV UNIT + 1) * UNIT;
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
END ReOrganize;
|
|
||||||
|
|
||||||
PROCEDURE InitStorage();
|
|
||||||
VAR i: CARDINAL;
|
|
||||||
brk: ADDRESS;
|
|
||||||
BEGIN
|
|
||||||
FOR i := 1 TO NLISTS DO
|
|
||||||
FreeLists[i] := NIL;
|
|
||||||
END;
|
|
||||||
Llist := NIL;
|
|
||||||
brk := sbrk(0);
|
|
||||||
brk := sbrk(UNIT - brk MOD UNIT);
|
|
||||||
FirstBlock := sbrk(0);
|
|
||||||
Compacted := FALSE;
|
|
||||||
USED := MAGICW;
|
|
||||||
END InitStorage;
|
|
||||||
|
|
||||||
BEGIN
|
|
||||||
InitStorage();
|
|
||||||
END Storage.
|
|
||||||
|
|
@ -1,23 +0,0 @@
|
||||||
/*
|
|
||||||
(c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
*/
|
|
||||||
|
|
||||||
/*
|
|
||||||
Module: assign string to character array, with possible 0-byte
|
|
||||||
extension
|
|
||||||
Author: Ceriel J.H. Jacobs
|
|
||||||
Version: $Header$
|
|
||||||
*/
|
|
||||||
StringAssign(dstsiz, srcsiz, dstaddr, srcaddr)
|
|
||||||
register char *dstaddr, *srcaddr;
|
|
||||||
{
|
|
||||||
while (srcsiz > 0) {
|
|
||||||
*dstaddr++ = *srcaddr++;
|
|
||||||
srcsiz--;
|
|
||||||
dstsiz--;
|
|
||||||
}
|
|
||||||
if (dstsiz > 0) {
|
|
||||||
*dstaddr = 0;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
@ -1,443 +0,0 @@
|
||||||
#
|
|
||||||
(*
|
|
||||||
(c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
*)
|
|
||||||
|
|
||||||
(*$R-*)
|
|
||||||
IMPLEMENTATION MODULE Streams;
|
|
||||||
(*
|
|
||||||
Module: Stream Input/Output
|
|
||||||
Author: Ceriel J.H. Jacobs
|
|
||||||
Version: $Header$
|
|
||||||
|
|
||||||
Implementation for Unix
|
|
||||||
*)
|
|
||||||
|
|
||||||
FROM SYSTEM IMPORT BYTE, ADR;
|
|
||||||
FROM Epilogue IMPORT CallAtEnd;
|
|
||||||
FROM Storage IMPORT Allocate, Available;
|
|
||||||
FROM StripUnix IMPORT
|
|
||||||
open, close, lseek, read, write, creat;
|
|
||||||
IMPORT StripUnix;
|
|
||||||
|
|
||||||
CONST BUFSIZ = 1024; (* tunable *)
|
|
||||||
TYPE IOB = RECORD
|
|
||||||
kind: StreamKind;
|
|
||||||
mode: StreamMode;
|
|
||||||
eof: BOOLEAN;
|
|
||||||
buffering: StreamBuffering;
|
|
||||||
next : Stream;
|
|
||||||
fildes: INTEGER;
|
|
||||||
cnt, maxcnt: INTEGER;
|
|
||||||
bufferedcnt: INTEGER;
|
|
||||||
buf: ARRAY[1..BUFSIZ] OF BYTE;
|
|
||||||
END;
|
|
||||||
Stream = POINTER TO IOB;
|
|
||||||
VAR
|
|
||||||
ibuf, obuf, ebuf: IOB;
|
|
||||||
head: Stream;
|
|
||||||
|
|
||||||
PROCEDURE getstruct(VAR stream: Stream);
|
|
||||||
BEGIN
|
|
||||||
stream := head;
|
|
||||||
WHILE (stream # NIL) AND (stream^.kind # none) DO
|
|
||||||
stream := stream^.next;
|
|
||||||
END;
|
|
||||||
IF stream = NIL THEN
|
|
||||||
IF NOT Available(SIZE(IOB)) THEN
|
|
||||||
RETURN;
|
|
||||||
END;
|
|
||||||
Allocate(stream,SIZE(IOB));
|
|
||||||
stream^.next := head;
|
|
||||||
head := stream;
|
|
||||||
END;
|
|
||||||
END getstruct;
|
|
||||||
|
|
||||||
PROCEDURE freestruct(stream: Stream);
|
|
||||||
BEGIN
|
|
||||||
stream^.kind := none;
|
|
||||||
END freestruct;
|
|
||||||
|
|
||||||
PROCEDURE OpenStream(VAR stream: Stream;
|
|
||||||
filename: ARRAY OF CHAR;
|
|
||||||
kind: StreamKind;
|
|
||||||
mode: StreamMode;
|
|
||||||
VAR result: StreamResult);
|
|
||||||
VAR fd: INTEGER;
|
|
||||||
i: CARDINAL;
|
|
||||||
BEGIN
|
|
||||||
IF kind = none THEN
|
|
||||||
result := illegaloperation;
|
|
||||||
RETURN;
|
|
||||||
END;
|
|
||||||
getstruct(stream);
|
|
||||||
IF stream = NIL THEN
|
|
||||||
result := nomemory;
|
|
||||||
RETURN;
|
|
||||||
END;
|
|
||||||
WITH stream^ DO
|
|
||||||
FOR i := 0 TO HIGH(filename) DO
|
|
||||||
buf[i+1] := BYTE(filename[i]);
|
|
||||||
END;
|
|
||||||
buf[HIGH(filename)+2] := BYTE(0C);
|
|
||||||
END;
|
|
||||||
IF (mode = reading) THEN
|
|
||||||
fd := open(ADR(stream^.buf), 0);
|
|
||||||
ELSE
|
|
||||||
fd := -1;
|
|
||||||
IF (mode = appending) THEN
|
|
||||||
fd := open(ADR(stream^.buf), 1);
|
|
||||||
IF fd >= 0 THEN
|
|
||||||
IF (lseek(fd, 0D , 2) < 0D) THEN ; END;
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
IF fd < 0 THEN
|
|
||||||
fd := creat(ADR(stream^.buf), 666B);
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
IF fd < 0 THEN
|
|
||||||
result := openfailed;
|
|
||||||
freestruct(stream);
|
|
||||||
stream := NIL;
|
|
||||||
RETURN;
|
|
||||||
END;
|
|
||||||
result := succeeded;
|
|
||||||
stream^.fildes := fd;
|
|
||||||
stream^.kind := kind;
|
|
||||||
stream^.mode := mode;
|
|
||||||
stream^.buffering := blockbuffered;
|
|
||||||
stream^.bufferedcnt := BUFSIZ;
|
|
||||||
stream^.maxcnt := 0;
|
|
||||||
stream^.eof := FALSE;
|
|
||||||
IF mode = reading THEN
|
|
||||||
stream^.cnt := 1;
|
|
||||||
ELSE
|
|
||||||
stream^.cnt := 0;
|
|
||||||
END;
|
|
||||||
END OpenStream;
|
|
||||||
|
|
||||||
PROCEDURE SetStreamBuffering( stream: Stream;
|
|
||||||
b: StreamBuffering;
|
|
||||||
VAR result: StreamResult);
|
|
||||||
BEGIN
|
|
||||||
result := succeeded;
|
|
||||||
IF (stream = NIL) OR (stream^.kind = none) THEN
|
|
||||||
result := nostream;
|
|
||||||
RETURN;
|
|
||||||
END;
|
|
||||||
IF (stream^.mode = reading) OR
|
|
||||||
((b = linebuffered) AND (stream^.kind = binary)) THEN
|
|
||||||
result := illegaloperation;
|
|
||||||
RETURN;
|
|
||||||
END;
|
|
||||||
FlushStream(stream, result);
|
|
||||||
IF b = unbuffered THEN
|
|
||||||
stream^.bufferedcnt := 1;
|
|
||||||
END;
|
|
||||||
stream^.buffering := b;
|
|
||||||
END SetStreamBuffering;
|
|
||||||
|
|
||||||
PROCEDURE FlushStream(stream: Stream; VAR result: StreamResult);
|
|
||||||
VAR cnt1: INTEGER;
|
|
||||||
BEGIN
|
|
||||||
result := succeeded;
|
|
||||||
IF (stream = NIL) OR (stream^.kind = none) THEN
|
|
||||||
result := nostream;
|
|
||||||
RETURN;
|
|
||||||
END;
|
|
||||||
WITH stream^ DO
|
|
||||||
IF mode = reading THEN
|
|
||||||
result := illegaloperation;
|
|
||||||
RETURN;
|
|
||||||
END;
|
|
||||||
IF (cnt > 0) THEN
|
|
||||||
cnt1 := cnt;
|
|
||||||
cnt := 0;
|
|
||||||
IF write(fildes, ADR(buf), cnt1) < 0 THEN END;
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
END FlushStream;
|
|
||||||
|
|
||||||
PROCEDURE CloseStream(VAR stream: Stream; VAR result: StreamResult);
|
|
||||||
BEGIN
|
|
||||||
IF (stream # NIL) AND (stream^.kind # none) THEN
|
|
||||||
result := succeeded;
|
|
||||||
IF stream^.mode # reading THEN
|
|
||||||
FlushStream(stream, result);
|
|
||||||
END;
|
|
||||||
IF close(stream^.fildes) < 0 THEN ; END;
|
|
||||||
freestruct(stream);
|
|
||||||
ELSE
|
|
||||||
result := nostream;
|
|
||||||
END;
|
|
||||||
stream := NIL;
|
|
||||||
END CloseStream;
|
|
||||||
|
|
||||||
PROCEDURE EndOfStream(stream: Stream; VAR result: StreamResult): BOOLEAN;
|
|
||||||
BEGIN
|
|
||||||
result := succeeded;
|
|
||||||
IF (stream = NIL) OR (stream^.kind = none) THEN
|
|
||||||
result := nostream;
|
|
||||||
RETURN FALSE;
|
|
||||||
END;
|
|
||||||
IF stream^.mode # reading THEN
|
|
||||||
result := illegaloperation;
|
|
||||||
RETURN FALSE;
|
|
||||||
END;
|
|
||||||
IF stream^.eof THEN RETURN TRUE; END;
|
|
||||||
RETURN (CHAR(NextByte(stream)) = 0C) AND stream^.eof;
|
|
||||||
END EndOfStream;
|
|
||||||
|
|
||||||
PROCEDURE FlushLineBuffers();
|
|
||||||
VAR s: Stream;
|
|
||||||
result: StreamResult;
|
|
||||||
BEGIN
|
|
||||||
s := head;
|
|
||||||
WHILE s # NIL DO
|
|
||||||
IF (s^.kind # none) AND (s^.buffering = linebuffered) THEN
|
|
||||||
FlushStream(s, result);
|
|
||||||
END;
|
|
||||||
s := s^.next;
|
|
||||||
END;
|
|
||||||
END FlushLineBuffers;
|
|
||||||
|
|
||||||
PROCEDURE NextByte(stream: Stream): BYTE;
|
|
||||||
VAR c: BYTE;
|
|
||||||
BEGIN
|
|
||||||
WITH stream^ DO
|
|
||||||
IF cnt <= maxcnt THEN
|
|
||||||
c := buf[cnt];
|
|
||||||
ELSE
|
|
||||||
IF eof THEN RETURN BYTE(0C); END;
|
|
||||||
IF stream = InputStream THEN
|
|
||||||
FlushLineBuffers();
|
|
||||||
END;
|
|
||||||
maxcnt := read(fildes, ADR(buf), bufferedcnt);
|
|
||||||
cnt := 1;
|
|
||||||
IF maxcnt <= 0 THEN
|
|
||||||
eof := TRUE;
|
|
||||||
c := BYTE(0C);
|
|
||||||
ELSE
|
|
||||||
c := buf[1];
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
RETURN c;
|
|
||||||
END NextByte;
|
|
||||||
|
|
||||||
PROCEDURE Read(stream: Stream; VAR ch: CHAR; VAR result: StreamResult);
|
|
||||||
VAR EoF: BOOLEAN;
|
|
||||||
BEGIN
|
|
||||||
ch := 0C;
|
|
||||||
EoF := EndOfStream(stream, result);
|
|
||||||
IF result # succeeded THEN RETURN; END;
|
|
||||||
IF EoF THEN
|
|
||||||
result := endoffile;
|
|
||||||
RETURN;
|
|
||||||
END;
|
|
||||||
WITH stream^ DO
|
|
||||||
ch := CHAR(buf[cnt]);
|
|
||||||
INC(cnt);
|
|
||||||
END;
|
|
||||||
END Read;
|
|
||||||
|
|
||||||
PROCEDURE ReadByte(stream: Stream; VAR byte: BYTE; VAR result: StreamResult);
|
|
||||||
VAR EoF: BOOLEAN;
|
|
||||||
BEGIN
|
|
||||||
byte := BYTE(0C);
|
|
||||||
EoF := EndOfStream(stream, result);
|
|
||||||
IF result # succeeded THEN RETURN; END;
|
|
||||||
IF EoF THEN
|
|
||||||
result := endoffile;
|
|
||||||
RETURN;
|
|
||||||
END;
|
|
||||||
WITH stream^ DO
|
|
||||||
byte := buf[cnt];
|
|
||||||
INC(cnt);
|
|
||||||
END;
|
|
||||||
END ReadByte;
|
|
||||||
|
|
||||||
PROCEDURE ReadBytes(stream: Stream;
|
|
||||||
VAR bytes: ARRAY OF BYTE;
|
|
||||||
VAR result: StreamResult);
|
|
||||||
VAR i: CARDINAL;
|
|
||||||
BEGIN
|
|
||||||
FOR i := 0 TO HIGH(bytes) DO
|
|
||||||
ReadByte(stream, bytes[i], result);
|
|
||||||
END;
|
|
||||||
END ReadBytes;
|
|
||||||
|
|
||||||
PROCEDURE Write(stream: Stream; ch: CHAR; VAR result: StreamResult);
|
|
||||||
BEGIN
|
|
||||||
IF (stream = NIL) OR (stream^.kind = none) THEN
|
|
||||||
result := nostream;
|
|
||||||
RETURN;
|
|
||||||
END;
|
|
||||||
IF (stream^.kind # text) OR (stream^.mode = reading) THEN
|
|
||||||
result := illegaloperation;
|
|
||||||
RETURN;
|
|
||||||
END;
|
|
||||||
WITH stream^ DO
|
|
||||||
INC(cnt);
|
|
||||||
buf[cnt] := BYTE(ch);
|
|
||||||
IF (cnt >= bufferedcnt) OR
|
|
||||||
((ch = 12C) AND (buffering = linebuffered))
|
|
||||||
THEN
|
|
||||||
FlushStream(stream, result);
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
END Write;
|
|
||||||
|
|
||||||
PROCEDURE WriteByte(stream: Stream; byte: BYTE; VAR result: StreamResult);
|
|
||||||
BEGIN
|
|
||||||
IF (stream = NIL) OR (stream^.kind = none) THEN
|
|
||||||
result := nostream;
|
|
||||||
RETURN;
|
|
||||||
END;
|
|
||||||
IF (stream^.kind # binary) OR (stream^.mode = reading) THEN
|
|
||||||
result := illegaloperation;
|
|
||||||
RETURN;
|
|
||||||
END;
|
|
||||||
WITH stream^ DO
|
|
||||||
INC(cnt);
|
|
||||||
buf[cnt] := byte;
|
|
||||||
IF cnt >= bufferedcnt THEN
|
|
||||||
FlushStream(stream, result);
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
END WriteByte;
|
|
||||||
|
|
||||||
PROCEDURE WriteBytes(stream: Stream; bytes: ARRAY OF BYTE; VAR result: StreamResult);
|
|
||||||
VAR i: CARDINAL;
|
|
||||||
BEGIN
|
|
||||||
FOR i := 0 TO HIGH(bytes) DO
|
|
||||||
WriteByte(stream, bytes[i], result);
|
|
||||||
END;
|
|
||||||
END WriteBytes;
|
|
||||||
|
|
||||||
PROCEDURE EndIt;
|
|
||||||
VAR h, h1 : Stream;
|
|
||||||
result: StreamResult;
|
|
||||||
BEGIN
|
|
||||||
h := head;
|
|
||||||
WHILE h # NIL DO
|
|
||||||
h1 := h;
|
|
||||||
CloseStream(h1, result);
|
|
||||||
h := h^.next;
|
|
||||||
END;
|
|
||||||
END EndIt;
|
|
||||||
|
|
||||||
PROCEDURE GetPosition(s: Stream; VAR position: LONGINT;
|
|
||||||
VAR result: StreamResult);
|
|
||||||
BEGIN
|
|
||||||
IF (s = NIL) OR (s^.kind = none) THEN
|
|
||||||
result := illegaloperation;
|
|
||||||
RETURN;
|
|
||||||
END;
|
|
||||||
IF (s^.mode # reading) THEN FlushStream(s, result); END;
|
|
||||||
position := lseek(s^.fildes, 0D, 1);
|
|
||||||
IF position < 0D THEN
|
|
||||||
result := illegaloperation;
|
|
||||||
RETURN;
|
|
||||||
END;
|
|
||||||
IF s^.mode = reading THEN
|
|
||||||
position := position + LONG(s^.maxcnt - s^.cnt + 1);
|
|
||||||
END;
|
|
||||||
END GetPosition;
|
|
||||||
|
|
||||||
PROCEDURE SetPosition(s: Stream; position: LONGINT; VAR result: StreamResult);
|
|
||||||
VAR currpos: LONGINT;
|
|
||||||
BEGIN
|
|
||||||
currpos := 0D;
|
|
||||||
IF (s = NIL) OR (s^.kind = none) THEN
|
|
||||||
result := nostream;
|
|
||||||
RETURN;
|
|
||||||
END;
|
|
||||||
IF (s^.mode # reading) THEN
|
|
||||||
FlushStream(s, result);
|
|
||||||
ELSE
|
|
||||||
s^.maxcnt := 0;
|
|
||||||
s^.eof := FALSE;
|
|
||||||
END;
|
|
||||||
IF s^.mode = appending THEN
|
|
||||||
currpos := lseek(s^.fildes, 0D, 1);
|
|
||||||
IF currpos < 0D THEN
|
|
||||||
result := illegaloperation;
|
|
||||||
RETURN;
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
IF position < currpos THEN
|
|
||||||
result := illegaloperation;
|
|
||||||
RETURN;
|
|
||||||
END;
|
|
||||||
currpos := lseek(s^.fildes, position, 0);
|
|
||||||
IF currpos < 0D THEN
|
|
||||||
result := illegaloperation;
|
|
||||||
RETURN;
|
|
||||||
END;
|
|
||||||
result := succeeded;
|
|
||||||
END SetPosition;
|
|
||||||
|
|
||||||
PROCEDURE isatty(stream: Stream; VAR result: StreamResult): BOOLEAN;
|
|
||||||
BEGIN
|
|
||||||
IF (stream = NIL) OR (stream^.kind = none) THEN
|
|
||||||
result := nostream;
|
|
||||||
RETURN FALSE;
|
|
||||||
END;
|
|
||||||
RETURN StripUnix.isatty(stream^.fildes);
|
|
||||||
END isatty;
|
|
||||||
|
|
||||||
PROCEDURE InitStreams;
|
|
||||||
VAR result: StreamResult;
|
|
||||||
BEGIN
|
|
||||||
InputStream := ADR(ibuf);
|
|
||||||
OutputStream := ADR(obuf);
|
|
||||||
ErrorStream := ADR(ebuf);
|
|
||||||
WITH ibuf DO
|
|
||||||
kind := text;
|
|
||||||
mode := reading;
|
|
||||||
eof := FALSE;
|
|
||||||
next := ADR(obuf);
|
|
||||||
fildes := 0;
|
|
||||||
maxcnt := 0;
|
|
||||||
cnt := 1;
|
|
||||||
bufferedcnt := BUFSIZ;
|
|
||||||
END;
|
|
||||||
WITH obuf DO
|
|
||||||
kind := text;
|
|
||||||
mode := writing;
|
|
||||||
eof := TRUE;
|
|
||||||
next := ADR(ebuf);
|
|
||||||
fildes := 1;
|
|
||||||
maxcnt := 0;
|
|
||||||
cnt := 0;
|
|
||||||
bufferedcnt := BUFSIZ;
|
|
||||||
IF isatty(OutputStream, result) THEN
|
|
||||||
buffering := linebuffered;
|
|
||||||
ELSE
|
|
||||||
buffering := blockbuffered;
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
WITH ebuf DO
|
|
||||||
kind := text;
|
|
||||||
mode := writing;
|
|
||||||
eof := TRUE;
|
|
||||||
next := NIL;
|
|
||||||
fildes := 2;
|
|
||||||
maxcnt := 0;
|
|
||||||
cnt := 0;
|
|
||||||
bufferedcnt := BUFSIZ;
|
|
||||||
IF isatty(ErrorStream, result) THEN
|
|
||||||
buffering := linebuffered;
|
|
||||||
ELSE
|
|
||||||
buffering := blockbuffered;
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
head := InputStream;
|
|
||||||
IF CallAtEnd(EndIt) THEN ; END;
|
|
||||||
END InitStreams;
|
|
||||||
|
|
||||||
BEGIN
|
|
||||||
InitStreams
|
|
||||||
END Streams.
|
|
||||||
|
|
@ -1,171 +0,0 @@
|
||||||
(*
|
|
||||||
(c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
*)
|
|
||||||
|
|
||||||
(*$R-*)
|
|
||||||
IMPLEMENTATION MODULE Strings;
|
|
||||||
(*
|
|
||||||
Module: String manipulations
|
|
||||||
Author: Ceriel J.H. Jacobs
|
|
||||||
Version: $Header$
|
|
||||||
*)
|
|
||||||
|
|
||||||
PROCEDURE Assign(source: ARRAY OF CHAR; VAR dest: ARRAY OF CHAR);
|
|
||||||
(* Assign string source to dest
|
|
||||||
*)
|
|
||||||
VAR i: CARDINAL;
|
|
||||||
max: CARDINAL;
|
|
||||||
BEGIN
|
|
||||||
max := HIGH(source);
|
|
||||||
IF HIGH(dest) < max THEN max := HIGH(dest); END;
|
|
||||||
i := 0;
|
|
||||||
WHILE (i <= max) AND (source[i] # 0C) DO
|
|
||||||
dest[i] := source[i];
|
|
||||||
INC(i);
|
|
||||||
END;
|
|
||||||
IF i < HIGH(dest) THEN dest[i] := 0C; END;
|
|
||||||
END Assign;
|
|
||||||
|
|
||||||
PROCEDURE Insert(substr: ARRAY OF CHAR; VAR str: ARRAY OF CHAR; inx: CARDINAL);
|
|
||||||
(* Insert the string substr into str, starting at str[inx].
|
|
||||||
If inx is equal to or greater than Length(str) then substr is appended
|
|
||||||
to the end of str.
|
|
||||||
*)
|
|
||||||
VAR sublen, length, i: CARDINAL;
|
|
||||||
BEGIN
|
|
||||||
sublen := Length(substr);
|
|
||||||
IF sublen = 0 THEN RETURN; END;
|
|
||||||
length := Length(str);
|
|
||||||
IF inx > length THEN inx := length; END;
|
|
||||||
i := length;
|
|
||||||
IF i + sublen - 1 > HIGH(str) THEN i := HIGH(str); END;
|
|
||||||
WHILE i > inx DO
|
|
||||||
str[i+sublen-1] := str[i-1];
|
|
||||||
DEC(i);
|
|
||||||
END;
|
|
||||||
FOR i := 0 TO sublen - 1 DO
|
|
||||||
IF i + inx <= HIGH(str) THEN
|
|
||||||
str[i + inx] := substr[i];
|
|
||||||
ELSE
|
|
||||||
RETURN;
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
IF length + sublen <= HIGH(str) THEN
|
|
||||||
str[length + sublen] := 0C;
|
|
||||||
END;
|
|
||||||
END Insert;
|
|
||||||
|
|
||||||
PROCEDURE Delete(VAR str: ARRAY OF CHAR; inx, len: CARDINAL);
|
|
||||||
(* Delete len characters from str, starting at str[inx].
|
|
||||||
If inx >= Length(str) then nothing happens.
|
|
||||||
If there are not len characters to delete, characters to the end of the
|
|
||||||
string are deleted.
|
|
||||||
*)
|
|
||||||
VAR length: CARDINAL;
|
|
||||||
BEGIN
|
|
||||||
IF len = 0 THEN RETURN; END;
|
|
||||||
length := Length(str);
|
|
||||||
IF inx >= length THEN RETURN; END;
|
|
||||||
WHILE inx + len < length DO
|
|
||||||
str[inx] := str[inx + len];
|
|
||||||
INC(inx);
|
|
||||||
END;
|
|
||||||
str[inx] := 0C;
|
|
||||||
END Delete;
|
|
||||||
|
|
||||||
PROCEDURE Pos(substr, str: ARRAY OF CHAR): CARDINAL;
|
|
||||||
(* Return the index into str of the first occurrence of substr.
|
|
||||||
Pos returns a value greater than HIGH(str) of no occurrence is found.
|
|
||||||
*)
|
|
||||||
VAR i, j, max, subl: CARDINAL;
|
|
||||||
BEGIN
|
|
||||||
max := Length(str);
|
|
||||||
subl := Length(substr);
|
|
||||||
IF subl > max THEN RETURN HIGH(str) + 1; END;
|
|
||||||
IF subl = 0 THEN RETURN 0; END;
|
|
||||||
max := max - subl;
|
|
||||||
FOR i := 0 TO max DO
|
|
||||||
j := 0;
|
|
||||||
WHILE (j <= subl-1) AND (str[i+j] = substr[j]) DO
|
|
||||||
INC(j);
|
|
||||||
END;
|
|
||||||
IF j = subl THEN RETURN i; END;
|
|
||||||
END;
|
|
||||||
RETURN HIGH(str) + 1;
|
|
||||||
END Pos;
|
|
||||||
|
|
||||||
PROCEDURE Copy(str: ARRAY OF CHAR;
|
|
||||||
inx, len: CARDINAL;
|
|
||||||
VAR result: ARRAY OF CHAR);
|
|
||||||
(* Copy at most len characters from str into result, starting at str[inx].
|
|
||||||
*)
|
|
||||||
VAR i: CARDINAL;
|
|
||||||
BEGIN
|
|
||||||
IF Length(str) <= inx THEN RETURN END;
|
|
||||||
i := 0;
|
|
||||||
LOOP
|
|
||||||
IF i > HIGH(result) THEN RETURN; END;
|
|
||||||
IF len = 0 THEN EXIT; END;
|
|
||||||
IF inx > HIGH(str) THEN EXIT; END;
|
|
||||||
result[i] := str[inx];
|
|
||||||
INC(i); INC(inx); DEC(len);
|
|
||||||
END;
|
|
||||||
IF i <= HIGH(result) THEN result[i] := 0C; END;
|
|
||||||
END Copy;
|
|
||||||
|
|
||||||
PROCEDURE Concat(s1, s2: ARRAY OF CHAR; VAR result: ARRAY OF CHAR);
|
|
||||||
(* Concatenate two strings.
|
|
||||||
*)
|
|
||||||
VAR i, j: CARDINAL;
|
|
||||||
BEGIN
|
|
||||||
i := 0;
|
|
||||||
WHILE (i <= HIGH(s1)) AND (s1[i] # 0C) DO
|
|
||||||
IF i > HIGH(result) THEN RETURN END;
|
|
||||||
result[i] := s1[i];
|
|
||||||
INC(i);
|
|
||||||
END;
|
|
||||||
j := 0;
|
|
||||||
WHILE (j <= HIGH(s2)) AND (s2[j] # 0C) DO
|
|
||||||
IF i > HIGH(result) THEN RETURN END;
|
|
||||||
result[i] := s2[j];
|
|
||||||
INC(i);
|
|
||||||
INC(j);
|
|
||||||
END;
|
|
||||||
IF i <= HIGH(result) THEN result[i] := 0C; END;
|
|
||||||
END Concat;
|
|
||||||
|
|
||||||
PROCEDURE Length(str: ARRAY OF CHAR): CARDINAL;
|
|
||||||
(* Return number of characters in str.
|
|
||||||
*)
|
|
||||||
VAR i: CARDINAL;
|
|
||||||
BEGIN
|
|
||||||
i := 0;
|
|
||||||
WHILE (i <= HIGH(str)) DO
|
|
||||||
IF str[i] = 0C THEN RETURN i; END;
|
|
||||||
INC(i);
|
|
||||||
END;
|
|
||||||
RETURN i;
|
|
||||||
END Length;
|
|
||||||
|
|
||||||
PROCEDURE CompareStr(s1, s2: ARRAY OF CHAR): INTEGER;
|
|
||||||
(* Compare two strings, return -1 if s1 < s2, 0 if s1 = s2, and 1 if s1 > s2.
|
|
||||||
*)
|
|
||||||
VAR i: CARDINAL;
|
|
||||||
max: CARDINAL;
|
|
||||||
BEGIN
|
|
||||||
max := HIGH(s1);
|
|
||||||
IF HIGH(s2) < max THEN max := HIGH(s2); END;
|
|
||||||
i := 0;
|
|
||||||
WHILE (i <= max) DO
|
|
||||||
IF s1[i] < s2[i] THEN RETURN -1; END;
|
|
||||||
IF s1[i] > s2[i] THEN RETURN 1; END;
|
|
||||||
IF s1[i] = 0C THEN RETURN 0; END;
|
|
||||||
INC(i);
|
|
||||||
END;
|
|
||||||
IF (i <= HIGH(s1)) AND (s1[i] # 0C) THEN RETURN 1; END;
|
|
||||||
IF (i <= HIGH(s2)) AND (s2[i] # 0C) THEN RETURN -1; END;
|
|
||||||
RETURN 0;
|
|
||||||
END CompareStr;
|
|
||||||
|
|
||||||
END Strings.
|
|
||||||
|
|
@ -1,99 +0,0 @@
|
||||||
(*
|
|
||||||
(c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
*)
|
|
||||||
|
|
||||||
(*
|
|
||||||
Module: Interface to termcap database
|
|
||||||
From: Unix manual chapter 3
|
|
||||||
Version: $Header$
|
|
||||||
*)
|
|
||||||
|
|
||||||
(*$R-*)
|
|
||||||
IMPLEMENTATION MODULE Termcap;
|
|
||||||
|
|
||||||
IMPORT XXTermcap;
|
|
||||||
FROM SYSTEM IMPORT ADR, ADDRESS;
|
|
||||||
FROM Unix IMPORT isatty;
|
|
||||||
FROM Arguments IMPORT
|
|
||||||
GetEnv;
|
|
||||||
|
|
||||||
TYPE STR = ARRAY[1..32] OF CHAR;
|
|
||||||
STRCAP = POINTER TO STR;
|
|
||||||
|
|
||||||
VAR Buf, Buf1 : ARRAY [1..1024] OF CHAR;
|
|
||||||
BufCnt : INTEGER;
|
|
||||||
|
|
||||||
PROCEDURE Tgetent(name: ARRAY OF CHAR) : INTEGER;
|
|
||||||
VAR i: INTEGER;
|
|
||||||
x: STRCAP;
|
|
||||||
BEGIN
|
|
||||||
i := XXTermcap.tgetent(ADR(Buf), ADR(name));
|
|
||||||
BufCnt := 1;
|
|
||||||
IF isatty(1) THEN
|
|
||||||
ELSE
|
|
||||||
(* This used to be something returned by gtty(). To increase
|
|
||||||
* portability we forget about old terminals needing delays.
|
|
||||||
* (kjb)
|
|
||||||
*)
|
|
||||||
XXTermcap.ospeed := 0;
|
|
||||||
END;
|
|
||||||
IF i > 0 THEN
|
|
||||||
IF Tgetstr("pc", x) THEN
|
|
||||||
XXTermcap.PC := x^[1];
|
|
||||||
ELSE XXTermcap.PC := 0C;
|
|
||||||
END;
|
|
||||||
IF Tgetstr("up", x) THEN ; END; XXTermcap.UP := x;
|
|
||||||
IF Tgetstr("bc", x) THEN ; END; XXTermcap.BC := x;
|
|
||||||
END;
|
|
||||||
RETURN i;
|
|
||||||
END Tgetent;
|
|
||||||
|
|
||||||
PROCEDURE Tgetnum(id: ARRAY OF CHAR): INTEGER;
|
|
||||||
BEGIN
|
|
||||||
RETURN XXTermcap.tgetnum(ADR(id));
|
|
||||||
END Tgetnum;
|
|
||||||
|
|
||||||
PROCEDURE Tgetflag(id: ARRAY OF CHAR): BOOLEAN;
|
|
||||||
BEGIN
|
|
||||||
RETURN XXTermcap.tgetflag(ADR(id)) = 1;
|
|
||||||
END Tgetflag;
|
|
||||||
|
|
||||||
PROCEDURE Tgoto(cm: STRCAP; col, line: INTEGER): STRCAP;
|
|
||||||
BEGIN
|
|
||||||
RETURN XXTermcap.tgoto(cm, col, line);
|
|
||||||
END Tgoto;
|
|
||||||
|
|
||||||
PROCEDURE Tgetstr(id: ARRAY OF CHAR; VAR res: STRCAP) : BOOLEAN;
|
|
||||||
VAR a, a2: ADDRESS;
|
|
||||||
b: CARDINAL;
|
|
||||||
BEGIN
|
|
||||||
a := ADR(Buf1[BufCnt]);
|
|
||||||
a2 := XXTermcap.tgetstr(ADR(id), ADR(a));
|
|
||||||
res := a2;
|
|
||||||
IF a2 = NIL THEN
|
|
||||||
RETURN FALSE;
|
|
||||||
END;
|
|
||||||
b := a - a2;
|
|
||||||
INC(BufCnt, b);
|
|
||||||
RETURN TRUE;
|
|
||||||
END Tgetstr;
|
|
||||||
|
|
||||||
PROCEDURE Tputs(cp: STRCAP; affcnt: INTEGER; p: PUTPROC);
|
|
||||||
BEGIN
|
|
||||||
XXTermcap.tputs(cp, affcnt, XXTermcap.PUTPROC(p));
|
|
||||||
END Tputs;
|
|
||||||
|
|
||||||
PROCEDURE InitTermcap;
|
|
||||||
VAR Bf: STR;
|
|
||||||
BEGIN
|
|
||||||
IF GetEnv("TERM", Bf) = 0 THEN
|
|
||||||
Bf := "dumb";
|
|
||||||
END;
|
|
||||||
IF Tgetent(Bf) <= 0 THEN
|
|
||||||
END;
|
|
||||||
END InitTermcap;
|
|
||||||
|
|
||||||
BEGIN
|
|
||||||
InitTermcap;
|
|
||||||
END Termcap.
|
|
||||||
|
|
@ -1,114 +0,0 @@
|
||||||
#
|
|
||||||
(*
|
|
||||||
(c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
*)
|
|
||||||
|
|
||||||
(*$R-*)
|
|
||||||
IMPLEMENTATION MODULE Terminal;
|
|
||||||
(*
|
|
||||||
Module: Input/Output to/from terminals
|
|
||||||
Author: Ceriel J.H. Jacobs
|
|
||||||
Version: $Header$
|
|
||||||
|
|
||||||
Implementation for Unix.
|
|
||||||
*)
|
|
||||||
FROM SYSTEM IMPORT ADR;
|
|
||||||
#ifdef __USG
|
|
||||||
FROM Unix IMPORT read, write, open, fcntl;
|
|
||||||
#else
|
|
||||||
FROM Unix IMPORT read, write, open, ioctl;
|
|
||||||
#endif
|
|
||||||
VAR fildes: INTEGER;
|
|
||||||
unreadch: CHAR;
|
|
||||||
unread: BOOLEAN;
|
|
||||||
tty: ARRAY[0..8] OF CHAR;
|
|
||||||
|
|
||||||
PROCEDURE Read(VAR ch: CHAR);
|
|
||||||
BEGIN
|
|
||||||
IF unread THEN
|
|
||||||
ch := unreadch;
|
|
||||||
unread := FALSE
|
|
||||||
ELSE
|
|
||||||
IF read(fildes, ADR(ch), 1) < 0 THEN
|
|
||||||
;
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
unreadch := ch;
|
|
||||||
END Read;
|
|
||||||
|
|
||||||
PROCEDURE BusyRead(VAR ch: CHAR);
|
|
||||||
VAR l: INTEGER;
|
|
||||||
BEGIN
|
|
||||||
IF unread THEN
|
|
||||||
ch := unreadch;
|
|
||||||
unread := FALSE
|
|
||||||
ELSE
|
|
||||||
#ifdef __USG
|
|
||||||
l := fcntl(fildes, (*FGETFL*) 3, 0);
|
|
||||||
IF fcntl(fildes,
|
|
||||||
(* FSETFL *) 4,
|
|
||||||
l + (*ONDELAY*) 2) < 0 THEN
|
|
||||||
;
|
|
||||||
END;
|
|
||||||
IF read(fildes, ADR(ch), 1) = 0 THEN
|
|
||||||
ch := 0C;
|
|
||||||
ELSE
|
|
||||||
unreadch := ch;
|
|
||||||
END;
|
|
||||||
IF fcntl(fildes, (*FSETFL*)4, l) < 0 THEN
|
|
||||||
;
|
|
||||||
END;
|
|
||||||
#else
|
|
||||||
#ifdef __BSD4_2
|
|
||||||
IF ioctl(fildes, INTEGER(ORD('f')*256+127+4*65536+40000000H), ADR(l)) < 0 THEN
|
|
||||||
#else
|
|
||||||
IF ioctl(fildes, INTEGER(ORD('f')*256+127), ADR(l)) < 0 THEN
|
|
||||||
#endif
|
|
||||||
;
|
|
||||||
END;
|
|
||||||
|
|
||||||
IF l = 0 THEN
|
|
||||||
ch := 0C;
|
|
||||||
ELSE
|
|
||||||
IF read(fildes, ADR(ch), 1) < 0 THEN
|
|
||||||
;
|
|
||||||
END;
|
|
||||||
unreadch := ch;
|
|
||||||
END;
|
|
||||||
#endif
|
|
||||||
END;
|
|
||||||
END BusyRead;
|
|
||||||
|
|
||||||
PROCEDURE ReadAgain;
|
|
||||||
BEGIN
|
|
||||||
unread := TRUE;
|
|
||||||
END ReadAgain;
|
|
||||||
|
|
||||||
PROCEDURE Write(ch: CHAR);
|
|
||||||
BEGIN
|
|
||||||
IF write(fildes, ADR(ch), 1) < 0 THEN
|
|
||||||
;
|
|
||||||
END;
|
|
||||||
END Write;
|
|
||||||
|
|
||||||
PROCEDURE WriteLn;
|
|
||||||
BEGIN
|
|
||||||
Write(12C);
|
|
||||||
END WriteLn;
|
|
||||||
|
|
||||||
PROCEDURE WriteString(s: ARRAY OF CHAR);
|
|
||||||
VAR i: CARDINAL;
|
|
||||||
BEGIN
|
|
||||||
i := 0;
|
|
||||||
WHILE (i <= HIGH(s)) & (s[i] # 0C) DO
|
|
||||||
Write(s[i]);
|
|
||||||
INC(i)
|
|
||||||
END
|
|
||||||
END WriteString;
|
|
||||||
|
|
||||||
BEGIN
|
|
||||||
tty := "/dev/tty";
|
|
||||||
fildes := open(ADR(tty), 2);
|
|
||||||
unread := FALSE;
|
|
||||||
END Terminal.
|
|
||||||
|
|
@ -1,96 +0,0 @@
|
||||||
(*
|
|
||||||
(c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
*)
|
|
||||||
|
|
||||||
(*$R-*)
|
|
||||||
IMPLEMENTATION MODULE Traps;
|
|
||||||
(*
|
|
||||||
Module: Facility for handling traps
|
|
||||||
Author: Ceriel J.H. Jacobs
|
|
||||||
Version: $Header$
|
|
||||||
*)
|
|
||||||
|
|
||||||
FROM EM IMPORT SIG, LINO, FILN, TRP;
|
|
||||||
FROM Unix IMPORT write;
|
|
||||||
FROM SYSTEM IMPORT ADDRESS, ADR;
|
|
||||||
FROM Arguments IMPORT
|
|
||||||
Argv;
|
|
||||||
|
|
||||||
PROCEDURE InstallTrapHandler(t: TrapHandler): TrapHandler;
|
|
||||||
(* Install a new trap handler, and return the previous one.
|
|
||||||
Parameter of trap handler is the trap number.
|
|
||||||
*)
|
|
||||||
BEGIN
|
|
||||||
RETURN SIG(t);
|
|
||||||
END InstallTrapHandler;
|
|
||||||
|
|
||||||
PROCEDURE Message(str: ARRAY OF CHAR);
|
|
||||||
(* Write message "str" on standard error, preceeded by filename and
|
|
||||||
linenumber if possible
|
|
||||||
*)
|
|
||||||
VAR p: POINTER TO CHAR;
|
|
||||||
l: CARDINAL;
|
|
||||||
lino: INTEGER;
|
|
||||||
buf, buf2: ARRAY [0..255] OF CHAR;
|
|
||||||
i, j: CARDINAL;
|
|
||||||
BEGIN
|
|
||||||
p := FILN();
|
|
||||||
IF p # NIL THEN
|
|
||||||
i := 1;
|
|
||||||
buf[0] := '"';
|
|
||||||
WHILE p^ # 0C DO
|
|
||||||
buf[i] := p^;
|
|
||||||
INC(i);
|
|
||||||
p := ADDRESS(p) + 1;
|
|
||||||
END;
|
|
||||||
buf[i] := '"';
|
|
||||||
INC(i);
|
|
||||||
IF write(2, ADR(buf), i) < 0 THEN END;
|
|
||||||
ELSE
|
|
||||||
l := Argv(0, buf);
|
|
||||||
IF write(2, ADR(buf), l-1) < 0 THEN END;
|
|
||||||
END;
|
|
||||||
lino := LINO();
|
|
||||||
i := 0;
|
|
||||||
IF lino # 0 THEN
|
|
||||||
i := 7;
|
|
||||||
buf[0] := ','; buf[1] := ' ';
|
|
||||||
buf[2] := 'l'; buf[3] := 'i'; buf[4] := 'n'; buf[5] := 'e';
|
|
||||||
buf[6] := ' ';
|
|
||||||
IF lino < 0 THEN
|
|
||||||
buf[7] := '-';
|
|
||||||
i := 8;
|
|
||||||
lino := - lino;
|
|
||||||
END;
|
|
||||||
j := 0;
|
|
||||||
REPEAT
|
|
||||||
buf2[j] := CHR(CARDINAL(lino) MOD 10 + ORD('0'));
|
|
||||||
lino := lino DIV 10;
|
|
||||||
INC(j);
|
|
||||||
UNTIL lino = 0;
|
|
||||||
WHILE j > 0 DO
|
|
||||||
DEC(j);
|
|
||||||
buf[i] := buf2[j];
|
|
||||||
INC(i);
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
buf[i] := ':';
|
|
||||||
buf[i+1] := ' ';
|
|
||||||
IF write(2, ADR(buf), i+2) < 0 THEN END;
|
|
||||||
i := 0;
|
|
||||||
WHILE (i <= HIGH(str)) AND (str[i] # 0C) DO
|
|
||||||
INC(i);
|
|
||||||
END;
|
|
||||||
IF write(2, ADR(str), i) < 0 THEN END;
|
|
||||||
buf[0] := 12C;
|
|
||||||
IF write(2, ADR(buf), 1) < 0 THEN END;
|
|
||||||
END Message;
|
|
||||||
|
|
||||||
PROCEDURE Trap(n: INTEGER);
|
|
||||||
(* cause trap number "n" to occur *)
|
|
||||||
BEGIN
|
|
||||||
TRP(n);
|
|
||||||
END Trap;
|
|
||||||
|
|
||||||
END Traps.
|
|
||||||
|
|
@ -1,573 +0,0 @@
|
||||||
/*
|
|
||||||
* termcap.c 1.1 20/7/87 agc Joypace Ltd
|
|
||||||
*
|
|
||||||
* Copyright Joypace Ltd, London, UK, 1987. All rights reserved.
|
|
||||||
* This file may be freely distributed provided that this notice
|
|
||||||
* remains attached.
|
|
||||||
*
|
|
||||||
* A public domain implementation of the termcap(3) routines.
|
|
||||||
*
|
|
||||||
* Made fully functional by Ceriel J.H. Jacobs.
|
|
||||||
*
|
|
||||||
* BUGS:
|
|
||||||
* - does not check termcap entry sizes
|
|
||||||
* - not fully tested
|
|
||||||
*/
|
|
||||||
|
|
||||||
#define CAPABLEN 2
|
|
||||||
|
|
||||||
#define ISSPACE(c) ((c) == ' ' || (c) == '\t' || (c) == '\r' || (c) == '\n')
|
|
||||||
#define ISDIGIT(x) ((x) >= '0' && (x) <= '9')
|
|
||||||
|
|
||||||
short ospeed = 0; /* output speed */
|
|
||||||
char PC = 0; /* padding character */
|
|
||||||
char *BC = 0; /* back cursor movement */
|
|
||||||
char *UP = 0; /* up cursor movement */
|
|
||||||
|
|
||||||
static char *capab = 0; /* the capability itself */
|
|
||||||
static int check_for_tc();
|
|
||||||
static int match_name();
|
|
||||||
|
|
||||||
#define NULL 0
|
|
||||||
|
|
||||||
/* Some things from C-library, needed here because the C-library is not
|
|
||||||
loaded with Modula-2 programs
|
|
||||||
*/
|
|
||||||
|
|
||||||
static char *
|
|
||||||
strcat(s1, s2)
|
|
||||||
register char *s1, *s2;
|
|
||||||
{
|
|
||||||
/* Append s2 to the end of s1. */
|
|
||||||
|
|
||||||
char *original = s1;
|
|
||||||
|
|
||||||
/* Find the end of s1. */
|
|
||||||
while (*s1 != 0) s1++;
|
|
||||||
|
|
||||||
/* Now copy s2 to the end of s1. */
|
|
||||||
while (*s1++ = *s2++) /* nothing */ ;
|
|
||||||
return(original);
|
|
||||||
}
|
|
||||||
|
|
||||||
static char *
|
|
||||||
strcpy(s1, s2)
|
|
||||||
register char *s1, *s2;
|
|
||||||
{
|
|
||||||
/* Copy s2 to s1. */
|
|
||||||
char *original = s1;
|
|
||||||
|
|
||||||
while (*s1++ = *s2++) /* nothing */;
|
|
||||||
return(original);
|
|
||||||
}
|
|
||||||
|
|
||||||
static int
|
|
||||||
strlen(s)
|
|
||||||
char *s;
|
|
||||||
{
|
|
||||||
/* Return length of s. */
|
|
||||||
|
|
||||||
char *original = s;
|
|
||||||
|
|
||||||
while (*s != 0) s++;
|
|
||||||
return(s - original);
|
|
||||||
}
|
|
||||||
|
|
||||||
static int
|
|
||||||
strcmp(s1, s2)
|
|
||||||
register char *s1, *s2;
|
|
||||||
{
|
|
||||||
/* Compare 2 strings. */
|
|
||||||
|
|
||||||
for(;;) {
|
|
||||||
if (*s1 != *s2) {
|
|
||||||
if (!*s1) return -1;
|
|
||||||
if (!*s2) return 1;
|
|
||||||
return(*s1 - *s2);
|
|
||||||
}
|
|
||||||
if (*s1++ == 0) return(0);
|
|
||||||
s2++;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
static int
|
|
||||||
strncmp(s1, s2, n)
|
|
||||||
register char *s1, *s2;
|
|
||||||
int n;
|
|
||||||
{
|
|
||||||
/* Compare two strings, but at most n characters. */
|
|
||||||
|
|
||||||
while (n-- > 0) {
|
|
||||||
if (*s1 != *s2) {
|
|
||||||
if (!*s1) return -1;
|
|
||||||
if (!*s2) return 1;
|
|
||||||
return(*s1 - *s2);
|
|
||||||
}
|
|
||||||
if (*s1++ == 0) break;
|
|
||||||
s2++;
|
|
||||||
}
|
|
||||||
return 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
static char *
|
|
||||||
getenv(name)
|
|
||||||
register char *name;
|
|
||||||
{
|
|
||||||
extern char ***_penviron;
|
|
||||||
register char **v = *_penviron, *p, *q;
|
|
||||||
|
|
||||||
if (v == 0 || name == 0) return 0;
|
|
||||||
while ((p = *v++) != 0) {
|
|
||||||
q = name;
|
|
||||||
while (*q && *q++ == *p++) /* nothing */ ;
|
|
||||||
if (*q || *p != '=') continue;
|
|
||||||
return(p+1);
|
|
||||||
}
|
|
||||||
return(0);
|
|
||||||
}
|
|
||||||
|
|
||||||
static char *
|
|
||||||
fgets(buf, count, fd)
|
|
||||||
char *buf;
|
|
||||||
{
|
|
||||||
static char bf[1024];
|
|
||||||
static int cnt = 0;
|
|
||||||
static char *pbf = &bf[0];
|
|
||||||
register char *c = buf;
|
|
||||||
|
|
||||||
|
|
||||||
while (--count) {
|
|
||||||
if (pbf >= &bf[cnt]) {
|
|
||||||
if ((cnt = read(fd, bf, 1024)) <= 0) {
|
|
||||||
if (c == buf) return (char *) NULL;
|
|
||||||
*c = 0;
|
|
||||||
return buf;
|
|
||||||
}
|
|
||||||
pbf = &bf[0];
|
|
||||||
}
|
|
||||||
*c = *pbf++;
|
|
||||||
if (*c++ == '\n') {
|
|
||||||
*c = 0;
|
|
||||||
return buf;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
*c = 0;
|
|
||||||
return buf;
|
|
||||||
}
|
|
||||||
|
|
||||||
/*
|
|
||||||
* tgetent - get the termcap entry for terminal name, and put it
|
|
||||||
* in bp (which must be an array of 1024 chars). Returns 1 if
|
|
||||||
* termcap entry found, 0 if not found, and -1 if file not found.
|
|
||||||
*/
|
|
||||||
int
|
|
||||||
tgetent(bp, name)
|
|
||||||
char *bp;
|
|
||||||
char *name;
|
|
||||||
{
|
|
||||||
int fp;
|
|
||||||
char *file;
|
|
||||||
char *cp;
|
|
||||||
short len = strlen(name);
|
|
||||||
char buf[1024];
|
|
||||||
|
|
||||||
capab = bp;
|
|
||||||
if ((file = getenv("TERMCAP")) != (char *) NULL) {
|
|
||||||
if (*file != '/' &&
|
|
||||||
(cp = getenv("TERM")) != NULL && strcmp(name, cp) == 0) {
|
|
||||||
(void) strcpy(bp, file);
|
|
||||||
return(1);
|
|
||||||
}
|
|
||||||
else file = "/etc/termcap";
|
|
||||||
} else
|
|
||||||
file = "/etc/termcap";
|
|
||||||
if ((fp = open(file, 0)) < 0) {
|
|
||||||
capab = 0;
|
|
||||||
return(-1);
|
|
||||||
}
|
|
||||||
while (fgets(buf, 1024, fp) != NULL) {
|
|
||||||
if (buf[0] == '#') continue;
|
|
||||||
while (*(cp = &buf[strlen(buf) - 2]) == '\\')
|
|
||||||
if (fgets(cp, 1024, fp) == NULL)
|
|
||||||
return (0);
|
|
||||||
if (match_name(buf, name)) {
|
|
||||||
strcpy(bp, buf);
|
|
||||||
close(fp);
|
|
||||||
if(check_for_tc() == 0) {
|
|
||||||
capab = 0;
|
|
||||||
return 0;
|
|
||||||
}
|
|
||||||
return 1;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
capab = 0;
|
|
||||||
close(fp);
|
|
||||||
return(0);
|
|
||||||
}
|
|
||||||
|
|
||||||
/*
|
|
||||||
* Compare the terminal name with each termcap entry name; Return 1 if a
|
|
||||||
* match is found.
|
|
||||||
*/
|
|
||||||
static int
|
|
||||||
match_name(buf, name)
|
|
||||||
char *buf;
|
|
||||||
char *name;
|
|
||||||
{
|
|
||||||
register char *tp = buf;
|
|
||||||
register char *np;
|
|
||||||
|
|
||||||
for (;;) {
|
|
||||||
for (np = name; *np && *tp == *np; np++, tp++) { }
|
|
||||||
if (*np == 0 && (*tp == '|' || *tp == ':' || *tp == 0))
|
|
||||||
return(1);
|
|
||||||
while (*tp != 0 && *tp != '|' && *tp != ':') tp++;
|
|
||||||
if (*tp++ != '|') return (0);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
/*
|
|
||||||
* Handle tc= definitions recursively.
|
|
||||||
*/
|
|
||||||
static int
|
|
||||||
check_for_tc()
|
|
||||||
{
|
|
||||||
static int count = 0;
|
|
||||||
char *savcapab = capab;
|
|
||||||
char buf[1024];
|
|
||||||
char terminalname[128];
|
|
||||||
register char *p = capab + strlen(capab) - 2, *q;
|
|
||||||
|
|
||||||
while (*p != ':')
|
|
||||||
if (--p < capab)
|
|
||||||
return(0); /* no : in termcap entry */
|
|
||||||
if (p[1] != 't' || p[2] != 'c')
|
|
||||||
return(1);
|
|
||||||
if (count > 16) {
|
|
||||||
return(0); /* recursion in tc= definitions */
|
|
||||||
}
|
|
||||||
count++;
|
|
||||||
strcpy(terminalname, &p[4]);
|
|
||||||
q = terminalname;
|
|
||||||
while (*q && *q != ':') q++;
|
|
||||||
*q = 0;
|
|
||||||
if (tgetent(buf, terminalname) != 1) {
|
|
||||||
--count;
|
|
||||||
return(0);
|
|
||||||
}
|
|
||||||
--count;
|
|
||||||
for (q = buf; *q && *q != ':'; q++) { }
|
|
||||||
strcpy(p, q);
|
|
||||||
capab = savcapab;
|
|
||||||
return(1);
|
|
||||||
}
|
|
||||||
|
|
||||||
/*
|
|
||||||
* tgetnum - get the numeric terminal capability corresponding
|
|
||||||
* to id. Returns the value, -1 if invalid.
|
|
||||||
*/
|
|
||||||
int
|
|
||||||
tgetnum(id)
|
|
||||||
char *id;
|
|
||||||
{
|
|
||||||
char *cp;
|
|
||||||
int ret;
|
|
||||||
|
|
||||||
if ((cp = capab) == NULL || id == NULL || *cp == 0)
|
|
||||||
return(-1);
|
|
||||||
while (*++cp && *cp != ':')
|
|
||||||
;
|
|
||||||
while (*cp) {
|
|
||||||
cp++;
|
|
||||||
while (ISSPACE(*cp))
|
|
||||||
cp++;
|
|
||||||
if (strncmp(cp, id, CAPABLEN) == 0) {
|
|
||||||
while (*cp && *cp != ':' && *cp != '#')
|
|
||||||
cp++;
|
|
||||||
if (*cp != '#')
|
|
||||||
return(-1);
|
|
||||||
for (ret = 0, cp++ ; *cp && ISDIGIT(*cp) ; cp++)
|
|
||||||
ret = ret * 10 + *cp - '0';
|
|
||||||
return(ret);
|
|
||||||
}
|
|
||||||
while (*cp && *cp != ':')
|
|
||||||
cp++;
|
|
||||||
}
|
|
||||||
return(-1);
|
|
||||||
}
|
|
||||||
|
|
||||||
/*
|
|
||||||
* tgetflag - get the boolean flag corresponding to id. Returns -1
|
|
||||||
* if invalid, 0 if the flag is not in termcap entry, or 1 if it is
|
|
||||||
* present.
|
|
||||||
*/
|
|
||||||
int
|
|
||||||
tgetflag(id)
|
|
||||||
char *id;
|
|
||||||
{
|
|
||||||
char *cp;
|
|
||||||
|
|
||||||
if ((cp = capab) == NULL || id == NULL || *cp == 0)
|
|
||||||
return(-1);
|
|
||||||
while (*++cp && *cp != ':')
|
|
||||||
;
|
|
||||||
while (*cp) {
|
|
||||||
cp++;
|
|
||||||
while (ISSPACE(*cp))
|
|
||||||
cp++;
|
|
||||||
if (strncmp(cp, id, CAPABLEN) == 0)
|
|
||||||
return(1);
|
|
||||||
while (*cp && *cp != ':')
|
|
||||||
cp++;
|
|
||||||
}
|
|
||||||
return(0);
|
|
||||||
}
|
|
||||||
|
|
||||||
/*
|
|
||||||
* tgetstr - get the string capability corresponding to id and place
|
|
||||||
* it in area (advancing area at same time). Expand escape sequences
|
|
||||||
* etc. Returns the string, or NULL if it can't do it.
|
|
||||||
*/
|
|
||||||
char *
|
|
||||||
tgetstr(id, area)
|
|
||||||
char *id;
|
|
||||||
char **area;
|
|
||||||
{
|
|
||||||
char *cp;
|
|
||||||
char *ret;
|
|
||||||
int i;
|
|
||||||
|
|
||||||
if ((cp = capab) == NULL || id == NULL || *cp == 0)
|
|
||||||
return(NULL);
|
|
||||||
while (*++cp != ':')
|
|
||||||
;
|
|
||||||
while (*cp) {
|
|
||||||
cp++;
|
|
||||||
while (ISSPACE(*cp))
|
|
||||||
cp++;
|
|
||||||
if (strncmp(cp, id, CAPABLEN) == 0) {
|
|
||||||
while (*cp && *cp != ':' && *cp != '=')
|
|
||||||
cp++;
|
|
||||||
if (*cp != '=')
|
|
||||||
return(NULL);
|
|
||||||
for (ret = *area, cp++; *cp && *cp != ':' ; (*area)++, cp++)
|
|
||||||
switch(*cp) {
|
|
||||||
case '^' :
|
|
||||||
**area = *++cp - 'A' + 1;
|
|
||||||
break;
|
|
||||||
case '\\' :
|
|
||||||
switch(*++cp) {
|
|
||||||
case 'E' :
|
|
||||||
**area = '\033';
|
|
||||||
break;
|
|
||||||
case 'n' :
|
|
||||||
**area = '\n';
|
|
||||||
break;
|
|
||||||
case 'r' :
|
|
||||||
**area = '\r';
|
|
||||||
break;
|
|
||||||
case 't' :
|
|
||||||
**area = '\t';
|
|
||||||
break;
|
|
||||||
case 'b' :
|
|
||||||
**area = '\b';
|
|
||||||
break;
|
|
||||||
case 'f' :
|
|
||||||
**area = '\f';
|
|
||||||
break;
|
|
||||||
case '0' :
|
|
||||||
case '1' :
|
|
||||||
case '2' :
|
|
||||||
case '3' :
|
|
||||||
for (i=0 ; *cp && ISDIGIT(*cp) ; cp++)
|
|
||||||
i = i * 8 + *cp - '0';
|
|
||||||
**area = i;
|
|
||||||
cp--;
|
|
||||||
break;
|
|
||||||
case '^' :
|
|
||||||
case '\\' :
|
|
||||||
**area = *cp;
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
break;
|
|
||||||
default :
|
|
||||||
**area = *cp;
|
|
||||||
}
|
|
||||||
*(*area)++ = '\0';
|
|
||||||
return(ret);
|
|
||||||
}
|
|
||||||
while (*cp && *cp != ':')
|
|
||||||
cp++;
|
|
||||||
}
|
|
||||||
return(NULL);
|
|
||||||
}
|
|
||||||
|
|
||||||
/*
|
|
||||||
* tgoto - given the cursor motion string cm, make up the string
|
|
||||||
* for the cursor to go to (destcol, destline), and return the string.
|
|
||||||
* Returns "OOPS" if something's gone wrong, or the string otherwise.
|
|
||||||
*/
|
|
||||||
char *
|
|
||||||
tgoto(cm, destcol, destline)
|
|
||||||
char *cm;
|
|
||||||
int destcol;
|
|
||||||
int destline;
|
|
||||||
{
|
|
||||||
register char *rp;
|
|
||||||
static char ret[32];
|
|
||||||
char added[16];
|
|
||||||
int *dp = &destline;
|
|
||||||
int numval;
|
|
||||||
int swapped = 0;
|
|
||||||
|
|
||||||
added[0] = 0;
|
|
||||||
for (rp = ret ; *cm ; cm++) {
|
|
||||||
if (*cm == '%') {
|
|
||||||
switch(*++cm) {
|
|
||||||
case '>' :
|
|
||||||
if (dp == NULL)
|
|
||||||
return("OOPS");
|
|
||||||
cm++;
|
|
||||||
if (*dp > *cm++) {
|
|
||||||
*dp += *cm;
|
|
||||||
}
|
|
||||||
break;
|
|
||||||
case '+' :
|
|
||||||
case '.' :
|
|
||||||
if (dp == NULL)
|
|
||||||
return("OOPS");
|
|
||||||
if (*cm == '+') *dp = *dp + *++cm;
|
|
||||||
for (;;) {
|
|
||||||
switch(*dp) {
|
|
||||||
case 0:
|
|
||||||
case 04:
|
|
||||||
case '\t':
|
|
||||||
case '\n':
|
|
||||||
/* filter these out */
|
|
||||||
if (dp == &destcol || swapped || UP) {
|
|
||||||
strcat(added, dp == &destcol || swapped ?
|
|
||||||
(BC ? BC : "\b") :
|
|
||||||
UP);
|
|
||||||
(*dp)++;
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
*rp++ = *dp;
|
|
||||||
dp = (dp == &destline) ? &destcol : NULL;
|
|
||||||
break;
|
|
||||||
|
|
||||||
case 'r' : {
|
|
||||||
int tmp = destline;
|
|
||||||
|
|
||||||
destline = destcol;
|
|
||||||
destcol = tmp;
|
|
||||||
swapped = 1 - swapped;
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
case 'n' :
|
|
||||||
destcol ^= 0140;
|
|
||||||
destline ^= 0140;
|
|
||||||
break;
|
|
||||||
|
|
||||||
case '%' :
|
|
||||||
*rp++ = '%';
|
|
||||||
break;
|
|
||||||
|
|
||||||
case 'i' :
|
|
||||||
destcol++;
|
|
||||||
destline++;
|
|
||||||
break;
|
|
||||||
|
|
||||||
case 'B' :
|
|
||||||
if (dp == NULL)
|
|
||||||
return("OOPS");
|
|
||||||
*dp = 16 * (*dp / 10) + *dp % 10;
|
|
||||||
break;
|
|
||||||
|
|
||||||
case 'D' :
|
|
||||||
if (dp == NULL)
|
|
||||||
return("OOPS");
|
|
||||||
*dp = *dp - 2 * (*dp % 16);
|
|
||||||
break;
|
|
||||||
|
|
||||||
case 'd' :
|
|
||||||
case '2' :
|
|
||||||
case '3' :
|
|
||||||
if (dp == NULL)
|
|
||||||
return("OOPS");
|
|
||||||
numval = *dp;
|
|
||||||
dp = (dp == &destline) ? &destcol : NULL;
|
|
||||||
if (numval >= 100) {
|
|
||||||
*rp++ = '0' + numval / 100;
|
|
||||||
}
|
|
||||||
else if (*cm == '3') {
|
|
||||||
*rp++ = ' ';
|
|
||||||
}
|
|
||||||
if (numval >= 10) {
|
|
||||||
*rp++ = '0' + ((numval%100)/10);
|
|
||||||
}
|
|
||||||
else if (*cm == '3' || *cm == '2') {
|
|
||||||
*rp++ = ' ';
|
|
||||||
}
|
|
||||||
*rp++ = '0' + (numval%10);
|
|
||||||
break;
|
|
||||||
default :
|
|
||||||
return("OOPS");
|
|
||||||
}
|
|
||||||
}
|
|
||||||
else *rp++ = *cm;
|
|
||||||
}
|
|
||||||
*rp = '\0';
|
|
||||||
strcpy(rp, added);
|
|
||||||
return(ret);
|
|
||||||
}
|
|
||||||
|
|
||||||
static int tens_of_ms_p_char[] = { /* index as returned by gtty */
|
|
||||||
/* assume 10 bits per char */
|
|
||||||
0, 2000, 1333, 909, 743, 666, 500, 333, 166, 83, 55, 41, 20, 10, 5, 2
|
|
||||||
};
|
|
||||||
/*
|
|
||||||
* tputs - put the string cp out onto the terminal, using the function
|
|
||||||
* outc. Also handle padding.
|
|
||||||
*/
|
|
||||||
int
|
|
||||||
tputs(cp, affcnt, outc)
|
|
||||||
register char *cp;
|
|
||||||
int affcnt;
|
|
||||||
int (*outc)();
|
|
||||||
{
|
|
||||||
int delay = 0;
|
|
||||||
if (cp == NULL)
|
|
||||||
return(1);
|
|
||||||
while (ISDIGIT(*cp)) {
|
|
||||||
delay = delay * 10 + (*cp++ - '0');
|
|
||||||
}
|
|
||||||
delay *= 10;
|
|
||||||
if (*cp == '.') {
|
|
||||||
cp++;
|
|
||||||
if (ISDIGIT(*cp)) {
|
|
||||||
delay += *cp++ - '0';
|
|
||||||
}
|
|
||||||
while (ISDIGIT(*cp)) cp++;
|
|
||||||
}
|
|
||||||
if (*cp == '*') {
|
|
||||||
delay *= affcnt;
|
|
||||||
cp++;
|
|
||||||
}
|
|
||||||
while (*cp)
|
|
||||||
(*outc)(*cp++);
|
|
||||||
if (delay != 0 &&
|
|
||||||
ospeed > 0 &&
|
|
||||||
ospeed < (sizeof tens_of_ms_p_char / sizeof tens_of_ms_p_char[0])) {
|
|
||||||
delay = (delay + tens_of_ms_p_char[ospeed] - 1) /
|
|
||||||
tens_of_ms_p_char[ospeed];
|
|
||||||
while (delay--) (*outc)(PC);
|
|
||||||
}
|
|
||||||
return(1);
|
|
||||||
}
|
|
||||||
|
|
||||||
/*
|
|
||||||
* That's all, folks...
|
|
||||||
*/
|
|
||||||
|
|
@ -1,18 +0,0 @@
|
||||||
/*
|
|
||||||
(c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
*/
|
|
||||||
|
|
||||||
/*
|
|
||||||
Module: double abs function
|
|
||||||
Author: Ceriel J.H. Jacobs
|
|
||||||
Version: $Header$
|
|
||||||
*/
|
|
||||||
#ifndef NOFLOAT
|
|
||||||
double
|
|
||||||
absd(i)
|
|
||||||
double i;
|
|
||||||
{
|
|
||||||
return i >= 0 ? i : -i;
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
@ -1,30 +0,0 @@
|
||||||
#
|
|
||||||
;
|
|
||||||
; (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
; See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
;
|
|
||||||
;
|
|
||||||
; Module: REAL abs function
|
|
||||||
; Author: Ceriel J.H. Jacobs
|
|
||||||
; Version: $Header$
|
|
||||||
;
|
|
||||||
mes 2,_EM_WSIZE,_EM_PSIZE
|
|
||||||
exp $absf
|
|
||||||
pro $absf,0
|
|
||||||
mes 5
|
|
||||||
mes 9,8
|
|
||||||
lal 0
|
|
||||||
loi _EM_FSIZE
|
|
||||||
zrf _EM_FSIZE
|
|
||||||
cmf _EM_FSIZE
|
|
||||||
zlt *3
|
|
||||||
lal 0
|
|
||||||
loi _EM_FSIZE
|
|
||||||
bra *4
|
|
||||||
3
|
|
||||||
lal 0
|
|
||||||
loi _EM_FSIZE
|
|
||||||
ngf _EM_FSIZE
|
|
||||||
4
|
|
||||||
ret _EM_FSIZE
|
|
||||||
end 0
|
|
||||||
|
|
@ -1,15 +0,0 @@
|
||||||
/*
|
|
||||||
(c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
*/
|
|
||||||
|
|
||||||
/*
|
|
||||||
Module: integer abs function
|
|
||||||
Author: Ceriel J.H. Jacobs
|
|
||||||
Version: $Header$
|
|
||||||
*/
|
|
||||||
|
|
||||||
absi(i)
|
|
||||||
{
|
|
||||||
return i >= 0 ? i : -i;
|
|
||||||
}
|
|
||||||
|
|
@ -1,16 +0,0 @@
|
||||||
/*
|
|
||||||
(c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
*/
|
|
||||||
|
|
||||||
/*
|
|
||||||
Module: longint abs function
|
|
||||||
Author: Ceriel J.H. Jacobs
|
|
||||||
Version: $Header$
|
|
||||||
*/
|
|
||||||
long
|
|
||||||
absl(i)
|
|
||||||
long i;
|
|
||||||
{
|
|
||||||
return i >= 0 ? i : -i;
|
|
||||||
}
|
|
||||||
|
|
@ -1,23 +0,0 @@
|
||||||
/*
|
|
||||||
(c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
*/
|
|
||||||
|
|
||||||
/*
|
|
||||||
Module: block moves
|
|
||||||
Author: Ceriel J.H. Jacobs
|
|
||||||
Version: $Header$
|
|
||||||
*/
|
|
||||||
|
|
||||||
#if _EM_WSIZE==_EM_PSIZE
|
|
||||||
typedef unsigned pcnt;
|
|
||||||
#else
|
|
||||||
typedef unsigned long pcnt;
|
|
||||||
#endif
|
|
||||||
|
|
||||||
blockmove(siz, dst, src)
|
|
||||||
pcnt siz;
|
|
||||||
register char *dst, *src;
|
|
||||||
{
|
|
||||||
while (siz--) *dst++ = *src++;
|
|
||||||
}
|
|
||||||
|
|
@ -1,18 +0,0 @@
|
||||||
/*
|
|
||||||
(c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
*/
|
|
||||||
|
|
||||||
/*
|
|
||||||
Module: cap; implementation of CAP
|
|
||||||
Author: Ceriel J.H. Jacobs
|
|
||||||
Version: $Header$
|
|
||||||
*/
|
|
||||||
|
|
||||||
cap(u)
|
|
||||||
unsigned u;
|
|
||||||
{
|
|
||||||
register unsigned *p = &u;
|
|
||||||
|
|
||||||
if (*p >= 'a' && *p <= 'z') *p += 'A'-'a';
|
|
||||||
}
|
|
||||||
|
|
@ -1,99 +0,0 @@
|
||||||
/*
|
|
||||||
(c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
*/
|
|
||||||
|
|
||||||
/*
|
|
||||||
Module: default modula-2 trap handler
|
|
||||||
Author: Ceriel J.H. Jacobs
|
|
||||||
Version: $Header$
|
|
||||||
*/
|
|
||||||
#include <em_abs.h>
|
|
||||||
#include <m2_traps.h>
|
|
||||||
#include <signal.h>
|
|
||||||
|
|
||||||
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"},
|
|
||||||
|
|
||||||
{ M2_TOOLARGE, "stack size of process too large"},
|
|
||||||
{ M2_TOOMANY, "too many nested traps + handlers"},
|
|
||||||
{ M2_NORESULT, "no RETURN from function procedure"},
|
|
||||||
{ M2_UOVFL, "cardinal overflow"},
|
|
||||||
{ M2_FORCH, "(warning) FOR-loop control variable was changed in the body"},
|
|
||||||
{ M2_UUVFL, "cardinal underflow"},
|
|
||||||
{ M2_INTERNAL, "internal error; ask an expert for help"},
|
|
||||||
{ M2_UNIXSIG, "got a unix signal"},
|
|
||||||
{ -1, 0}
|
|
||||||
};
|
|
||||||
|
|
||||||
catch(trapno)
|
|
||||||
int trapno;
|
|
||||||
{
|
|
||||||
register struct errm *ep = &errors[0];
|
|
||||||
char *errmessage;
|
|
||||||
char buf[20];
|
|
||||||
register char *p, *s;
|
|
||||||
|
|
||||||
while (ep->errno != trapno && ep->errmes != 0) ep++;
|
|
||||||
if (p = ep->errmes) {
|
|
||||||
while (*p) p++;
|
|
||||||
_Traps__Message(ep->errmes, 0, (int) (p - ep->errmes), 1);
|
|
||||||
}
|
|
||||||
else {
|
|
||||||
int i = trapno;
|
|
||||||
static char q[] = "error number xxxxxxxxxxxxx";
|
|
||||||
|
|
||||||
p = &q[13];
|
|
||||||
s = buf;
|
|
||||||
if (i < 0) {
|
|
||||||
i = -i;
|
|
||||||
*p++ = '-';
|
|
||||||
}
|
|
||||||
do
|
|
||||||
*s++ = i % 10 + '0';
|
|
||||||
while (i /= 10);
|
|
||||||
while (s > buf) *p++ = *--s;
|
|
||||||
*p = 0;
|
|
||||||
_Traps__Message(q, 0, (int) (p - q), 1);
|
|
||||||
}
|
|
||||||
#if !defined(__em24) && !defined(__em44) && !defined(__em22)
|
|
||||||
if (trapno == M2_UNIXSIG) {
|
|
||||||
extern int __signo;
|
|
||||||
signal(__signo, SIG_DFL);
|
|
||||||
_cleanup();
|
|
||||||
kill(getpid(), __signo);
|
|
||||||
_exit(trapno);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
if (trapno != M2_FORCH) {
|
|
||||||
_cleanup();
|
|
||||||
_exit(trapno);
|
|
||||||
}
|
|
||||||
SIG(catch);
|
|
||||||
}
|
|
||||||
|
|
@ -1,72 +0,0 @@
|
||||||
/*
|
|
||||||
(c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
*/
|
|
||||||
|
|
||||||
/*
|
|
||||||
Module: runtime support for conformant arrays
|
|
||||||
Author: Ceriel J.H. Jacobs
|
|
||||||
Version: $Header$
|
|
||||||
*/
|
|
||||||
#include <m2_traps.h>
|
|
||||||
|
|
||||||
#ifndef EM_WSIZE
|
|
||||||
#define EM_WSIZE _EM_WSIZE
|
|
||||||
#define EM_PSIZE _EM_PSIZE
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#if EM_WSIZE==EM_PSIZE
|
|
||||||
typedef unsigned pcnt;
|
|
||||||
#else
|
|
||||||
typedef unsigned long pcnt;
|
|
||||||
#endif
|
|
||||||
|
|
||||||
struct descr {
|
|
||||||
char *addr;
|
|
||||||
int low;
|
|
||||||
unsigned int highminlow;
|
|
||||||
unsigned int size;
|
|
||||||
};
|
|
||||||
|
|
||||||
static struct descr *descrs[10];
|
|
||||||
static struct descr **ppdescr = descrs;
|
|
||||||
|
|
||||||
pcnt
|
|
||||||
new_stackptr(pdscr, a)
|
|
||||||
struct descr *pdscr;
|
|
||||||
{
|
|
||||||
register struct descr *pdescr = pdscr;
|
|
||||||
pcnt size = (((pdescr->highminlow + 1) * pdescr->size +
|
|
||||||
(EM_WSIZE - 1)) & ~(EM_WSIZE - 1));
|
|
||||||
|
|
||||||
if (ppdescr >= &descrs[10]) {
|
|
||||||
/* to many nested traps + handlers ! */
|
|
||||||
TRP(M2_TOOMANY);
|
|
||||||
}
|
|
||||||
*ppdescr++ = pdescr;
|
|
||||||
if ((char *) &a - (char *) &pdscr > 0) {
|
|
||||||
/* stack grows downwards */
|
|
||||||
return - size;
|
|
||||||
}
|
|
||||||
return size;
|
|
||||||
}
|
|
||||||
|
|
||||||
copy_array(pp, a)
|
|
||||||
char *pp;
|
|
||||||
{
|
|
||||||
register char *p = pp;
|
|
||||||
register char *q;
|
|
||||||
register pcnt sz;
|
|
||||||
char dummy;
|
|
||||||
|
|
||||||
ppdescr--;
|
|
||||||
sz = ((*ppdescr)->highminlow + 1) * (*ppdescr)->size;
|
|
||||||
|
|
||||||
if ((char *) &a - (char *) &pp > 0) {
|
|
||||||
(*ppdescr)->addr = q = (char *) &a;
|
|
||||||
}
|
|
||||||
else (*ppdescr)->addr = q = (char *) &a -
|
|
||||||
((sz + (EM_WSIZE - 1)) & ~ (EM_WSIZE - 1));
|
|
||||||
|
|
||||||
while (sz--) *q++ = *p++;
|
|
||||||
}
|
|
||||||
|
|
@ -1,68 +0,0 @@
|
||||||
/*
|
|
||||||
(c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
*/
|
|
||||||
|
|
||||||
/*
|
|
||||||
Module: implementation of DIV and MOD
|
|
||||||
Author: Ceriel J.H. Jacobs
|
|
||||||
Version: $Header$
|
|
||||||
Reason: We cannot use DVI and RMI, because DVI rounds towards 0
|
|
||||||
and Modula-2 requires truncation
|
|
||||||
*/
|
|
||||||
|
|
||||||
#include <em_abs.h>
|
|
||||||
|
|
||||||
int
|
|
||||||
dvi(j,i)
|
|
||||||
int j,i;
|
|
||||||
{
|
|
||||||
if (j == 0) TRP(EIDIVZ);
|
|
||||||
if ((i < 0) != (j < 0)) {
|
|
||||||
if (i < 0) i = -i;
|
|
||||||
else j = -j;
|
|
||||||
return -((i+j-1)/j);
|
|
||||||
}
|
|
||||||
else return i/j;
|
|
||||||
}
|
|
||||||
|
|
||||||
long
|
|
||||||
dvil(j,i)
|
|
||||||
long j,i;
|
|
||||||
{
|
|
||||||
if (j == 0) TRP(EIDIVZ);
|
|
||||||
if ((i < 0) != (j < 0)) {
|
|
||||||
if (i < 0) i = -i;
|
|
||||||
else j = -j;
|
|
||||||
return -((i+j-1)/j);
|
|
||||||
}
|
|
||||||
else return i/j;
|
|
||||||
}
|
|
||||||
|
|
||||||
int
|
|
||||||
rmi(j,i)
|
|
||||||
int j,i;
|
|
||||||
{
|
|
||||||
if (j == 0) TRP(EIDIVZ);
|
|
||||||
if (i == 0) return 0;
|
|
||||||
if ((i < 0) != (j < 0)) {
|
|
||||||
if (i < 0) i = -i;
|
|
||||||
else j = -j;
|
|
||||||
return j*((i+j-1)/j)-i;
|
|
||||||
}
|
|
||||||
else return i%j;
|
|
||||||
}
|
|
||||||
|
|
||||||
long
|
|
||||||
rmil(j,i)
|
|
||||||
long j,i;
|
|
||||||
{
|
|
||||||
if (j == 0) TRP(EIDIVZ);
|
|
||||||
if (i == 0) return 0L;
|
|
||||||
if ((i < 0) != (j < 0)) {
|
|
||||||
if (i < 0) i = -i;
|
|
||||||
else j = -j;
|
|
||||||
return j*((i+j-1)/j)-i;
|
|
||||||
}
|
|
||||||
else return i%j;
|
|
||||||
}
|
|
||||||
|
|
@ -1,37 +0,0 @@
|
||||||
/*
|
|
||||||
(c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
*/
|
|
||||||
|
|
||||||
/*
|
|
||||||
Module: program termination routines
|
|
||||||
Author: Ceriel J.H. Jacobs
|
|
||||||
Version: $Header$
|
|
||||||
*/
|
|
||||||
#define MAXPROCS 32
|
|
||||||
|
|
||||||
static int callindex = 0;
|
|
||||||
static int (*proclist[MAXPROCS])();
|
|
||||||
|
|
||||||
_cleanup()
|
|
||||||
{
|
|
||||||
while (--callindex >= 0)
|
|
||||||
(*proclist[callindex])();
|
|
||||||
callindex = 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
CallAtEnd(p)
|
|
||||||
int (*p)();
|
|
||||||
{
|
|
||||||
if (callindex >= MAXPROCS) {
|
|
||||||
return 0;
|
|
||||||
}
|
|
||||||
proclist[callindex++] = p;
|
|
||||||
return 1;
|
|
||||||
}
|
|
||||||
|
|
||||||
halt()
|
|
||||||
{
|
|
||||||
_cleanup();
|
|
||||||
_exit(0);
|
|
||||||
}
|
|
||||||
|
|
@ -1,63 +0,0 @@
|
||||||
#
|
|
||||||
;
|
|
||||||
; (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
; See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
;
|
|
||||||
;
|
|
||||||
; Module: Modula-2 runtime startoff
|
|
||||||
; Author: Ceriel J.H. Jacobs
|
|
||||||
; Version: $Header$
|
|
||||||
;
|
|
||||||
|
|
||||||
mes 2,_EM_WSIZE,_EM_PSIZE
|
|
||||||
|
|
||||||
exa handler
|
|
||||||
exa argv
|
|
||||||
exa argc
|
|
||||||
exa MainLB
|
|
||||||
exa bkillbss
|
|
||||||
exp $catch
|
|
||||||
exp $init
|
|
||||||
inp $trap_handler
|
|
||||||
|
|
||||||
bkillbss
|
|
||||||
bss _EM_PSIZE,0,0
|
|
||||||
|
|
||||||
exp $_m_a_i_n
|
|
||||||
pro $_m_a_i_n, 0
|
|
||||||
|
|
||||||
lor 0
|
|
||||||
lae MainLB
|
|
||||||
sti _EM_PSIZE
|
|
||||||
|
|
||||||
lal _EM_WSIZE
|
|
||||||
loi _EM_PSIZE
|
|
||||||
lae argv ; save argument pointer
|
|
||||||
sti _EM_PSIZE
|
|
||||||
|
|
||||||
lol 0
|
|
||||||
ste argc ; save argument count
|
|
||||||
|
|
||||||
lpi $trap_handler
|
|
||||||
sig
|
|
||||||
asp _EM_PSIZE
|
|
||||||
cal $init
|
|
||||||
cal $__M2M_
|
|
||||||
cal $halt
|
|
||||||
loc 0 ; should not get here
|
|
||||||
ret _EM_WSIZE
|
|
||||||
end
|
|
||||||
|
|
||||||
pro $trap_handler,0
|
|
||||||
lpi $trap_handler
|
|
||||||
sig
|
|
||||||
lol 0 ; trap number
|
|
||||||
lae handler
|
|
||||||
loi _EM_PSIZE
|
|
||||||
lpi $catch
|
|
||||||
lae handler
|
|
||||||
sti _EM_PSIZE
|
|
||||||
cai
|
|
||||||
asp _EM_PSIZE+_EM_WSIZE
|
|
||||||
rtt
|
|
||||||
end 0
|
|
||||||
|
|
@ -1,47 +0,0 @@
|
||||||
/*
|
|
||||||
(c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
*/
|
|
||||||
|
|
||||||
/*
|
|
||||||
Module: initialization and some global vars
|
|
||||||
Author: Ceriel J.H. Jacobs
|
|
||||||
Version: $Header$
|
|
||||||
*/
|
|
||||||
|
|
||||||
#include <signal.h>
|
|
||||||
#include <em_abs.h>
|
|
||||||
#include <m2_traps.h>
|
|
||||||
|
|
||||||
/* map unix signals onto EM traps */
|
|
||||||
init()
|
|
||||||
{
|
|
||||||
sigtrp(M2_UNIXSIG, SIGHUP);
|
|
||||||
sigtrp(M2_UNIXSIG, SIGINT);
|
|
||||||
sigtrp(M2_UNIXSIG, SIGQUIT);
|
|
||||||
sigtrp(EILLINS, SIGILL);
|
|
||||||
sigtrp(M2_UNIXSIG, SIGTRAP);
|
|
||||||
sigtrp(M2_UNIXSIG, SIGIOT);
|
|
||||||
sigtrp(M2_UNIXSIG, SIGEMT);
|
|
||||||
sigtrp(M2_UNIXSIG, SIGFPE);
|
|
||||||
sigtrp(M2_UNIXSIG, SIGBUS);
|
|
||||||
sigtrp(M2_UNIXSIG, SIGSEGV);
|
|
||||||
#ifdef SIGSYS
|
|
||||||
sigtrp(EBADMON, SIGSYS);
|
|
||||||
#endif
|
|
||||||
sigtrp(M2_UNIXSIG, SIGPIPE);
|
|
||||||
sigtrp(M2_UNIXSIG, SIGALRM);
|
|
||||||
sigtrp(M2_UNIXSIG, SIGTERM);
|
|
||||||
}
|
|
||||||
|
|
||||||
killbss()
|
|
||||||
{
|
|
||||||
/* Fill bss with junk? Make lots of VM pages dirty? No way! */
|
|
||||||
}
|
|
||||||
|
|
||||||
extern int catch();
|
|
||||||
|
|
||||||
int (*handler)() = catch;
|
|
||||||
char **argv;
|
|
||||||
int argc;
|
|
||||||
char *MainLB;
|
|
||||||
|
|
@ -1,45 +0,0 @@
|
||||||
/*
|
|
||||||
(c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
*/
|
|
||||||
|
|
||||||
/*
|
|
||||||
Module: get value on stack, byte by byte
|
|
||||||
Author: Ceriel J.H. Jacobs
|
|
||||||
Version: $Header$
|
|
||||||
*/
|
|
||||||
|
|
||||||
#include <m2_traps.h>
|
|
||||||
|
|
||||||
#ifndef EM_WSIZE
|
|
||||||
#define EM_WSIZE _EM_WSIZE
|
|
||||||
#define EM_PSIZE _EM_PSIZE
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#if EM_WSIZE==EM_PSIZE
|
|
||||||
typedef unsigned pcnt;
|
|
||||||
#else
|
|
||||||
typedef long pcnt;
|
|
||||||
#endif
|
|
||||||
|
|
||||||
load(siz, addr, p)
|
|
||||||
register char *addr;
|
|
||||||
register pcnt siz;
|
|
||||||
{
|
|
||||||
/* Make sure, that a value with a size that could have been
|
|
||||||
handled by the LOI instruction ends up at the same place,
|
|
||||||
where it would, were the LOI instruction used.
|
|
||||||
*/
|
|
||||||
register char *q = (char *) &p;
|
|
||||||
char t[4];
|
|
||||||
|
|
||||||
if (siz < EM_WSIZE && EM_WSIZE % siz == 0) {
|
|
||||||
/* as long as EM_WSIZE <= 4 ... */
|
|
||||||
if (siz != 2) TRP(M2_INTERNAL); /* internal error */
|
|
||||||
q = &t[0];
|
|
||||||
}
|
|
||||||
while (siz--) *q++ = *addr++;
|
|
||||||
if (q - t == 2) {
|
|
||||||
*((unsigned *)(&p)) = *((unsigned short *) (&t[0]));
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
@ -1,175 +0,0 @@
|
||||||
#
|
|
||||||
;
|
|
||||||
; (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
; See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
;
|
|
||||||
|
|
||||||
;
|
|
||||||
; Module: coroutine primitives
|
|
||||||
; Author: Kees Bot, Edwin Scheffer, Ceriel Jacobs
|
|
||||||
; Version: $Header$
|
|
||||||
;
|
|
||||||
|
|
||||||
mes 2,_EM_WSIZE,_EM_PSIZE
|
|
||||||
|
|
||||||
; topsize takes care of two things:
|
|
||||||
; - given a stack-break,
|
|
||||||
; it computes the size of the chunk of memory needed to save the stack;
|
|
||||||
; - also, if this stack-break = 0, it creates one, assuming that caller is
|
|
||||||
; the stack-break.
|
|
||||||
;
|
|
||||||
; This implementation assumes a continuous stack growing downwards
|
|
||||||
|
|
||||||
exp $topsize
|
|
||||||
#ifdef __sparc
|
|
||||||
inp $topsize2
|
|
||||||
pro $topsize, 0
|
|
||||||
mes 11
|
|
||||||
zer _EM_PSIZE
|
|
||||||
lal 0
|
|
||||||
loi _EM_PSIZE
|
|
||||||
cal $topsize2
|
|
||||||
asp 2*_EM_PSIZE
|
|
||||||
lfr _EM_WSIZE
|
|
||||||
ret _EM_WSIZE
|
|
||||||
end 0
|
|
||||||
pro $topsize2, (3*_EM_WSIZE+3*_EM_PSIZE)
|
|
||||||
#else
|
|
||||||
pro $topsize, (3*_EM_WSIZE+3*_EM_PSIZE)
|
|
||||||
#endif
|
|
||||||
; local space for line-number, ignoremask, filename, stack-break, size,
|
|
||||||
; and stack-pointer (see the topsave routine)
|
|
||||||
mes 11
|
|
||||||
lal 0
|
|
||||||
loi _EM_PSIZE
|
|
||||||
loi _EM_PSIZE ; stack-break or 0
|
|
||||||
zer _EM_PSIZE
|
|
||||||
cmp
|
|
||||||
zne *1
|
|
||||||
lxl 0
|
|
||||||
dch ; local base of caller
|
|
||||||
#ifdef __sparc
|
|
||||||
dch ; because of the extra layer
|
|
||||||
#endif
|
|
||||||
lal 0
|
|
||||||
loi _EM_PSIZE
|
|
||||||
sti _EM_PSIZE
|
|
||||||
1
|
|
||||||
lal 0
|
|
||||||
loi _EM_PSIZE
|
|
||||||
loi _EM_PSIZE
|
|
||||||
lpb ; convert this local base to an argument base.
|
|
||||||
; An implementation of a sort of "topsize" EM
|
|
||||||
; instruction should take a local base, and save
|
|
||||||
; the whole frame.
|
|
||||||
|
|
||||||
lor 1 ; stack-break SP
|
|
||||||
sbs _EM_WSIZE ; stack-break-SP
|
|
||||||
ret _EM_WSIZE ; return size of block to be saved
|
|
||||||
end 3*_EM_WSIZE+3*_EM_PSIZE
|
|
||||||
|
|
||||||
exp $topsave
|
|
||||||
#ifdef __sparc
|
|
||||||
inp $topsave2
|
|
||||||
pro $topsave,0
|
|
||||||
mes 11
|
|
||||||
lal 0
|
|
||||||
loi 2*_EM_PSIZE
|
|
||||||
cal $topsave2
|
|
||||||
asp 2*_EM_PSIZE
|
|
||||||
lfr _EM_WSIZE
|
|
||||||
ret _EM_WSIZE
|
|
||||||
end 0
|
|
||||||
pro $topsave2,0
|
|
||||||
#else
|
|
||||||
pro $topsave, 0
|
|
||||||
#endif
|
|
||||||
mes 11
|
|
||||||
loe 0
|
|
||||||
lae 4 ; load line number and file name
|
|
||||||
loi _EM_PSIZE
|
|
||||||
lim ; ignore mask
|
|
||||||
lor 0 ; LB
|
|
||||||
lal 0
|
|
||||||
loi _EM_PSIZE ; stack-break
|
|
||||||
lpb
|
|
||||||
lor 1
|
|
||||||
sbs _EM_WSIZE
|
|
||||||
loc _EM_WSIZE
|
|
||||||
adu _EM_WSIZE ; gives size
|
|
||||||
dup _EM_WSIZE
|
|
||||||
stl 0 ; save size
|
|
||||||
lor 1 ; SP (the SP BEFORE pushing)
|
|
||||||
lor 1 ; SP (address of stack top to save)
|
|
||||||
lal _EM_PSIZE ; area
|
|
||||||
loi _EM_PSIZE
|
|
||||||
lol 0 ; size
|
|
||||||
bls _EM_WSIZE ; move whole block
|
|
||||||
asp 3*_EM_PSIZE+3*_EM_WSIZE ; remove the lot from the stack
|
|
||||||
loc 1
|
|
||||||
ret _EM_WSIZE ; return 1
|
|
||||||
end 0
|
|
||||||
|
|
||||||
sv
|
|
||||||
bss _EM_PSIZE,0,0
|
|
||||||
|
|
||||||
exp $topload
|
|
||||||
#ifdef __sparc
|
|
||||||
inp $topload1
|
|
||||||
pro $topload,0
|
|
||||||
lal 0
|
|
||||||
loi _EM_PSIZE
|
|
||||||
cal $topload1
|
|
||||||
asp _EM_PSIZE
|
|
||||||
lfr _EM_WSIZE
|
|
||||||
ret _EM_WSIZE
|
|
||||||
end 0
|
|
||||||
pro $topload1, 0
|
|
||||||
#else
|
|
||||||
pro $topload, 0
|
|
||||||
#endif
|
|
||||||
mes 11
|
|
||||||
|
|
||||||
lal 0
|
|
||||||
loi _EM_PSIZE
|
|
||||||
lae sv
|
|
||||||
sti _EM_PSIZE ; saved parameter
|
|
||||||
|
|
||||||
lxl 0
|
|
||||||
2
|
|
||||||
dup _EM_PSIZE
|
|
||||||
adp -3*_EM_PSIZE
|
|
||||||
lal 0
|
|
||||||
loi _EM_PSIZE ; compare target SP with current LB to see if we must
|
|
||||||
loi _EM_PSIZE
|
|
||||||
cmp ; find another LB first
|
|
||||||
zgt *1
|
|
||||||
dch ; just follow dynamic chain to make sure we find
|
|
||||||
; a legal one
|
|
||||||
bra *2
|
|
||||||
1
|
|
||||||
str 0
|
|
||||||
|
|
||||||
lae sv
|
|
||||||
loi _EM_PSIZE
|
|
||||||
loi _EM_PSIZE ; load indirect to
|
|
||||||
str 1 ; restore SP
|
|
||||||
asp 0-_EM_PSIZE ; to stop int from complaining about non-existent memory
|
|
||||||
lae sv
|
|
||||||
loi _EM_PSIZE ; source address
|
|
||||||
lor 1
|
|
||||||
adp _EM_PSIZE ; destination address
|
|
||||||
lae sv
|
|
||||||
loi _EM_PSIZE
|
|
||||||
adp _EM_PSIZE
|
|
||||||
loi _EM_WSIZE ; size of block
|
|
||||||
bls _EM_WSIZE
|
|
||||||
asp _EM_PSIZE+_EM_WSIZE ; drop size + SP
|
|
||||||
str 0 ; restore local base
|
|
||||||
sim ; ignore mask
|
|
||||||
lae 4
|
|
||||||
sti _EM_PSIZE
|
|
||||||
ste 0 ; line and file
|
|
||||||
loc 0
|
|
||||||
ret _EM_WSIZE
|
|
||||||
end 0
|
|
||||||
|
|
@ -1,58 +0,0 @@
|
||||||
(*
|
|
||||||
(c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
*)
|
|
||||||
|
|
||||||
(*$R-*)
|
|
||||||
IMPLEMENTATION MODULE random;
|
|
||||||
(*
|
|
||||||
Module: random numbers
|
|
||||||
Author: Ceriel J.H. Jacobs
|
|
||||||
Version: $Header$
|
|
||||||
*)
|
|
||||||
|
|
||||||
FROM Unix IMPORT getpid, time;
|
|
||||||
TYPE index = [1..55];
|
|
||||||
|
|
||||||
VAR X: ARRAY index OF CARDINAL;
|
|
||||||
j, k: index;
|
|
||||||
tm: LONGINT;
|
|
||||||
|
|
||||||
PROCEDURE Random(): CARDINAL;
|
|
||||||
BEGIN
|
|
||||||
IF k-1 <= 0 THEN k := 55; ELSE DEC(k) END;
|
|
||||||
IF j-1 <= 0 THEN j := 55; ELSE DEC(j) END;
|
|
||||||
X[k] := X[k] + X[j];
|
|
||||||
RETURN X[k]
|
|
||||||
END Random;
|
|
||||||
|
|
||||||
PROCEDURE Uniform (lwb, upb: CARDINAL): CARDINAL;
|
|
||||||
BEGIN
|
|
||||||
IF upb <= lwb THEN RETURN lwb; END;
|
|
||||||
RETURN lwb + (Random() MOD (upb - lwb + 1));
|
|
||||||
END Uniform;
|
|
||||||
|
|
||||||
PROCEDURE StartSeed(seed: CARDINAL);
|
|
||||||
VAR v: CARDINAL;
|
|
||||||
BEGIN
|
|
||||||
FOR k := 1 TO 55 DO
|
|
||||||
seed := 1297 * seed + 123;
|
|
||||||
X[k] := seed;
|
|
||||||
END;
|
|
||||||
FOR k := 1 TO 15 DO
|
|
||||||
j := tm MOD 55D + 1D;
|
|
||||||
v := X[j];
|
|
||||||
tm := tm DIV 7D;
|
|
||||||
j := tm MOD 55D + 1D;
|
|
||||||
X[j] := v;
|
|
||||||
tm := tm * 3D;
|
|
||||||
END;
|
|
||||||
k := 1;
|
|
||||||
j := 25;
|
|
||||||
END StartSeed;
|
|
||||||
|
|
||||||
BEGIN
|
|
||||||
tm := time(NIL);
|
|
||||||
X[1] := tm;
|
|
||||||
StartSeed(CARDINAL(getpid()) * X[1]);
|
|
||||||
END random.
|
|
||||||
|
|
@ -1,25 +0,0 @@
|
||||||
/*
|
|
||||||
* (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
*
|
|
||||||
*
|
|
||||||
* Module: range checks for INTEGER, now for array indexing
|
|
||||||
* Author: Ceriel J.H. Jacobs
|
|
||||||
* Version: $Header$
|
|
||||||
*/
|
|
||||||
|
|
||||||
#include <em_abs.h>
|
|
||||||
|
|
||||||
extern TRP();
|
|
||||||
|
|
||||||
struct array_descr {
|
|
||||||
int lbound;
|
|
||||||
int n_elts_min_one;
|
|
||||||
unsigned size;
|
|
||||||
};
|
|
||||||
|
|
||||||
rcka(descr, indx)
|
|
||||||
struct array_descr *descr;
|
|
||||||
{
|
|
||||||
if (indx < 0 || indx > descr->n_elts_min_one) TRP(EARRAY);
|
|
||||||
}
|
|
||||||
|
|
@ -1,23 +0,0 @@
|
||||||
/*
|
|
||||||
* (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
*
|
|
||||||
*
|
|
||||||
* Module: range checks for INTEGER
|
|
||||||
* Author: Ceriel J.H. Jacobs
|
|
||||||
* Version: $Header$
|
|
||||||
*/
|
|
||||||
|
|
||||||
#include <em_abs.h>
|
|
||||||
|
|
||||||
extern TRP();
|
|
||||||
|
|
||||||
struct range_descr {
|
|
||||||
int low, high;
|
|
||||||
};
|
|
||||||
|
|
||||||
rcki(descr, val)
|
|
||||||
struct range_descr *descr;
|
|
||||||
{
|
|
||||||
if (val < descr->low || val > descr->high) TRP(ERANGE);
|
|
||||||
}
|
|
||||||
|
|
@ -1,24 +0,0 @@
|
||||||
/*
|
|
||||||
* (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
*
|
|
||||||
*
|
|
||||||
* Module: range checks for LONGINT
|
|
||||||
* Author: Ceriel J.H. Jacobs
|
|
||||||
* Version: $Header$
|
|
||||||
*/
|
|
||||||
|
|
||||||
#include <em_abs.h>
|
|
||||||
|
|
||||||
extern TRP();
|
|
||||||
|
|
||||||
struct range_descr {
|
|
||||||
long low, high;
|
|
||||||
};
|
|
||||||
|
|
||||||
rckil(descr, val)
|
|
||||||
struct range_descr *descr;
|
|
||||||
long val;
|
|
||||||
{
|
|
||||||
if (val < descr->low || val > descr->high) TRP(ERANGE);
|
|
||||||
}
|
|
||||||
|
|
@ -1,24 +0,0 @@
|
||||||
/*
|
|
||||||
* (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
*
|
|
||||||
*
|
|
||||||
* Module: range checks for CARDINAL
|
|
||||||
* Author: Ceriel J.H. Jacobs
|
|
||||||
* Version: $Header$
|
|
||||||
*/
|
|
||||||
|
|
||||||
#include <em_abs.h>
|
|
||||||
|
|
||||||
extern TRP();
|
|
||||||
|
|
||||||
struct range_descr {
|
|
||||||
unsigned low, high;
|
|
||||||
};
|
|
||||||
|
|
||||||
rcku(descr, val)
|
|
||||||
struct range_descr *descr;
|
|
||||||
unsigned val;
|
|
||||||
{
|
|
||||||
if (val < descr->low || val > descr->high) TRP(ERANGE);
|
|
||||||
}
|
|
||||||
|
|
@ -1,24 +0,0 @@
|
||||||
/*
|
|
||||||
* (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
*
|
|
||||||
*
|
|
||||||
* Module: range checks for LONGCARD
|
|
||||||
* Author: Ceriel J.H. Jacobs
|
|
||||||
* Version: $Header$
|
|
||||||
*/
|
|
||||||
|
|
||||||
#include <em_abs.h>
|
|
||||||
|
|
||||||
extern TRP();
|
|
||||||
|
|
||||||
struct range_descr {
|
|
||||||
unsigned long low, high;
|
|
||||||
};
|
|
||||||
|
|
||||||
rckul(descr, val)
|
|
||||||
struct range_descr *descr;
|
|
||||||
unsigned long val;
|
|
||||||
{
|
|
||||||
if (val < descr->low || val > descr->high) TRP(ERANGE);
|
|
||||||
}
|
|
||||||
|
|
@ -1,82 +0,0 @@
|
||||||
/*
|
|
||||||
(c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
*/
|
|
||||||
|
|
||||||
/*
|
|
||||||
Module: Mapping of Unix signals to EM traps
|
|
||||||
(only when not using the MON instruction)
|
|
||||||
Author: Ceriel J.H. Jacobs
|
|
||||||
Version: $Header$
|
|
||||||
*/
|
|
||||||
|
|
||||||
#if !defined(__em22) && !defined(__em24) && !defined(__em44)
|
|
||||||
|
|
||||||
#define EM_trap(n) TRP(n) /* define to whatever is needed to cause the trap */
|
|
||||||
|
|
||||||
#include <signal.h>
|
|
||||||
#include <errno.h>
|
|
||||||
|
|
||||||
int __signo;
|
|
||||||
|
|
||||||
static int __traps[] = {
|
|
||||||
-2, -2, -2, -2, -2, -2, -2, -2, -2, -2, -2, -2, -2, -2, -2, -2,
|
|
||||||
-2, -2, -2, -2, -2, -2, -2, -2, -2, -2, -2, -2, -2, -2, -2, -2,
|
|
||||||
-2, -2, -2, -2, -2, -2, -2, -2, -2, -2, -2, -2, -2, -2, -2, -2,
|
|
||||||
};
|
|
||||||
|
|
||||||
static void
|
|
||||||
__ctchsig(signo)
|
|
||||||
{
|
|
||||||
signal(signo,__ctchsig);
|
|
||||||
#ifdef __BSD4_2
|
|
||||||
sigsetmask(sigblock(0) & ~(1<<(signo - 1)));
|
|
||||||
#endif
|
|
||||||
__signo = signo;
|
|
||||||
EM_trap(__traps[signo]);
|
|
||||||
}
|
|
||||||
|
|
||||||
int
|
|
||||||
sigtrp(trapno, signo)
|
|
||||||
{
|
|
||||||
/* Let Unix signal signo cause EM trap trapno to occur.
|
|
||||||
If trapno = -2, restore default,
|
|
||||||
If trapno = -3, ignore.
|
|
||||||
Return old trapnumber.
|
|
||||||
Careful, this could be -2 or -3; But return value of -1
|
|
||||||
indicates failure, with error number in errno.
|
|
||||||
*/
|
|
||||||
extern int errno;
|
|
||||||
void (*ctch)() = __ctchsig;
|
|
||||||
void (*oldctch)();
|
|
||||||
int oldtrap;
|
|
||||||
|
|
||||||
if (signo <= 0 || signo >= sizeof(__traps)/sizeof(__traps[0])) {
|
|
||||||
errno = EINVAL;
|
|
||||||
return -1;
|
|
||||||
}
|
|
||||||
|
|
||||||
if (trapno == -3)
|
|
||||||
ctch = SIG_IGN;
|
|
||||||
else if (trapno == -2)
|
|
||||||
ctch = SIG_DFL;
|
|
||||||
else if (trapno >= 0 && trapno <= 252)
|
|
||||||
;
|
|
||||||
else {
|
|
||||||
errno = EINVAL;
|
|
||||||
return -1;
|
|
||||||
}
|
|
||||||
|
|
||||||
oldtrap = __traps[signo];
|
|
||||||
|
|
||||||
if ((oldctch = signal(signo, ctch)) == (void (*)())-1) /* errno set by signal */
|
|
||||||
return -1;
|
|
||||||
|
|
||||||
else if (oldctch == SIG_IGN) {
|
|
||||||
signal(signo, SIG_IGN);
|
|
||||||
}
|
|
||||||
else __traps[signo] = trapno;
|
|
||||||
|
|
||||||
return oldtrap;
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
@ -1,27 +0,0 @@
|
||||||
/*
|
|
||||||
(c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
*/
|
|
||||||
|
|
||||||
/*
|
|
||||||
Module: Dummy priority routines
|
|
||||||
Author: Ceriel J.H. Jacobs
|
|
||||||
Version: $Header$
|
|
||||||
*/
|
|
||||||
|
|
||||||
static unsigned prio = 0;
|
|
||||||
|
|
||||||
stackprio(n)
|
|
||||||
unsigned n;
|
|
||||||
{
|
|
||||||
unsigned old = prio;
|
|
||||||
|
|
||||||
if (n > prio) prio = n;
|
|
||||||
return old;
|
|
||||||
}
|
|
||||||
|
|
||||||
unstackprio(n)
|
|
||||||
unsigned n;
|
|
||||||
{
|
|
||||||
prio = n;
|
|
||||||
}
|
|
||||||
|
|
@ -1,43 +0,0 @@
|
||||||
/*
|
|
||||||
(c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
*/
|
|
||||||
|
|
||||||
/*
|
|
||||||
Module: store values from stack, byte by byte
|
|
||||||
Author: Ceriel J.H. Jacobs
|
|
||||||
Version: $Header$
|
|
||||||
*/
|
|
||||||
|
|
||||||
#include <m2_traps.h>
|
|
||||||
|
|
||||||
#ifndef EM_WSIZE
|
|
||||||
#define EM_WSIZE _EM_WSIZE
|
|
||||||
#define EM_PSIZE _EM_PSIZE
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#if EM_WSIZE==EM_PSIZE
|
|
||||||
typedef unsigned pcnt;
|
|
||||||
#else
|
|
||||||
typedef long pcnt;
|
|
||||||
#endif
|
|
||||||
|
|
||||||
store(siz, addr, p)
|
|
||||||
register char *addr;
|
|
||||||
register pcnt siz;
|
|
||||||
{
|
|
||||||
/* Make sure, that a value with a size that could have been
|
|
||||||
handled by the LOI instruction is handled as if it was
|
|
||||||
loaded with the LOI instruction.
|
|
||||||
*/
|
|
||||||
register char *q = (char *) &p;
|
|
||||||
char t[4];
|
|
||||||
|
|
||||||
if (siz < EM_WSIZE && EM_WSIZE % siz == 0) {
|
|
||||||
/* as long as EM_WSIZE <= 4 ... */
|
|
||||||
if (siz != 2) TRP(M2_INTERNAL); /* internal error */
|
|
||||||
*((unsigned short *) (&t[0])) = *((unsigned *) q);
|
|
||||||
q = &t[0];
|
|
||||||
}
|
|
||||||
while (siz--) *addr++ = *q++;
|
|
||||||
}
|
|
||||||
|
|
@ -1,65 +0,0 @@
|
||||||
/*
|
|
||||||
* (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
||||||
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
||||||
*
|
|
||||||
*
|
|
||||||
* Module: CARDINAL operations with overflow checking
|
|
||||||
* Author: Ceriel J.H. Jacobs
|
|
||||||
* Version: $Header$
|
|
||||||
*/
|
|
||||||
|
|
||||||
#ifndef EM_WSIZE
|
|
||||||
#define EM_WSIZE _EM_WSIZE
|
|
||||||
#endif
|
|
||||||
#ifndef EM_LSIZE
|
|
||||||
#define EM_LSIZE _EM_LSIZE
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#include <m2_traps.h>
|
|
||||||
|
|
||||||
#define MAXCARD ((unsigned)-1)
|
|
||||||
#if EM_WSIZE < EM_LSIZE
|
|
||||||
#define MAXLONGCARD ((unsigned long) -1L)
|
|
||||||
#endif
|
|
||||||
|
|
||||||
adduchk(a,b)
|
|
||||||
unsigned a,b;
|
|
||||||
{
|
|
||||||
if (MAXCARD - a < b) TRP(M2_UOVFL);
|
|
||||||
}
|
|
||||||
|
|
||||||
#if EM_WSIZE < EM_LSIZE
|
|
||||||
addulchk(a,b)
|
|
||||||
unsigned long a,b;
|
|
||||||
{
|
|
||||||
if (MAXLONGCARD - a < b) TRP(M2_UOVFL);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
muluchk(a,b)
|
|
||||||
unsigned a,b;
|
|
||||||
{
|
|
||||||
if (a != 0 && MAXCARD/a < b) TRP(M2_UOVFL);
|
|
||||||
}
|
|
||||||
|
|
||||||
#if EM_WSIZE < EM_LSIZE
|
|
||||||
mululchk(a,b)
|
|
||||||
unsigned long a,b;
|
|
||||||
{
|
|
||||||
if (a != 0 && MAXLONGCARD/a < b) TRP(M2_UOVFL);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
subuchk(a,b)
|
|
||||||
unsigned a,b;
|
|
||||||
{
|
|
||||||
if (b < a) TRP(M2_UUVFL);
|
|
||||||
}
|
|
||||||
|
|
||||||
#if EM_WSIZE < EM_LSIZE
|
|
||||||
subulchk(a,b)
|
|
||||||
unsigned long a,b;
|
|
||||||
{
|
|
||||||
if (b < a) TRP(M2_UUVFL);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
@ -1,305 +0,0 @@
|
||||||
# Makefile for lib/libp.
|
|
||||||
|
|
||||||
CFLAGS = -O -I../h -wo
|
|
||||||
CC1 = $(CC) $(CFLAGS) -c
|
|
||||||
|
|
||||||
LIBRARY = ../libp.a
|
|
||||||
all: $(LIBRARY)
|
|
||||||
|
|
||||||
OBJECTS = \
|
|
||||||
$(LIBRARY)(abi.o) \
|
|
||||||
$(LIBRARY)(abl.o) \
|
|
||||||
$(LIBRARY)(abr.o) \
|
|
||||||
$(LIBRARY)(arg.o) \
|
|
||||||
$(LIBRARY)(ass.o) \
|
|
||||||
$(LIBRARY)(asz.o) \
|
|
||||||
$(LIBRARY)(atn.o) \
|
|
||||||
$(LIBRARY)(bcp.o) \
|
|
||||||
$(LIBRARY)(bts.o) \
|
|
||||||
$(LIBRARY)(buff.o) \
|
|
||||||
$(LIBRARY)(catch.o) \
|
|
||||||
$(LIBRARY)(clock.o) \
|
|
||||||
$(LIBRARY)(cls.o) \
|
|
||||||
$(LIBRARY)(cvt.o) \
|
|
||||||
$(LIBRARY)(diag.o) \
|
|
||||||
$(LIBRARY)(dis.o) \
|
|
||||||
$(LIBRARY)(efl.o) \
|
|
||||||
$(LIBRARY)(eln.o) \
|
|
||||||
$(LIBRARY)(encaps.o) \
|
|
||||||
$(LIBRARY)(exp.o) \
|
|
||||||
$(LIBRARY)(fef.o) \
|
|
||||||
$(LIBRARY)(fif.o) \
|
|
||||||
$(LIBRARY)(get.o) \
|
|
||||||
$(LIBRARY)(gto.o) \
|
|
||||||
$(LIBRARY)(head_pc.o) \
|
|
||||||
$(LIBRARY)(hlt.o) \
|
|
||||||
$(LIBRARY)(hol0.o) \
|
|
||||||
$(LIBRARY)(incpt.o) \
|
|
||||||
$(LIBRARY)(ini.o) \
|
|
||||||
$(LIBRARY)(log.o) \
|
|
||||||
$(LIBRARY)(mdi.o) \
|
|
||||||
$(LIBRARY)(mdl.o) \
|
|
||||||
$(LIBRARY)(new.o) \
|
|
||||||
$(LIBRARY)(nfa.o) \
|
|
||||||
$(LIBRARY)(nobuff.o) \
|
|
||||||
$(LIBRARY)(notext.o) \
|
|
||||||
$(LIBRARY)(opn.o) \
|
|
||||||
$(LIBRARY)(outcpt.o) \
|
|
||||||
$(LIBRARY)(pac.o) \
|
|
||||||
$(LIBRARY)(pclose.o) \
|
|
||||||
$(LIBRARY)(pcreat.o) \
|
|
||||||
$(LIBRARY)(pentry.o) \
|
|
||||||
$(LIBRARY)(perrno.o) \
|
|
||||||
$(LIBRARY)(pexit.o) \
|
|
||||||
$(LIBRARY)(popen.o) \
|
|
||||||
$(LIBRARY)(put.o) \
|
|
||||||
$(LIBRARY)(rcka.o) \
|
|
||||||
$(LIBRARY)(rdc.o) \
|
|
||||||
$(LIBRARY)(rdi.o) \
|
|
||||||
$(LIBRARY)(rdl.o) \
|
|
||||||
$(LIBRARY)(rdr.o) \
|
|
||||||
$(LIBRARY)(rf.o) \
|
|
||||||
$(LIBRARY)(rln.o) \
|
|
||||||
$(LIBRARY)(rnd.o) \
|
|
||||||
$(LIBRARY)(sav.o) \
|
|
||||||
$(LIBRARY)(sig.o) \
|
|
||||||
$(LIBRARY)(sin.o) \
|
|
||||||
$(LIBRARY)(sqt.o) \
|
|
||||||
$(LIBRARY)(string.o) \
|
|
||||||
$(LIBRARY)(trap.o) \
|
|
||||||
$(LIBRARY)(trp.o) \
|
|
||||||
$(LIBRARY)(unp.o) \
|
|
||||||
$(LIBRARY)(uread.o) \
|
|
||||||
$(LIBRARY)(uwrite.o) \
|
|
||||||
$(LIBRARY)(wdw.o) \
|
|
||||||
$(LIBRARY)(wf.o) \
|
|
||||||
$(LIBRARY)(wrc.o) \
|
|
||||||
$(LIBRARY)(wrf.o) \
|
|
||||||
$(LIBRARY)(wri.o) \
|
|
||||||
$(LIBRARY)(wrl.o) \
|
|
||||||
$(LIBRARY)(wrr.o) \
|
|
||||||
$(LIBRARY)(wrs.o) \
|
|
||||||
$(LIBRARY)(wrz.o) \
|
|
||||||
|
|
||||||
$(LIBRARY): $(OBJECTS)
|
|
||||||
aal cr $@ *.o
|
|
||||||
rm *.o
|
|
||||||
|
|
||||||
$(LIBRARY)(abi.o): abi.c
|
|
||||||
$(CC1) abi.c
|
|
||||||
|
|
||||||
$(LIBRARY)(abl.o): abl.c
|
|
||||||
$(CC1) abl.c
|
|
||||||
|
|
||||||
$(LIBRARY)(abr.o): abr.c
|
|
||||||
$(CC1) abr.c
|
|
||||||
|
|
||||||
$(LIBRARY)(arg.o): arg.c
|
|
||||||
$(CC1) arg.c
|
|
||||||
|
|
||||||
$(LIBRARY)(ass.o): ass.c
|
|
||||||
$(CC1) ass.c
|
|
||||||
|
|
||||||
$(LIBRARY)(asz.o): asz.c
|
|
||||||
$(CC1) asz.c
|
|
||||||
|
|
||||||
$(LIBRARY)(atn.o): atn.c
|
|
||||||
$(CC1) atn.c
|
|
||||||
|
|
||||||
$(LIBRARY)(bcp.o): bcp.c
|
|
||||||
$(CC1) bcp.c
|
|
||||||
|
|
||||||
$(LIBRARY)(bts.o): bts.e
|
|
||||||
$(CC1) bts.e
|
|
||||||
|
|
||||||
$(LIBRARY)(buff.o): buff.c
|
|
||||||
$(CC1) buff.c
|
|
||||||
|
|
||||||
$(LIBRARY)(catch.o): catch.c
|
|
||||||
$(CC1) catch.c
|
|
||||||
|
|
||||||
$(LIBRARY)(clock.o): clock.c
|
|
||||||
$(CC1) clock.c
|
|
||||||
|
|
||||||
$(LIBRARY)(cls.o): cls.c
|
|
||||||
$(CC1) cls.c
|
|
||||||
|
|
||||||
$(LIBRARY)(cvt.o): cvt.c
|
|
||||||
$(CC1) cvt.c
|
|
||||||
|
|
||||||
$(LIBRARY)(diag.o): diag.c
|
|
||||||
$(CC1) diag.c
|
|
||||||
|
|
||||||
$(LIBRARY)(dis.o): dis.c
|
|
||||||
$(CC1) dis.c
|
|
||||||
|
|
||||||
$(LIBRARY)(efl.o): efl.c
|
|
||||||
$(CC1) efl.c
|
|
||||||
|
|
||||||
$(LIBRARY)(eln.o): eln.c
|
|
||||||
$(CC1) eln.c
|
|
||||||
|
|
||||||
$(LIBRARY)(encaps.o): encaps.e
|
|
||||||
$(CC1) encaps.e
|
|
||||||
|
|
||||||
$(LIBRARY)(exp.o): exp.c
|
|
||||||
$(CC1) exp.c
|
|
||||||
|
|
||||||
$(LIBRARY)(fef.o): fef.e
|
|
||||||
$(CC1) fef.e
|
|
||||||
|
|
||||||
$(LIBRARY)(fif.o): fif.e
|
|
||||||
$(CC1) fif.e
|
|
||||||
|
|
||||||
$(LIBRARY)(get.o): get.c
|
|
||||||
$(CC1) get.c
|
|
||||||
|
|
||||||
$(LIBRARY)(gto.o): gto.e
|
|
||||||
$(CC1) gto.e
|
|
||||||
|
|
||||||
$(LIBRARY)(head_pc.o): head_pc.e
|
|
||||||
$(CC1) head_pc.e
|
|
||||||
|
|
||||||
$(LIBRARY)(hlt.o): hlt.c
|
|
||||||
$(CC1) hlt.c
|
|
||||||
|
|
||||||
$(LIBRARY)(hol0.o): hol0.e
|
|
||||||
$(CC1) hol0.e
|
|
||||||
|
|
||||||
$(LIBRARY)(incpt.o): incpt.c
|
|
||||||
$(CC1) incpt.c
|
|
||||||
|
|
||||||
$(LIBRARY)(ini.o): ini.c
|
|
||||||
$(CC1) ini.c
|
|
||||||
|
|
||||||
$(LIBRARY)(log.o): log.c
|
|
||||||
$(CC1) log.c
|
|
||||||
|
|
||||||
$(LIBRARY)(mdi.o): mdi.c
|
|
||||||
$(CC1) mdi.c
|
|
||||||
|
|
||||||
$(LIBRARY)(mdl.o): mdl.c
|
|
||||||
$(CC1) mdl.c
|
|
||||||
|
|
||||||
$(LIBRARY)(new.o): new.c
|
|
||||||
$(CC1) new.c
|
|
||||||
|
|
||||||
$(LIBRARY)(nfa.o): nfa.c
|
|
||||||
$(CC1) nfa.c
|
|
||||||
|
|
||||||
$(LIBRARY)(nobuff.o): nobuff.c
|
|
||||||
$(CC1) nobuff.c
|
|
||||||
|
|
||||||
$(LIBRARY)(notext.o): notext.c
|
|
||||||
$(CC1) notext.c
|
|
||||||
|
|
||||||
$(LIBRARY)(opn.o): opn.c
|
|
||||||
$(CC1) opn.c
|
|
||||||
|
|
||||||
$(LIBRARY)(outcpt.o): outcpt.c
|
|
||||||
$(CC1) outcpt.c
|
|
||||||
|
|
||||||
$(LIBRARY)(pac.o): pac.c
|
|
||||||
$(CC1) pac.c
|
|
||||||
|
|
||||||
$(LIBRARY)(pclose.o): pclose.c
|
|
||||||
$(CC1) pclose.c
|
|
||||||
|
|
||||||
$(LIBRARY)(pcreat.o): pcreat.c
|
|
||||||
$(CC1) pcreat.c
|
|
||||||
|
|
||||||
$(LIBRARY)(pentry.o): pentry.c
|
|
||||||
$(CC1) pentry.c
|
|
||||||
|
|
||||||
$(LIBRARY)(perrno.o): perrno.c
|
|
||||||
$(CC1) perrno.c
|
|
||||||
|
|
||||||
$(LIBRARY)(pexit.o): pexit.c
|
|
||||||
$(CC1) pexit.c
|
|
||||||
|
|
||||||
$(LIBRARY)(popen.o): popen.c
|
|
||||||
$(CC1) popen.c
|
|
||||||
|
|
||||||
$(LIBRARY)(put.o): put.c
|
|
||||||
$(CC1) put.c
|
|
||||||
|
|
||||||
$(LIBRARY)(rcka.o): rcka.c
|
|
||||||
$(CC1) rcka.c
|
|
||||||
|
|
||||||
$(LIBRARY)(rdc.o): rdc.c
|
|
||||||
$(CC1) rdc.c
|
|
||||||
|
|
||||||
$(LIBRARY)(rdi.o): rdi.c
|
|
||||||
$(CC1) rdi.c
|
|
||||||
|
|
||||||
$(LIBRARY)(rdl.o): rdl.c
|
|
||||||
$(CC1) rdl.c
|
|
||||||
|
|
||||||
$(LIBRARY)(rdr.o): rdr.c
|
|
||||||
$(CC1) rdr.c
|
|
||||||
|
|
||||||
$(LIBRARY)(rf.o): rf.c
|
|
||||||
$(CC1) rf.c
|
|
||||||
|
|
||||||
$(LIBRARY)(rln.o): rln.c
|
|
||||||
$(CC1) rln.c
|
|
||||||
|
|
||||||
$(LIBRARY)(rnd.o): rnd.c
|
|
||||||
$(CC1) rnd.c
|
|
||||||
|
|
||||||
$(LIBRARY)(sav.o): sav.e
|
|
||||||
$(CC1) sav.e
|
|
||||||
|
|
||||||
$(LIBRARY)(sig.o): sig.e
|
|
||||||
$(CC1) sig.e
|
|
||||||
|
|
||||||
$(LIBRARY)(sin.o): sin.c
|
|
||||||
$(CC1) sin.c
|
|
||||||
|
|
||||||
$(LIBRARY)(sqt.o): sqt.c
|
|
||||||
$(CC1) sqt.c
|
|
||||||
|
|
||||||
$(LIBRARY)(string.o): string.c
|
|
||||||
$(CC1) string.c
|
|
||||||
|
|
||||||
$(LIBRARY)(trap.o): trap.e
|
|
||||||
$(CC1) trap.e
|
|
||||||
|
|
||||||
$(LIBRARY)(trp.o): trp.e
|
|
||||||
$(CC1) trp.e
|
|
||||||
|
|
||||||
$(LIBRARY)(unp.o): unp.c
|
|
||||||
$(CC1) unp.c
|
|
||||||
|
|
||||||
$(LIBRARY)(uread.o): uread.c
|
|
||||||
$(CC1) uread.c
|
|
||||||
|
|
||||||
$(LIBRARY)(uwrite.o): uwrite.c
|
|
||||||
$(CC1) uwrite.c
|
|
||||||
|
|
||||||
$(LIBRARY)(wdw.o): wdw.c
|
|
||||||
$(CC1) wdw.c
|
|
||||||
|
|
||||||
$(LIBRARY)(wf.o): wf.c
|
|
||||||
$(CC1) wf.c
|
|
||||||
|
|
||||||
$(LIBRARY)(wrc.o): wrc.c
|
|
||||||
$(CC1) wrc.c
|
|
||||||
|
|
||||||
$(LIBRARY)(wrf.o): wrf.c
|
|
||||||
$(CC1) wrf.c
|
|
||||||
|
|
||||||
$(LIBRARY)(wri.o): wri.c
|
|
||||||
$(CC1) wri.c
|
|
||||||
|
|
||||||
$(LIBRARY)(wrl.o): wrl.c
|
|
||||||
$(CC1) wrl.c
|
|
||||||
|
|
||||||
$(LIBRARY)(wrr.o): wrr.c
|
|
||||||
$(CC1) wrr.c
|
|
||||||
|
|
||||||
$(LIBRARY)(wrs.o): wrs.c
|
|
||||||
$(CC1) wrs.c
|
|
||||||
|
|
||||||
$(LIBRARY)(wrz.o): wrz.c
|
|
||||||
$(CC1) wrz.c
|
|
||||||
|
|
@ -1,23 +0,0 @@
|
||||||
/* $Header$ */
|
|
||||||
/*
|
|
||||||
* (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);
|
|
||||||
}
|
|
||||||
|
|
@ -1,23 +0,0 @@
|
||||||
/* $Header$ */
|
|
||||||
/*
|
|
||||||
* (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);
|
|
||||||
}
|
|
||||||
|
|
@ -1,23 +0,0 @@
|
||||||
/* $Header$ */
|
|
||||||
/*
|
|
||||||
* (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);
|
|
||||||
}
|
|
||||||
|
|
@ -1,56 +0,0 @@
|
||||||
/* $Header$ */
|
|
||||||
/*
|
|
||||||
* (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);
|
|
||||||
}
|
|
||||||
|
|
@ -1,33 +0,0 @@
|
||||||
/* $Header$ */
|
|
||||||
/*
|
|
||||||
* (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);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
@ -1,29 +0,0 @@
|
||||||
/* $Header$ */
|
|
||||||
/*
|
|
||||||
* (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));
|
|
||||||
}
|
|
||||||
|
|
@ -1,72 +0,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$ */
|
|
||||||
|
|
||||||
#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;
|
|
||||||
}
|
|
||||||
|
|
@ -1,30 +0,0 @@
|
||||||
/* $Header$ */
|
|
||||||
/*
|
|
||||||
* (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);
|
|
||||||
}
|
|
||||||
|
|
@ -1,56 +0,0 @@
|
||||||
#
|
|
||||||
; $Header$
|
|
||||||
;
|
|
||||||
; (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 ?
|
|
||||||
|
|
@ -1,35 +0,0 @@
|
||||||
/* $Header$ */
|
|
||||||
/*
|
|
||||||
* (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);
|
|
||||||
}
|
|
||||||
154
lib/libp/catch.c
154
lib/libp/catch.c
|
|
@ -1,154 +0,0 @@
|
||||||
/* $Header$ */
|
|
||||||
/*
|
|
||||||
* (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);
|
|
||||||
}
|
|
||||||
|
|
@ -1,47 +0,0 @@
|
||||||
/* $Header$ */
|
|
||||||
/*
|
|
||||||
* (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
|
|
||||||
);
|
|
||||||
}
|
|
||||||
|
|
@ -1,67 +0,0 @@
|
||||||
/* $Header$ */
|
|
||||||
/*
|
|
||||||
* (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;
|
|
||||||
}
|
|
||||||
119
lib/libp/cvt.c
119
lib/libp/cvt.c
|
|
@ -1,119 +0,0 @@
|
||||||
/* $Header$ */
|
|
||||||
#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
|
|
||||||
|
|
@ -1,34 +0,0 @@
|
||||||
/* $Header$ */
|
|
||||||
/*
|
|
||||||
* (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;
|
|
||||||
}
|
|
||||||
|
|
@ -1,87 +0,0 @@
|
||||||
/* $Header$ */
|
|
||||||
/*
|
|
||||||
* (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;
|
|
||||||
}
|
|
||||||
|
|
@ -1,36 +0,0 @@
|
||||||
/* $Header$ */
|
|
||||||
/*
|
|
||||||
* (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);
|
|
||||||
}
|
|
||||||
Some files were not shown because too many files have changed in this diff Show more
Loading…
Reference in a new issue