aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--Init5c3.scm2
-rw-r--r--bld.scm59
-rw-r--r--build.scm15
-rw-r--r--debian/changelog61
-rw-r--r--debian/control12
-rw-r--r--debian/copyright15
-rw-r--r--debian/postinst6
-rw-r--r--debian/postrm4
-rw-r--r--debian/require.scm.debian2
-rwxr-xr-xdebian/rules134
10 files changed, 301 insertions, 9 deletions
diff --git a/Init5c3.scm b/Init5c3.scm
index 903003e..4f691ac 100644
--- a/Init5c3.scm
+++ b/Init5c3.scm
@@ -383,7 +383,7 @@
(begin
(define (ed . args)
(system (apply string-append
- (or (getenv "EDITOR") "ed")
+ (or (getenv "EDITOR") "editor")
(map (lambda (s) (string-append " " s)) args))))
(set! *features* (cons 'ed *features*))))
diff --git a/bld.scm b/bld.scm
new file mode 100644
index 0000000..b12ecb9
--- /dev/null
+++ b/bld.scm
@@ -0,0 +1,59 @@
+#!/bin/sh
+:;exec ./scmlit -f $0 -e"(bi)" build $*
+
+(require 'build)
+(require 'getopt)
+(require 'getopt-parameters)
+
+(define (build-from-argv argv)
+ (cond ((string? argv)
+ (require 'read-command)
+ (set! argv (call-with-input-string argv read-command))))
+ (let ()
+ (define command (string->symbol (list-ref argv *optind*)))
+ (define argc (length argv))
+ (cond
+ ((pair? argv)
+ (set! *optind* (+ 1 *optind*))
+ ((make-command-server build '*commands*)
+ command
+ (lambda (comname comval options positions arities types
+ defaulters checks aliases)
+ (let* ((params (getopt->parameter-list
+ argc argv options arities types aliases))
+ (fparams (fill-empty-parameters defaulters params)))
+ (cond ((not (list? params)) #f)
+ ((not (check-parameters checks fparams)) #f)
+ ((not (check-arities (map arity->arity-spec arities) fparams))
+ (slib:error 'build-from-argv "arity error" fparams) #f)
+ (else (comval fparams))))))))))
+
+(define (build-from-whole-argv argv)
+ (set! *optind* 0)
+ (set! *optarg* #f)
+ (build-from-argv argv))
+
+(define b build-from-whole-argv)
+
+(define (b*)
+ (require 'read-command)
+ (do ((e (read-command) (read-command)))
+ ((eof-object? e))
+ (cond ((null? e))
+ (else
+ (cond ((not (string-ci=? (car e) "build"))
+ (set! e (cons "build" e))))
+ (write (build-from-whole-argv e))
+ (newline)))
+ (display "build> ")
+ (force-output)))
+
+(define (bi) (build-from-argv *argv*))
+
+(cond (*interactive*
+ (display "type (b \"build <command-line>\") to build") (newline)
+ (display "type (b*) to enter build command loop") (newline)))
+
+;;; Local Variables:
+;;; mode:scheme
+;;; End:
diff --git a/build.scm b/build.scm
index 5a13240..3c45f09 100644
--- a/build.scm
+++ b/build.scm
@@ -221,20 +221,19 @@
(graphics *unknown* "-I/usr/X11/include -DX11" "-lX11"
"/usr/X11/lib/libX11.sa" () ())
(editline *unknown* "" "-lreadline" "/usr/lib/libreadline.a" () ())
- (termcap *unknown* "" "-ltermcap" "/usr/lib/libtermcap.a" () ())
+ (terminfo *unknown* "" "-lncurses" "/usr/lib/libncurses.a" () ())
(debug *unknown* "-g" "-g" #f () ())
(socket *unknown* "" "" #f () ())
(c cygwin32 "" "" "" () ())
(m linux-aout "" "-lm" "/usr/lib/libm.sa" () ())
(c linux-aout "" "-lc" "/usr/lib/libc.sa" () ())
- (dlll linux-aout "-DDLD -DDLD_DYNCM" "-ldld" #f () ("findexec.c"))
- (regex linux-aout "" "" "" () ())
- (curses linux-aout "-I/usr/include/ncurses" "-lncurses"
- "/usr/lib/libncurses.a" () ())
- (nostart linux-aout "" "-nostartfiles" #f ("pre-crt0.c") ())
+ ;; (dlll linux "-DDLD" "-ldld" #f () ("findexec.c"))
+ (regex linux "" "" "" () ())
+ ;; (curses linux "-I/usr/include/ncurses" "-lncurses" "/usr/lib/libncurses.a" () ())
+;; (nostart linux "" "-nostartfiles" #f ("pre-crt0.c") ())
(dump linux-aout "" "/usr/lib/crt0.o" #f ("unexec.c" "gmalloc.c") ())
-
+
(m linux "" "-lm" "/lib/libm.so" () ())
(c linux "" "-lc" "/lib/libc.so" () ())
(dlll linux "-DSUN_DL" "-ldl" #f () ())
@@ -1291,7 +1290,7 @@ file delete and rename, and directory functions.")
`Curses' screen management package.")
(edit-line
- ((c-file "edline.c") (c-lib termcap editline) (compiled-init "init_edline"))
+ ((c-file "edline.c") (c-lib terminfo editline) (compiled-init "init_edline"))
"\
interface to the editline or GNU readline library")
diff --git a/debian/changelog b/debian/changelog
new file mode 100644
index 0000000..c94c8fb
--- /dev/null
+++ b/debian/changelog
@@ -0,0 +1,61 @@
+scm (5c3-5) frozen unstable; urgency=low
+
+ * debian/rules chmod +x's bld.scm. Fixes #30521.
+
+ -- David N. Welton <davidw@efn.org> Fri, 11 Dec 1998 20:21:49 -0800
+
+scm (5c3-4) frozen unstable; urgency=low
+
+ * Made bld.scm executable. Fixes #29578.
+
+ -- David N. Welton <davidw@efn.org> Mon, 30 Nov 1998 20:57:12 -0800
+
+scm (5c3-3) frozen unstable; urgency=low
+
+ * -nw
+ * Fixes #16762.
+ * Fixes #18163.
+ * Fixes #18164.
+ * Fixes #23743.
+ * Fixes #24098.
+ * Fixes #24099.
+ * Fixes #24547.
+
+ -- David N. Welton <davidw@efn.org> Mon, 9 Nov 1998 21:41:29 -0800
+
+scm (5c3-2) frozen unstable; urgency=low
+
+ * Re-uploading for slink freeze.
+
+ -- David N. Welton <davidw@efn.org> Mon, 2 Nov 1998 21:06:01 -0800
+
+scm (5c3-1) unstable; urgency=low
+
+ * New upstream version.
+
+ -- David N. Welton <davidw@efn.org> Thu, 29 Oct 1998 21:37:49 -0800
+
+scm (5b3-1) unstable; urgency=low
+
+ * New maintainer
+ * New version
+ * libc6
+
+ -- Rob Browning <rlb@cs.utexas.edu> Fri, 12 Dec 1997 17:29:42 -0600
+
+scm (4e6-2) unstable; urgency=low
+
+ * Recompiled to use regex0.
+
+ -- Karl Sackett <krs@debian.org> Wed, 18 Dec 1996 13:27:20 -0600
+
+scm (4e6-1) unstable; urgency=low
+
+ * First Debian release.
+ * Makefile.in: scm compiles with regex.
+
+ -- Karl Sackett <krs@debian.org> Fri, 13 Dec 1996 08:55:23 -0600
+
+Local variables:
+mode: debian-changelog
+End:
diff --git a/debian/control b/debian/control
new file mode 100644
index 0000000..9660bb5
--- /dev/null
+++ b/debian/control
@@ -0,0 +1,12 @@
+Source: scm
+Section: devel
+Priority: optional
+Maintainer: David N. Welton <davidw@efn.org>
+Standards-Version: 2.5.0.0
+
+Package: scm
+Architecture: any
+Depends: slib, ${shlibs:Depends}
+Description: A Scheme language interpreter.
+ Scm conforms to Revised^4 Report on the Algorithmic Language Scheme and
+ the IEEE P1178 specification.
diff --git a/debian/copyright b/debian/copyright
new file mode 100644
index 0000000..6189358
--- /dev/null
+++ b/debian/copyright
@@ -0,0 +1,15 @@
+This is the Debian GNU/Linux prepackaged version of scm.
+
+This package was put together by Karl Sackett <krs@debian.org>,
+from sources obtained from:
+
+ ftp://swiss-ftp.ai.mit.edu/archive/scm/scm5b3.tar.gz
+
+For more information see:
+
+ http://www-swiss.ai.mit.edu/~jaffer/SCM.html
+
+License:
+
+scm is distributed under the GNU General Public License. See
+/usr/doc/copyright/GPL.gz for details.
diff --git a/debian/postinst b/debian/postinst
new file mode 100644
index 0000000..f544d8c
--- /dev/null
+++ b/debian/postinst
@@ -0,0 +1,6 @@
+#!/bin/sh
+set -e
+
+install-info --quiet --section "Development" "Development" \
+ --description="A Scheme language interpreter" \
+ /usr/info/scm.info.gz
diff --git a/debian/postrm b/debian/postrm
new file mode 100644
index 0000000..e7f4756
--- /dev/null
+++ b/debian/postrm
@@ -0,0 +1,4 @@
+#!/bin/sh
+set -e
+
+install-info --quiet --remove scm
diff --git a/debian/require.scm.debian b/debian/require.scm.debian
new file mode 100644
index 0000000..06e43e6
--- /dev/null
+++ b/debian/require.scm.debian
@@ -0,0 +1,2 @@
+(define (library-vicinity) "/usr/share/slib/")
+(load (in-vicinity (library-vicinity) "require"))
diff --git a/debian/rules b/debian/rules
new file mode 100755
index 0000000..07e44fa
--- /dev/null
+++ b/debian/rules
@@ -0,0 +1,134 @@
+#! /usr/bin/make -f
+# -*-Makefile-*-
+
+CC =gcc
+CFLAGS =-O2 -g -Wall
+LDFLAGS =
+
+SHELL =/bin/sh
+srcdir =.
+
+INSTALL =/usr/bin/install
+INSTALL_DIR =$(INSTALL) -d -m 755 -o root -g root
+INSTALL_PROGRAM =$(INSTALL) -m 755 -o root -g root
+INSTALL_DATA =$(INSTALL) -m 644 -o root -g root
+INSTALL_MAN =$(INSTALL) -m 444 -o root -g root
+
+SCM_OPTIONS = -p linux --compiler-options=-O2 --compiler-options=-g \
+ -F cautious \
+ -F bignums \
+ -F arrays \
+ -F array-for-each \
+ -F inexact \
+ -F record \
+ -F compiled-closure \
+ -F generalized-c-arguments \
+ -F tick-interrupts \
+ -F i/o-extensions \
+ -F curses \
+ -F edit-line \
+ -F regex \
+ -F socket \
+ -F posix \
+ -F unix \
+ -F dynamic-linking \
+ -F dump \
+ -F heap-can-shrink \
+ -F macro
+
+NON_LIB_FILES = 'bench.scm|build.scm|example.scm|r4rstest.scm|pi.scm'
+
+#test: stamp-configure
+# $(checkdir)
+# make checklit
+
+build:
+ chmod +x bld.scm
+ $(checkdir)
+ cp debian/require.scm.debian require.scm
+ ${MAKE} scmlit
+ test -e /usr/share/slib || \
+ (echo "Must have slib installed for compile" && exit 1)
+# SCHEME_LIBRARY_PATH=/usr/share/slib/ ./build.scm ${SCM_OPTIONS} > debian/bld
+ ./bld.scm ${SCM_OPTIONS} > debian/bld
+ chmod ug+x debian/bld
+ debian/bld
+ -rm -f debian/bld
+ makeinfo scm.texi -o scm.info
+ texi2html -monolithic scm.texi
+ touch build
+
+clean:
+ $(checkdir)
+ -rm scm.info* scm.html tmp1 tmp2 scmflags.h scmlit
+ -rm require.scm scm
+ make distclean
+ -rm -f build debian/bld
+ -rm -rf *~ debian/*~ debian/tmp* debian/files debian/substvars
+
+binary-indep: checkroot
+ $(checkdir)
+
+binary-arch: checkroot build
+ $(checkdir)
+ -rm -rf debian/tmp*
+
+# debian/tmp
+ $(INSTALL_DIR) debian/tmp
+ $(INSTALL_DIR) debian/tmp/DEBIAN
+ $(INSTALL_PROGRAM) debian/postinst debian/tmp/DEBIAN
+ $(INSTALL_PROGRAM) debian/postrm debian/tmp/DEBIAN
+
+# binaries
+ $(INSTALL_DIR) debian/tmp/usr/bin
+ $(INSTALL_PROGRAM) -s scm debian/tmp/usr/bin
+
+# library
+ $(INSTALL_DIR) debian/tmp/usr/lib/scm
+ $(INSTALL_DATA) `ls *.scm | egrep -v ${NON_LIB_FILES}` debian/tmp/usr/lib/scm
+ $(INSTALL_DATA) slibcat debian/tmp/usr/lib/scm
+
+# man pages
+ $(INSTALL_DIR) debian/tmp/usr/man/man1
+ $(INSTALL_MAN) scm.1 debian/tmp/usr/man/man1
+ gzip -9vr debian/tmp/usr/man
+
+# documentation
+ $(INSTALL_DIR) debian/tmp/usr/doc/scm
+ $(INSTALL_DATA) debian/changelog debian/tmp/usr/doc/scm/changelog.Debian
+ $(INSTALL_DATA) ChangeLog debian/tmp/usr/doc/scm
+ $(INSTALL_DATA) QUICKREF debian/tmp/usr/doc/scm
+ $(INSTALL_DATA) README debian/tmp/usr/doc/scm
+ gzip -9v debian/tmp/usr/doc/scm/*
+ $(INSTALL_DATA) scm.html debian/tmp/usr/doc/scm
+ $(INSTALL_DATA) debian/copyright debian/tmp/usr/doc/scm
+
+# examples
+ $(INSTALL_DIR) debian/tmp/usr/doc/scm/examples
+ $(INSTALL_DATA) r4rstest.scm debian/tmp/usr/doc/scm/examples
+ $(INSTALL_DATA) example.scm debian/tmp/usr/doc/scm/examples
+ $(INSTALL_DATA) pi.scm debian/tmp/usr/doc/scm/examples
+ $(INSTALL_DATA) pi.c debian/tmp/usr/doc/scm/examples
+ $(INSTALL_DATA) bench.scm debian/tmp/usr/doc/scm/examples
+ $(INSTALL_DATA) split.scm debian/tmp/usr/doc/scm/examples
+
+# info pages
+ $(INSTALL_DIR) debian/tmp/usr/info
+ $(INSTALL_DATA) scm.info* debian/tmp/usr/info
+ gzip -9 debian/tmp/usr/info/*
+
+ dpkg-shlibdeps scm
+ dpkg-gencontrol
+ dpkg --build debian/tmp ..
+
+define checkdir
+ test -f scm.h -a -f debian/rules
+endef
+
+binary: binary-indep binary-arch
+
+checkroot:
+ $(checkdir)
+ test root = "`whoami`"
+
+.PHONY: clean binary binary-arch binary-indep