[unix-history] / usr / doc / lisp / ch8auxf.sh

cat ch8auxf.f
f77 -c ch8auxf.f
lisp
(cfasl 'ch8auxf.o '_ffoo_ 'ffoo "real-function" "-lF77 -lI77")
(array test fixnum-block 2)
(store (test 0) 10)
(store (test 1) 11)
(ffoo 385 (getd 'test) 5.678)
(test 0)
Commit	Line	Data
3d6d4647 C	1	cat ch8auxf.f
	2	f77 -c ch8auxf.f
	3	lisp
	4	(cfasl 'ch8auxf.o '_ffoo_ 'ffoo "real-function" "-lF77 -lI77")
	5	(array test fixnum-block 2)
	6	(store (test 0) 10)
	7	(store (test 1) 11)
	8	(ffoo 385 (getd 'test) 5.678)
	9	(test 0)