home *** CD-ROM | disk | FTP | other *** search
/ Workbench Design / WB Collection.iso / datatypes / reko.datatype / reko.datatype.install < prev   
Encoding:
Text File  |  1996-04-07  |  3.3 KB  |  124 lines
  1. ; REKO Datatype Installer Script
  2. ; $VER: reko.datatype.install 39.2 (22.1.95)
  3. ;
  4.  
  5. ; First make sure we have WB3.0
  6. (set @default-dest "")
  7. (if (< (/ (getversion) 65536) 39)
  8. (
  9.   (abort "You must have at least Workbench 3.0")
  10. ))
  11.  
  12. ; Now check for at least a 68020 processor
  13. (set proc (database "cpu"))
  14.  
  15. (set cpu (askchoice
  16.   (prompt "Which version do you want to install ?")
  17.   (choices "68000" "68020")
  18.   (if (OR (= proc "68000") (= proc "68010"))
  19.     (default 0)
  20.     (default 1)
  21.   )
  22.   (help
  23.     (cat "On machines with an 68020 processor or higher, like "
  24.          "the Amiga 1200, 2500, 3000 and 4000 you can select "
  25.          "the 68020 version, which is optimized for those "
  26.          "processors.\n\n"
  27.          "If you have an Amiga with a 68000 or 68010 processor, "
  28.          "like the standard version of the Amiga 500, 500+, "
  29.          "600, 2000 and you have upgraded to Kickstart 3.0 or "
  30.          "higher, then you must select the 68000 version."))
  31. ))
  32.  
  33. ; Check that the DataTypes directory exists
  34. (if (NOT (exists "SYS:Classes/DataTypes"))
  35. (
  36.   (abort "Can't find the SYS:Classes/DataTypes directory")
  37. ))
  38.  
  39. ; Copy the datatype to it
  40. (copylib
  41.   (prompt "")
  42.   (help @copyfiles-help)
  43.   (if (= cpu 0)
  44.     (source "Classes/DataTypes/reko.datatype.68000")
  45.     (source "Classes/DataTypes/reko.datatype.68020")
  46.   )
  47.   (dest "SYS:Classes/DataTypes")
  48.   (newname "reko.datatype")
  49.   (confirm)
  50. )
  51.  
  52. ; Find out what sort of installation this is
  53. (set choice (askchoice
  54.   (prompt "Install as permanently enabled, or manually selectable")
  55.   (choices "Permanently enabled" "Manual select")
  56.   (help
  57.     (cat "The datatype can be installed as permanently enabled, or"
  58.          " manually selectable.\n\n"
  59.          "Pemanently enabled means that the datatype is always ready for use.\n\n"
  60.          "Manually Selectable means that the datatype has to be\n"
  61.          "run before it can be used. Once it has been run, it\n"
  62.          "remains installed until the computer is rebooted."))
  63. ))
  64.  
  65. (if (= choice 0)
  66. (
  67.   ; Permanent installation
  68.   ; Check that the DataTypes directory exists
  69.   (if (NOT (exists "DEVS:DataTypes"))
  70.   (
  71.     (abort "Can't find the DEVS:DataTypes directory")
  72.   ))
  73.  
  74.   (if (NOT (exists "DEVS:DataTypes/REKO Cardset"))
  75.   (
  76.     ; Copy the datatype to it
  77.     (copyfiles
  78.       (prompt "")
  79.       (help @copyfiles-help)
  80.       (source "Devs/DataTypes/REKO Cardset")
  81.       (infos)
  82.       (dest "DEVS:DataTypes")
  83.     )
  84.   ))
  85. )
  86. (
  87.   ; Manual installation
  88.   ; Check that the storage directory exists
  89.   (if (NOT (exists "SYS:Storage/DataTypes"))
  90.   (
  91.     (abort "Can't find the SYS:Storage/DataTypes directory")
  92.   ))
  93.  
  94.   (if (NOT (exists "SYS:Storage/DataTypes/REKO Cardset"))
  95.   (
  96.     ; Copy the datatype to it
  97.     (copyfiles
  98.       (prompt "")
  99.       (help @copyfiles-help)
  100.       (source "Devs/DataTypes/REKO Cardset")
  101.       (infos)
  102.       (dest "SYS:Storage/DataTypes")
  103.     )
  104.   ))
  105. ))
  106.  
  107. ; Now exit, telling them what the situation is
  108. (if (= choice 0)
  109. (
  110.   ; Installation was permanent
  111.   (exit
  112.     (cat "You will have to reboot the system before you can use the "
  113.          "REKO datatype."
  114.   ))
  115. )
  116. (
  117.   ; Installation was manual
  118.   (exit
  119.     (cat "You must double-click on the REKO Cardset icon in the "
  120.          "Storage->DataTypes drawer on your Workbench disk in order to "
  121.          "use the REKO datatype. The datatype will then be available "
  122.          "for use until you reboot."
  123.   ))
  124. ))