1995-10-13 23:34:21 -04:00
|
|
|
# Scheme Shell Makefile
|
|
|
|
# Last updated September 1995 by BDC
|
|
|
|
|
|
|
|
# Documentation in files INSTALL and doc/install.txt
|
|
|
|
|
|
|
|
srcdir = @srcdir@
|
|
|
|
VPATH = @srcdir@
|
|
|
|
CC = @CC@
|
|
|
|
DEFS = @DEFS@
|
|
|
|
LIBS = @LIBS@
|
|
|
|
#DBOPEN = @DBOPEN@
|
|
|
|
CFLAGS = @CFLAGS@
|
|
|
|
CPPFLAGS= @CPPFLAGS@ -I$(srcdir)/cig -I$(srcdir)/scsh/regexp
|
|
|
|
INSTALL = @INSTALL@
|
|
|
|
INSTALL_PROGRAM = @INSTALL_PROGRAM@ -c
|
|
|
|
INSTALL_DATA = @INSTALL_DATA@ -c
|
|
|
|
|
|
|
|
LDFLAGS = -g @LDFLAGS@
|
|
|
|
LDFLAGS_AIX= @LDFLAGS_AIX@
|
|
|
|
|
|
|
|
RM = rm -f
|
|
|
|
|
|
|
|
AR = ar cq
|
|
|
|
RANLIB = ranlib
|
|
|
|
|
|
|
|
SHELL = /bin/sh
|
|
|
|
|
|
|
|
prefix = @prefix@
|
|
|
|
exec_prefix = @exec_prefix@
|
|
|
|
bindir = $(exec_prefix)/bin
|
|
|
|
libdir = $(exec_prefix)/lib
|
|
|
|
incdir = $(exec_prefix)/include
|
|
|
|
mandir = $(prefix)/man
|
|
|
|
manext = 1
|
|
|
|
|
|
|
|
# HP 9000 series, if you don't have gcc
|
|
|
|
# CC = cc
|
|
|
|
# CFLAGS = -Aa -O +Obb1800
|
|
|
|
# DEFS = -D_HPUX_SOURCE -Dhpux
|
|
|
|
|
|
|
|
# Ultrix
|
|
|
|
# LDFLAGS = -N
|
|
|
|
|
|
|
|
.c.o:
|
|
|
|
$(CC) -c $(CPPFLAGS) $(DEFS) -I$(srcdir) -I. $(CFLAGS) -o $@ $<
|
|
|
|
|
|
|
|
# You might want to change RUNNABLE to "s48" # NOT -bri
|
|
|
|
RUNNABLE = scsh
|
|
|
|
MANPAGE = $(RUNNABLE).$(manext)
|
|
|
|
LIB = $(libdir)/$(RUNNABLE)
|
|
|
|
|
|
|
|
distdir = /users/ftp/pub/s48
|
|
|
|
#distdir = /net/mini-wheats/fs/admin/ftp/pub/s48
|
|
|
|
|
|
|
|
# If make barfs on this include line, just comment it out. It's only
|
|
|
|
# really needed if you want to build the linker or rebuild initial.image.
|
|
|
|
include $(srcdir)/filenames.make
|
|
|
|
#
|
|
|
|
#NetBSD make wants to see this instead: (or use GNU make on BSD. -bri)
|
|
|
|
#.include "$(srcdir)/filenames.make"
|
|
|
|
|
|
|
|
|
|
|
|
# Static linker:
|
|
|
|
#
|
|
|
|
# You only need the linker if you're going to make changes to the
|
|
|
|
# things that go into the initial.image, which in general means the
|
|
|
|
# files in rts/. If you decide you need to use the linker, then you
|
|
|
|
# gots your choice; it can run in just about any version of Scheme 48
|
|
|
|
# or Pseudoscheme. (It has also been made to run in Scheme->C.) It
|
|
|
|
# doesn't matter a whole lot which Scheme you use as long as it's not
|
|
|
|
# broken or unavailable. The two best choices are:
|
|
|
|
# 1. As below: build the linker on the scheme48vm and scheme48.image
|
|
|
|
# that are in the current directory.
|
|
|
|
# 2. LINKER_VM = $(RUNNABLE) $(BIG_HEAP)
|
|
|
|
# LINKER_RUNNABLE = $(RUNNABLE)
|
|
|
|
# These settings requires you to already have a $(RUNNABLE)
|
|
|
|
# command. This is desirable if you are making changes to the
|
|
|
|
# system that might break scheme48vm and/or scheme48.image. But it
|
|
|
|
# requires you to have squirreled away a previous working version
|
|
|
|
# of scheme48.
|
|
|
|
|
|
|
|
BIG_HEAP = -h 4000000
|
|
|
|
LINKER_VM = ./$(VM) $(BIG_HEAP)
|
|
|
|
LINKER_RUNNABLE = $(LINKER_VM) -i $(IMAGE)
|
|
|
|
LINKER_IMAGE = link/linker.image
|
|
|
|
LINKER = $(LINKER_VM) -i $(LINKER_IMAGE)
|
|
|
|
START_LINKER = echo ,batch; echo ,bench on;
|
|
|
|
|
|
|
|
|
|
|
|
# --------------------
|
|
|
|
# You shouldn't have to change anything below this point.
|
|
|
|
|
|
|
|
# Targets:
|
|
|
|
|
|
|
|
IMAGE = scheme48.image
|
|
|
|
INITIAL = $(srcdir)/initial.image
|
|
|
|
VM = scshvm
|
|
|
|
LIBCIG = cig/lib$(VM).a
|
|
|
|
CIG = cig/cig
|
|
|
|
CIGOBJS = cig/libcig.o cig/libcig1.o
|
|
|
|
SCSHVMHACKS = proc2.o # postgcstub.o
|
|
|
|
SCSHOBJS = \
|
|
|
|
scsh/dirstuff1.o \
|
|
|
|
scsh/fdports1.o \
|
|
|
|
scsh/flock.o scsh/flock1.o \
|
|
|
|
scsh/jcontrol2.o scsh/jcontrol1.o \
|
|
|
|
scsh/machine/stdio_dep.o \
|
|
|
|
scsh/machine/time_dep1.o \
|
|
|
|
scsh/network.o scsh/network1.o \
|
|
|
|
scsh/putenv.o \
|
1995-10-22 08:28:25 -04:00
|
|
|
scsh/rdelim.o \
|
|
|
|
scsh/re.o scsh/re1.o \
|
|
|
|
scsh/regexp/libregexp.a \
|
1995-10-26 16:43:45 -04:00
|
|
|
scsh/select.o scsh/select1.o \
|
1995-10-13 23:34:21 -04:00
|
|
|
scsh/syscalls.o scsh/syscalls1.o \
|
|
|
|
scsh/time.o scsh/time1.o \
|
1995-10-19 04:22:56 -04:00
|
|
|
scsh/tty.o scsh/tty1.o \
|
1995-10-26 16:43:45 -04:00
|
|
|
scsh/userinfo1.o
|
1995-10-13 23:34:21 -04:00
|
|
|
|
|
|
|
# scsh/$(DBOPEN) \
|
|
|
|
# scsh/dbm.o scsh/dbm1.o
|
|
|
|
|
|
|
|
OBJS = unix.o dynload.o prescheme.o extension.o scheme48vm.o \
|
|
|
|
$(CIGOBJS) $(SCSHVMHACKS) $(SCSHOBJS)
|
|
|
|
|
|
|
|
# Sources:
|
|
|
|
|
|
|
|
CONFIG_FILES = interfaces.scm low-packages.scm rts-packages.scm \
|
|
|
|
comp-packages.scm
|
|
|
|
|
|
|
|
# Rules:
|
|
|
|
|
|
|
|
# The following is the first rule and therefore the "make" command's
|
|
|
|
# default target.
|
|
|
|
enough: $(VM) $(IMAGE) script $(LIBCIG) scsh $(MANPAGE) .notify
|
|
|
|
|
|
|
|
# The developers are curious to know. Don't be concerned if this fails.
|
1995-10-22 08:28:25 -04:00
|
|
|
# You may comment these lines out if you wish to be discourteous.
|
1995-10-13 23:34:21 -04:00
|
|
|
.notify: minor-version-number
|
|
|
|
touch .notify
|
|
|
|
-echo SCSH 0.`cat $(srcdir)/scsh/minor-version-number` \
|
|
|
|
Scheme48 0.`cat $(srcdir)/minor-version-number` infestation. \
|
|
|
|
| mail scheme-48-notifications@martigny.ai.mit.edu
|
|
|
|
-echo Another scsh 0.`cat $(srcdir)/scsh/minor-version-number` \
|
|
|
|
infestation. | mail scsh-notifications@martigny.ai.mit.edu
|
|
|
|
|
|
|
|
# This says how to process .scm files with cig to make .c stubs.
|
|
|
|
.SUFFIXES: .scm
|
|
|
|
.scm.c:
|
|
|
|
$(srcdir)/$(VM) -o $(srcdir)/$(VM) -i $(CIG) < $< > $*.c
|
|
|
|
|
1995-10-22 08:28:25 -04:00
|
|
|
# These .h files mediate between the code exported from foo1.c
|
|
|
|
# and imported into foo.scm's stub foo.c.
|
|
|
|
|
|
|
|
scsh/dirstuff1.o: scsh/dirstuff1.h
|
|
|
|
scsh/rdelim.o: scsh/fdports1.h
|
|
|
|
scsh/userinfo1.o: scsh/userinfo1.h
|
|
|
|
|
|
|
|
scsh/fdports1.o scsh/fdports.o: scsh/fdports1.h
|
|
|
|
scsh/flock1.o scsh/flock.o: scsh/flock1.h
|
|
|
|
scsh/network1.o scsh/network.o: scsh/network1.h
|
|
|
|
scsh/re1.o scsh/re.o: scsh/re1.h
|
|
|
|
scsh/select1.o scsh/select.o: scsh/select1.h
|
|
|
|
scsh/syscalls1.o scsh/syscalls.o: scsh/syscalls1.h
|
|
|
|
scsh/time1.o scsh/time.o: scsh/time1.h
|
|
|
|
scsh/tty1.o scsh/tty.o: scsh/tty1.h
|
|
|
|
|
|
|
|
scsh/syscalls.o: scsh/syscalls1.h scsh/dirstuff1.h scsh/fdports1.h \
|
|
|
|
scsh/select1.h scsh/userinfo1.h
|
|
|
|
|
1995-10-13 23:34:21 -04:00
|
|
|
include $(srcdir)/scsh/machine/Makefile.inc
|
|
|
|
#NetBSD make wants to see this instead: (or use GNU make on BSD. -bri)
|
|
|
|
#.include "$(srcdir)/scsh/machine/Makefile.inc"
|
|
|
|
|
|
|
|
$(VM): main.o $(OBJS) $(AIX_P)
|
|
|
|
$(CC) $(LDFLAGS) $(LDFLAGS_AIX) -o $@ main.o $(OBJS) $(LIBS)
|
|
|
|
|
|
|
|
$(LIBCIG): main.o $(OBJS)
|
|
|
|
# $(CC) -r -o $@ main.o $(OBJS)
|
|
|
|
$(RM) $@
|
|
|
|
$(AR) $@ main.o $(OBJS)
|
|
|
|
@echo Do not be alarmed if the following ranlib command
|
|
|
|
@echo fails due to the absence of a ranlib program on your system.
|
|
|
|
-$(RANLIB) $@ || true
|
|
|
|
#If running ranlib fails, probably there is none.
|
|
|
|
#That's ok. So don't stop the build.
|
|
|
|
|
|
|
|
main.o: main.c
|
|
|
|
$(CC) -c -o $@ -DDEFAULT_IMAGE_NAME=\"$(LIB)/scsh.image\" \
|
|
|
|
$(CPPFLAGS) $(CFLAGS) $(srcdir)/main.c
|
|
|
|
scheme48vm.o: scheme48vm.c prescheme.h
|
|
|
|
extension.o: extension.c sysdep.h scheme48.h
|
|
|
|
unix.o: unix.c sysdep.h
|
|
|
|
dynload.o: dynload.c sysdep.h scheme48.h
|
|
|
|
|
|
|
|
# --------------------
|
|
|
|
# Make scheme48.image from initial.image and library .scm files.
|
|
|
|
#
|
|
|
|
# In the following, "make" passes $$USER to the shell as $USER, which
|
|
|
|
# the shell sees as an environment variable reference.
|
|
|
|
#
|
|
|
|
# For bootstrap reasons, initial.image is *not* listed as a source,
|
|
|
|
# even though it really is.
|
|
|
|
|
|
|
|
$(IMAGE): $(VM) env/init-defpackage.scm more-interfaces.scm link-packages.scm \
|
|
|
|
more-packages.scm $(usual-files) initial.debug build-usual-image
|
|
|
|
sh $(srcdir)/build-usual-image "$(srcdir)" "$(LIB)" "$(IMAGE)" \
|
|
|
|
"$(VM)" "$(INITIAL)"
|
|
|
|
|
|
|
|
# Unix man page...
|
|
|
|
|
|
|
|
$(MANPAGE): scsh.man Makefile
|
|
|
|
sed 's=LBIN=$(bindir)=g' $(srcdir)/scsh.man \
|
|
|
|
| sed 's=LLIB=$(LIB)=g' \
|
|
|
|
| sed 's=LSCSH=$(RUNNABLE)=g' >$@
|
|
|
|
-chmod +r $@
|
|
|
|
|
|
|
|
script:
|
|
|
|
(echo '#!/bin/sh'; \
|
|
|
|
echo exec '$(LIB)/$(VM)' -o '$(LIB)/$(VM)' -i '$(LIB)/$(IMAGE)' \"\$$\@\") \
|
|
|
|
> script
|
|
|
|
-chmod +x script
|
|
|
|
|
|
|
|
### Fake targets: all clean install man dist
|
|
|
|
|
|
|
|
install: install-vm install-misc \
|
|
|
|
install-man install-inc install-cig install-scsh
|
|
|
|
|
|
|
|
#install: script install-dirs install-vm install-image install-misc \
|
|
|
|
# install-man install-inc install-cig install-scsh
|
|
|
|
# This is now install-scsh
|
|
|
|
# $(INSTALL_PROGRAM) script $(bindir)/$(RUNNABLE)
|
|
|
|
|
|
|
|
install-dirs:
|
|
|
|
-mkdir $(prefix)
|
|
|
|
-mkdir $(execfix)
|
|
|
|
-mkdir $(bindir)
|
|
|
|
-mkdir $(libdir)
|
|
|
|
-mkdir $(incdir)
|
|
|
|
-mkdir $(mandir)
|
|
|
|
-mkdir $(mandir)/man$(manext)
|
|
|
|
-mkdir $(LIB)
|
|
|
|
-mkdir $(LIB)/cig
|
|
|
|
-mkdir $(LIB)/rts
|
|
|
|
-mkdir $(LIB)/env
|
|
|
|
-mkdir $(LIB)/opt
|
|
|
|
-mkdir $(LIB)/big
|
|
|
|
-mkdir $(LIB)/misc
|
|
|
|
-mkdir $(LIB)/link
|
|
|
|
|
|
|
|
install-vm: $(VM)
|
|
|
|
$(INSTALL_PROGRAM) $(VM) $(LIB)/
|
|
|
|
|
|
|
|
install-image: $(IMAGE)
|
|
|
|
$(INSTALL_DATA) $(IMAGE) $(LIB)/
|
|
|
|
|
|
|
|
install-man: $(MANPAGE)
|
|
|
|
if test -d $(mandir)/man$(manext); \
|
|
|
|
then $(INSTALL_DATA) $(MANPAGE) $(mandir)/man$(manext); \
|
|
|
|
else echo "No man directory, not installing man page"; fi
|
|
|
|
|
|
|
|
install-inc: scheme48.h
|
|
|
|
$(INSTALL_DATA) $(srcdir)/scheme48.h $(incdir)/
|
|
|
|
|
|
|
|
install-cig: cig
|
|
|
|
$(INSTALL_PROGRAM) $(srcdir)/$(CIG) $(LIB)/cig
|
|
|
|
$(INSTALL_PROGRAM) $(srcdir)/$(CIG).image $(LIB)/cig
|
|
|
|
$(INSTALL_DATA) $(srcdir)/$(LIBCIG) $(LIB)/cig
|
|
|
|
$(INSTALL_DATA) $(srcdir)/cig/libcig.h $(LIB)/cig
|
|
|
|
|
|
|
|
install-misc: $(LIB)/rts $(LIB)/env $(LIB)/big $(LIB)/opt \
|
|
|
|
$(LIB)/misc $(LIB)/link
|
|
|
|
for f in $(srcdir)/rts/*num.scm; \
|
|
|
|
do $(INSTALL_DATA) $$f $(LIB)/rts/; done
|
|
|
|
for f in $(srcdir)/env/*.scm; do $(INSTALL_DATA) $$f $(LIB)/env/; done
|
|
|
|
for f in $(srcdir)/big/*.scm; do $(INSTALL_DATA) $$f $(LIB)/big/; done
|
|
|
|
for f in $(srcdir)/opt/*.scm; do $(INSTALL_DATA) $$f $(LIB)/opt/; done
|
|
|
|
for f in $(srcdir)/misc/*.scm; \
|
|
|
|
do $(INSTALL_DATA) $$f $(LIB)/misc/; done
|
|
|
|
for f in $(srcdir)/link/*.scm; \
|
|
|
|
do $(INSTALL_DATA) $$f $(LIB)/link/; done
|
|
|
|
$(INSTALL_DATA) $(srcdir)/rts/jar-defrecord.scm $(LIB)/rts/
|
|
|
|
# -p: Intermediate directories are created as necessary.
|
|
|
|
# -p not portable...it is POSIX 2, bit its not widely available -bri
|
|
|
|
# just added install-dirs
|
|
|
|
$(LIB)/rts:
|
|
|
|
mkdir $(LIB)/rts
|
|
|
|
$(LIB)/env:
|
|
|
|
mkdir $(LIB)/env
|
|
|
|
$(LIB)/opt:
|
|
|
|
mkdir $(LIB)/opt
|
|
|
|
$(LIB)/big:
|
|
|
|
mkdir $(LIB)/big
|
|
|
|
$(LIB)/misc:
|
|
|
|
mkdir $(LIB)/misc
|
|
|
|
$(LIB)/link:
|
|
|
|
mkdir $(LIB)/link
|
|
|
|
|
|
|
|
configure: configure.in
|
|
|
|
cd $(srcdir); autoconf
|
|
|
|
|
|
|
|
clean: clean-scsh
|
|
|
|
-rm -f $(VM) *.o TAGS $(IMAGE) *.tmp script $(MANPAGE) \
|
|
|
|
link/*.image debug/*.image debug/*.debug mini mini-heap.c \
|
|
|
|
cig/*.o $(CIG) $(CIG).image $(LIBCIG)
|
|
|
|
-find . -name "*~" -o -name ".#*" -o -name core -exec rm {} \;
|
|
|
|
|
|
|
|
distclean: clean
|
|
|
|
$(RM) Makefile sysdep.h config.status config.log config.cache \
|
|
|
|
scsh/machine scsh/regexp/Makefile
|
|
|
|
|
|
|
|
man: $(MANPAGE)
|
|
|
|
|
|
|
|
check: $(VM) $(IMAGE) debug/check.scm
|
|
|
|
(echo ,translate =scheme48/ $(srcdir)/; \
|
|
|
|
echo ,config ,load $(srcdir)/debug/test.scm; \
|
|
|
|
echo ,exec ,load $(srcdir)/debug/check.scm; echo ,exec "(done)") \
|
|
|
|
| ./$(VM) -o ./$(VM) -i $(IMAGE) batch
|
|
|
|
|
|
|
|
# --------------------
|
|
|
|
# Rules from here on down are not essential for the basic installation
|
|
|
|
# procedure, and are not expected to work when srcdir is not the
|
|
|
|
# distribution directory.
|
|
|
|
|
|
|
|
all: vm linker
|
|
|
|
$(MAKE) image
|
|
|
|
vm: $(VM)
|
|
|
|
linker: $(LINKER_IMAGE)
|
|
|
|
image: $(INITIAL)
|
|
|
|
$(MAKE) $(IMAGE)
|
|
|
|
|
|
|
|
tags:
|
|
|
|
etags scsh/*.scm scsh/*.c \
|
|
|
|
rts/*.scm bcomp/*.scm *.scm env/*.scm big/*.scm \
|
|
|
|
link/*.scm opt/*.scm debug/*.scm misc/*.scm \
|
|
|
|
vm/*.scm
|
|
|
|
|
|
|
|
# --------------------
|
|
|
|
# Increment the minor version number
|
|
|
|
inc:
|
|
|
|
(cat minor-version-number; echo 1+p) | dc >minor-version-number.tmp
|
|
|
|
mv minor-version-number.tmp minor-version-number
|
|
|
|
echo \(define version-info \"0.`cat minor-version-number`\"\) \
|
|
|
|
>env/version-info.scm
|
|
|
|
|
|
|
|
|
|
|
|
# --------------------
|
|
|
|
# Generate filenames.make from *packages.scm
|
|
|
|
#
|
|
|
|
# This hack traces the module dependencies described in the
|
|
|
|
# various configuration files and converts them into dependency lists
|
|
|
|
# that "make" can use for its purposes.
|
|
|
|
#
|
|
|
|
# Since the distribution comes with a filenames.make, this rule
|
|
|
|
# shouldn't be invoked for simple installations. But it will be used
|
|
|
|
# if you change any of the *-packages.scm files.
|
|
|
|
#
|
|
|
|
# You can actually the forms in filenames.scm to any Scheme
|
|
|
|
# implementation that has syntax-rules and explicit-renaming low-level
|
|
|
|
# macros (e.g., most versions of Scheme 48 and Pseudoscheme).
|
|
|
|
# If there are errors running this script, and you need to debug,
|
|
|
|
# don't use the initial.image, use something that has a reasonable
|
|
|
|
# environment.
|
|
|
|
#
|
|
|
|
# If this fails and you don't feel like debugging or fixing the problem,
|
|
|
|
# try "touch filenames.make" and hope for the best.
|
|
|
|
|
|
|
|
PACKAGES=packages.scm rts-packages.scm alt-packages.scm \
|
|
|
|
comp-packages.scm initial-packages.scm link-packages.scm \
|
|
|
|
more-packages.scm filenames.scm
|
|
|
|
|
|
|
|
filenames.make: $(PACKAGES)
|
|
|
|
$(MAKE) $(VM) PACKAGES=
|
|
|
|
./$(VM) -o ./$(VM) -i $(INITIAL) batch <filenames.scm
|
|
|
|
# or: $(RUNNABLE) -s filenames.scm
|
|
|
|
|
|
|
|
# --------------------
|
|
|
|
# Static linker
|
|
|
|
#
|
|
|
|
# The linker is capable of rebuilding an image from sources, even
|
|
|
|
# across an incompatible change in VM data representations.
|
|
|
|
|
|
|
|
link/linker.image: $(linker-files) alt/init-defpackage.scm
|
|
|
|
(echo ,batch; echo ,bench on; \
|
|
|
|
echo ,open signals handle features; \
|
|
|
|
echo ,open bitwise ascii code-vectors record; \
|
|
|
|
echo ,load $(linker-files); \
|
|
|
|
echo ,load alt/init-defpackage.scm; \
|
|
|
|
echo ,dump link/linker.image) \
|
|
|
|
| $(LINKER_RUNNABLE)
|
|
|
|
|
|
|
|
# Or, to bootstrap from Lucid Common Lisp: (last tested with
|
|
|
|
# Pseudoscheme 2.9 and Scheme 48 version 0.19)
|
|
|
|
|
|
|
|
PSEUDODIR = ../pseudo
|
|
|
|
|
|
|
|
link/linker-in-lucid: link/lucid-script.lisp $(linker-files) \
|
|
|
|
alt/pseudoscheme-features.scm alt/pseudoscheme-record.scm
|
|
|
|
(echo \(defvar pseudoscheme-directory \"$(PSEUDODIR)/\"\); \
|
|
|
|
cat link/lucid-script.lisp; \
|
|
|
|
echo \(dump-linker\) \(lcl:quit\)) \
|
|
|
|
| lisp
|
|
|
|
|
|
|
|
# --------------------
|
|
|
|
# Initial image
|
|
|
|
#
|
|
|
|
# The initial.image is built by the static linker. The image contains
|
|
|
|
# Scheme, the byte-code compiler, and a minimal command processor, but
|
|
|
|
# no debugging environment to speak of.
|
|
|
|
|
|
|
|
$(INITIAL): $(LINKER_IMAGE) $(CONFIG_FILES) initial.scm $(initial-files) \
|
|
|
|
scsh/scsh-read.scm scsh/here.scm # gross and Olin hates it -bri
|
|
|
|
($(START_LINKER) \
|
|
|
|
echo \(load-configuration \"interfaces.scm\"\); \
|
|
|
|
echo \(load-configuration \"packages.scm\"\); \
|
|
|
|
echo \(flatload initial-structures\); \
|
|
|
|
echo \(load \"initial.scm\"\); \
|
|
|
|
echo \(link-initial-system\)) \
|
|
|
|
| $(LINKER)
|
|
|
|
|
|
|
|
# --------------------
|
|
|
|
# Various small images for debugging low-level changes
|
|
|
|
|
|
|
|
LOAD_DEBUG = \
|
|
|
|
$(START_LINKER) \
|
|
|
|
echo \(load-configuration \"interfaces.scm\"\); \
|
|
|
|
echo \(load-configuration \"packages.scm\"\); \
|
|
|
|
echo \(flatload debug-structures\)
|
|
|
|
|
|
|
|
debug/tiny.image: $(LINKER_IMAGE) debug/tiny-packages.scm debug/tiny.scm
|
|
|
|
($(START_LINKER) \
|
|
|
|
echo \(load-configuration \"debug/tiny-packages.scm\"\); \
|
|
|
|
echo \(link-simple-system \'\(debug tiny\) \'start tiny-system\)) \
|
|
|
|
| $(LINKER)
|
|
|
|
|
|
|
|
debug/little.image: $(LINKER_IMAGE) $(CONFIG_FILES) debug-packages.scm
|
|
|
|
($(LOAD_DEBUG); echo \(link-little-system\)) \
|
|
|
|
| time $(LINKER)
|
|
|
|
|
|
|
|
debug/mini.image: $(LINKER_IMAGE) $(CONFIG_FILES)
|
|
|
|
($(LOAD_DEBUG); echo \(link-mini-system\)) \
|
|
|
|
| $(LINKER)
|
|
|
|
|
|
|
|
debug/medium.image: $(LINKER_IMAGE) $(CONFIG_FILES)
|
|
|
|
($(LOAD_DEBUG); echo \(flatload compiler-structures\); \
|
|
|
|
echo \(link-medium-system\)) \
|
|
|
|
| $(LINKER)
|
|
|
|
|
|
|
|
smain.o: main.c
|
|
|
|
$(CC) -c $(CPPFLAGS) $(CFLAGS) -DSTATIC_AREAS -o $@ $(srcdir)/main.c
|
|
|
|
|
|
|
|
mini: mini-heap.o smain.o
|
|
|
|
$(CC) $(LDFLAGS) -o $@ smain.o mini-heap.o $(OBJS) $(LIBS)
|
|
|
|
mini-heap.o: mini-heap.c
|
|
|
|
$(CC) -c $(CPPFLAGS) $(CFLAGS) -o $@ $(srcdir)/mini-heap.c
|
|
|
|
mini-heap.c: debug/mini1.image
|
|
|
|
(echo ,batch on; \
|
|
|
|
echo ,exec ,load misc/load-static.scm; \
|
|
|
|
echo \(do-it 150000 \"$(srcdir)/debug/mini1.image\" \"$@\"\)) \
|
|
|
|
| ./$(VM) -o ./$(VM) -h 3000000 -i $(IMAGE)
|
|
|
|
debug/mini1.image: $(VM) debug/mini.image
|
|
|
|
echo "(write-image \"debug/mini1.image\" \
|
|
|
|
(usual-resumer (lambda (args) \
|
|
|
|
(command-processor #f args))) \
|
|
|
|
\"foo\")" \
|
|
|
|
| ./$(VM) -i debug/mini.image
|
|
|
|
|
|
|
|
# --------------------
|
|
|
|
# Generate scheme48.h from VM sources
|
|
|
|
|
|
|
|
scheme48.h: vm/arch.scm vm/data.scm link/generate-c-header.scm
|
|
|
|
(echo ,bench; \
|
|
|
|
echo ,load-package big-scheme; echo ,open big-scheme; \
|
|
|
|
echo ,load link/generate-c-header.scm; \
|
|
|
|
echo \(make-c-header-file \"$@\" \
|
|
|
|
\"$(srcdir)/vm/arch.scm\" \"$(srcdir)/vm/data.scm\"\)) \
|
|
|
|
| $(RUNNABLE) -s-
|
|
|
|
|
|
|
|
#scheme48vm.c: $(vm-files)
|
|
|
|
# prescheme $(srcdir)/vm/compile-vm
|
|
|
|
|
|
|
|
cig: $(CIG) $(CIG).image $(LIBCIG)
|
|
|
|
|
|
|
|
$(CIG): $(VM) $(IMAGE) $(srcdir)/cig/cig.scm $(srcdir)/cig/libcig.scm
|
|
|
|
(echo ",batch"; \
|
|
|
|
echo ",translate =scheme48/ $(srcdir)/"; \
|
|
|
|
echo ",config ,load $(srcdir)/cig/cig.scm"; \
|
|
|
|
echo ",config ,load $(srcdir)/cig/libcig.scm"; \
|
|
|
|
echo ",load-package cig-standalone"; \
|
|
|
|
echo ",in cig-standalone"; \
|
|
|
|
echo ",translate =scheme48/ $(LIB)/"; \
|
|
|
|
echo ",build cig-standalone-toplevel /tmp/cig") \
|
|
|
|
| ./$(VM) -i ./$(IMAGE)
|
|
|
|
$(srcdir)/cig/image2script $(LIB)/$(VM) </tmp/cig > $(CIG)
|
|
|
|
-chmod +x $(CIG)
|
|
|
|
$(RM) /tmp/cig
|
|
|
|
|
|
|
|
$(CIG)2:
|
|
|
|
(echo ",batch"; \
|
|
|
|
echo ",translate =scheme48/ $(srcdir)/"; \
|
|
|
|
echo ",config ,load $(srcdir)/cig/cig2.scm"; \
|
|
|
|
echo ",config ,load $(srcdir)/cig/libcig.scm"; \
|
|
|
|
echo ",load-package cig-standalone"; \
|
|
|
|
echo ",in cig-standalone"; \
|
|
|
|
echo ",translate =scheme48/ $(LIB)/"; \
|
|
|
|
echo '(dump-scsh-program cig-standalone-toplevel "/tmp/cig")') \
|
|
|
|
| ./$(VM) -o ./$(VM) -i ./scsh/scsh.image
|
|
|
|
$(srcdir)/cig/image2script $(LIB)/$(VM) </tmp/cig > $(CIG)2
|
|
|
|
-chmod +x $(CIG)2
|
|
|
|
$(RM) /tmp/cig
|
|
|
|
|
|
|
|
$(CIG).image: $(IMAGE) $(VM) $(srcdir)/cig/cig.scm $(srcdir)/cig/libcig.scm
|
|
|
|
(echo ",batch"; \
|
|
|
|
echo ",translate =scheme48/ $(srcdir)/"; \
|
|
|
|
echo ",config ,load $(srcdir)/cig/cig.scm"; \
|
|
|
|
echo ",config ,load $(srcdir)/cig/libcig.scm"; \
|
|
|
|
echo ",load-package cig-aux"; \
|
|
|
|
echo ",open define-foreign-syntax"; \
|
|
|
|
echo ",translate =scheme48/ $(LIB)/"; \
|
|
|
|
echo ",dump /tmp/cig \"(CIG Preloaded -bri)\"") \
|
|
|
|
| ./$(VM) -o ./$(VM) -i ./$(IMAGE)
|
|
|
|
$(srcdir)/cig/image2script $(LIB)/$(VM) \
|
|
|
|
-o $(LIB)/$(VM) \
|
|
|
|
</tmp/cig > $(CIG).image
|
|
|
|
-chmod +x $(CIG).image
|
|
|
|
$(RM) /tmp/cig
|
|
|
|
|
|
|
|
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
|
|
|
|
# SCSH Specifics
|
|
|
|
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
|
|
|
|
scsh: cig scsh/scsh scsh/scsh.image
|
|
|
|
|
1995-10-22 08:28:25 -04:00
|
|
|
SCHEME =scsh/awk.scm \
|
|
|
|
scsh/char-set.scm \
|
|
|
|
scsh/defrec.scm \
|
|
|
|
scsh/enumconst.scm \
|
1995-10-13 23:34:21 -04:00
|
|
|
scsh/fdports.scm \
|
|
|
|
scsh/fileinfo.scm \
|
|
|
|
scsh/filemtch.scm \
|
|
|
|
scsh/filesys.scm \
|
|
|
|
scsh/flock.scm \
|
|
|
|
scsh/fname.scm \
|
1995-10-22 08:28:25 -04:00
|
|
|
scsh/fr.scm \
|
1995-10-13 23:34:21 -04:00
|
|
|
scsh/glob.scm \
|
1995-10-22 08:28:25 -04:00
|
|
|
scsh/here.scm \
|
1995-10-13 23:34:21 -04:00
|
|
|
scsh/machine/bufpol.scm \
|
|
|
|
scsh/machine/errno.scm \
|
|
|
|
scsh/machine/fdflags.scm \
|
|
|
|
scsh/machine/netconst.scm \
|
|
|
|
scsh/machine/packages.scm \
|
|
|
|
scsh/machine/signals.scm \
|
|
|
|
scsh/machine/time_dep.scm \
|
1995-10-19 04:22:56 -04:00
|
|
|
scsh/machine/tty-consts.scm \
|
|
|
|
scsh/machine/waitcodes.scm \
|
1995-10-25 04:04:36 -04:00
|
|
|
scsh/meta-arg.scm \
|
1995-10-13 23:34:21 -04:00
|
|
|
scsh/network.scm \
|
|
|
|
scsh/newports.scm \
|
|
|
|
scsh/procobj.scm \
|
1995-10-26 16:43:45 -04:00
|
|
|
scsh/pty.scm \
|
1995-10-22 08:28:25 -04:00
|
|
|
scsh/rdelim.scm \
|
1995-10-13 23:34:21 -04:00
|
|
|
scsh/re.scm \
|
|
|
|
scsh/rw.scm \
|
|
|
|
scsh/scsh-condition.scm \
|
|
|
|
scsh/scsh-interfaces.scm \
|
|
|
|
scsh/scsh-package.scm \
|
1995-10-22 08:28:25 -04:00
|
|
|
scsh/scsh-read.scm \
|
|
|
|
scsh/scsh-version.scm \
|
1995-10-13 23:34:21 -04:00
|
|
|
scsh/scsh.scm \
|
|
|
|
scsh/select.scm \
|
1995-10-22 08:28:25 -04:00
|
|
|
scsh/startup.scm \
|
1995-10-13 23:34:21 -04:00
|
|
|
scsh/stringcoll.scm \
|
|
|
|
scsh/syntax-helpers.scm \
|
|
|
|
scsh/syntax.scm \
|
|
|
|
scsh/syscalls.scm \
|
|
|
|
scsh/time.scm \
|
|
|
|
scsh/top.scm \
|
1995-10-19 04:22:56 -04:00
|
|
|
scsh/tty.scm \
|
1995-10-13 23:34:21 -04:00
|
|
|
scsh/utilities.scm
|
|
|
|
|
1995-10-22 08:28:25 -04:00
|
|
|
# scsh/dbm.scm db.scm ndbm.scm
|
|
|
|
# static.scm static-heap.scm static1.scm
|
|
|
|
# jcontrol
|
1995-10-13 23:34:21 -04:00
|
|
|
|
|
|
|
# Bogus, but it makes the scm->c->o two-ply dependency work.
|
|
|
|
# Explicitly giving the .o/.c dependency also makes it go.
|
|
|
|
############################################################
|
1995-10-30 02:08:34 -05:00
|
|
|
cig/libcig.c: cig/libcig.scm
|
1995-10-13 23:34:21 -04:00
|
|
|
scsh/flock.c: scsh/flock.scm
|
1995-10-14 00:01:39 -04:00
|
|
|
scsh/jcontrol2.c: scsh/jcontrol2.scm
|
1995-10-13 23:34:21 -04:00
|
|
|
scsh/network.c: scsh/network.scm
|
1995-10-14 00:01:39 -04:00
|
|
|
scsh/rdelim.c: scsh/rdelim.scm
|
1995-10-13 23:34:21 -04:00
|
|
|
scsh/re.c: scsh/re.scm
|
|
|
|
scsh/select.c: scsh/select.scm
|
|
|
|
scsh/syscalls.c: scsh/syscalls.scm
|
1995-10-17 00:32:59 -04:00
|
|
|
scsh/tty.c: scsh/tty.scm
|
1995-10-13 23:34:21 -04:00
|
|
|
scsh/time.c: scsh/time.scm
|
|
|
|
|
|
|
|
scsh/scsh: scsh/scsh-tramp.c
|
|
|
|
$(CC) -o $@ $(CPPFLAGS) $(CFLAGS) \
|
|
|
|
-DVM=\"$(LIB)/$(VM)\" \
|
|
|
|
-DIMAGE=\"$(LIB)/scsh.image\" \
|
|
|
|
scsh/scsh-tramp.c
|
|
|
|
|
|
|
|
scsh/scsh.image: $(VM) $(SCHEME) $(CIG).image
|
|
|
|
(echo ",translate =scheme48/ $(srcdir)/"; \
|
|
|
|
echo ",batch on"; \
|
|
|
|
echo ",open externals"; \
|
|
|
|
echo "(lookup-all-externals)"; \
|
|
|
|
echo ",config"; \
|
|
|
|
echo ",load $(srcdir)/scsh/scsh-interfaces.scm"; \
|
|
|
|
echo ",load $(srcdir)/scsh/machine/packages.scm"; \
|
|
|
|
echo ",load $(srcdir)/scsh/scsh-package.scm"; \
|
|
|
|
echo ",user"; \
|
|
|
|
echo ",load-package scsh"; \
|
|
|
|
echo ",load-package scsh-here-string-hax"; \
|
|
|
|
echo ",open scsh"; \
|
|
|
|
echo ",translate =scheme48/ $(LIB)/"; \
|
|
|
|
echo "(dump-scsh \"scsh/scsh.image\")") \
|
|
|
|
| ./$(VM) -o ./$(VM) -i $(CIG).image
|
|
|
|
|
|
|
|
# Removed these lines from scsh/scsh.image rule so you don't lose so
|
|
|
|
# badly when you are debugging in scsh. -Olin 6/95
|
|
|
|
# echo ",flush";
|
|
|
|
# echo ",flush maps source names files table";
|
|
|
|
|
|
|
|
#scsh/scsh.runnable: scsh/scsh.image
|
|
|
|
# cig/image2script $(LIB)/$(VM) -o $(LIB)/$(VM) -h 1800000 \
|
|
|
|
# < scsh/scsh.image > $@
|
|
|
|
# -chmod +x $@
|
|
|
|
|
|
|
|
scsh/regexp/libregexp.a:
|
|
|
|
cd scsh/regexp; $(MAKE)
|
|
|
|
|
|
|
|
# SCSH static heaps
|
|
|
|
.SUFFIXES: .scm .image .a .vm
|
|
|
|
|
|
|
|
.image.a:
|
|
|
|
$(RM) $@
|
|
|
|
(echo ",batch on"; \
|
|
|
|
echo ",config ,load vm/ps-interface.scm"; \
|
|
|
|
echo ",config ,load vm/interfaces.scm"; \
|
|
|
|
echo ",config ,load vm/package-defs.scm"; \
|
|
|
|
echo ",config ,load vm/s48-package-defs.scm"; \
|
|
|
|
echo ",load-package bigbit"; \
|
|
|
|
echo ",load-package destructuring"; \
|
|
|
|
echo ",load-package heap"; \
|
|
|
|
echo ",in heap"; \
|
|
|
|
echo "(define (newspace-begin) *newspace-begin*)"; \
|
|
|
|
echo "(define (heap-pointer) *hp*)"; \
|
|
|
|
echo ",structure heap-extra (export newspace-begin"; \
|
|
|
|
echo " heap-pointer"; \
|
|
|
|
echo " header-a-units"; \
|
|
|
|
echo " d-vector? "; \
|
|
|
|
echo " stob-type)"; \
|
|
|
|
echo ",config"; \
|
|
|
|
echo "(define-structure static (export scsh-do-it"; \
|
|
|
|
echo " test"; \
|
|
|
|
echo " do-it)"; \
|
|
|
|
echo " (open scheme heap memory data stob struct"; \
|
|
|
|
echo " heap-extra"; \
|
|
|
|
echo " vm-architecture"; \
|
|
|
|
echo " formats"; \
|
|
|
|
echo " enumerated"; \
|
|
|
|
echo " signals"; \
|
|
|
|
echo " tables"; \
|
|
|
|
echo " defrec-package"; \
|
|
|
|
echo " externals"; \
|
|
|
|
echo " scsh)"; \
|
|
|
|
echo " (files (scsh static)))"; \
|
|
|
|
echo ",user"; \
|
|
|
|
echo ",load-package static"; \
|
|
|
|
echo ",open static"; \
|
|
|
|
echo \(scsh-do-it \"$<\" \"/homes/bdc/tmp\" \"$@\" \
|
|
|
|
\"$(CC) -c\" \"$(AR)\" \)) \
|
|
|
|
| ./$(VM) -o ./$(VM) -h 4000000 -i scsh/scsh.image
|
|
|
|
@echo Do not be alarmed if the following ranlib command
|
|
|
|
@echo fails due to the absence of a ranlib program on your system.
|
|
|
|
-$(RANLIB) $@ || true
|
|
|
|
#If running ranlib fails, probably there is none.
|
|
|
|
#That's ok. So don't stop the build.
|
|
|
|
|
|
|
|
.a.vm:
|
|
|
|
$(CC) $(LDFLAGS) -o $@ smain.o $< $(OBJS) $(LIBS)
|
|
|
|
|
|
|
|
install-scsh: scsh
|
|
|
|
$(INSTALL_PROGRAM) $(srcdir)/scsh/scsh.image $(LIB)/scsh.image
|
|
|
|
$(INSTALL_PROGRAM) $(srcdir)/scsh/scsh $(LIB)/$(RUNNABLE)
|
|
|
|
# -mkdir $(bindir)
|
|
|
|
$(RM) $(bindir)/$(RUNNABLE)
|
|
|
|
ln -s $(LIB)/$(RUNNABLE) $(bindir)/$(RUNNABLE)
|
|
|
|
|
|
|
|
clean-scsh:
|
|
|
|
$(RM) scsh/*.o scsh/regexp/*.o scsh/*.image scsh/scsh install
|
|
|
|
-cd scsh/regexp; $(MAKE) clean
|