home *** CD-ROM | disk | FTP | other *** search
/ Merciful 3 / Merciful_Release_3.bin / software / b / blacksedv1.0.lha / BED / Install / Install.script < prev    next >
Text File  |  1996-01-28  |  9KB  |  304 lines
  1. ; $VER: Blacks Editor Installer 1.0 (23.12.95)
  2. ; Blacks Editor Install Script
  3. ;
  4. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  5.  
  6. (set sourcedir "/")
  7.  
  8. (set dirname "BED")
  9. (set execname "BED")
  10. (set supportdir "Support")
  11. (set rexxdir "Rexx")
  12. (set icondir "Icons")
  13.  
  14. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  15.  
  16. (if (= @language "english")
  17.     (
  18.         (set old_os_msg "BED required minimum OS version: 37\nYour current version: %ld.%ld\n\nBlacks Editor won't probably work on your system.\n\nInstall anyway ?")
  19.         (set target_prompt "Select location to put Blacks Editor %ld.%ld:\nA directory named %s will be created")
  20.         (set exist_dir "The directory selected is\n%s\nDo you wish to install Blacks Editor there ?")
  21.         (set same_version "The same version of Blacks Editor is present\nVersion: %ld.%ld\nDo you want to re-install it ?")
  22.         (set new_version "A newer version of Blacks Editor is present\nOld version: %ld.%ld\nNew Version: %ld.%ld\nInstallation aborted !")
  23.         (set old_version "An older version of Blacks Editor is present\nOld version: %ld.%ld\nNew Version: %ld.%ld\nDo you want to replace it ?")
  24.         (set defs_prompt "Select the definitions files to install:\n(Really important: Startup.dfn and Standard.dfn)")
  25.         (set prefs_prompt "Select the preferences files to install:")
  26.         (set rexx_prompt "Some useful ARexx macros will be copied in\n%s")
  27.         (set icon_prompt "Some Icon templates will be copied in\n%s")
  28.         (set startup_prompt "The following lines will be added to your S:User-Startup\n")
  29.         (set replace_button "Replace")
  30.         (set abort_button "Abort")
  31.         (set install_there_button "Install BED there")
  32.         (set new_dir_button "Create a directory named %s")
  33.         (set old_os_exit "Sorry, Blacks Editor requires OS 2.04+ to run")
  34.         (set same_version_exit "Same version already present !")
  35.         (set new_version_exit "Newer version already present !")
  36.         (set old_version_exit "Older version not replaced !")
  37.         (set noreq_msg "Blacks Editor requires \"reqtools.library\" v38+ to run\n\nPlease download it from Aminet")
  38.         (set oldreq_msg "You have installed \"reqtools.library\" v%ld.%ld\nBlacks Editor requires \"reqtools.library\" v38+\n\nPlease download it from Aminet")
  39.     )
  40. )
  41.  
  42. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  43.  
  44. (if (= @language "italiano")
  45.     (
  46.         (set old_os_msg "Versione OS minima richiesta da BED: 37\nVersione corrente: %ld.%ld\n\nBlacks Editor probabilmente non funzionerà correttamente sul tuo sistema.\n\nInstalla lo stesso ?")
  47.         (set target_prompt "Scegli il posto dove installare Blacks Editor %ld.%ld:\nSarà creata una directory chiamata %s")
  48.         (set exist_dir "La directory selezionata è\n%s\nVuoi installare Blacks Editor quì ?")
  49.         (set same_version "E' presente la stessa versione di Blacks Editor\nVersione: %ld.%ld\nVuoi re-installare tutto ?")
  50.         (set new_version "E' presente una versione più aggiornata di Blacks Editor\nVecchia versione: %ld.%ld\nNuova versione: %ld.%ld\nInstallazione cancellata !")
  51.         (set old_version "E' presente una vecchia versione di Blacks Editor\nVecchia versione: %ld.%ld\nNuova versione %ld.%ld\nVuoi sostituirla ?")
  52.         (set defs_prompt "Seleziona i files di definizione da installare:\n(Importanti: Startup.dfn e Standard.dfn)")
  53.         (set prefs_prompt "Seleziona i files di preferenze da installare:")
  54.         (set rexx_prompt "Verranno copiate alcune utili macro ARexx in\n%s")
  55.         (set icon_prompt "Verranno copiati alcuni templates di icone in\n%s")
  56.         (set startup_prompt "Le seguenti linee verranno aggiunte alla tua S:User-Startup\n")
  57.         (set replace_button "Sostituisci")
  58.         (set abort_button "Abbandona")
  59.         (set install_there_button "Installa BED quì")
  60.         (set new_dir_button "Crea una directory chiamata %s")
  61.         (set old_os_exit "Spiacente, Blacks Editor richiede almeno il SO 2.04")
  62.         (set same_version_exit "E' già presente la stessa versione di Blacks Editor!")
  63.         (set new_version_exit "E' già presente una versione più aggiornata di Blacks Editor!")
  64.         (set old_version_exit "La vecchia versione di Blacks Editor non è stata sostituita")
  65.         (set noreq_msg "Blacks Editor richiede \"reqtools.library\" v38+ per funzionare\n\nPuoi trovarlo su Aminet")
  66.         (set oldreq_msg "Tu hai installato \"reqtools.library\" v%ld.%ld\nBlacks Editor richiede \"reqtools.library\" v38+\n\nPuoi trovarla su Aminet")
  67.     )
  68. )
  69.  
  70. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  71.  
  72. (complete 0)
  73.  
  74. (set new_vernum (getversion (tackon sourcedir "BED")))
  75. (set new_ver (/ new_vernum 65536))
  76. (set new_rev (- new_vernum (* new_ver 65536)))
  77.  
  78. (set sys_vernum (getversion))
  79. (set sys_ver (/ sys_vernum 65536))
  80. (set sys_rev (- sys_vernum (* sys_ver 65536)))
  81.  
  82. (if (< sys_ver 37)
  83.     (if (= 0 (askbool
  84.         (prompt (old_os_msg sys_ver sys_rev))
  85.         (help "")
  86.         (default 0))
  87.         )
  88.         (exit old_os_exit)
  89.     )
  90. )
  91.  
  92. (complete 10)
  93.  
  94. (set target
  95.     (askdir
  96.         (prompt (target_prompt new_ver new_rev dirname))
  97.         (default @default-dest)
  98.         (disk)
  99.         (help @askdir-help)
  100.     )
  101. )
  102.  
  103. (complete 15)
  104.  
  105. (if (= dirname (fileonly target))
  106.     (if (= 1    (askchoice
  107.                     (prompt (exist_dir target))
  108.                     (choices install_there_button (new_dir_button dirname))
  109.                     (default 0)
  110.                     (help @askchoice-help)
  111.                     )
  112.             )
  113.  
  114.             (set target (tackon target dirname))
  115.     )
  116.  
  117.     (set target (tackon target dirname))
  118. )
  119.  
  120. (complete 20)
  121.  
  122. (set exec (tackon target execname))
  123.  
  124. (if (exists exec)
  125.     (
  126.         (set old_vernum (getversion exec))
  127.         (set old_ver (/ old_vernum 65536))
  128.         (set old_rev (- old_vernum (* old_ver 65536)))
  129.  
  130.         (if (= old_vernum new_vernum)
  131.             (
  132.                 (if (= 0 (askbool
  133.                                     (prompt (same_version old_ver old_rev))
  134.                                     (choices replace_button abort_button)
  135.                                     (default 0)
  136.                                     (help @askbool-help)
  137.                                     )
  138.                                 )
  139.                         (exit same_version_exit)
  140.                 )
  141.             )
  142.             (if (< old_vernum new_vernum)
  143.                 (if (= 0 (askbool
  144.                                     (prompt (old_version old_ver old_rev new_ver new_rev))
  145.                                     (choices replace_button abort_button)
  146.                                     (default 1)
  147.                                     (help @askbool-help)
  148.                             )
  149.                     )
  150.                     (exit old_version_exit)
  151.                 )
  152.                 (
  153.                     (message (new_version old_ver old_rev new_ver new_rev))
  154.                     (exit new_version_exit)
  155.                 )
  156.             )
  157.         )
  158.     )
  159. )
  160.  
  161. (complete 25)
  162.  
  163.  
  164. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  165. ; *** ReqTools.library ***
  166. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  167.  
  168. (set req_vernum (getversion "LIBS:reqtools.library" (resident)))
  169. (set req_ver (/ req_vernum 65536))
  170. (set req_rev (- req_vernum (* req_ver 65536)))
  171.  
  172. (if (= 0 req_vernum)
  173.     (message (noreq_msg))
  174.  
  175.     (if (< req_ver 38)
  176.         (message (oldreq_msg req_ver req_rev))
  177.     )
  178. )
  179.  
  180. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  181. ; *** BED and BED.guide ***
  182. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  183.  
  184. (copyfiles
  185.     (prompt "")
  186.     (source (tackon sourcedir ("/%s.info" dirname)))
  187.     (dest (pathonly target))
  188.     (help @copyfiles-help)
  189. )
  190.  
  191. (copyfiles
  192.     (prompt "")
  193.     (source sourcedir)
  194.     (choices execname ("%s.guide" execname))
  195.     (dest target)
  196.     (infos)
  197.     (help @copyfiles-help)
  198. )
  199.  
  200. (complete 40)
  201.  
  202.  
  203. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  204. ; *** Support ***
  205. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  206.  
  207. (copyfiles
  208.     (prompt "")
  209.     (source (tackon sourcedir ("%s.info" supportdir)))
  210.     (dest target)
  211.     (help @copyfiles-help)
  212. )
  213.  
  214. (complete 45)
  215.  
  216. (copyfiles
  217.     (prompt defs_prompt)
  218.     (source (tackon sourcedir supportdir))
  219.     (pattern "#?.dfn")
  220.     (dest (tackon target supportdir))
  221.     (infos)
  222.     (confirm)
  223.     (help @copyfiles-help)
  224. )
  225.  
  226. (complete 60)
  227.  
  228. (copyfiles
  229.     (prompt prefs_prompt)
  230.     (source (tackon sourcedir supportdir))
  231.     (pattern "#?.prf")
  232.     (dest (tackon target supportdir))
  233.     (infos)
  234.     (confirm)
  235.     (help @copyfiles-help)
  236. )
  237.  
  238. (complete 70)
  239.  
  240.  
  241. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  242. ; *** Rexx ***
  243. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  244.  
  245. (message (rexx_prompt (tackon target rexxdir)))
  246.  
  247. (copyfiles
  248.     (prompt "")
  249.     (source (tackon sourcedir ("%s.info" rexxdir)))
  250.     (dest target)
  251.     (help @copyfiles-help)
  252. )
  253.  
  254. (copyfiles
  255.     (prompt "")
  256.     (source (tackon sourcedir rexxdir))
  257.     (all)
  258.     (dest (tackon target rexxdir))
  259.     (infos)
  260.     (help @copyfiles-help)
  261. )
  262.  
  263. (complete 80)
  264.  
  265.  
  266. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  267. ; *** Icons ***
  268. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  269.  
  270. (message (icon_prompt (tackon target "Icons")))
  271.  
  272. (copyfiles
  273.     (prompt "")
  274.     (source (tackon sourcedir ("%s.info" icondir)))
  275.     (dest target)
  276.     (help @copyfiles-help)
  277. )
  278.  
  279. (copyfiles
  280.     (prompt "")
  281.     (source (tackon sourcedir icondir))
  282.     (all)
  283.     (dest (tackon target icondir))
  284.     (infos)
  285.     (help @copyfiles-help)
  286. )
  287.  
  288. (complete 90)
  289.  
  290.  
  291. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  292. ; *** User-Startup ***
  293. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  294.  
  295. (set assign_lines ("Assign BED: %s\nAssign REXX: %s ADD\nPath BED: ADD\n" target (tackon target rexxdir)))
  296.  
  297. (startup "Blacks Editor"
  298.     (prompt (cat startup_prompt assign_lines))
  299.     (command assign_lines)
  300.     (help @startup-help)
  301. )
  302.  
  303. (complete 100)
  304.