; script to install Lyapunov Experiment © 1994 by DeepCore


; Get assignments ----------------------------------------------------------------

(complete 0)

; Choose source directory
(set lyapunov_src
   (askdir
      (prompt "Choose Lyapunov source directory")
      (help "The Lyapunov program and program configuration will be copied "
            "from the Lyapunov source directory into your system.")
      (default "DF0:Lyapunov")
   )
)

; Choose destination directory
(set lyapunov_dest
   (askdir
      (prompt "Where should LYAPUNOV be installed ?")
      (help @askdir-help)
      (newpath)
      (default "DH0:Lyapunov")
   )
)

;Choose Fonts destination directory
(set lyapunov_fonts
   (askdir
      (prompt "Where should Fonts be installed ?")
      (help @askdir-help)
      (newpath)
      (default "FONTS:")
   )
)

; Proceed installation after assignments -----------------------------------------

(set @default-dest lyapunov_dest)

; copy main files
   (copyfiles
      (source (tackon lyapunov_src "Lyapunov"))
      (help "Copy the main program from source to destination")
      (dest lyapunov_dest)
      (files)
      (infos)
   )
(complete 10)

   (copyfiles
      (source (tackon lyapunov_src "Docs/LyapunovFrench.doc"))
      (help @copyfiles-help)
      (dest (tackon lyapunov_dest "Docs"))
      (files)
      (infos)
   )
(complete 20)

   (copyfiles
      (source (tackon lyapunov_src "Docs/LyapunovFrench.dvi"))
      (help @copyfiles-help)
      (dest (tackon lyapunov_dest "Docs") )
      (files)
      (infos)
   )
(complete 30)

   (copyfiles
      (prompt "Copying Palettes archive.")
      (source (tackon lyapunov_src "Palettes.lzh"))
      (help @copyfiles-help)
      (dest lyapunov_dest)
      (files)
   )
(complete 40)

   (copyfiles
      (prompt "Copying Pictures archive.")
      (source (tackon lyapunov_src "Pictures.lzh"))
      (help @copyfiles-help)
      (dest lyapunov_dest)
      (files)
   )
(complete 70)

   (copyfiles
      (prompt "Copying fonts.")
      (source (tackon lyapunov_src "Fonts"))
      (help @copyfiles-help)
      (dest lyapunov_fonts)
      (pattern "#?.#?")
      (files)
   )
(complete 80)

   (makedir (tackon lyapunov_fonts "Thin609"))
   (copyfiles
      (source (tackon lyapunov_src "Fonts/Thin609"))
      (dest (tackon lyapunov_fonts "Thin609") )
      (pattern "#?")
      (files)
   )
(complete 90)

   (copyfiles
      (prompt "Copying ReadMe.doc.")
      (source lyapunov_src)
      (help @copyfiles-help)
      (dest lyapunov_dest)
      (pattern "#?.doc")
      (files)
      (infos)
   )
(complete 100)

; cleanup
; this is not strictly necessary, but doesn't hurt -- there is always
; a default (exit) at the end of any script

(exit "This program require reqtools.library v2.1 from"
      "Nico François (see doc.). You must install it.")