36 lines
1006 B
Scheme
Executable File
36 lines
1006 B
Scheme
Executable File
#! /bin/sh
|
|
exec scsh -o filenames -s "$0" "$@"
|
|
!#
|
|
|
|
;;; This file is part of the Scheme Untergrund Library. For copyright
|
|
;;; information, see the file COPYING which comes with the
|
|
;;; distribution.
|
|
|
|
(load "build/common.scm")
|
|
(load "build/dirs.scm")
|
|
|
|
(define version (map string->number command-line-arguments))
|
|
|
|
(define entry
|
|
(lambda (dir)
|
|
(display "(load-package-in \"")
|
|
(display dir)
|
|
(display "\")\n")))
|
|
|
|
(with-current-output-port
|
|
(open-output-file "pkg-def.scm")
|
|
(display (call-with-input-file "build/header.scm" port->string))
|
|
(display (call-with-input-file "build/common.scm" port->string))
|
|
(display "\n(define-package \"sunterlib\"\n ")
|
|
(display version)
|
|
(display "\n ()
|
|
(install-file \"COPYING\" 'doc)
|
|
(install-file \"DETAILS\" 'doc)
|
|
(install-file \"NEWS\" 'doc)
|
|
(install-file \"README\" 'doc)
|
|
(install-file \"README.contrib\" 'doc))\n")
|
|
(display "\n;; S48 LIBRARIES\n\n")
|
|
(for-each entry s48-dirs)
|
|
(display "\n;; SCSH LIBRARIES\n\n")
|
|
(for-each entry scsh-dirs))
|