home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 1 / amigaformatcd01.iso / pd / text_editors / bed / install / install.script < prev    next >
Encoding:
Text File  |  1996-04-30  |  15.9 KB  |  472 lines
  1. ; $VER: Blacks Editor Installer 1.0 (03.03.96)
  2. ; Blacks Editor Install Script
  3. ; By Marco Negri
  4. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  5.  
  6. (set sourcedir "/")
  7.  
  8. (set dirname "BED")
  9. (set execname "BED")
  10. (set reqtoolsdir "ReqTools")
  11. (set supportdir "Support")
  12. (set rexxdir "Rexx")
  13. (set icondir "Icons")
  14. (set catalogdir "Catalogs")
  15. (set localkitdir "LocalizationKit")
  16.  
  17. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  18.  
  19. (if (= @language "english")
  20.     (
  21.         (set old_os_exit "BED required minimum OS version: 37\nYour current version: %ld.%ld\n\nBlacks Editor cannot be installed")
  22.         (set target_prompt "Select location to put Blacks Editor %ld.%ld:\nA directory named %s will be created")
  23.         (set exist_dir_prompt "The directory selected is\n%s\nDo you wish to install Blacks Editor there ?")
  24.         (set same_version_prompt "The same version of Blacks Editor is present\nVersion: %ld.%ld\nDo you want to re-install it ?")
  25.         (set same_version_exit "Same version already present !")
  26.         (set new_version_prompt "A newer version of Blacks Editor is present\nOld version: %ld.%ld\nNew Version: %ld.%ld\nInstallation aborted !")
  27.         (set new_version_exit "Newer version already present !")
  28.         (set old_version_prompt "An older version of Blacks Editor is present\nOld version: %ld.%ld\nNew Version: %ld.%ld\nDo you want to replace it ?")
  29.         (set old_version_exit "Older version not replaced !")
  30.         (set os37_reqtools_msg "Blacks Editor requires \"reqtools.library\" v38+ to run on your system\n\n(ReqTools is Copyright (c) Nico François and Magnus Holmgren)")
  31.         (set os38_reqtools_msg "Blacks Editor can use ReqTools requesters if \"reqtools.library\" is installed\n\n(ReqTools is Copyright (c) Nico François and Magnus Holmgren)")
  32.         (set defs_prompt "Select the definitions files to install:\n(Really important: Startup.dfn and Standard.dfn)")
  33.         (set prefs_prompt "Select the preferences files to install:")
  34.         (set rexx_msg "Some useful ARexx macros will be copied in\n%s")
  35.         (set icon_msg "Some Icon templates will be copied in\n%s")
  36.         (set catalogs_prompt "Select the catalogs you want to install:\n(English: built-in)")
  37.         (set localkit_prompt "Do you want  to install the Localization Kit ?\n(Used to create your own localization catalogs)")
  38.         (set startup_msg "The following lines will be added to your S:User-Startup\n")
  39.         (set replace_button "Replace")
  40.         (set abort_button "Abort")
  41.         (set install_there_button "Install BED there")
  42.         (set new_dir_button "Create a directory named %s")
  43.     )
  44. )
  45.  
  46. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  47. ; Français translation by David Le Corfec
  48. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  49.  
  50. (if (= @language "français")
  51.     (
  52.         (set old_os_exit "BED requiert l'OS version minimum : 37\nVotre version actuelle: %ld.%ld\n\nBlacks Editor ne peut pas etre installé")
  53.         (set target_prompt "Selectionnez l'endroit où mettre le Blacks Editor %ld.%ld:\nUn répertoire nommé %s sera crée")
  54.         (set exist_dir_prompt "Le répertoire sélectionné est\n%s\nSouhaitez-vous installer le Blacks Editor ici ?")
  55.         (set same_version_prompt "La même version de Blacks Editor est présente\nVersion: %ld.%ld\nVoulez-vous le réinstaller ?")
  56.         (set same_version_exit "Même version déjà présente !")
  57.         (set new_version_prompt "Une version plus récente de Blacks Editor est présente\nAncienne version: %ld.%ld\nNouvelle Version: %ld.%ld\nInstallation arrêtée !")
  58.         (set new_version_exit "Version plus récente déjà présente !")
  59.         (set old_version_prompt "Une ancienne version de Blacks Editor est présente\nAncienne version: %ld.%ld\nNouvelle Version: %ld.%ld\nVoulez-vous la remplacer ?")
  60.         (set old_version_exit "Version plus ancienne non remplacée !")
  61.         (set os37_reqtools_msg "Blacks Editor requiert la \"reqtools.library\" v38+ pour tourner sur votre sytème\n\n(ReqTools est Copyright (c) by Nico François et Magnus Holmgren)")
  62.         (set os38_reqtools_msg "Blacks Editor peut utiliser les requêtes ReqTools si la \"reqtools.library\" est installée\n\n(ReqTools est Copyright (c) by Nico François et Magnus Holmgren)")
  63.         (set defs_prompt "Sélectionner les fichiers de définitions à installer:\n(Réellement important: Startup.dfn et Standard.dfn)")
  64.         (set prefs_prompt "Sélectionner les fichiers de préférence à installer:")
  65.         (set rexx_msg "Quelques macros ARexx utiles seront copiées dans\n%s")
  66.         (set icon_msg "Quelques modèles d'icônes seront copiés dans\n%s")
  67.         (set catalogs_prompt "Sélectionner les catalogues que vous voulez installer:\n(Anglais: déjà inclus)")
  68.         (set localkit_prompt "Voulez-vous installer le Kit de Localisation ?\n(Utilisé pour créer vos propres catalogues de localisation")
  69.         (set startup_msg "Les lignes suivantes seront ajoutées à votre S:User-Startup\n")
  70.         (set replace_button "Remplacer")
  71.         (set abort_button "Arrêter")
  72.         (set install_there_button "Installer BED ici")
  73.         (set new_dir_button "Créer un répertoire nommé %s")
  74.     )
  75. )
  76.  
  77. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  78. ; Italian translation by Marco Negri
  79. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  80.  
  81. (if (= @language "italiano")
  82.     (
  83.         (set old_os_exit "Versione OS minima richiesta da BED: 37\nVersione corrente: %ld.%ld\n\nBlacks Editor non può essere installato")
  84.         (set target_prompt "Scegli il posto dove installare Blacks Editor %ld.%ld:\nSarà creata una directory chiamata %s")
  85.         (set exist_dir_prompt "La directory selezionata è\n%s\nVuoi installare Blacks Editor quì ?")
  86.         (set same_version_prompt "E' presente la stessa versione di Blacks Editor\nVersione: %ld.%ld\nVuoi re-installare tutto ?")
  87.         (set same_version_exit "E' già presente la stessa versione di Blacks Editor!")
  88.         (set new_version_prompt "E' presente una versione più aggiornata di Blacks Editor\nVecchia versione: %ld.%ld\nNuova versione: %ld.%ld\nInstallazione cancellata !")
  89.         (set new_version_exit "E' già presente una versione più aggiornata di Blacks Editor!")
  90.         (set old_version_prompt "E' presente una vecchia versione di Blacks Editor\nVecchia versione: %ld.%ld\nNuova versione %ld.%ld\nVuoi sostituirla ?")
  91.         (set old_version_exit "La vecchia versione di Blacks Editor non è stata sostituita")
  92.         (set os37_reqtools_msg "Blacks Editor richiede la \"reqtools.library\" v38+ per funzionare su questo sistema\n\n(ReqTools è Copyright (c) Nico François e Magnus Holmgren)")
  93.         (set os38_reqtools_msg "Blacks Editor può usare i requesters ReqTools se la \"reqtools.library\" è installata\n\n(ReqTools è Copyright (c) Nico François e Magnus Holmgren)")
  94.         (set defs_prompt "Seleziona i files di definizione da installare:\n(Importanti: Startup.dfn e Standard.dfn)")
  95.         (set prefs_prompt "Seleziona i files di preferenze da installare:")
  96.         (set rexx_msg "Verranno copiate alcune utili macro ARexx in\n%s")
  97.         (set icon_msg "Verranno copiati alcuni templates di icone in\n%s")
  98.         (set catalogs_prompt "Seleziona i cataloghi da installare:\n(English: incorporato)")
  99.         (set localkit_prompt "Vuoi installare il Localization Kit ?\n(Utile per creare i tuoi cataloghi)")
  100.         (set startup_msg "Le seguenti linee verranno aggiunte alla tua S:User-Startup\n")
  101.         (set replace_button "Sostituisci")
  102.         (set abort_button "Abbandona")
  103.         (set install_there_button "Installa BED quì")
  104.         (set new_dir_button "Crea una directory chiamata %s")
  105.     )
  106. )
  107.  
  108. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  109. ; Polish translation by Radoslaw Chyra
  110. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  111.  
  112. (if (= @language "polski")
  113.     (
  114.         (set old_os_exit "BED wymaga minimum 37 wersji OS\nTwoja wersja OS: %ld.%ld\n\nBlacks Editor nie moûe byê zainstalowany")
  115.         (set target_prompt "Wybierz gdzie mam ulokowaê Blacks Editor %ld.%ld:\nZostanie tam utworzony katalog o nazwie %s")
  116.         (set exist_dir_prompt "Wybraîeô katalog\n%s\nCzy chcesz tam zainstalowaê Blacks Editor ?")
  117.         (set same_version_prompt "Znalazîem të samâ wersjë Blacks Editor'a\nWersja: %ld.%ld\nCzy chcesz jâ ponownie zainstalowaê ?")
  118.         (set same_version_exit "Ta sama wersja jest juû zainstalowana !")
  119.         (set new_version_prompt "Znalazîem starâ wersjë Blacks Editor'a\nStara wersja: %ld.%ld\nNowa wersja: %ld.%ld\nInstalacja przerwana !")
  120.         (set new_version_exit "Nowsza wersja jest juû zainstalowana !")
  121.         (set old_version_prompt "Znalazîem starâ wersjë Blacks Editor'a\nStara wersja: %ld.%ld\nNowa wersja: %ld.%ld\nChcesz jâ wymieniê ?")
  122.         (set old_version_exit "Starsza wersja nie zostaîa wymieniona!")
  123.         (set os37_reqtools_msg "Blacks Editor do pracy potrzebuje \"reqtools.library\" v38+\n\n(ReqTools is Copyright (c) by Nico François and Magnus Holmgren)")
  124.         (set os38_reqtools_msg "Blacks Editor moûe korzystaê z biblioteki ReqTools jeôli jest zainstalowana\n\n(ReqTools is Copyright (c) by Nico François and Magnus Holmgren)")
  125.         (set defs_prompt "Które pliki z definicjami zainstalowaê:\n(Niezbëdne sâ Startup.dfn i Standard.dfn)")
  126.         (set prefs_prompt "Które pliki z ustawieniami zainstalowaê:")
  127.         (set rexx_msg "Skopiujë kilka przydatnych makrodefinicji ARexx'a do\n%s")
  128.         (set icon_msg "Skopiujë kilka szablonów ikonek do\n%s")
  129.         (set catalogs_prompt "Które katalogi jëzykowe zainstalowaê:\n(Angielski: wbudowany)")
  130.         (set localkit_prompt "Zainstalowaê Localization Kit ?\n(Przydatny przy tworzeniu wîasnego tîumaczenia)")
  131.         (set startup_msg "Do S:User-Startup zostanâ dodane nastëpujâce linie\n")
  132.         (set replace_button "Wymieï")
  133.         (set abort_button "Przerwij")
  134.         (set install_there_button "Zainstaluj BED'a tutaj")
  135.         (set new_dir_button "Utwórz katalog o nazwie %s")
  136.     )
  137. )
  138.  
  139. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  140.  
  141. (complete 0)
  142.  
  143. (set new_vernum (getversion (tackon sourcedir "BED")))
  144. (set new_ver (shiftright new_vernum 16))
  145. (set new_rev (BITAND new_vernum 65535))
  146.  
  147. (set sys_vernum (getversion))
  148. (set sys_ver (shiftright sys_vernum 16))
  149. (set sys_rev (BITAND sys_vernum 65535))
  150.  
  151.  
  152. ; - - - - Check system version and revision - - - -
  153.  
  154.  
  155. (set @default-dest "")
  156.  
  157. (if (< sys_ver 37)
  158.     (exit (old_os_exit sys_ver sys_rev))
  159. )
  160.  
  161.  
  162. ; - - - - Ask for the target directory  - - - -
  163.  
  164.  
  165. (set target
  166.     (askdir
  167.         (prompt (target_prompt new_ver new_rev dirname))
  168.         (default @default-dest)
  169.         (disk)
  170.         (help @askdir-help)
  171.     )
  172. )
  173.  
  174.  
  175. ; - - - - Check if the directory is already called BED - - - -
  176.  
  177.  
  178. (if (= dirname (fileonly target))
  179.     (if (= 1    (askchoice
  180.                     (prompt (exist_dir_prompt target))
  181.                     (choices install_there_button (new_dir_button dirname))
  182.                     (default 0)
  183.                     (help @askchoice-help)
  184.                     )
  185.             )
  186.  
  187.             (set target (tackon target dirname))
  188.     )
  189.  
  190.     (set target (tackon target dirname))
  191. )
  192.  
  193. (set @default-dest target)
  194.  
  195.  
  196. ; - - - - Check if there is another version present - - - -
  197.  
  198.  
  199. (set exec (tackon target execname))
  200.  
  201. (if (exists exec)
  202.     (
  203.         (set old_vernum (getversion exec))
  204.         (set old_ver (/ old_vernum 65536))
  205.         (set old_rev (- old_vernum (* old_ver 65536)))
  206.  
  207.         (if (= old_vernum new_vernum)
  208.             (
  209.                 (if (= 0 (askbool
  210.                                     (prompt (same_version_prompt old_ver old_rev))
  211.                                     (choices replace_button abort_button)
  212.                                     (default 0)
  213.                                     (help @askbool-help)
  214.                                     )
  215.                                 )
  216.                         (exit same_version_exit)
  217.                 )
  218.             )
  219.             (if (< old_vernum new_vernum)
  220.                 (if (= 0 (askbool
  221.                                     (prompt (old_version_prompt old_ver old_rev new_ver new_rev))
  222.                                     (choices replace_button abort_button)
  223.                                     (default 1)
  224.                                     (help @askbool-help)
  225.                             )
  226.                     )
  227.                     (exit old_version_exit)
  228.                 )
  229.                 (
  230.                     (message (new_version_prompt old_ver old_rev new_ver new_rev))
  231.                     (exit new_version_exit)
  232.                 )
  233.             )
  234.         )
  235.     )
  236. )
  237.  
  238.  
  239. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  240. ; *** BED and BED.guide ***
  241. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  242.  
  243. (copyfiles
  244.     (prompt "")
  245.     (source (tackon sourcedir ("/%s.info" dirname)))
  246.     (dest (pathonly target))
  247.     (help @copyfiles-help)
  248. )
  249.  
  250. (copyfiles
  251.     (prompt "")
  252.     (source sourcedir)
  253.     (choices execname ("%s.guide" execname) "Author.iff")
  254.     (dest target)
  255.     (infos)
  256.     (help @copyfiles-help)
  257. )
  258.  
  259. (complete 20)
  260.  
  261.  
  262. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  263. ; *** ReqTools.library ***
  264. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  265.  
  266. (if (> sys_ver 38)
  267.     (set reqtools_msg os37_reqtools_msg)
  268.     (set reqtools_msg os38_reqtools_msg)
  269. )
  270.  
  271. (copylib
  272.     (prompt reqtools_msg)
  273.     (help @copylib-help)
  274.     (source (tackon (tackon sourcedir reqtoolsdir) "reqtools.library"))
  275.     (dest "LIBS:")
  276.     (confirm)
  277. )
  278.  
  279. (complete 30)
  280.  
  281.  
  282. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  283. ; *** Support ***
  284. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  285.  
  286. (copyfiles
  287.     (prompt "")
  288.     (source (tackon sourcedir ("%s.info" supportdir)))
  289.     (dest target)
  290.     (help @copyfiles-help)
  291. )
  292.  
  293. (copyfiles
  294.     (prompt defs_prompt)
  295.     (source (tackon sourcedir supportdir))
  296.     (pattern "#?.dfn")
  297.     (dest (tackon target supportdir))
  298.     (infos)
  299.     (confirm)
  300.     (help @copyfiles-help)
  301. )
  302.  
  303. (complete 40)
  304.  
  305. (copyfiles
  306.     (prompt prefs_prompt)
  307.     (source (tackon sourcedir supportdir))
  308.     (pattern "#?.prf")
  309.     (dest (tackon target supportdir))
  310.     (infos)
  311.     (confirm)
  312.     (help @copyfiles-help)
  313. )
  314.  
  315. (complete 50)
  316.  
  317.  
  318. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  319. ; *** Rexx ***
  320. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  321.  
  322. (message (rexx_msg (tackon target rexxdir)))
  323.  
  324. (copyfiles
  325.     (prompt "")
  326.     (source (tackon sourcedir ("%s.info" rexxdir)))
  327.     (dest target)
  328.     (help @copyfiles-help)
  329. )
  330.  
  331. (copyfiles
  332.     (prompt "")
  333.     (source (tackon sourcedir rexxdir))
  334.     (all)
  335.     (dest (tackon target rexxdir))
  336.     (infos)
  337.     (help @copyfiles-help)
  338. )
  339.  
  340. (complete 60)
  341.  
  342.  
  343. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  344. ; *** Icons ***
  345. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  346.  
  347. (message (icon_msg (tackon target "Icons")))
  348.  
  349. (copyfiles
  350.     (prompt "")
  351.     (source (tackon sourcedir ("%s.info" icondir)))
  352.     (dest target)
  353.     (help @copyfiles-help)
  354. )
  355.  
  356. (copyfiles
  357.     (prompt "")
  358.     (source (tackon sourcedir icondir))
  359.     (all)
  360.     (dest (tackon target icondir))
  361.     (infos)
  362.     (help @copyfiles-help)
  363. )
  364.  
  365. (complete 70)
  366.  
  367.  
  368. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  369. ; *** Catalogs ***
  370. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  371.  
  372. (set catalogs
  373.     (askoptions
  374.         (prompt catalogs_prompt)
  375.         (choices "Français" "Italiano" "Polski")
  376.         (help @askoptions-help)
  377.     )
  378. )
  379.  
  380. (set catdir (tackon target catalogdir))
  381.  
  382. (if (NOT (= 0 catalogs))
  383. (
  384.     (copyfiles
  385.         (prompt "")
  386.         (source (tackon sourcedir ("%s.info" catalogdir)))
  387.         (dest target)
  388.         (help @copyfiles-help)
  389.     )
  390.  
  391.     (makedir catdir)
  392.  
  393.     (if (IN catalogs 0)
  394.         (copyfiles
  395.             (prompt "")
  396.             (source (tackon sourcedir ("%s/Français" catalogdir)))
  397.             (all)
  398.             (dest (tackon catdir "Français"))
  399.             (help @help-copyfiles)
  400.         )
  401.     )
  402.  
  403.     (if (IN catalogs 1)
  404.         (copyfiles
  405.             (prompt "")
  406.             (source (tackon sourcedir ("%s/Italiano" catalogdir)))
  407.             (all)
  408.             (dest (tackon catdir "Italiano"))
  409.             (help @help-copyfiles)
  410.         )
  411.     )
  412.  
  413.     (if (IN catalogs 2)
  414.         (copyfiles
  415.             (prompt "")
  416.             (source (tackon sourcedir ("%s/Polski" catalogdir)))
  417.             (all)
  418.             (dest (tackon catdir "Polski"))
  419.             (help @help-copyfiles)
  420.         )
  421.     )
  422. )
  423. )
  424.  
  425. (complete 80)
  426.  
  427.  
  428. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  429. ; *** Localization Kit ***
  430. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  431.  
  432. (if (= 1 (askbool
  433.     (prompt localkit_prompt)
  434.     (default 1)
  435.     (help "")))
  436.  
  437.     (
  438.         (copyfiles
  439.             (prompt "")
  440.             (source (tackon sourcedir ("%s.info" localkitdir)))
  441.             (dest target)
  442.             (help @copyfiles-help)
  443.         )
  444.  
  445.         (copyfiles
  446.             (prompt "")
  447.             (source (tackon sourcedir localkitdir))
  448.             (all)
  449.             (dest (tackon target localkitdir))
  450.             (infos)
  451.             (help @copyfiles-help)
  452.         )
  453.     )
  454. )
  455.  
  456. (complete 90)
  457.  
  458.  
  459. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  460. ; *** User-Startup ***
  461. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  462.  
  463. (set assign_lines ("Assign BED: \"%s\"\nAssign REXX: \"%s\" ADD\nPath BED: ADD\n" target (tackon target rexxdir)))
  464.  
  465. (startup "Blacks Editor"
  466.     (prompt (cat startup_msg assign_lines))
  467.     (command assign_lines)
  468.     (help @startup-help)
  469. )
  470.  
  471. (complete 100)
  472.