home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 1 / Mecomp-CD.iso / amiga / tools / system / showconfigenh-install / showconfigenh-install < prev   
Text File  |  1996-04-17  |  7KB  |  242 lines
  1. ; $VER: ShowConfigEnh 2.0 (16.4.96)
  2. ;
  3. ; Install-Script, ShowConfigEnh, ShowReq
  4. ; Copyright ©1996 Thomas Kessler
  5. ; All rights reserved.
  6. ; Feel free to contact me via email at kessler@fim.uni-erlangen.de
  7. ;
  8. ; expname.library ©1996 Richard Koerber (rkoerber@tfh.dssd.sub.org)
  9. ; All rights reserved.
  10.  
  11. (set #already (cat
  12.     "\nThis version of ShowConfig is\n"
  13.     "already enhanced (patched).\n"
  14.     "\nThank you for using ShowConfigEnh.\n\n"
  15.     "Do not forget to send some nice email to\n"
  16.     "kessler@fim.uni-erlangen.de\n"
  17.     "if you like and use this program."))
  18.  
  19. (set #error (cat
  20.     "\nAn error appeared during the patch-work!\n\n"
  21.     "Please make sure that you have enough free\n"
  22.     "memory and enough free HD-space and then\n"
  23.     "try to restart the installation."))
  24.  
  25. (set #badinstaller (cat
  26.     "\nWrong Installer-version!\n\n"
  27.     "Please try to get another version of the\n"
  28.     "Installer-tool from aminet or from CDs.\n"
  29.     "This version can not calculate important\n"
  30.     "checksums for the installation."))
  31.  
  32. (set #working "Please wait...")
  33.  
  34. (set old-level @user-level)
  35.  
  36. (user 2)
  37. (complete 0)
  38.  
  39. (message "\nShowConfigEnh 2.0 Installation\n\n"
  40.     "This patch enhances the workbench-tool ShowConfig.\n"
  41.     "The new patched ShowConfigEnh will be able to use\n"
  42.     "'expname.library' to decode the manufacturer- and\n"
  43.     "product ID of expansion boards and does support\n"
  44.     "more hardware (68060, Draco, ...)\n\n"
  45.     "ShowConfig ©1990-1996 Escom AG\n"
  46.     "ShowConfigEnh ©1996 Thomas Kessler\n"
  47.     "expname.library ©1996 Richard Koerber\n"
  48.     "All rights reserved.")
  49. (complete 1)
  50.  
  51. (set #file
  52.     (askfile
  53.         (prompt "Please locate your workbench-tool ShowConfig.")
  54.         (help @askfile-help)
  55.         (default "SYS:Tools/ShowConfig")))
  56. (complete 5)
  57.  
  58. (working #working)
  59.  
  60. (set #checksum (getsum #file))
  61. (if (= #checksum 1011) (abort #badinstaller))
  62.  
  63. (set #notsup (cat
  64.     "Wrong checksum ("#checksum")!\n"
  65.     "This version is not (yet) supported. Please\n"
  66.     "send details to kessler@fim.uni-erlangen.de\n\n"
  67.     "Supported ShowConfig-versions are:\n"
  68.     "40.2 (OS3.1), 39.1 (OS3.0)\n"
  69.     "38.5 (OS2.1), 37.3 (OS2.0)\n"
  70.     "\nThank you for using ShowConfigEnh."))
  71. (complete 10)
  72.  
  73. (set #version 0)
  74.  
  75. (if (= #checksum 1934686971)    ; orig 40.2 (24.08.93)
  76.     ((set #version 1)))
  77. (if (= #checksum 1381896957)    ; orig 40.2 (24.08.93) [2]
  78.     ((set #version 1)))
  79. (if (= #checksum -1407112414)    ; patched 40.3 (16.04.96) CON
  80.     ((abort #already)))
  81. (if (= #checksum -2019655686)    ; patched 40.3 (16.04.96) REQ
  82.     ((abort #already)))
  83. (if (= #checksum -854322400)    ; patched 40.3 (16.04.96) CON [2]
  84.     ((abort #already)))
  85. (if (= #checksum -1466865672)    ; patched 40.3 (16.04.96) REQ [2]
  86.     ((abort #already)))
  87. (if (= #checksum 1117391017)    ; old patched 40.2b (09.04.96)
  88.     ((abort #already)))
  89. (if (= #checksum 2015712407)    ; old patched 40.2e (09.04.96)
  90.     ((abort #already)))
  91.  
  92. (if (= #checksum 116849060)    ; orig 39.1 (24.08.93)
  93.     ((set #version 2)))
  94. (if (= #checksum -198012389)    ; patched 39.2 (16.04.96) CON
  95.     ((abort #already)))
  96. (if (= #checksum -1050320458)    ; patched 39.2 (16.04.96) REQ
  97.     ((abort #already)))
  98. (if (= #checksum -1242884495)    ; old patched 39.1b (09.04.96)
  99.     ((abort #already)))
  100. (if (= #checksum -359176608)    ; old patched 39.1e (09.04.96)
  101.     ((abort #already)))
  102.  
  103. (if (= #checksum -535654157)    ; orig 38.5 (05.05.92)
  104.     ((set #version 3)))
  105. (if (= #checksum -1540806768)    ; patched 38.6 (16.04.96) CON
  106.     ((abort #already)))
  107. (if (= #checksum 1895823111)    ; patched 38.6 (16.04.96) REQ
  108.     ((abort #already)))
  109. (if (= #checksum 1155499488)    ; old patched 38.5 (14.04.96)
  110.     ((abort #already)))
  111.  
  112. (if (= #checksum 1720856251)    ; orig 37.3 (12.11.91)
  113.     ((set #version 4)))
  114. (if (= #checksum -1272277651)    ; patched 37.4 (16.04.96) CON
  115.     ((abort #already)))
  116. (if (= #checksum -2138348424)    ; patched 37.4 (16.04.96) REQ
  117.     ((abort #already)))
  118. (if (= #checksum -2136157588)    ; old patched 37.3 (14.04.96)
  119.     ((abort #already)))
  120.  
  121. (complete 30)
  122.  
  123. (if (= #version 0) (abort #notsup))
  124.  
  125. (set #window
  126.     (askchoice
  127.         (prompt "\nWhat window should ShowConfigEnh open\n"
  128.             "when it gets started from workbench?\n")
  129.         (help @askchoice-help)
  130.         (choices "original CON window" "intuition requester on workbench")
  131.         (default 0)))
  132. (complete 35)
  133.  
  134. (set #libs
  135.     (askdir
  136.         (prompt "Where should the supplied 'expname.library' v2.1\n"
  137.             "©1996 Richard Koerber be installed?")
  138.         (help @askdir-help)
  139.         (default "LIBS:")))
  140. (complete 40)
  141.  
  142. (working #working)
  143.  
  144. (copylib
  145.     (prompt "Copy...")
  146.     (help @copylib-help)
  147.     (source "ShowConfigEnh-Data/expname.library")
  148.     (dest #libs)
  149.     (safe)
  150.     (nogauge))
  151. (complete 45)
  152.  
  153. (protect (cat (tackon (pathonly #file) "ShowReq")) "+w +d")
  154. (complete 50)
  155.  
  156. (if (= #version 1)
  157.     (
  158.         (set #command (cat "ShowConfigEnh-Data/patch403 "#file" "#file"Enh"))
  159.         (if (= #window 1)
  160.             (set #command (cat #command " SHOWREQ=" (tackon (pathonly #file) "ShowReq"))))
  161.         
  162.     ))
  163. (complete 51)
  164.  
  165. (if (= #version 2)
  166.     (
  167.         (set #command (cat "ShowConfigEnh-Data/patch392 "#file" "#file"Enh"))
  168.         (if (= #window 1)
  169.             (set #command (cat #command " SHOWREQ=" (tackon (pathonly #file) "ShowReq"))))
  170.     ))
  171. (complete 52)
  172.  
  173. (if (= #version 3)
  174.     (
  175.         (set #command (cat "ShowConfigEnh-Data/patch386 "#file" "#file"Enh"))
  176.         (if (= #window 1)
  177.             (set #command (cat #command " SHOWREQ=" (tackon (pathonly #file) "ShowReq"))))
  178.     ))
  179. (complete 53)
  180.  
  181. (if (= #version 4)
  182.     (
  183.         (set #command (cat "ShowConfigEnh-Data/patch374 "#file" "#file"Enh"))
  184.         (if (= #window 1)
  185.             (set #command (cat #command " SHOWREQ=" (tackon (pathonly #file) "ShowReq"))))
  186.     ))
  187. (complete 54)
  188.  
  189. (set #result
  190.     (run
  191.         (prompt "Patch...")
  192.         (help "n/a")
  193.         #command))
  194. (complete 80)
  195.  
  196. (if (NOT (= result 0)) (abort #error))
  197.  
  198. (if (exists (cat (tackon (pathonly #file) "ShowReq")))
  199.     (
  200.         (if (= #window 1)
  201.             (protect (cat (tackon (pathonly #file) "ShowReq")) "-w -d")
  202.             (delete (cat (tackon (pathonly #file) "ShowReq")) (optional force))
  203.         )
  204.     )
  205. )
  206. (complete 90)
  207.  
  208. (if (exists (cat #file".info"))
  209.     (
  210.         (copyfiles
  211.             (prompt "Copy...")
  212.             (help "n/a")
  213.             (nogauge)
  214.             (source (cat #file".info"))
  215.             (dest (pathonly #file))
  216.             (newname (cat #file"Enh.info")))
  217.  
  218.         (tooltype
  219.             (prompt "Convert...")
  220.             (help "n/a")
  221.             (dest (cat #file"Enh"))
  222.             (noposition)
  223.             (safe))
  224.     ))
  225.  
  226. (set @default-dest (pathonly #file))
  227. (complete 100)
  228. (user old-level)
  229.  
  230. (exit    (cat
  231.     "Thank you for using ShowConfigEnh.\n\n"
  232.     (if (= #window 1)
  233.         (cat "Note: ShowConfigEnh installed the support-tool "
  234.         '"ShowReq" in: "'(pathonly #file)'" '
  235.             "It is required for the requester and "
  236.             "MUST be in the ShowConfigEnh drawer.\n\n"))
  237.     "Do not forget to send some nice email to\n"
  238.     "kessler@fim.uni-erlangen.de\n"
  239.     "if you like and use this program.")
  240. )
  241. (welcome "")
  242.