home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 3 / CDPDIII.bin / pd / utilities / misc / blanker / install < prev    next >
Encoding:
Text File  |  1993-05-24  |  3.2 KB  |  133 lines
  1. ;
  2. ; Blanker Installation Script $VER:Blanker 2.0 (5.6.93)
  3. ;
  4.  
  5. (set @default-dest "SYS:WBStartup")
  6. (set installBlanker 1)
  7. (set installReqTools 1)
  8.  
  9. (delete
  10.     "ENVARC:Blanker.prefs"
  11.     force
  12. )
  13.  
  14. (delete
  15.     "ENV:Blanker.prefs"
  16.     force
  17. )
  18.  
  19. (if (> @user-level 1)
  20.     (set @default-dest
  21.         (askdir
  22.             (prompt "Where would you like Blanker installed?")
  23.             (help "The WBStartup directory on your boot disk is likely the best place to put blanker. "
  24.                   "This will insure that Blanker is run automatically when you boot your computer."
  25.             )
  26.             (default @default-dest)
  27.         )
  28.     )
  29. )
  30.  
  31. (set temp-dest @default-dest)
  32.  
  33. (working "Checking for previously installed version of Blanker.")
  34.  
  35. (if (<= (getversion (tackon (pathonly @icon) "Blanker")) (getversion (tackon @default-dest "Blanker")))
  36.     (if     (askbool
  37.             (prompt "An equal or newer version of Blanker already installed. "
  38.                 "Install anyway?"
  39.             )
  40.             (default 0)
  41.             (help "An equal or newer version of Blanker is already installed. "
  42.                   "If you would like to install Blanker anyhow, click 'Yes'. "
  43.                   "If you don't want to install Blanker, click 'No'."
  44.             )
  45.         )
  46.         (set installBlanker 1)
  47.         (set installBlanker 0)
  48.     )
  49. )
  50.  
  51. (if (= 1 installBlanker )
  52.     (copyfiles
  53.         (prompt ("Copying Blanker to %s" @default-dest))
  54.         (help @copyfiles-help)
  55.         (source (pathonly @icon))
  56.         (dest @default-dest)
  57.         (choices "Blanker")
  58.         (infos)
  59.     )
  60.     (if (< @user-level 1)
  61.         (set temp @user-level)
  62.         (user 2)
  63.         (message "Not installing Blanker because an equal or newer version is already installed.")
  64.         (user temp)
  65.     )
  66. )
  67.  
  68. (if (and (> @user-level 1) (= 1 installBlanker))
  69.     (set @default-dest
  70.         (askdir
  71.             (prompt "Where would you like the Blanker modules installed?")
  72.             (help "You can put the blankers anywhere and then specify the path to the blankers when"
  73.                   "you click 'Load' in the Blanker main window."
  74.             )
  75.             (default @default-dest)
  76.         )
  77.     )
  78. )
  79.  
  80. (if (= 1 installBlanker )
  81.     (copyfiles
  82.         (prompt ("Copying Blanker modules to %s" @default-dest))
  83.         (help @copyfiles-help)
  84.         (source (pathonly @icon))
  85.         (dest @default-dest)
  86.         (choices "Blankers")
  87.         (infos)
  88.     )
  89. )
  90.  
  91. (working "Checking for previously installed version of ReqTools.")
  92.  
  93. (if (<= (getversion (tackon (pathonly @icon) "ReqTools/reqtools.library")) (getversion "LIBS:reqtools.library"))
  94.     (if     (askbool
  95.             (prompt "An equal or newer version of ReqTools already installed. "
  96.                 "Install anyway?"
  97.             )
  98.             (default 0)
  99.             (help "An equal or newer version of ReqTools is already installed. "
  100.                   "If you would like to install ReqTools anyhow, click 'Yes'. "
  101.                   "If you don't want to install ReqTools, click 'No'."
  102.             )
  103.         )
  104.         (set installReqTools 1)
  105.         (set installReqTools 0)
  106.     )
  107. )
  108.  
  109. (if (= 1 installReqTools)
  110.     (copyfiles
  111.         (prompt "Copying ReqTools library to LIBS:")
  112.         (source (tackon (pathonly @icon) "ReqTools/reqtools.library"))
  113.         (dest "LIBS:")
  114.     )
  115.     (if (< @user-level 1)
  116.         (set temp @user-level)
  117.         (user 2)
  118.         (message "Not installing reqtools.library because an equal or newer version is already installed.")
  119.         (user temp)
  120.     )
  121. )
  122.  
  123. (if (= 1 installReqTools)
  124.     (copyfiles
  125.         (prompt "Copying ReqTools preferences editor to SYS:Prefs")
  126.         (source (tackon (tackon (pathonly @icon) "ReqTools") "ReqTools"))
  127.         (dest "SYS:Prefs")
  128.         (infos)
  129.     )
  130. )
  131.  
  132. (set @default-dest temp-dest)
  133.