; $VER: Install_SVLib V16.1 (12.2.97)
; © 1993-97 by Andreas R. Kleinert.
; This is the Installer Script for superview.library V15+
; Italian strings by Alessandro Basso (cralex@amiga.dei.unipd.it)


(set @app-name "SuperView-Library")
(welcome "SuperView-Library Installation")


; *** english is default language

    (set #Msg_Yes "Yes")
    (set #Msg_No  "No")
    (set #Msg_BasicConfig "What's your basic configuration ?")
    (set #Gfx0  "Not specified (do not change)")
    (set #Gfx1  "Amiga OCS/ECS, no GfxCard")
    (set #Gfx2  "Amiga AGA, no GfxCard")
    (set #Gfx3  "CD-32 AGA, no GfxCard")
    (set #Gfx4  "Card with CyberGraphX emulation")
    (set #Gfx5  "Card with EGS emulation")
    (set #Gfx6  "Picasso II(+)/IV")
    (set #Gfx7  "Retina Z2/BLT Z3")
    (set #Gfx8  "Merlin II")
    (set #Gfx9  "OpalVision")
    (set #Gfx10 "Amiga OCS/ECS/AGA, other GfxCard")
    (set #Msg_CopyEnvConfig "Copying appropriate configuration to ENV:")
    (set #Msg_LibPath "Library Path")
    (set #Msg_InstallingLibs "Copying Libraries...")
    (set #Msg_Ghostscript (cat "\nDo you already have Ghostscript installed ?\n\n"
                               "(When answering with <Yes>, you have to supply\n"
                               " the program's path and name here.)\n"
                         )
    )
    (set #Msg_GSPath "Path and name of Ghostscript executable")
    (set #Msg_MetaView    (cat "\nDo you already have MetaView installed ?\n\n"
                               "(When answering with <Yes>, you have to supply\n"
                               " the program's path and name here.)\n"
                         )
    )
    (set #Msg_MVPath "Path and name of MetaView executable")
    (set #Msg_CatPath "Catalog Path")
    (set #Msg_InstallingCats "Copying catalog files...")
    (set #Msg_VMEM "Now modifying your S:User-Startup for VMem-Support...")
    (set #Msg_VMemPath "Virtual Memory Path")
    (set #Msg_CopyPrefs "Copy SVPrefs to SYS:Prefs ?")
    (set #Msg_PackerSupport "Install PackerSupport right now ?")
    (set #Msg_SQOperators "Install SQ-Operators right now ?")
    (set #Msg_Ready "SuperView-Library has been installed now.\nIf this was an Update, you should\nreboot your computer now.")


(if (= @language "deutsch")
  (
    (set #Msg_Yes "Ja")
    (set #Msg_No  "Nein")
    (set #Msg_BasicConfig "Was ist Ihre Grundkonfiguration ?")
    (set #Gfx0  "Keine Angabe (nichts ändern)")
    (set #Gfx1  "Amiga OCS/ECS, keine Grafikkarte")
    (set #Gfx2  "Amiga AGA, keine Grafikkarte")
    (set #Gfx3  "CD-32 AGA, keine Grafikkarte")
    (set #Gfx4  "Karte mit CyberGraphX-Emulation")
    (set #Gfx5  "Karte mit EGS-Emulation")
    (set #Gfx6  "Picasso II(+)/IV")
    (set #Gfx7  "Retina Z2/BLT Z3")
    (set #Gfx8  "Merlin II")
    (set #Gfx9  "OpalVision")
    (set #Gfx10 "Amiga OCS/ECS/AGA, andere Grafikkarte")
    (set #Msg_CopyEnvConfig "Kopiere notwendige Konfiguration nach ENV:")
    (set #Msg_LibPath "Library-Pfad")
    (set #Msg_InstallingLibs "Kopiere Libraries...")
    (set #Msg_Ghostscript (cat "\nHaben Sie bereits Ghostscript installiert ?\n\n"
                               "(Falls <Ja>, müssen Sie hier nun den\n"
                               " Programmpfad und -namen angeben.)\n"
                         )
    )
    (set #Msg_GSPath "Pfad und Name des Ghostscript-Programmes")
    (set #Msg_MetaView    (cat "\nHaben Sie bereits MetaView installiert ?\n\n"
                               "(Falls <Ja>, müssen Sie hier nun den\n"
                               " Programmpfad und -namen angeben.)\n"
                         )
    )
    (set #Msg_MVPath "Pfad und Name des MetaView-Programmes")
    (set #Msg_CatPath "Katalogpfad")
    (set #Msg_InstallingCats "Kopiere Katalogdateien...")
    (set #Msg_VMEM "Ändere jetzt S:User-Startup für VMem-Unterstützung...")
    (set #Msg_VMemPath "Pfad für virtuellen Speicher")
    (set #Msg_CopyPrefs "SVPrefs nach SYS:Prefs kopieren ?")
    (set #Msg_PackerSupport "Packer-Unterstützung jetzt gleich installieren ?")
    (set #Msg_SQOperators "SQ-Operators jetzt gleich installieren ?")
    (set #Msg_Ready "SuperView-Library wurde installiert.\nFalls dies ein Update war, sollten Sie ggf.\nIhren Rechner nun neu starten.")
  )
)

(if (= @language "italiano")
  (
    (set #Msg_Yes "Si")
    (set #Msg_No  "No")
    (set #Msg_BasicConfig "Qual è la tua configurazione base ?")
    (set #Gfx0  "Non specificata (da non cambiare)")
    (set #Gfx1  "Amiga OCS/ECS, senza SchedaGfx")
    (set #Gfx2  "Amiga AGA, senza SchedaGfx")
    (set #Gfx3  "CD-32 AGA, senza SchedaGfx")
    (set #Gfx4  "Scheda con Emulazione-CyberGraphX")
    (set #Gfx5  "Scheda con Emulazione-EGS")
    (set #Gfx6  "Picasso II(+)/IV")
    (set #Gfx7  "Retina Z2/BLT Z3")
    (set #Gfx8  "Merlin II")
    (set #Gfx9  "OpalVision")
    (set #Gfx10 "Amiga OCS/ECS/AGA, altra SchedaGfx")
    (set #Msg_CopyEnvConfig "Sto copiando configurazione appropriata in ENV:")
    (set #Msg_LibPath "Percorso Libreria")
    (set #Msg_InstallingLibs "Sto copiando Librerie...")
    (set #Msg_Ghostscript (cat "\nHai già installato il Ghostscript ?\n\n"
                               "(Se rispondi con <Si>, dovrai fornire\n"
                               "nome e percorso del programma qui.)\n"
                         )
    )
    (set #Msg_GSPath "Percorso e nome dell'eseguibile Ghostscript")
    (set #Msg_MetaView    (cat "\nHai già installato il MetaView ?\n\n"
                               "(Se rispondi con <Si>, dovrai fornire\n"
                               "nome e percorso del programma qui.)\n"
                         )
    )
    (set #Msg_MVPath "Percorso e nome dell'eseguibile MetaView")
    (set #Msg_CatPath "Percorso Catalogo")
    (set #Msg_InstallingCats "Sto copiando files del catalogo...")
    (set #Msg_VMEM "Ora modifico la tua S:User-Startup per supporto-VMem...")
    (set #Msg_VMemPath "Percorso Memoria Virtuale")
    (set #Msg_CopyPrefs "Copio SVPrefs in SYS:Prefs ?")
    (set #Msg_PackerSupport "Installo Supporto-Packer adesso ?")
    (set #Msg_SQOperators "Installo Operatori-SQ adesso ?")
    (set #Msg_Ready "Libreria-SuperView è stata ora installata.\nSe questo fosse un Aggiornamento, dovresti\neseguire un reboot del tuo computer ora.")
  )
)

; **************************************************************************
; Create/Update basic configuration

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

(set #selectsvdriver (askchoice
                      (prompt #Msg_BasicConfig)
                      (help @askchoice-help)
                      (choices #Gfx0 #Gfx1 #Gfx2 #Gfx3 #Gfx4 #Gfx5 #Gfx6 #Gfx8)
                      (default 1)
                    )
)

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

(if (> #selectsvdriver 0)
  (
    (copyfiles
      (prompt #Msg_CopyEnvConfig)
      (help @copyfiles-help)
      (source #env_source)
      (dest "ENV:")
      (all)
    )
    (copyfiles
      (prompt #Msg_CopyEnvConfig)
      (help @copyfiles-help)
      (source #env_source)
      (dest "ENVARC:")
      (all)
    )
  )
)

(copyfiles
  (prompt #Msg_CopyEnvConfig)
  (help @copyfiles-help)
  (source "env")
  (dest "ENVARC:")
  (all)
)

; **************************************************************************
; Install main libraries

(copylib
  (prompt #Msg_InstallingLibs)
  (help @copylib-help)
  (source "libs/superview.library")
  (set #svlibdir
              (askdir
                     (prompt #Msg_LibPath)
                     (help @askdir-help)
                     (newpath)
                     (default "LIBS:")
              )
  )
  (dest #svlibdir)
)

(delete "LIBS:svobjects/CyberDataType.svobject" (optional force))

(set @default-dest #svlibdir)

(copylib
  (prompt #Msg_InstallingLibs)
  (help @copylib-help)
  (source "libs/superviewsupport.library")
  (dest #svlibdir)
)

; **************************************************************************
; Ask for Ghostscript

(set #gsquest (askchoice
                (prompt #Msg_Ghostscript)
                (help @askchoice-help)
                (choices #Msg_Yes #Msg_No)
                (default 1)
              )
)

(if (= #gsquest 0)
  (
    (set #gspath (askfile
                  (prompt #Msg_GSPath)
                  (help @askfile-help)
                  (default "gs000")
                )
    )
    (set #gspathopt (cat "GS_PATH=" #gspath "\n"))
    (textfile
      (dest "ENV:SuperView-Library/Ghostscript.controlpad")
      (append #gspathopt)
    )
    (copyfiles
      (source "ENV:SuperView-Library/Ghostscript.controlpad")
      (dest "ENVARC:SuperView-Library")
    )
  )
)

; **************************************************************************
; Ask for MetaView

(set #mvquest (askchoice
                (prompt #Msg_MetaView)
                (help @askchoice-help)
                (choices #Msg_Yes #Msg_No)
                (default 1)
              )
)

(if (= #mvquest 0)
  (
    (set #mvpath (askfile
                  (prompt #Msg_MVPath)
                  (help @askfile-help)
                  (default "MetaView")
                )
    )
    (set #mvpathopt (cat "METAVIEW_PATH=" #mvpath "\n"))
    (textfile
      (dest "ENV:SuperView-Library/MetaView.controlpad")
      (append #mvpathopt)
    )
    (copyfiles
      (source "ENV:SuperView-Library/MetaView.controlpad")
      (dest "ENVARC:SuperView-Library")
    )
  )
)

; **************************************************************************
; Install catalogs

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

(copyfiles
  (prompt #Msg_InstallingCats)
  (help @copyfiles-help)
  (source "locale/catalogs")
  (set #svcatdir
              (askdir
                     (prompt #Msg_CatPath)
                     (help @askdir-help)
                     (newpath)
                     (default "SYS:locale/Catalogs")
              )
  )
  (dest #svcatdir)
  (all)
)

; **************************************************************************
; Install library modules

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

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

(copyfiles
  (prompt #Msg_InstallingLibs)
  (help @copyfiles-help)
  (source "libs/svobjects")
  (dest (tackon #svlibdir "svobjects"))
  (pattern "#?")
  (confirm)
  (files)
)

(copyfiles
  (prompt #Msg_InstallingLibs)
  (help @copyfiles-help)
  (source "libs/svdrivers")
  (dest (tackon #svlibdir "svdrivers"))
  (pattern "#?")
  (confirm)
  (files)
)

(copyfiles
  (prompt #Msg_InstallingLibs)
  (help @copyfiles-help)
  (source "libs/svoperators")
  (dest (tackon #svlibdir "svoperators"))
  (pattern "#?")
  (confirm)
  (files)
)

(if (>= #cpu 68020)
  (
    (copyfiles
      (prompt #Msg_InstallingLibs)
      (help @copyfiles-help)
      (source "libs/68030")
      (dest #svlibdir)
      (confirm)
      (all)
    )
  )
)

; **************************************************************************
; Modify User-Startup

(startup "SuperView-Library"
  (prompt #Msg_VMEM)
  (help @startup-help)
  (set vmemdir
              (askdir
                     (prompt #Msg_VMemPath)
                     (help @askdir-help)
                     (newpath)
                     (default "T:")
              )
  )

  (command "Assign VMEM: "vmemdir"\n")
)

; **************************************************************************
; Install SVPrefs

(copyfiles
  (prompt #Msg_CopyPrefs)
  (help @copyfiles-help)
  (source "Prefs")
  (dest "SYS:Prefs")
  (all)
  (confirm)
)

; **************************************************************************
; Ask for Packersupport

(if (exists "PackerSupport")
  (
    (set #ask_ps (askbool (prompt #Msg_PackerSupport) (help @askbool-help) ) )

    (if (= #ask_ps TRUE)
      (
        (copyfiles
          (prompt #Msg_InstallingLibs)
          (help @copyfiles-help)
          (source "PackerSupport/libs/svobjects")
          (dest (tackon #svlibdir "svobjects"))
          (pattern "#?")
          (files)
        )
      )
    )
  )
)

; **************************************************************************
; Ask for SQOperators

(if (exists "SQ-Operators")
  (
    (set #ask_sq (askbool (prompt #Msg_SQOperators) (help @askbool-help) ) )

    (if (= #ask_sq TRUE)
      (
        (copyfiles
          (prompt #Msg_CopyEnvConfig)
          (help @copyfiles-help)
          (source "SQ-Operators/envarc")
          (dest "ENVARC:")
          (all)
        )
        (copyfiles
          (prompt #Msg_InstallingLibs)
          (help @copyfiles-help)
          (source "SQ-Operators/libs/svoperators")
          (dest (tackon #svlibdir "svoperators"))
          (pattern "#?")
          (confirm)
          (files)
        )
      )
    )
  )
)

; **************************************************************************
; EOF ;-)

(exit #Msg_Ready)