28 lines
790 B
Scheme
28 lines
790 B
Scheme
|
#!/bin/sh
|
||
|
|
exec scsh -lel install-lib/load.scm -dm -o install-commander-s -e install-program-main -s "$0" "$@"
|
||
|
|
!#
|
||
|
|
|
||
|
|
(define-structure install-commander-s (export install-program-main)
|
||
|
|
(open scheme-with-scsh
|
||
|
|
install-lib)
|
||
|
|
(begin
|
||
|
|
(define commander-s-template #<<END
|
||
|
|
#!/bin/sh
|
||
|
|
exec scsh -lel afs/load.scm -lel pps/load.scm -lel module-system/load.scm -lel interaction/load.scm -lel cml/load.scm -lm ~a/debug-packages.scm -lel scsh-ncurses-0.2/load.scm -lm ~a/nuit-packages.scm -m nuit -s "$0"
|
||
|
|
!#
|
||
|
|
(nuit)
|
||
|
|
|
||
|
|
END
|
||
|
|
)
|
||
|
|
|
||
|
|
(define-program "commander-s" (0 1) ((install-lib-version (1 1)))
|
||
|
|
(install-directory-contents "scheme" 'scheme)
|
||
|
|
(install-string (format #f commander-s-template
|
||
|
|
(get-directory 'scheme #f) (get-directory 'scheme #f))
|
||
|
|
"commander-s"
|
||
|
|
'bin
|
||
|
|
"."
|
||
|
|
#o555))))
|
||
|
|
|
||
|
|
|