29 lines
746 B
Scheme
Executable File
29 lines
746 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")
|
|
|
|
;; Create the COPYING file from the AUTHORS files.
|
|
(define sunterlib-COPYING
|
|
(lambda ()
|
|
(string-append
|
|
(call-with-input-file "build/header.scm" port->string)
|
|
(apply
|
|
string-append
|
|
(delete-duplicates
|
|
(cons (get-copyrights)
|
|
(map (lambda (dir)
|
|
(with-cwd dir (get-copyrights)))
|
|
(append s48-dirs scsh-dirs)))))
|
|
license)))
|
|
|
|
(with-current-output-port
|
|
(open-output-file "COPYING")
|
|
(display (sunterlib-COPYING)))
|