home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #4 / amigamamagazinepolishissue1998.iso / varia / ced_update / cygnused_pro_4_update / update_cygnused_pro_4 < prev    next >
Text File  |  1998-03-19  |  5KB  |  154 lines
  1. ;=============================================================================
  2. ; $VER: Update_CygnusEd 1.1 (19.03.98)
  3. ;=============================================================================
  4.  
  5. ;=============================================================================
  6. ; Procedures
  7. ;=============================================================================
  8. (procedure P_PatchFile #patch #orig #to
  9. (
  10.     (set #cmd (cat "spatch   -o" (tackon #to (fileonly #orig))
  11.                            " -p" #patch ".pch"
  12.                            " "   "CygnusEd_Pro_4:CygnusEd/" #orig
  13.     ))
  14.     (working (cat "Updating \"" (fileonly #orig) "\""))
  15.     (run #cmd)
  16. ))
  17.  
  18. ;=============================================================================
  19. ; Start of installation script
  20. ;=============================================================================
  21. (complete 0)
  22.  
  23. (if (< (/ @installer-version 65536) 43)
  24. (
  25.     (abort (cat
  26.         "This installation script requires the Installer tool V43"
  27.     ))
  28. ))
  29.  
  30. (if (< (getversion) (* 37 65536))
  31.     (abort (cat
  32.         "CygnusEd Professional Release 4 requires operating system "
  33.         "version 2.04 or higher to work."
  34.     ))
  35. )
  36.  
  37. ;=============================================================================
  38. ; Tell the user that we will only update a few files, but not perform a
  39. ; complete installation.
  40. ;=============================================================================
  41. (message (cat
  42.     "This program will install updated versions of certain CygnusEd Professional "
  43.     "Release 4 distribution files (CygnusEd, MetaMac, RecoverCEDFiles, foreign "
  44.     "language catalogs, online documentation). As such, it does not perform "
  45.     "a complete reinstallation of CygnusEd.\n\n"
  46.     "While you will be asked mostly the same questions as during the original "
  47.     "installation process, this program can only work on an existing CygnusEd "
  48.     "installation. Thus, if you haven't installed CygnusEd Professional "
  49.     "Release 4 yet, you should do it before you run this program."
  50. ))
  51.  
  52. ;=============================================================================
  53. ; Ask for the installation directory
  54. ;=============================================================================
  55. (set #not-found 1)
  56.  
  57. (while #not-found
  58. (
  59.     (set #default-dest (askdir
  60.         (prompt (cat
  61.             "Please select where CygnusEd Professional was installed."
  62.         ))
  63.         (help @askdir-help)
  64.         (default @default-dest)
  65.     ))
  66.  
  67.     (if (= (exists (tackon #default-dest "CED")) 1)
  68.     (
  69.         (set #not-found 0)
  70.     )
  71.     (
  72.         (message (cat "The CygnusEd text editor program could not be "
  73.                       "found in the drawer \"" #default-dest "\". Please "
  74.                       "try again."
  75.         ))
  76.     ))
  77. ))
  78.  
  79. (set @default-dest #default-dest)
  80.  
  81. (complete 10)
  82.  
  83. (set #special-version 0)
  84. (if (not (patmatch "68000|68010" (database "cpu")))
  85. (
  86.     (set #special-version (askbool
  87.         (prompt (cat
  88.             "Do you want to have a special CygnusEd version installed "
  89.             "which is customized for your Amiga's CPU?"
  90.         ))
  91.         (default 1)
  92.         (help (cat
  93.             "A special version of the editor is provided which was "
  94.             "created for use on Amigas equipped with an MC68020 CPU "
  95.             "or a more recent model. This version can perform a little "
  96.             "faster than the generic version and is also a bit smaller."
  97.         ))
  98.     ))
  99. ))
  100.  
  101. (complete 20)
  102.  
  103. ;=============================================================================
  104. ; Create the installation drawer unless it already exists
  105. ;=============================================================================
  106. (if (= (exists @default-dest) 0)
  107. (
  108.     (makedir @default-dest (infos))
  109. ))
  110.  
  111. (complete 30)
  112.  
  113. ;=============================================================================
  114. ; Install CygnusEd, utilities and documentation
  115. ;=============================================================================
  116. (if #special-version
  117. (
  118.     (set #special-patch "CED.020")
  119.     (set #special-orig "020/CED")
  120. )
  121. (
  122.     (set #special-patch "CED.68k")
  123.     (set #special-orig "CED")
  124. ))
  125.  
  126. (makeassign "CED_DEST_TEMP" @default-dest)
  127. (P_PatchFile #special-patch #special-orig "CED_DEST_TEMP:")
  128. (complete 50)
  129. (P_PatchFile "MetaMac" "MetaMac" "CED_DEST_TEMP:")
  130. (complete 70)
  131. (P_PatchFile "RecoverCEDFiles" "RecoverCEDFiles" "CED_DEST_TEMP:")
  132. (complete 80)
  133. (makeassign "CED_DEST_TEMP")
  134.  
  135. (copyfiles
  136.     (source    "CygnusEd_Manual.guide")
  137.     (dest    @default-dest)
  138. )
  139. (complete 90)
  140.  
  141. ;=============================================================================
  142. ; Install the catalogs
  143. ;=============================================================================
  144. (if (not (= (getassign "LOCALE") ""))
  145. (
  146.     (copyfiles
  147.         (source "Catalogs")
  148.         (dest "Locale:Catalogs")
  149.         (all)
  150.     )
  151. ))
  152.  
  153. (complete 100)
  154.