home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / util / boot / doswedge / install < prev    next >
Encoding:
Text File  |  1995-03-18  |  3.8 KB  |  175 lines
  1. ; $VER: Install 2.13 (18.03.95)
  2. ; Script to install Release 2.13 DosWedge
  3. (complete 0)
  4.  
  5. (set @default-dest "SYS:WBStartup")
  6. (set @startupdir "SYS:Startup")
  7.  
  8. (set target @default-dest)
  9.  
  10. ;********************************************************************
  11.  
  12. (set #Yes-text
  13. (cat "Yes"
  14. ))
  15.  
  16. (set #No-text
  17. (cat "No"
  18. ))
  19.  
  20.  
  21. (set #Overwrite
  22. (cat "Replace"
  23. ))
  24.  
  25. (set #Abort
  26. (cat "Abort"
  27. ))
  28.  
  29. ;********************************************************************
  30.  
  31. (set #warn-kickstart-text
  32. (cat    "\nBAD VERSION OF KICKSTART\n\n"
  33.     "DosWedge requires KickStart 2.0 (V37) or higher. It will not work on earlier versions.\n"
  34.     "You currently are running KickStart V%ld.\n\n"
  35.     "Continue with installation?"
  36. ))
  37.  
  38. ;********************************************************************
  39.  
  40. (set #docs-install-text
  41. (cat "Installing documentation"
  42. ))
  43.  
  44. (set #docs-query-text
  45. (cat "\nWould you like to install documentation for DosWedge?"
  46. ))
  47.  
  48. (set #docs-help-text
  49. (cat ""
  50. ))
  51.  
  52. (set #docs-query-dir-text
  53. (cat "Where to install documentation?"
  54. ))
  55.  
  56. (set #docs-query-dir-help
  57. (cat @askdir-help
  58. ))
  59.  
  60. ;********************************************************************
  61.  
  62. (set #StartupMagaer-query
  63. (cat "\nStartupManager Installation?\n\n"
  64.      "I have found StartupManager in your SYS:WBStartup drawer."
  65.      " You have a drawer named SYS:Startup which is where StartupManager"
  66.      " runs programs from when you boot. Would you like DosWedge installed"
  67.      " here?"
  68. ))
  69.  
  70. ;********************************************************************
  71. (set #path-text
  72. (cat "Select directory to install DosWedge into"
  73. ))
  74.  
  75. (set #path-help
  76. (cat @askdir-help
  77. ))
  78.  
  79. ;********************************************************************
  80.  
  81. (set #Overwrite-text
  82. (cat "\nThere is a version of DosWedge installed already. "
  83.      "Would you like to replace it with this version?"
  84. ))
  85.  
  86. (set #Overwrite-abort-text
  87. (cat "Installation has been aborted, old version remains untouched."
  88. ))
  89.  
  90. ;********************************************************************
  91.  
  92. (set #MatrixLib-text
  93. (cat "\nInstalling matrix.library\n\nCopyright ©1992-95 David Swasbrook"
  94. ))
  95.  
  96. (set #MatrixLib-help
  97. (cat "This will copy matrix.library into your LIBS: directory.\nCopyright ©1992-95 David Swasbrook\n\n"
  98.      @copylib-help
  99. ))
  100.  
  101.  
  102. ;********************************************************************
  103.  
  104.  
  105. ;********************************************************************
  106. ;**** END OF TEXT
  107. ;********************************************************************
  108.  
  109. ;********************************
  110. ;**** CHECK THE KICKSTART VERSION
  111. ;****
  112. (set ver (/ (getversion) 65536) )
  113. (if (< ver 37) (
  114.     (set warning (#warn-kickstart-text ver) ) (message warning)
  115. ))
  116.  
  117. (complete 10)
  118.  
  119. (set setaskdir 1)
  120.  
  121. (if (exists "SYS:WBStartup/StartupManager")
  122. (
  123.     (if (exists @startupdir)
  124.     (
  125.         (set target @startupdir)
  126.         (if(askbool (prompt #StartupMagaer-query) (help #Overwrite-text) (choices #Yes-text #No-text)  )
  127.         (
  128.             (set setaskdir 0)
  129.         ))
  130.     ))
  131.     
  132. ))
  133.  
  134. (if setaskdir
  135. (set target
  136. (askdir (prompt #path-text) (help #path-help) (default target)
  137. ))
  138. )
  139.  
  140. (if (exists (tackon target "DosWedge"))
  141. (
  142.     (if(askbool (prompt #Overwrite-text) (help #Overwrite-text) (choices #Overwrite #Abort)  )
  143.     (
  144.         (copyfiles (source "DosWedge") (dest target) )
  145.     )
  146.     (
  147.         (abort #Overwrite-abort-text )
  148.     ))
  149. )
  150. (
  151.     (copyfiles (source "DosWedge") (dest target) (infos) )
  152.     (complete 60)
  153.     (tooltype    (dest (tackon target "DosWedge"))
  154.         (noposition)
  155.     )
  156. ))
  157.  
  158.  
  159. (complete 60)
  160.  
  161. (copylib (prompt #MatrixLib-text) (help #MatrixLib-help) (source "matrix.library") (dest "LIBS:") (confirm) )
  162.  
  163. (complete 80) (working #docs-install-text)
  164.  
  165. (if(= (askbool (prompt #docs-query-text) (help #docs-query-help)) 1)
  166.     (
  167.         (set docs-target (askdir (prompt #docs-query-dir-text) (help #docs-query-dir-help) (default "SYS:")))
  168.         (copyfiles (source "DosWedge.guide") (dest docs-target ) (infos) )
  169.     )
  170. )
  171.  
  172. (set @default-dest target)
  173. (complete 100)
  174.  
  175.