#!/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))))