home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / KFPCH25.LHA / KingFisher2 / patch / Install-KFPatch next >
Encoding:
Text File  |  1994-11-05  |  6.8 KB  |  211 lines
  1. ; Installer Patch Script for KingFisher Release 2
  2. ; Copyright © 1994 Udo Schuermann
  3. ; All rights reserved
  4. ; $VER: Install-KFPatch 2.5 (5.11.94)
  5. ;
  6. ;
  7. ; Installer and Installer project icon
  8. ; (c) Copyright 1991-93 Commodore-Amiga, Inc.  All Rights Reserved.
  9. ; Reproduced and distributed under license from Commodore.
  10. ; 
  11. ; INSTALLER SOFTWARE IS PROVIDED "AS-IS" AND SUBJECT TO CHANGE;
  12. ; NO WARRANTIES ARE MADE.  ALL USE IS AT YOUR OWN RISK.  NO LIABILITY
  13. ; OR RESPONSIBILITY IS ASSUMED.
  14.  
  15.  
  16. ; (set VER "blah 2.7 (28.2.94)"
  17. ; returns with REV set to "2" and VER set to "7" as in "2.7" without the dot
  18. (procedure extract-version (
  19.   (set i 0 sREV "" sVER "" LOOKING 1)
  20.   (while (AND (= LOOKING 1) (< i 255)) (
  21.     (set t (substr VER i 1))
  22.     (if (<= t '9')
  23.       ((if (>= t '0')
  24.         (set LOOKING 0)
  25.         (set i (+ i 1))))
  26.       (set i (+ i 1)))
  27.   ))
  28.   (if (= LOOKING 0) (
  29.     (set sREV (substr VER i 1))
  30.     (set i (+ i 1) LOOKING 1)
  31.     (while (AND (= LOOKING 1) (< i 255)) (
  32.       (set t (substr VER i 1))
  33.       (if (<= t '9')
  34.         (if (>= t '0')
  35.           (set sREV ("%s%s" sREV t))))
  36.       (if (OR (= t '.') (= t ' '))
  37.         (set LOOKING 0))
  38.       (set i (+ i 1))
  39.     ))
  40.     (set LOOKING 1)
  41.     (while (AND (= LOOKING 1) (< i 255)) (
  42.       (set t (substr VER i 1))
  43.       (if (<= t '9')
  44.         (if (>= t '0')
  45.           (set sVER ("%s%s" sVER t))))
  46.       (if (= t ' ')
  47.         (set LOOKING 0))
  48.       (set i (+ i 1))
  49.     ))
  50.   ))
  51. ))
  52.  
  53. ; (set VSTR "blah 2.7 (28.2.94)")
  54. ; call with VSTR set to "blah 2.7 (d.m.y)..."
  55. ; presence of EVALUATION or REGISTERED will return TYPEKEY "R" or TYPEKEY "E"
  56. ; as well as TYPENAME set to the 10 character string EVALUATION or REGISTERED
  57. ; defaults to registered (if the keystrings are not found)
  58. (procedure extract-type (
  59.   (set i 0 LOOKING 1 TYPEKEY "R" TYPENAME "REGISTERED")
  60.   (while (AND (= LOOKING 1) (< i 255)) (
  61.     (set t (substr VSTR i 10))
  62.     (set i (+ i 1))
  63.     (if (= t "REGISTERED")
  64.       (set TYPEKEY "R" TYPENAME t LOOKING 0)
  65.       (if (= t "EVALUATION")
  66.         (set TYPEKEY "E" TYPENAME t LOOKING 0)))))
  67. ))
  68.  
  69. ;(set REV sREVKFS VER sVERKFS FILE "KFServer" THISONE "25" THISREV "2" THISVER "5" VSTR vKFS)
  70. ; REV and VER are the original revision and version values of FILE
  71. ; THISONE is the new version without the dot in the middle; THISREV and THISVER
  72. ; are the value of THISONE but separated, VSTR is the version string as required
  73. ; by the (extract-type) function which is called from here.
  74. (procedure patch-file (
  75.   (if (= ("%s%s" REV VER) THISONE)
  76.     (message ("You already have %s %s.%s installed!\n\nPatch skipped" FILE REV VER))
  77.     ((extract-type)
  78.      (working ("Patching %s %s version from\n\n%s.%s to 2.5" FILE TYPENAME REV VER))
  79.      (set ORIGINAL (tackon DESTIN FILE))
  80.      (set PATCH ("%s_%s-%s%s-%s.pch" TYPEKEY FILE REV VER THISONE))
  81.      (set OUTPUT (tackon DESTIN ("%s.new" FILE)))
  82.      (if (exists PATCH)
  83.        ((set CMD ("spatch \"-o%s\" \"-p%s\" \"%s\"" OUTPUT PATCH ORIGINAL))
  84.         (run CMD)
  85.         (if (exists (tackon DESTIN ("%s.new" FILE)))
  86.           ((set BACKUP (tackon DESTIN ("%s-%s.%s" FILE REV VER)))
  87.            (if (exists BACKUP)
  88.              (delete BACKUP))
  89.            (rename (tackon DESTIN FILE) BACKUP)
  90.            (rename (tackon DESTIN ("%s.new" FILE)) (tackon DESTIN FILE)))
  91.           ((set xUSER @user-level)
  92.            (user 3)
  93.            (message ("ERROR!\n\n%s could not be patched!" FILE))
  94.            (user xUSER)))
  95.        )
  96.        (message ("A patch file to upgrade the %s version of %s from %s.%s to %s.%s is not available"
  97.         TYPENAME FILE REV VER THISREV THISVER)))))
  98. ))
  99.  
  100. (complete 0)
  101.  
  102. (set LOOKING 1 FAIL 0)
  103. (while (= LOOKING 1)
  104.   (set DESTIN
  105.     (askdir
  106.       (prompt
  107.     "Please indicate the directory where KingFisher is installed. "
  108.     "This is the directory where the files are actually located.")
  109.       (help @askdir-help)
  110.       (default "SYS:KingFisher2")))
  111.   (if (exists (tackon DESTIN "KFServer"))
  112.     (if (exists (tackon DESTIN "KingFisher"))
  113.       (set LOOKING 0)))
  114.   (if (= LOOKING 1)
  115.     (message (
  116.     "The Installer cannot seem to find the KFServer and KingFisher "
  117.     "programs in the '%s' directory.  Please try again or cancel the "
  118.     "installation." DESTIN))))
  119. (complete 1)
  120.  
  121. (working "Determining which software revisions you have currently installed")
  122.  
  123. (run ("c:version >ENV:VERKFS full \"%s\"" (tackon DESTIN "KFServer")))
  124. (set VER (getenv "VERKFS"))
  125. (set vKFS VER)
  126. (extract-version)
  127. (set sREVKFS sREV sVERKFS sVER)
  128. (complete 3)
  129.  
  130. (run ("c:version >ENV:VERKF full \"%s\"" (tackon DESTIN "KingFisher")))
  131. (set VER (getenv "VERKF"))
  132. (set vKF VER)
  133. (extract-version)
  134. (set sREVKF sREV sVERKF sVER)
  135. (complete 4)
  136.  
  137. (if (exists (tackon DESTIN "RexxFisher"))
  138.   ((run ("c:version >ENV:VERRXF full \"%s\"" (tackon DESTIN "RexxFisher")))
  139.    (set VER (getenv "VERRXF"))
  140.    (set vRXF VER)
  141.    (extract-version)
  142.    (set sREVRXF sREV sVERRXF sVER))
  143.   (set sREVRXF "" sVERRXF ""))
  144. (complete 5)
  145.  
  146. (set REV sREVKFS VER sVERKFS FILE "KFServer" THISONE "25" THISREV "2" THISVER "5" VSTR vKFS)
  147. (patch-file)
  148. (complete 25)
  149.  
  150. (set REV sREVKF VER sVERKF FILE "KingFisher" THISONE "25" THISREV "2" THISVER "5" VSTR vKF)
  151. (patch-file)
  152. (complete 70)
  153.  
  154. ;(if (<> sREVRXF "")
  155. ;  ((set REV sREVRXF VER sVERRXF FILE "RexxFisher" THISONE "17" THISREV "1" THISVER "7" VSTR vRXF)
  156. ;   (patch-file)))
  157. (complete 90)
  158.  
  159. (delete "ENV:VERKFS")
  160. (delete "ENV:VERKF")
  161. (delete "ENV:VERRXF")
  162.  
  163. ; update all installed catalogs (if any)
  164. (if (exists (tackon DESTIN "Catalogs"))
  165.   (foreach (tackon DESTIN "Catalogs") "#?" (
  166.     (if (exists ("Catalogs/%s" @each-name))
  167.       ((working ("Installing %s Language" @each-name))
  168.        (copyfiles
  169.       (source (tackon "Catalogs" @each-name))
  170.       (dest (tackon DESTIN ("Catalogs/%s" @each-name)))
  171.       (all)))
  172.       (message ("No new %s catalog available" @each-name))))))
  173. (complete 99)
  174.  
  175. (if (exists "KingFisher2.guide")
  176.   ((if (= @user-level 0) (user 1))
  177.    (if (askbool
  178.          (prompt
  179.        "Would you like to upgrade to a new online English "
  180.        "language documentation file?\n\nIf you have a translated "
  181.        "version of this file installed, you should first make a "
  182.        "backup copy before proceeding!")
  183.          (choices "Yes, proceed" "No, skip it")
  184.          (default "No, skip it")
  185.          (help @askbool-help))
  186.      (copyfiles
  187.        (source "KingFisher2.guide")
  188.        (dest DESTIN))
  189.      (if (<= (/ (getversion "dos.library" (resident)) 65536) 38)
  190.        ((working "\nWord-wrapping KingFisher2.guide\nfor use with AmigaGuide V34")
  191.         (run ("WrapGuide %s 65" (tackon DESTIN "KingFisher2.guide")))))))
  192.   (message "No new KingFisher2.guide available")
  193. )
  194.  
  195. (if (exists "RexxFisher")
  196.   ((if (= @user-level 0) (user 1))
  197.    (if (askbool
  198.          (prompt
  199.        "Would you like to install RexxFisher 1.7?")
  200.          (choices "Yes, proceed" "No, skip it")
  201.          (default "No, skip it")
  202.          (help @askbool-help))
  203.      (copyfiles
  204.        (source "RexxFisher")
  205.        (dest DESTIN))))
  206.   (message "No new RexxFisher available")
  207. )
  208.  
  209. (complete 100)
  210. (exit)
  211.