46 lines
1.4 KiB
Scheme
Executable File
46 lines
1.4 KiB
Scheme
Executable File
#!/bin/sh
|
|
exec scsh -lel install-lib/load.scm -dm -o install-orion -e install-program-main -s "$0" "$@"
|
|
!#
|
|
|
|
(define-structure install-orion (export install-program-main)
|
|
(open scheme-with-scsh
|
|
install-lib)
|
|
(begin
|
|
(run (scsh -lel module-system-1.0/load.scm -lel interaction-0.2/load.scm
|
|
-lel cml-1.0/load.scm -lel heap-images-1.0/load.scm
|
|
-lel scx-0.3/load.scm -lm src/packages.scm -o main -e main -sfd 0)
|
|
(<< #<<END
|
|
(define (main args)
|
|
(define image-header
|
|
(format #f "#!~a/scsh/scshvm \\\n-o ~a/scsh/scshvm -i\n"
|
|
(lib-dir) (lib-dir)))
|
|
|
|
(with-output-to-file
|
|
"orion.header"
|
|
(lambda ()
|
|
(display image-header)
|
|
(newline)))
|
|
|
|
(dump-scsh-program
|
|
orion-wm "orion.image")
|
|
|
|
(run (cat "orion.header" "orion.image") (> "orion"))
|
|
|
|
(set-file-mode "orion" #o755)
|
|
|
|
(delete-file "orion.header")
|
|
|
|
(delete-file "orion.image"))
|
|
END
|
|
))
|
|
|
|
(define-program "orion" (0 3) ((install-lib-version (1 1)))
|
|
;; Install documentation
|
|
(install-file "doc/user.html" 'doc "html")
|
|
|
|
;; Install Scheme code
|
|
(install-directory-contents "src" 'scheme)
|
|
|
|
;; Install script
|
|
(install-file "orion" 'bin))))
|