;
; InfraRexx 1.6 Installer Script
; $VER: InfraRexx_Install 1.1 (7.4.95)
;
(message
  "\nWelcome to the\nInfraRexx Installer Utility\n\n"
  "This program will install\n"
  "InfraRexx release 1.6.\n"
  "\n"
  "The 'Help...' button will provide\n"
  "help during the installation.\n"
  "\n"
  "InfraRexx and InfraJoy are\n"
  "© 1994-1995 by Leon Woestenberg\n"
  "(Digital Disturbance) and\n"
  "Jeroen Steenblik.\n"
)
(welcome)

;
; check AmigaOS version
;
(transcript "Checking AmigaOS version...")
(if
  (<
    (/
      (getversion)
      65536
    )
    37
  )
  (
    (transcript "Aborting because AmigaOS Release 2.04 (or higher) is not available.")
    (abort "\nInfraRexx requires at least AmigaOS Release 2.04 to run.\n\n"
           "Press the Proceed button to abort the installation procedure.")

  )
  (transcript "AmigaOS version 2.04 (or higher) found. Proceeding.")
)
(complete 0)

;
; Ask for the version of the used hardware
;
(set hardware-choice
  (askchoice
    (prompt "What hardware is used?\n(Use 'Help' for more information)")
    (help "About the hardware:\n"
          "    InfraRexx requires a small hardware extension in order to "
          "operate. Due to the availability of several hardware versions "
          "the software has to be configured to use the correct version.\n"
          "\n"
          "Determining the hardware version:\n"
          "    If you have ordered the hardware directly from the authors, you "
          "can read the version number from the print circuit board. If there's "
          "no version indication, you have an InfraJoy v1 design.\n"
          "\n"
          "    If you built (or later patched) the hardware yourself, check the "
          "building (or patch) documentation to determine the version number.\n"
          "\n"
          "    If you have no hardware yet, you can either order it from the authors "
          "or build it yourself. See the documentation for more information on this. "
          "If you choose to install the software now, please select the latest version number.\n"
          "\n"
          @askchoice-help
    )
    (choices
      "InfraJoy v1"
      "InfraJoy v2"
      "InfraJoy v3"
      "InfraJoy v4"
    )
    (default 3)
  )
)

;
; Ask where to install the InfraRexx drawer
;
(set infrarexx-dest
  (tackon
    (askdir
      (prompt "Where should the InfraRexx drawer be installed?")
      (help
        "InfraRexx Destination:\n"
        "    Please choose a place on your (hard)disk where you would like "
        "the InfraRexx software, and documentation to be installed. A new "
        "drawer called 'InfraRexx' will be created there, and most of the "
        "files will be copied there.\n"
        "\n"
      @askdir-help)
      (default @default-dest)
    )
    "InfraRexx"
  )
)
(set @default-dest infrarexx-dest)
(complete 10)

;
; Ask whether to install MagicWB icons
;
(set magicwb-bool
  (askbool
    (prompt
      "Install MagicWB icons?\n\n"
      "Slick looking icons for the MagicWB look.\n\n"
      "NewIcons wanted for the next release. Anyone? :_)\n"
    )
    (help
       "MagicWB Icons\n"
       "    Magic Workbench (MWB) is a new Workbench appearance "
       "containing styleful and colourful icons and some display "
       "programs, improving the overall look of your Workbench.\n"
       "    If you have MagicWB installed, you're advised to use "
       "these icons. MagicWB is copyrighted by Martin Huttenloher.\n"
    )
  )
)
;
; Set the source direcoty for icons
;
(set icons-source
  (if
    (<>
      magicwb-bool
      0
    )
    (
      "MagicWB"
    )
    (
      ""
    )
  )
)

(copyfiles
  (source "InfraRexxEditor")
  (dest infrarexx-dest)
  (infos)
)
(copyfiles
  (source
    (tackon
      icons-source
      "InfraRexxEditor.info"
    )
  )
  (dest infrarexx-dest)
)
(complete 20)

(copyfiles
  (source "InfraRexxDaemon")
  (dest infrarexx-dest)
  (infos)
)
(copyfiles
  (source
    (tackon
      icons-source
      "InfraRexxDaemon.info"
    )
  )
  (dest infrarexx-dest)
)

(complete 30)

