; $VER: Install_SVLib V11.9 (30.7.95)
; © 1993-95 by Andreas R. Kleinert.
; This is the Installer Script for superview.library V11+

(set MC68x (database "cpu"))
(set @app-name "SuperView-Library")

(makedir "ENV:SuperView-Library")
(makedir "ENVARC:SuperView-Library")

(set selectsvdriver (askchoice
                      (prompt "What's your basic configuration ?")
                      (help @askchoice-help)
                      (choices "ECS, no GfxCard" "AGA" "AGA (CD-32)" "Picasso II" "RetinaZ2/Z3" "Merlin-II" "OpalVision" "CyberGraphics GfxCard" "EGS7 GfxCard" "Other GfxCard (ECS/AGA)" "(do not preset anything)")
                      (default 1)
                    )
)

(if (= selectsvdriver 0) (set env_source "docs/SampleConfigs/env_ECS")           )
(if (= selectsvdriver 1) (set env_source "docs/SampleConfigs/env_AGA")           )
(if (= selectsvdriver 2) (set env_source "docs/SampleConfigs/env_AGA_CD32")      )
(if (= selectsvdriver 3) (set env_source "docs/SampleConfigs/env_PicassoII")     )
(if (= selectsvdriver 4) (set env_source "docs/SampleConfigs/env_Retina")        )
(if (= selectsvdriver 5) (set env_source "docs/SampleConfigs/env_Merlin")        )
(if (= selectsvdriver 6) (set env_source "docs/SampleConfigs/env_OpalVision")    )
(if (= selectsvdriver 7) (set env_source "docs/SampleConfigs/env_CyberGraphics") )
(if (= selectsvdriver 8) (set env_source "docs/SampleConfigs/env_EGS7")          )
(if (= selectsvdriver 9) (set env_source "docs/SampleConfigs/env_GfxCards")      )

(if (<= selectsvdriver 9)
  (
    (copyfiles
      (prompt "Copying selected configuration to ENV: ...")
      (help @copyfiles-help)
      (source env_source)
      (dest "ENV:")
      (all)
    )
    (copyfiles
      (prompt "Copying basic GfxCard configuration to ENVARC: ...")
      (help @copyfiles-help)
      (source env_source)
      (dest "ENVARC:")
      (all)
    )
  )
)

(copyfiles
  (prompt "Installing CPInfo files to ENVARC: ...")
  (help @copyfiles-help)
  (source "env")
  (dest "ENVARC:")
  (all)
)

(copylib
  (prompt "Installing superview.library to LIBS: ...")
  (help @copylib-help)
  (source "libs/superview.library")
  (set svlibdir
              (askdir
                     (prompt "Library Path")
                     (help @askdir-help)
                     (newpath)
                     (default "LIBS:")
              )
  )
  (dest svlibdir)
)

(copylib
  (prompt "Installing superviewsupport.library to LIBS: ...")
  (help @copylib-help)
  (source "libs/superviewsupport.library")
  (dest svlibdir)
)

(makedir "SYS:locale")
(makedir "SYS:locale/catalogs")

(copyfiles
  (prompt "Installing OS 2.1+ catalog files ...")
  (help @copyfiles-help)
  (source "locale/catalogs")
  (set svcatdir
              (askdir
                     (prompt "Catalog Path")
                     (help @askdir-help)
                     (newpath)
                     (default "SYS:locale/Catalogs")
              )
  )
  (dest svcatdir)
  (all)
)

(set svobjectdir   (tackon svlibdir "svobjects"))
(set svdriverdir   (tackon svlibdir "svdrivers"))
(set svoperatordir (tackon svlibdir "svoperators"))

(makedir svobjectdir)
(makedir svdriverdir)
(makedir svoperatordir)

(copyfiles
  (prompt "Installing svobjects to LIBS:svobjects ...")
  (help @copyfiles-help)
  (source "libs/svobjects")
  (dest (tackon svlibdir "svobjects"))
  (pattern "#?")
  (files)
)

(copyfiles
  (prompt "Installing svdrivers to LIBS:svdrivers ...")
  (help @copyfiles-help)
  (source "libs/svdrivers")
  (dest (tackon svlibdir "svdrivers"))
  (pattern "#?")
  (files)
)

(copyfiles
  (prompt "Installing svoperators to LIBS:svoperators ...")
  (help @copyfiles-help)
  (source "libs/svoperators")
  (dest (tackon svlibdir "svoperators"))
  (pattern "#?")
  (files)
)

(if (>= MC68x 68020)
  (copyfiles
    (prompt "Installing special 68020+ versions of some libraries...")
    (help @copyfiles-help)
    (source "libs/68030")
    (dest (tackon svlibdir "svobjects"))
    (all)
  )
)

(if (>= MC68x 68040)
  (copyfiles
    (prompt "Installing special 68040+ versions of some libraries...")
    (help @copyfiles-help)
    (source "libs/68040")
    (dest (tackon svlibdir "svobjects"))
    (all)
  )
)