home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Editor / FTH-CED4.DMS / in.adf / Install_CygnusEd < prev   
Encoding:
Text File  |  1997-10-03  |  6.4 KB  |  234 lines
  1. ;=============================================================================
  2. ; $VER: Install_CygnusEd 1.1 (24.09.97)
  3. ;=============================================================================
  4.  
  5. ;=============================================================================
  6. ; Procedures
  7. ;=============================================================================
  8. (procedure P_DeleteFile #file
  9. (
  10.     (if (= (exists #file) 1)
  11.     (
  12.         (protect #file "+rwed")
  13.         (delete #file)
  14.     ))
  15.  
  16.     (if (= (exists (cat #file ".info")) 1)
  17.     (
  18.         (protect (cat #file ".info") "+rwed")
  19.         (delete (cat #file ".info"))
  20.     ))
  21. ))
  22.  
  23. (procedure P_UnlockIcon #file
  24. (
  25.     (if (<> (exists #file) 0)
  26.     (
  27.         (tooltype (dest #file) (noposition))
  28.     ))
  29. ))
  30.  
  31. (procedure P_CopyFile #file #to
  32. (
  33.     (copyfiles
  34.         (source    #file)
  35.         (dest    #to)
  36.         (infos)
  37.     )
  38.     (P_UnlockIcon (tackon #to (fileonly #file)))
  39. ))
  40.  
  41. ;=============================================================================
  42. ; Start of installation script
  43. ;=============================================================================
  44. (complete 0)
  45.  
  46. (if (< (/ @installer-version 65536) 43)
  47. (
  48.     (abort (cat
  49.         "This installation script requires the Installer tool V43"
  50.     ))
  51. ))
  52.  
  53. (if (< (getversion) (* 37 65536))
  54.     (abort (cat
  55.         "CygnusEd Professional Release 4 requires operating system "
  56.         "version 2.04 or higher to work."
  57.     ))
  58. )
  59.  
  60. ;=============================================================================
  61. ; Ask for the installation directory
  62. ;=============================================================================
  63. (set #default-dest (askdir
  64.     (prompt (cat
  65.         "Please select where CygnusEd Professional should be installed. "
  66.         "A drawer ``CygnusEd'' will be created there."
  67.     ))
  68.     (help @askdir-help)
  69.     (default @default-dest)
  70. ))
  71. (set @default-dest (tackon #default-dest "CygnusEd"))
  72.  
  73. (complete 5)
  74.  
  75. ;=============================================================================
  76. ; Ask to remove all older files
  77. ;=============================================================================
  78. (set #remove-older (askbool
  79.     (prompt (cat
  80.         "Should any existing CygnusEd installation be deleted?\n\n"
  81.         "If you choose ``Yes'', then the ``CygnusEd'', ``Ed'', ``MetaMac'' and "
  82.         "``RecoverCEDFiles'' will be searched for and deleted from "
  83.         "the drawers ``SYS:Utilities'', ``SYS:System'' and ``C:''.\n\nNote that "
  84.         "any ``Ed'' program found in the ``C:'' drawer will not be removed."
  85.     ))
  86.     (default 1)
  87.     (help (cat
  88.         "You may wish to delete any older CygnusEd installation. "
  89.         "This makes sure you will be using only the most recent program "
  90.         "version. This cleanup operation will only delete the program "
  91.         "files and leave your ARexx scripts untouched."
  92.     ))
  93. ))
  94.  
  95. (complete 10)
  96.  
  97. (set #special-version 0)
  98. (if (not (patmatch "68000|68010" (database "cpu")))
  99. (
  100.     (set #special-version (askbool
  101.         (prompt (cat
  102.             "Do you want to have a special CygnusEd version installed "
  103.             "which is customized for your Amiga's CPU?"
  104.         ))
  105.         (default 1)
  106.         (help (cat
  107.             "A special version of the editor is provided which was "
  108.             "created for use on Amigas equipped with an MC68020 CPU "
  109.             "or a more recent model. This version can perform a little "
  110.             "faster than the generic version and is also a bit smaller."
  111.         ))
  112.     ))
  113. ))
  114.  
  115. (complete 15)
  116.  
  117. ;=============================================================================
  118. ; Clean up any older installation
  119. ;=============================================================================
  120. (if #remove-older
  121. (
  122.     (working "Deleting obsolete CygnusEd installation")
  123.     (P_DeleteFile "SYS:Utilities/CED")
  124.     (P_DeleteFile "SYS:Utilities/ED")
  125.     (P_DeleteFile "SYS:Utilities/RecoverCEDFiles")
  126.     (P_DeleteFile "SYS:Utilities/MetaMac")
  127.  
  128.     (P_DeleteFile "SYS:System/CED")
  129.     (P_DeleteFile "SYS:System/ED")
  130.     (P_DeleteFile "SYS:System/RecoverCEDFiles")
  131.     (P_DeleteFile "SYS:System/MetaMac")
  132.  
  133.     (P_DeleteFile "C:CED")
  134.     (P_DeleteFile "C:RecoverCEDFiles")
  135.     (P_DeleteFile "C:MetaMac")
  136. ))
  137.  
  138. (complete 20)
  139.  
  140. ;=============================================================================
  141. ; Create the installation drawer unless it already exists
  142. ;=============================================================================
  143. (if (= (exists @default-dest) 0)
  144. (
  145.     (makedir @default-dest (infos))
  146. ))
  147.  
  148. (complete 25)
  149.  
  150. ;=============================================================================
  151. ; Install CygnusEd, utilities and documentation
  152. ;=============================================================================
  153. (copyfiles
  154.     (source    "CygnusEd/CED.info")
  155.     (dest    @default-dest)
  156. )
  157. (P_UnlockIcon (tackon @default-dest "CED"))
  158. (if #special-version
  159.     (set #special-version "CygnusEd/020/CED")
  160.     (set #special-version "CygnusEd/CED")
  161. )
  162. (copyfiles
  163.     (source    #special-version)
  164.     (dest    @default-dest)
  165. )
  166.  
  167. (complete 40)
  168.  
  169. (P_CopyFile "CygnusEd/Ed" @default-dest)
  170. (protect (tackon @default-dest "Ed") "+p")
  171. (complete 45)
  172. (P_CopyFile "CygnusEd/MetaMac" @default-dest)
  173. (complete 50)
  174. (P_CopyFile "CygnusEd/RecoverCEDFiles" @default-dest)
  175. (complete 55)
  176. (P_CopyFile "CygnusEd/CygnusEd_Manual.guide" @default-dest)
  177. (complete 60)
  178.  
  179. ;=============================================================================
  180. ; Install amigaguide.library (for the online documentation)
  181. ;=============================================================================
  182. (if (< (getversion) (* 39 65536))
  183. (
  184.     (copylib
  185.         (source "Libs/amigaguide.library")
  186.         (dest    "Libs:")
  187.     )
  188. ))
  189. (complete 70)
  190.  
  191. ;=============================================================================
  192. ; Install the ARexx scripts
  193. ;=============================================================================
  194. (if (not (= (getassign "REXX") ""))
  195. (
  196.     (copyfiles
  197.         (source "CygnusEd/CygnusEd_Scripts")
  198.         (dest "REXX:")
  199.         (pattern "#?.ced")
  200.         (files)
  201.         (optional nofail)
  202.     )
  203. ))
  204. (complete 80)
  205.  
  206. ;=============================================================================
  207. ; Install the catalogs
  208. ;=============================================================================
  209. (if (not (= (getassign "LOCALE") ""))
  210. (
  211.     (copyfiles
  212.         (source "CygnusEd/Catalogs")
  213.         (dest "Locale:Catalogs")
  214.         (all)
  215.     )
  216. ))
  217. (complete 90)
  218.  
  219. ;=============================================================================
  220. ; Add a path to the CygnusEd installation drawer
  221. ;=============================================================================
  222. (startup "CygnusEd"
  223.     (prompt (cat
  224.         "The drawer ``" @default-dest "'' will now be added to the "
  225.         "Shell search path."
  226.     ))
  227.     (help (cat
  228.         "In order to invoke CygnusEd from the Shell, a path must be "
  229.         "added to the search list in your ``S:User-Startup'' file."
  230.     ))
  231.     (command (cat "Path \"" @default-dest "\" Add"))
  232. )
  233. (complete 100)
  234.