;
; Set the hardware version tooltypes
;
(tooltype
  (dest
    (tackon
      infrarexx-dest
      "InfraRexxEditor"
    )
  )
  (settooltype
    "HARDWARE"
    (select
      hardware-choice
      "1"
      "2"
      "3"
      "4"
    )
  )
)
(tooltype
  (dest
    (tackon
      infrarexx-dest
      "InfraRexxDaemon"
    )
  )
  (settooltype
    "HARDWARE"
    (select
      hardware-choice
      "1"
      "2"
      "3"
      "4"
    )
  )
)
(complete 35)
;
; Check for locale.library
;
(if
  (>=
    (/
      (getversion "LIBS:locale.library")
      65536
    )
    38
  )
  (
    ;
    ; Guess catalogs to be installed
    ;
    (set catalog-options
      (+
        (if (exists "LOCALE:Catalogs/dansk") 1)
        (if (exists "LOCALE:Catalogs/deutsch") 2)
        (if (exists "LOCALE:Catalogs/italiano") 4)
        (if (exists "LOCALE:Catalogs/nederlands") 8)
        (if (exists "LOCALE:Catalogs/norsk") 16)
        (if (exists "LOCALE:Catalogs/svenska") 32)
       0 ; needed because none, or just one directory may exist,
       0 ; in which case the + has too few arguments.
      )
    )
    ;
    ; Ask for catalogs to be installed
    ;
    (set catalog-options
      (askoptions
        (prompt "Which language catalogs do you want to install?\n"
        (choices
          "Dansk"
          "Deutsch"
          "Italiano"
          "Nederlands"
          "Norsk"
          "Svenska"
        )
        (default catalog-options)
        (help
          "Language catalogs:\n"
          "    Starting with Workbench 2.1, Amiga programs can present "
          "themselves in different languages, as long as program specific "
          "catalogs for that language are present. Here you can select "
          "which language catalogs you would like to install.\n"
          "    Use the Workbench `Locale' Preferences program to select "
          "your preferred language. InfraRexx will appear in that language, "
          "when the language's catalog is available and installed.\n"
          "\n"
          @askoptions-help)
        )
      )
    )
    ;
    ; Install the selected catalogs
    ;
    (set current 0)
    (while
      (< current 6) ;latest number indicates #languages
      (
        (if
          (IN catalog-options current)
          (
            (copyfiles
              (prompt "Copying the selected catalogs...\n")
              (source
                (tackon
                  "Catalogs"
                  (select current
                    "dansk"
                    "deutsch"
                    "italiano"
                    "nederlands"
                    "norsk"
                    "svenska"
                  )
                )
              )
              (pattern
                "#?.catalog"
              )
              (dest
                (tackon
                  "LOCALE:Catalogs"
                  (select current
                    "dansk"
                    "deutsch"
                    "italiano"
                    "nederlands"
                    "norsk"
                    "svenska"
                  )
                )
              )
              (help @copyfiles-help)
            )
          )
        )
        (set current (+ current 1))
      )
    )
  )
)
(complete 40)
;
; Rename previous codeset directory if present
;
(if
  (=
    (exists
      (tackon
         infrarexx-dest
         "Codesets"
      )
      (noreq)
    )
    2
  )
  (
    (transcript "Codesets directory found.")
    (rename
      (tackon
        infrarexx-dest
        "Codesets"
      )
      (tackon
        infrarexx-dest
        "Your_Pre_1.6_Codesets"
      )
      (prompt
        "Renaming your old codesets directory to prevent "
        "overwriting your edited codeset files.\n")
      (help
        "Renaming Codesets directory:\n"
        "    The Install Utility tried to install the codeset "
        "directory, but such a directory was already present. "
        "You are now asked to rename the existing directory, so "
        "that the contained files will not be overwritten. "
        "Select either 'Proceed' to rename the existing directory to "
        "'Your_Pre_1.6_Codesets' or 'Skip' to resume without renaming."
      )
      (confirm)
    )
  )
)
(complete 45)
;
; Ask for codeset to be used
;
(set usedcodeset-options
  (select
    (set usedcodeset-choice
      (askchoice
        (prompt "Please select the command codeset that you want to use initially:\n")
        (choices
         ;"Akai"
          "Canon"
         ;"Goldstar"
         ;"Hitachi"
          "JVC"
         ;"Kenwood"
         ;"NEC"
         ;"Onkyo"
          "Panasonic"
          "Philips"
          "Pioneer"
         ;"Sharp"
          "Sony"
         ;"Teac"
          "Technics"
         ;"Yamaha"
        )
        (default 0)
        (help "Initial codeset selection:\n"
              "    You are asked for a command codeset that will be used if "
              "you start the InfraRexx Daemon immediately after installation. "
              "Please select an electronics brand you possess which you want "
              "InfraRexx to communicate with. Of course you can later change this.\n"
              "\n"
              @askchoice-help
        )
      )
    )
   ;(shiftleft 1 0)  ;Akai
    (shiftleft 1 1)  ;Canon
   ;(shiftleft 1 2)  ;Goldstar
   ;(shiftleft 1 3)  ;Hitachi
    (shiftleft 1 4)  ;JVC
   ;(shiftleft 1 5)  ;Kenwood
   ;(shiftleft 1 6)  ;NEC
   ;(shiftleft 1 7)  ;Onkyo
    (shiftleft 1 8)  ;Panasonic
    (shiftleft 1 9)  ;Philips
    (shiftleft 1 10) ;Pioneer
   ;(shiftleft 1 11) ;Sharp
    (shiftleft 1 12) ;Sony
   ;(shiftleft 1 13) ;Teac
    (shiftleft 1 14) ;Technics
   ;(shiftleft 1 15) ;Yamaha
  )
)
;
; Set FROM tooltype to used codeset
;
(tooltype
  (dest
    (tackon
      infrarexx-dest
      "InfraRexxDaemon"
    )
  )
  (settooltype
    "FROM"
    (tackon
      infrarexx-dest
      (tackon
        "Codesets"
        (select
          usedcodeset-choice
         ;"Akai"
          "Canon"
         ;"Goldstar"
         ;"Hitachi"
          "JVC"
         ;"Kenwood"
         ;"NEC"
         ;"Onkyo"
          "Panasonic"
          "Philips"
          "Pioneer"
         ;"Sharp"
          "Sony"
         ;"Teac"
          "Technics"
         ;"Yamaha"
        )
      )
    )
  )
)
(complete 50)
;
; Ask for additional codesets to be installed
;
(set additionalcodeset-options
  (askoptions
    (prompt "Please select additional command codesets that you want to install: (Empty codesets are marked with ¹)\n"
    (choices
       "Akai¹"
       "Canon"
       "Goldstar¹"
       "Hitachi¹"
       "JVC"
       "Kenwood¹"
       "NEC¹"
       "Onkyo¹"
       "Panasonic"
       "Philips"
       "Pioneer"
       "Sharp¹"
       "Sony"
       "Teac¹"
       "Technics"
       "Yamaha¹"
    )
    (default usedcodeset-options)
    (help
      "Additional codesets selection:\n"
      "    Here you may choose codesets that will be installed into the "
      "codesets directory; either empty codesets that you use as a base "
      "project for learning new codes, or supplemental codesets for "
      "other electronic brands than that of the initial codeset.\n"
      "\n"
      @askoptions-help)
    )
  )
)
;
; Merge the used and additional codesets together
;
(set codesets-options
  (BITOR
    usedcodeset-options
    additionalcodeset-options
  )
)
;
; Install the selected codesets
;
(set current 0)
(while
  (< current 16) ;latest number indicates #codesets
  (
    (if
      (IN codesets-options current)
      (
        (copyfiles
          (prompt "Copying the selected codesets...\n")
          (source
            (tackon
              "Codesets"
              (select
                current
                "Akai"
                "Canon"
                "Goldstar"
                "Hitachi"
                "JVC"
                "Kenwood"
                "NEC"
                "Onkyo"
                "Panasonic"
                "Philips"
                "Pioneer"
                "Sharp"
                "Sony"
                "Teac"
                "Technics"
                "Yamaha"
              )
            )
          )
          (dest
            (tackon infrarexx-dest "Codesets")
          )
          (help @copyfiles-help)
        )
      )
    )
    (set current (+ current 1))
  )
)
(complete 55)
;
; Guess documentation to be installed
;
(set documentation-options
  (if
    (=
      hardware-choice
      2
    )
    3
    31)
)
;
; Ask for documentation to be installed
;
(set documentation-options
  (askoptions
    (prompt "What documentation do you want to install?\n"
    (choices "InfraRexx User Guide"
             "Hardware Info/Build/Patch Guide"
             "Hardware Schematic (IFF format)"
             "Hardware PCB Layout (IFF format)"
             "Hardware PCB Layout (Postscript format)"
    )
    (default documentation-options)
    (help "Documentation description:\n"
          "    The InfraRexx User Guide describes every aspect of this package, "
          "except the hardware construction. It is therefore advisable to "
          "install and read this guide.\n"
          "\n"
          "    The hardware can be ordered from the authors (read the "
          "InfraRexx User Guide), but you can also build it yourself. "
          "For this purpose, there is a Hardware Guide to guide you "
          "through the building process in a comfortable way. For users "
          "who already have the hardware, there are patch instructions "
          "to upgrade it.\n"
          "\n"
          "    Choose the Hardware Schematic and/or Print Circuit Board "
          "Layouts as a source for your hardware. Both are available in "
          "IFF bitmap format, common to the Amiga, while the layout is "
          "available in PostScript as well, used by professional "
          "(laser)printers.\n"
          "\n"
          @askoptions-help)
    )
  )
)
(complete 60)
;
; Determine if MultiView exists on this system
;
(set multiview-exists
  (exists
    "SYS:Utilities/MultiView"
    (noreq)
  )
)
;
; Install InfraRexx User Guide if selected
;
(if
  (IN documentation-options 0)
  (
     (copyfiles
      (prompt "Installing the InfraRexx User Guide...")
      (source "InfraRexx.guide")
      (dest
        (set userguide-dest
          (askdir
            (prompt "Select a place for the InfraRexx User Guide.")
            (default infrarexx-dest)
            (help @askdir-help)
          )
        )
      )
      (infos)
      (help @copyfiles-help)
    )
    (copyfiles
      (source
        (tackon
          icons-source
          "InfraRexx.guide.info"
        )
      )
      (dest userguide-dest)
    )
    (copyfiles
      (prompt "Installing the InfraRexx Order Form...")
      (source "OrderForm")
      (dest userguide-dest)
      (help @copyfiles-help)
      (infos)
    )
    (copyfiles
      (source
        (tackon
          icons-source
          "OrderForm.info"
        )
      )
      (dest userguide-dest)
    )
    (if
      multiview-exists
      (tooltype
        (dest
          (tackon userguide-dest "InfraRexx.guide")
        )
        (setdefaulttool "MultiView")
      )
    )
  )
)
(complete 70)
;
; Install InfraRexx Hardware Guide if selected
;
(if
  (IN documentation-options 1)
  (
    (copyfiles
      (prompt "Installing the Hardware Building Guide...")
      (source "Hardware/Hardware.guide")
      (dest
        (tackon
          infrarexx-dest
          "Hardware"
        )
      )
      (infos)
      (help @copyfiles-help)
    )
    (copyfiles
      (source
        (tackon
          icons-source
          "Hardware/Hardware.guide.info"
        )
      )
      (dest
        (tackon
          infrarexx-dest
          "Hardware"
        )
      )
    )
    (if
      multiview-exists
      (tooltype
        (dest
          (tackon infrarexx-dest "Hardware/Hardware.guide")
        )
        (setdefaulttool "MultiView")
      )
    )
  )
)
(complete 75)
;
; Install InfraRexx Hardware Schematic if selected
;
(if
  (IN documentation-options 2)
  (
    (copyfiles
      (prompt "Installing the Hardware Schematic...")
      (source "Hardware/Schematic.iff")
      (dest
        (tackon
          infrarexx-dest
          "Hardware"
        )
      )
      (infos)
      (help @copyfiles-help)
    )
    (copyfiles
      (source
        (tackon
          icons-source
          "Hardware/Schematic.iff.info"
        )
      )
      (dest
        (tackon
          infrarexx-dest
          "Hardware"
        )
      )
    )
    (if
      multiview-exists
      (tooltype
        (dest
          (tackon infrarexx-dest "Hardware/Schematic.iff")
        )
        (setdefaulttool "MultiView")
      )
    )
  )
)
(complete 80)
;
; Install InfraRexx Hardware Layouts (IFF) if selected
;
(if
  (IN documentation-options 3)
  (
    (copyfiles
      (prompt "Installing the Hardware Layouts (IFF)...")
      (source "Hardware")
      (dest
        (tackon
          infrarexx-dest
          "Hardware"
        )
      )
      (choices
        "SilkScreen.iff"
        "ComponentSide.iff"
        "SolderSide.iff"
      )
      (infos)
      (help @copyfiles-help)
    )
    (copyfiles
      (source
        (tackon
          icons-source
          "Hardware"
        )
      )
      (dest
        (tackon
          infrarexx-dest
          "Hardware"
        )
      )
      (choices
        "SilkScreen.iff.info"
        "ComponentSide.iff.info"
        "SolderSide.iff.info"
      )
    )
    (if
      multiview-exists
      (
        (tooltype
          (dest
            (tackon infrarexx-dest "Hardware/SilkScreen.iff")
          )
          (setdefaulttool "MultiView")
        )
        (tooltype
          (dest
            (tackon infrarexx-dest "Hardware/ComponentSide.iff")
          )
          (setdefaulttool "MultiView")
        )
        (tooltype
          (dest
            (tackon infrarexx-dest "Hardware/SolderSide.iff")
          )
          (setdefaulttool "MultiView")
        )
      )
    )
  )
)
(complete 85)
;
; Install InfraRexx Hardware Layouts (PostScript) if selected
;
(if
  (IN documentation-options 4)
  (
    (copyfiles
      (prompt "Installing the Hardware Layouts (PostScript)...")
      (source "Hardware")
      (dest
        (tackon
          infrarexx-dest
          "Hardware"
        )
      )
      (choices
        "ComponentSide.ps"
        "SolderSide.ps"
      )
      (infos)
      (help @copyfiles-help)
    )
  )
)
(complete 90)
;
; Ask for examples to be installed
;
(set examples-options
  (askoptions
    (prompt "Please select any examples you want to install:"
    (choices "Scala Example"
             "Toolmanager Example"
    )
    (default 3)
    (help
       "Examples:\n"
       "    These examples show you some ways of using InfraRexx. "
       "Use your imagination and available software to achieve "
       "other ways of using this product, that even the authors "
       "didn't think of.\n"
       "    And ehh..., feel free to let us know what that might be...:-)\n"
       "\n"
       @askoptions-help)
    )
  )
)
;
; Install the selected examples
;
(set current 0)
(while
  (< current 2) ;latest number indicates #examples
  (
    (if
      (IN examples-options current)
      (
        (copyfiles
          (prompt "Copying the selected examples...\n")
          (source
            "Examples"
          )
          (pattern
            (select
               current
               "ScalaExample.scala"
               "ToolManagerExample.prefs"
            )
          )
          (dest
            (tackon infrarexx-dest "Examples")
          )
          (infos)
          (help @copyfiles-help)
        )
        (copyfiles
          (source
            (tackon
              icons-source
              "Examples"
            )
          )
          (pattern
            (select
               current
               "ScalaExample.scala.info"
               "ToolManagerExample.prefs.info"
            )
          )
          (dest
            (tackon infrarexx-dest "Examples")
          )
          (infos)
          (help @copyfiles-help)
        )
      )
    )
    (set current (+ current 1))
  )
)
(complete 95)
;
; Ask for RexxEvent to be installed
;
(set rexxevent-bool
  (askbool
    (prompt
      "Install the handy 'RexxEvent' software?\n\n"
      "Besides remote-controlling programs via ARexx, "
      "you can steer them via keypresses and other inputevents, "
      "if you have RexxEvent running.\n"
    )
    (help
       "RexxEvent\n"
       "    This small program enables you to force events to happen "
       "using ARexx. An event can be the touch of a key, or the click "
       "of a mousebutton, etc. In combination with the InfraRexxDaemon, "
       "this enables you to control certain software via your remote "
       "controller, that would otherwise not be controllable via ARexx.\n"
    )
  )
)
;
; Install RexxEvent
;
(if
  (=
    rexxevent-bool
    1
  )
  (
    (copyfiles
      (prompt "Copying RexxEvent...\n")
      (source
        "RexxEvent"
      )
      (all)
      (dest
        (tackon infrarexx-dest "RexxEvent")
      )
      (infos)
      (help @copyfiles-help)
    )
    (copyfiles
      (source
        (tackon
          icons-source
          "RexxEvent"
        )
      )
      (dest
        (tackon
          infrarexx-dest
          "RexxEvent"
        )
      )
      (choices
        "RexxEvent.info"
        "RexxEvent.doc.info"
      )
    )
  )
)
(complete 100)

(exit "You have just installed release 1.6 of InfraRexx.\n"
      "\n"
      "Now enjoy it!\n"
      "\n"
      "InfraRexx and InfraJoy are\n"
      "© 1994-1995 by Leon Woestenberg\n"
      "(Digital Disturbance) and\n"
      "Jeroen Steenblik.\n"
)