diff options
| -rw-r--r-- | Init5c3.scm | 2 | ||||
| -rw-r--r-- | bld.scm | 59 | ||||
| -rw-r--r-- | build.scm | 15 | ||||
| -rw-r--r-- | debian/changelog | 61 | ||||
| -rw-r--r-- | debian/control | 12 | ||||
| -rw-r--r-- | debian/copyright | 15 | ||||
| -rw-r--r-- | debian/postinst | 6 | ||||
| -rw-r--r-- | debian/postrm | 4 | ||||
| -rw-r--r-- | debian/require.scm.debian | 2 | ||||
| -rwxr-xr-x | debian/rules | 134 |
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*)))) @@ -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: @@ -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 |