home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / commodity / archandler / install < prev    next >
Text File  |  1995-02-27  |  28KB  |  1,021 lines
  1. ;;$VER: Install 37.27 (17.1.95)
  2. ;;
  3. ;;  $Filename: Install $
  4. ;;  $Version: 37.27 $
  5. ;;  $Date: 17.1.95 $
  6. ;;  $Creation: 1.6.94 $
  7. ;;
  8. ;;  Installer script to install ARCHandler.
  9. ;;
  10. ;;  © Copyright 1994, 1995 Rafael D'Halleweyn, all rights reserved
  11. ;;
  12.  
  13. (set archandler-src "ARCHandler")
  14. (set archandlericon-src "ARCHandler.info")
  15. (set startarc-src "C/StartARC")
  16. (set startarcicon-src "C/StartARC.info")
  17. (set arcfiles-src "ARCFiles")
  18. (set fromarc-src "C/FromARC")
  19. (set toarc-src "C/ToARC")
  20. (set catalog-src "Catalogs/")
  21. (set help-src "Help/")
  22.  
  23. (set @default-dest "SYS:Tools")
  24. (set @default-tempdir "T:")
  25. (set @default-support-dest "C:")
  26.  
  27. ; Get the language
  28. (run 'C/PrefLanguage')
  29. (set pref-language (getenv "Language"))
  30.  
  31. ;================================================================================
  32. ; English strings
  33.  
  34. (set #bad-kick
  35.   (cat "You must have Kickstart 2.04 or higher installed to use the ARCHandler!")
  36. )
  37.  
  38. (set #install
  39.   (cat "\nARCHandler installation\n\n\n"
  40.          "This script installs ARCHandler 2.0\n"
  41.          "on your Amiga.\n\n\n"
  42.          "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
  43.          "All rights reserved"
  44.   )
  45. )
  46.  
  47. (set #update
  48.   (cat "\nARCHandler installation\n\n\n"
  49.          "This script updates ARCHandler to\n"
  50.          "version 2.0.\n\n\n"
  51.          "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
  52.          "All rights reserved"
  53.   )
  54. )
  55.  
  56. (set #archandler-dest
  57.   (cat "Where do you want to install ARCHandler?")
  58. )
  59.  
  60. (set #archandler-dest-help
  61.   (cat "Select the directory where you want ARCHandler to be installed. "
  62.        "The program and some other files will be copied to this directory. "
  63.        "Don't install ARCHandler in the WbStartup drawer (of your system "
  64.        "partition). You will be asked later if you want to start ARCHandler "
  65.        "when the Workbench is started.\n\n"
  66.   )
  67. )
  68.  
  69. (set #ask-parts
  70.   (cat "Select the parts that you want to install:\n"
  71.        "(Press `Help...' for a full description.)"
  72.   )
  73. )
  74.  
  75. (set #archandler-part "ARCHandler")
  76. (set #wbstartup-part "WbStartup installation")
  77. (set #catalogs-part "Catalogs")
  78. (set #help-part "Help files")
  79. (set #pictures-part "Help Pictures")
  80. (set #icons-part "Default icons")
  81. (set #support-part "Support commands")
  82. (set #delete1x-part "Delete 1.x ARCHandler")
  83.  
  84. (set #ask-parts-help
  85.   (cat "You should select those parts that you want to install:\n\n"
  86.        "ARCHandler: this is the main program. If you already have ARCHandler "
  87.        "installed, this script will only copy the progam if you have an older "
  88.        "version;\n\n"
  89.        "WbStartup installation: this is will install a small program in the "
  90.        "WbStartup drawer (of your system partition). This program will start "
  91.        "ARCHandler whenever the Workbench is started (ie. when you turn on your "
  92.        "computer);\n\n"
  93.        "Catalogs: these are the translations of ARCHandler in different languages. "
  94.        "You will be asked which languages you want to install;\n\n"
  95.        "Help files: these are the help files in different languages. If you want to "
  96.        "use the online help, you must install these files! You will be asked which "
  97.        "languages you want to install;\n\n"
  98.        "Help Pictures: these pictures can be viewed from the help files. They can "
  99.        "only be used if you have MultiView (ie. Workbench 3.0 or newer);\n\n"
  100.        "Default icons: these icons are used by ARCHandler. You don't have to install "
  101.        "these icons, you can create your own once ARCHandler is running. If you do "
  102.        "install these icons it is still possible to change them. When you are "
  103.        "updating ARCHandler you shouldn't install these icons, they will overwrite "
  104.        "the icons you are already using;\n\n"
  105.        "Support commands: these are two support commands for ARCHandler: ToARC and "
  106.        "FromARC. These commands can be used to change the current directory of a "
  107.        "Shell to and from the same directory on the ARCHandler volume. These commands "
  108.        "should only be installed if you want to use the ARCHandler filesystem from a "
  109.        "Shell;\n\n"
  110.        "Delete 1.x ARCHandler: this will try to delete all the files that where "
  111.        "installed by the 1.0 or 1.0a version of ARCHandler.\n\n"
  112.        "The Install script tries to be smart about the default parts that it selects. "
  113.        "Normally you shouldn't change those settings.\n\n"
  114.   )
  115. )
  116.  
  117. (set #ask-tempdir "Please select a drawer to store temporary files:")
  118.  
  119. (set #ask-tempdir-help
  120.   (cat "For the ARCHandler to work correctly it has to have a place to store "
  121.        "its temporary files. All the files that are extracted from the "
  122.        "archives are placed in this drawer. This drawer should be large enough "
  123.        "to hold all those files. If you have lots of RAM you should use a "
  124.        "drawer on the 'Ram Disk', otherwise use a drawer on disk.\n\n"
  125.   )
  126. )
  127.  
  128. (set #ask-lhacommand "Please select the path to the 'LhA' command:")
  129.  
  130. (set #ask-lhacommand-help
  131.   (cat "For the ARCHandler to work correctly it has to known where "
  132.        "it can find the 'LhA' command. If you want to use a resident "
  133.        "'LhA' (=faster ARCHandler) use an empty 'Current Drawer' field "
  134.        "and make sure 'LhA' is resident.\n\n"
  135.   )
  136. )
  137.  
  138. (set #which-catalog-language
  139.   (cat "Which languages do you want to install?")
  140. )
  141.  
  142. (set #which-catalog-language-help
  143.   (cat "ARCHandler can be used in different languages. Select all the languages "
  144.        "that you want to use ARCHandler in.\n\n"
  145.   )
  146. )
  147.  
  148. (set #which-help-language
  149.   (cat "Which help files do you want to install?")
  150. )
  151.  
  152. (set #which-help-language-help
  153.   (cat "The help can be provided in different languages. Select those languages "
  154.        "you want help for.\n\n"
  155.   )
  156. )
  157.  
  158. (set #support-dest
  159.   (cat "Where do you want to install the support commands FromARC and ToARC?")
  160. )
  161.  
  162. (set #support-help
  163.   (cat "The FromARC and ToARC commands allow you to change the current directory "
  164.        "of a shell.\n\n"
  165.   )
  166. )
  167.  
  168. (set #shareware
  169.   (cat "ARCHandler is Shareware!\nDon't forget to register!")
  170. )
  171.  
  172.  
  173. ;================================================================================
  174. ; Dutch strings
  175.  
  176. (if (= pref-language "nederlands")
  177.   (
  178.     (set #bad-kick
  179.       (cat "U hebt Kickstart 2.04 of hoger nodig om om ARCHandler te kunnen gebruiken!")
  180.     )
  181.  
  182.     (set #install
  183.       (cat "\nARCHandler installatie\n\n\n"
  184.              "Dit script installeert ARCHandler 2.0\n"
  185.              "op uw Amiga.\n\n\n"
  186.              "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
  187.              "Alle rechten voorbehouden"
  188.       )
  189.     )
  190.  
  191.     (set #update
  192.       (cat "\nARCHandler installatie\n\n\n"
  193.              "Dit script werkt ARCHandler bij\n"
  194.              "tot versie 2.0.\n\n\n"
  195.              "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
  196.              "Alle rechten voorbehouden"
  197.       )
  198.     )
  199.  
  200.     (set #archandler-dest
  201.       (cat "Waar wilt u ARCHandler installeren?")
  202.     )
  203.  
  204.     (set #archandler-dest-help
  205.       (cat "Selecteer de lade waar u ARCHandler wilt geïnstalleerd hebben. Het "
  206.            "programma en enkele andere bestanden zullen naar deze lade gekopieerd "
  207.            "worden. Instaleer ARCHandler niet in de WbStartup lade (van uw "
  208.            "systeem partitie). U zult later gevraagd worden of u ARCHandler "
  209.            "automatisch gestart wilt hebben wanneer de Workbench gestart wordt.\n\n"
  210.       )
  211.     )
  212.  
  213.     (set #ask-parts
  214.       (cat "Selecteer de delen die u wil installeren:\n"
  215.            "(Druk op `Help...' voor een volledige beschrijving.)"
  216.       )
  217.     )
  218.  
  219.     (set #archandler-part "ARCHandler")
  220.     (set #wbstartup-part  "WbStartup installatie")
  221.     (set #catalogs-part   "Catalogen")
  222.     (set #help-part       "Hulp bestanden")
  223.     (set #pictures-part   "Hulp Tekeningen")
  224.     (set #icons-part      "Standaard iconen")
  225.     (set #support-part    "Extra commando's")
  226.     (set #delete1x-part   "Verwijder 1.x ARCHandler")
  227.  
  228.     (set #ask-parts-help
  229.       (cat "U moet die delen kiezen die u will installeren:\n\n"
  230.            "ARCHandler: dit is het hoofd programma. Indien u ARCHandler al eerder "
  231.            "geïnstalleerd hebt, zal dit script het programma enkel kopiëren als u "
  232.            "een oudere versie heeft;\n\n"
  233.            "WbStartup installatie: dit zal een klein programmaatje in de WbStartup "
  234.            "lade (van uw systeem partitie) installeren. Dit programmaatje zal "
  235.            "ARCHandler opstarten wanneer de Workbench gestart wordt (dus wanneer u "
  236.            "uw computer aanzet);\n\n"
  237.            "Catalogen: dit zijn de vertalingen van ARCHandler in verschillende talen. "
  238.            "U zult gevraagd worden welke talen geïnstalleerd moeten worden;\n\n"
  239.            "Hulp bestanden: dit zijn de hulp bestanden in verschillende talen. Als "
  240.            "u gebruikt wilt maken van de hulp vanuit het programma, moet u deze "
  241.            "bestanden installeren! U zult gevraagd worden welke talen geïnstalleerd "
  242.            "moeten worden;\n\n"
  243.            "Hulp Tekeningen: deze tekeningen kunnen bekeken worden vanuit de hulp "
  244.            "bestanden. Ze kunnen enkel gebruikt worden als u MultiView heeft (dus "
  245.            "Workbench 3.0 of nieuwer);\n\n"
  246.            "Standaard iconen: deze iconen worden gebruikt door ARCHandler. U hoeft "
  247.            "deze iconen niet te installeren, u kunt uw eigen iconen creëren wanneer "
  248.            "ARCHandler opgestart is. Als u toch deze iconen installeerd is het nog "
  249.            "steeds mogelijk om ze te veranderen. Wanneer u een nieuwe versie van "
  250.            "ARCHandler installeerd dan moet u deze iconen niet installeren, omdat "
  251.            "daarbij uw eigen iconen verloren gaan;\n\n"
  252.            "Extra commando's: dit zijn twee commando's: ToARC and FromARC. Ze kunnen "
  253.            "gebruikt worden om de 'current directory' van een Shell te veranderen "
  254.            "naar en van dezelfde directory op het ARCHandler volume. Deze commando's "
  255.            "moeten alleen maar geïnstalleerd moeten worden als u het ARCHandler "
  256.            "bestandensysteem vanuit een Shell wenst te gebruiken.\n\n"
  257.            "Verwijder 1.x ARCHandler: dit zal proberen om alle bestanden die door "
  258.            "versie 1.0 of 1.0a geïnstalleerd werden te verwijderen.\n\n"
  259.            "Het installatie script probeert zelf te selecteren welke delen "
  260.            "geïnstallerd moeten worden. Waarschijnlijk hoeft u hier niks meer aan te "
  261.            "veranderen.\n\n"
  262.       )
  263.     )
  264.  
  265.     (set #ask-tempdir "Kies een lade voor de tijdelijke bestanden:")
  266.  
  267.     (set #ask-tempdir-help
  268.       (cat "Opdat ARCHandler correct zou kunnen werken, heeft het een plaats nodig "
  269.            "om zijn tijdelijke bestanden te bewaren. Al de bestanden die uit een "
  270.            "archief worden gehaald worden in deze lade geplaatst. Deze lade moet "
  271.            "groot genoeg zijn om alle deze bestanden te bevatten. Als u voldoende "
  272.            "vrij geheugen hebt, kunt u het best 'Ram Disk' gebruiken, anders is "
  273.            "een lade op schijf beter.\n\n")
  274.     )
  275.  
  276.     (set #ask-lhacommand "Selecteer het volledige pad naar het 'LhA' commando:")
  277.  
  278.     (set #ask-lhacommand-help
  279.       (cat "Opdat ARCHandler correct zou kunnen werken, moet het weten waar het "
  280.            "het 'Lha' commando kan vinden. Als u een residente 'LhA' wilt "
  281.            "gebruiken (= snellere ARCHandler) gebruik dan een leeg 'Geselecteerde "
  282.            "lade' veld en zorg dat 'LhA' resident is.\n\n")
  283.     )
  284.  
  285.     (set #which-catalog-language
  286.       (cat "Welke talen wilt u installeren?")
  287.     )
  288.  
  289.     (set #which-catalog-language-help
  290.       (cat "ARCHandler kan gebruikt worden in verschillende talen. Selecteer al "
  291.            "de talen waarin u ARCHandler wilt gebruiken.\n\n"
  292.       )
  293.     )
  294.  
  295.     (set #which-help-language
  296.       (cat "Welke hulp bestanden wilt u installeren?")
  297.     )
  298.  
  299.     (set #which-help-language-help
  300.       (cat "Hulp kan gegeven worden in verschillende talen. Selecteer al de talen "
  301.            "waarin u hulp wilt krijgen.\n\n"
  302.       )
  303.     )
  304.  
  305.     (set #support-dest
  306.       (cat "Waar wilt u de ondersteunings commando's FromARC en ToARC plaatsen?")
  307.     )
  308.  
  309.     (set #support-help
  310.       (cat "De FromARC en ToARC commando's laten u toe om vanuit de Shell direct "
  311.            "naar het ARCHandler bestandensysteem te gaan, of terug.\n\n")
  312.     )
  313.  
  314.     (set #shareware
  315.       (cat "ARCHandler is Shareware!\n"
  316.            "Vergeet niet te registreren!")
  317.     )
  318.   )
  319. )
  320.  
  321. ;================================================================================
  322. ; Spanish strings
  323.  
  324. (if (= pref-language "español")
  325.   (
  326.     (set #bad-kick
  327.       (cat "¡Debes tener instalado un Kickstart 2.04 o superior para usar ARCHandler!")
  328.     )
  329.  
  330.     (set #install
  331.       (cat "\nInstalación de ARCHandler\n\n\n"
  332.              "Este script instala ARCHandler 2.0\n"
  333.              "en tu Amiga.\n\n\n"
  334.              "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
  335.              "Reservados todos los derechos")
  336.     )
  337.  
  338.     (set #update
  339.       (cat "\nInstalación de ARCHandler\n\n\n"
  340.              "Este script actualiza ARCHandler a\n"
  341.              "la versión 2.0.\n\n\n"
  342.              "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
  343.              "Reservados todos los derechos")
  344.     )
  345.  
  346.     (set #archandler-dest
  347.       (cat "¿Donde quieres instalar ARCHandler?")
  348.     )
  349.  
  350.     (set #archandler-dest-help
  351.       (cat "Indica el directorio en el que quieres instalar ARCHandler. "
  352.            "El programa  ARCHandler  se copiará en ese  directorio.  El "
  353.            "script también  creará un directorio  'ARCFiles'  dentro de "
  354.            "ese directorio.\n\n"
  355.       ) ; add something here!
  356.     )
  357.  
  358.     ;(set #ask-parts "")
  359.  
  360.     ;(set #archandler-part "")
  361.     ;(set #wbstartup-part "")
  362.     ;(set #catalogs-part "")
  363.     ;(set #help-part "")
  364.     ;(set #pictures-part "")
  365.     ;(set #icons-part "")
  366.     ;(set #support-part "")
  367.     ;(set #delete1x-part "")
  368.  
  369.     ;(set #ask-parts-help "")
  370.  
  371.     (set #ask-tempdir "Por favor, indica un directorio para los ficheros temporales:")
  372.  
  373.     (set #ask-tempdir-help
  374.       (cat "Para que ARCHandler funcione correctamente  debe tener un lugar donde "
  375.            "guardar sus ficheros temporales.  Todos los ficheros que se extraigan "
  376.            "de los archivos se pondrán en este directorio. El directorio debe ser "
  377.            "lo suficientemente grande como para acoger a todos esos ficheros.  Si "
  378.            "tienes suficiente memoria, deberías usar un directorio en 'Ram Disk', "
  379.            "si no, usa un directorio en disco.\n\n")
  380.     )
  381.  
  382.     (set #ask-lhacommand "Por favor, indica el camino hacia el comando 'LhA':")
  383.     
  384.     (set #ask-lhacommand-help
  385.       (cat "Para que  ARCHandler funcione correctamente  debe saber donde "
  386.            "puede encontrar el comando  'LhA'.  Si quieres usar un  'LhA' "
  387.            "residente (=ARCHandler más rápido) usa un campo 'Dir. Actual' "
  388.            "vacío, y asegúrate de que 'LhA' está residente.\n\n")
  389.     )
  390.  
  391.     (set #which-catalog-language
  392.       (cat "¿Qué idiomas deseas instalar?")
  393.     )
  394.  
  395.     (set #which-catalog-language-help
  396.       (cat "ARCHandler se puede usar en diferentes idiomas. Elige todos los "
  397.            "idiomas que quieras usar en ARCHandler.\n\n"
  398.       )
  399.     )
  400.  
  401.     ;(set #which-help-language "")
  402.  
  403.     ;(set #which-help-language-help "")
  404.  
  405.     (set #support-dest
  406.       (cat "¿Donde quieres instalar los comandos de apoyo FromARC y ToARC?")
  407.     )
  408.  
  409.     (set #support-help
  410.       (cat "Los comandos FromARC y ToARC te permiten cambiar el directorio "
  411.            "actual de un shell.\n\n")
  412.     )
  413.  
  414.     (set #shareware
  415.       (cat "ARCHandler es Shareware!\n¡No te olvides de registrarte!")
  416.     )
  417.   )
  418. )
  419.  
  420. ;================================================================================
  421. ; Swedish strings
  422.  
  423. (if (= pref-language "svenska")
  424.   (
  425.     (set #bad-kick
  426.       (cat "Du måste använda Kickstart 2.04+ för att installera ReqChange")
  427.     )
  428.  
  429.     (set #install
  430.       (cat
  431.         "\nARCHandler-installation\n\n\n"
  432.         "Det här programmet installerar ARCHandler 2.0\n"
  433.         "i din Amiga.\n\n\n"
  434.         "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
  435.         "Alla rättigheter reserverade"
  436.       )
  437.     )
  438.  
  439.     (set #update
  440.       (cat
  441.         "\nARCHandler-installation\n\n\n"
  442.         "Det här programmet uppdaterar ARCHandler\n"
  443.         "till version 2.0.\n\n\n"
  444.         "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
  445.         "Alla rättigheter reserverade"
  446.       )
  447.     )
  448.  
  449.     (set #archandler-dest "Var vill du placera?")
  450.  
  451.     (set #archandler-dest-help
  452.       (cat
  453.         "Välj den låda du vill placera ARCHandler i. "
  454.         "ARCHandler-programmet kommer att kopieras till den här lådan. "
  455.         "Installationsprogrammet kommer också att skapa lådan 'ARCFiles' i "
  456.         "den här lådan.\n\n"
  457.       ) ; add something here
  458.     )
  459.  
  460.     ;(set #ask-parts "")
  461.  
  462.     ;(set #archandler-part "")
  463.     ;(set #wbstartup-part "")
  464.     ;(set #catalogs-part "")
  465.     ;(set #help-part "")
  466.     ;(set #pictures-part "")
  467.     ;(set #icons-part "")
  468.     ;(set #support-part "")
  469.     ;(set #delete1x-part "")
  470.  
  471.     ;(set #ask-parts-help "")
  472.  
  473.     (set #ask-tempdir "Välj en låda att lagra temporära filer i:")
  474.  
  475.     (set #ask-tempdir-help
  476.       (cat
  477.         "För att ARCHandler ska fungera korrekt så måste den ha ett ställe "
  478.         "att lagra sina temporära filer i. Alla filer som packas upp från "
  479.         "arkivet placeras i den här lådan. Den bör vara stor nog för att "
  480.         "kunna hålla alla dessa filer. Om du har mycket RAM-minne bör du använda "
  481.         "en låda på ramdisken, använd annars en låda på disk.\n\n"
  482.       )
  483.     )
  484.  
  485.     (set #ask-lhacommand "Ange sökvägen till LhA-kommandot:")
  486.  
  487.     (set #ask-lhacommand-help
  488.       (cat
  489.         "För att ARCHandler ska fungera korrekt så måste den veta var "
  490.         "LhA-kommandot finns. Om du vill använda en resident kopia av LhA "
  491.         "(= snabbare ARCHandler), så ange en tom 'aktuell låda', och se "
  492.         "till att LhA är resident.\n\n"
  493.       )
  494.     )
  495.  
  496.     ;(set #which-catalog-language "")
  497.  
  498.     ;(set #which-catalog-language-help "")
  499.  
  500.     ;(set #which-help-language "")
  501.  
  502.     ;(set #which-help-language-help "")
  503.  
  504.     (set #support-dest
  505.       (cat "Var vill du installera de extra kommandona FromARC och ToARC?")
  506.     )
  507.  
  508.     (set #support-help
  509.       "Kommandona FromARC och ToARC låter dig ändra ett skals aktuella låda.\n\n"
  510.     )
  511.  
  512.     (set #shareware
  513.       (cat
  514.         "ARCHAndler är shareware!\nGlöm inte att registrera!"
  515.       )
  516.     )
  517.   )
  518. )
  519.  
  520. ;================================================================================
  521. ; check Kickstart and Workbench
  522.  
  523. (if (< (/ (getversion) 65536) 37)
  524.   (
  525.     (abort #bad-kick)
  526.   )
  527. )
  528. (set wbversion (/ (getversion "version.library") 65536))
  529.  
  530. ;================================================================================
  531. ; Hi there...
  532.  
  533. ; try to find ARCHandler
  534. (user 0)
  535. (run 'SetEnv archandlerpath "`C/FindCommand ARCHandler`"'
  536.   (safe)
  537. )
  538. (set archandler-dest (pathonly (getenv "archandlerpath")))
  539. (run 'UnSetEnv archandlerpath'
  540.   (safe)
  541. )
  542.  
  543. ; install or update?
  544. (user 1)
  545. (if (= archandler-dest "")
  546.   (
  547.     (message #install "\n\n" #shareware)
  548.     (set update 0)
  549.   )
  550.   (
  551.     (message #update "\n\n" #shareware)
  552.     (set update 1)
  553.   )
  554. )
  555. (welcome)
  556. (set old-user-level @user-level)
  557.  
  558. ;================================================================================
  559. ; Ask questions
  560.  
  561. (complete 0)
  562.  
  563. ; find destination
  564. (if (not update)
  565.   (
  566.     (user 2)
  567.     (set archandler-dest
  568.       (askdir
  569.         (prompt #archandler-dest)
  570.         (help #archandler-dest-help @askdir-help)
  571.         (default @default-dest)
  572.       )
  573.     )
  574.     (user old-user-level)
  575.     (if (= (exists (tackon archandler-dest "ARCHandler") (noreq)) 1)
  576.       (set update 1)
  577.     )
  578.   )
  579. )
  580.  
  581. (complete 5)
  582.  
  583. ; try to find support commands
  584. (user 0)
  585. (run 'SetEnv supportpath "`C/FindCommand FromARC`"'
  586.   (safe)
  587. )
  588. (set support-dest (pathonly (getenv "supportpath")))
  589. (run 'UnSetEnv supportpath'
  590.   (safe)
  591. )
  592. ;(user old-user-level)
  593.  
  594. ; try to find old support command
  595. ;(user 0)
  596. (run 'SetEnv flusharcpath "`C/FindCommand FlushARC`"'
  597.   (safe)
  598. )
  599. (set flusharc-dir (pathonly (getenv "flusharcpath")))
  600. (run 'UnSetEnv flusharcpath'
  601.   (safe)
  602. )
  603. (user old-user-level)
  604.  
  605. (complete 10)
  606.  
  607. ; select parts to install
  608. (set default-parts (+ 1 8))
  609. (if (exists "SYS:WbStartup/StartARC" (noreq))
  610.   (set default-parts (bitor default-parts 2))
  611. )
  612. (if (and (<= wbversion 38) (exists "LOCALE:"))
  613.   (set default-parts (bitor default-parts 4))
  614. )
  615. (if (<= wbversion 39)
  616.   (set default-parts (bitor default-parts 16))
  617. )
  618. (if (not update)
  619.   (set default-parts (bitor default-parts 32))
  620. )
  621. (if (<> support-dest "")
  622.   (set default-parts (bitor default-parts 64))
  623. )
  624. (if (or (exists "L:arc-handler") (<> flusharc-dir ""))
  625.   (set default-parts (bitor default-parts 128))
  626. )
  627. (set parts
  628.   (askoptions
  629.     (prompt #ask-parts)
  630.     (help #ask-parts-help @askoptions-help)
  631.     (choices
  632.       #archandler-part
  633.       #wbstartup-part
  634.       #catalogs-part
  635.       #help-part
  636.       #pictures-part
  637.       #icons-part
  638.       #support-part
  639.       #delete1x-part
  640.     )
  641.     (default default-parts)
  642.   )
  643. )
  644.  
  645. (complete 15)
  646.  
  647. ; select directory for temporary files
  648. (if (and (not update) (bitand parts 1))
  649.   (set tempdir
  650.     (askdir
  651.       (prompt #ask-tempdir)
  652.       (help #ask-tempdir-help @askdir-help)
  653.       (default @default-tempdir)
  654.     )
  655.   )
  656. )
  657.  
  658. (complete 20)
  659.  
  660. ; select lha command
  661. (if (and (not update) (bitand parts 1))
  662.   (
  663.     (user 0)
  664.     (run 'SetEnv lhapath "`C/FindCommand LhA`"'
  665.       (safe)
  666.     )
  667.     (set lhapath (getenv "lhapath"))
  668.     (run 'UnSetEnv lhapath'
  669.       (safe)
  670.     )
  671.     (if (= lhapath "")
  672.       (
  673.         (user 2)
  674.         (set lhapath
  675.           (askdir
  676.             (prompt #ask-lhacommand)
  677.             (help #ask-lhacommand-help @askdir-help)
  678.             (default "C:")
  679.           )
  680.         )
  681.       )
  682.     )
  683.     (user old-user-level)
  684.   )
  685. )
  686.  
  687. (complete 25)
  688.  
  689. ; select catalog languages to install
  690. (if (bitand parts 4)
  691.   (
  692.     ; default language
  693.     (set n 0)
  694.     (set m 1)
  695.     (set default-catalog-languages 1)
  696.     (while
  697.       (set catalog-language
  698.         (select n
  699.           "english"
  700.           "español"
  701.           "italiano"
  702.           "nederlands"
  703.           "português"
  704.           "svenska"
  705.           ""
  706.         )
  707.       )
  708.       (
  709.         (if (= catalog-language pref-language)
  710.           (set default-catalog-languages m)
  711.         )
  712.         (set n (+ n 1))
  713.         (set m (+ m m))
  714.       )
  715.     )
  716.  
  717.     ; select languages
  718.     (set catalog-languages
  719.       (askoptions
  720.         (prompt #which-catalog-language)
  721.         (help #which-catalog-language-help @askoptions-help)
  722.         (choices
  723.           "English"
  724.           "Español"
  725.           "Italiano"
  726.           "Nederlands"
  727.           "Português"
  728.           "Svenska"
  729.         )
  730.         (default default-catalog-languages)
  731.       )
  732.     )
  733.   )
  734. )
  735.  
  736. (complete 30)
  737.  
  738. ; select help languages to install
  739. (if (bitand parts 8)
  740.   (
  741.     ; default language
  742.     (set n 0)
  743.     (set m 1)
  744.     (set default-help-languages 1)
  745.     (while
  746.       (set help-language
  747.         (select n
  748.           "english"
  749.           ""
  750.         )
  751.       )
  752.       (
  753.         (if (= help-language pref-language)
  754.           (set default-help-languages m)
  755.         )
  756.         (set n (+ n 1))
  757.         (set m (+ m m))
  758.       )
  759.     )
  760.  
  761.     ; select languages
  762.     (set help-languages
  763.       (askoptions
  764.         (prompt #which-help-language)
  765.         (help #which-help-language-help @askoptions-help)
  766.         (choices
  767.           "English"
  768.         )
  769.         (default default-help-languages)
  770.       )
  771.     )
  772.   )
  773. )
  774.  
  775. (complete 35)
  776.  
  777. ; where do the support commands go?
  778. (if (bitand parts 64)
  779.   (
  780.     (if (= support-dest "")
  781.       (
  782.         (user 2)
  783.         (set support-dest
  784.           (askdir
  785.             (prompt #support-dest)
  786.             (help #support-help @askdir-help)
  787.             (default @default-support-dest)
  788.           )
  789.         )
  790.         (user old-user-level)
  791.       )
  792.     )
  793.   )
  794. )
  795.  
  796. (complete 40)
  797.  
  798. ;================================================================================
  799. ; Install everything
  800.  
  801. ; program
  802. (if (bitand parts 1)
  803.   (
  804.     (copylib
  805.       (source archandler-src)
  806.       (dest archandler-dest)
  807.     )
  808.  
  809.     ; it's icon
  810.     (if (not update)
  811.       (
  812.         (copyfiles
  813.           (source archandlericon-src)
  814.           (dest archandler-dest)
  815.         )
  816.         (tooltype
  817.           (dest (tackon archandler-dest "ARCHandler"))
  818.           (settooltype "LHACOMMAND" lhapath)
  819.           (settooltype "(LHACOMMAND")
  820.           (settooltype "FILESDIR" (tackon archandler-dest "ARCFiles"))
  821.           (settooltype "(FILESDIR")
  822.           (settooltype "TEMPDIR" tempdir)
  823.           (settooltype "(TEMPDIR")
  824.           (noposition)
  825.         )
  826.       )
  827.     )
  828.   )
  829. )
  830.  
  831. (complete 50)
  832.  
  833. ; launcher
  834. (if (bitand parts 2)
  835.   (
  836.     ; WbStartup drawer
  837.     (makedir "SYS:WbStartup"
  838.       (infos)
  839.     )
  840.  
  841.     ; launcher
  842.     (copylib
  843.       (source startarc-src)
  844.       (dest "SYS:WbStartup")
  845.     )
  846.  
  847.     ; launcher icon
  848.     (if (not (bitand default-parts 2))
  849.       (
  850.         (copyfiles
  851.           (source startarcicon-src)
  852.           (dest "SYS:WbStartup")
  853.         )
  854.         (tooltype
  855.           (dest "SYS:WbStartup/StartARC")
  856.           (settooltype "PROGRAM" (tackon archandler-dest "ARCHandler"))
  857.           (settooltype "(PROGRAM")
  858.           (noposition)
  859.         )
  860.       )
  861.     )
  862.   )
  863. )
  864.  
  865. (complete 60)
  866.  
  867. ; files dir
  868. (if (bitand parts 33)
  869.   (
  870.     (set arcfiles-dest (tackon archandler-dest "ARCFiles"))
  871.     (makedir arcfiles-dest)
  872.  
  873.     ; default icons
  874.     (if (bitand parts 32)
  875.       (copyfiles
  876.         (source arcfiles-src)
  877.         (dest arcfiles-dest)
  878.         (all)
  879.       )
  880.     )
  881.   )
  882. )
  883.  
  884. (complete 65)
  885.  
  886. ; catalogs
  887. (if (bitand parts 4)
  888.   (
  889.     ; catalog directory
  890.     (makedir "LOCALE:Catalogs")
  891.  
  892.     ; catalogs
  893.     (set n 0)
  894.     (while
  895.       (set catalog-language
  896.         (select n
  897.           "english"
  898.           "español"
  899.           "italiano"
  900.           "nederlands"
  901.           "português"
  902.           "svenska"
  903.           ""
  904.         )
  905.       )
  906.       (
  907.         (if (and (in catalog-languages n) (<> "english" catalog-language))
  908.           (
  909.             (copyfiles
  910.               (source catalog-src)
  911.               (dest "LOCALE:Catalogs/")
  912.               (pattern catalog-language)
  913.             )
  914.           )
  915.         )
  916.         (set n (+ n 1))
  917.       )
  918.     )
  919.   )
  920. )
  921.  
  922. (complete 75)
  923.  
  924. ; help
  925. (if (bitand parts 24)
  926.   (
  927.     ; help directory
  928.     (set help-dest (tackon archandler-dest "Help"))
  929.     (makedir help-dest
  930.       (infos)
  931.     )
  932.  
  933.     ; help files
  934.     (if (bitand parts 8)
  935.       (
  936.         (set n 0)
  937.         (while
  938.           (set help-language
  939.             (select n
  940.               "english"
  941.               ""
  942.             )
  943.           )
  944.           (
  945.             (if (in help-languages n)
  946.               (
  947.                 (makedir (tackon help-dest help-language)
  948.                   (infos)
  949.                 )
  950.                 (copyfiles
  951.                   (source help-src)
  952.                   (dest help-dest)
  953.                   (pattern help-language)
  954.                 )
  955.                 (tooltype
  956.                   (dest (tackon (tackon help-dest help-language) "ARCHandler.guide"))
  957.                   (if (<= wbversion 39)
  958.                     (setdefaulttool "MultiView")
  959.                     (setdefaulttool "AmigaGuide")
  960.                   )
  961.                   (noposition)
  962.                 )
  963.               )
  964.             )
  965.             (set n (+ n 1))
  966.           )
  967.         )
  968.       )
  969.     )
  970.  
  971.     (complete 85)
  972.  
  973.     ; help pictures
  974.     (if (bitand parts 16)
  975.       (copyfiles
  976.         (source (tackon help-src "Pictures"))
  977.         (dest (tackon help-dest "Pictures"))
  978.         (all)
  979.       )
  980.     )
  981.   )
  982. )
  983.  
  984. (complete 90)
  985.  
  986. ; support commands
  987. (if (bitand parts 64)
  988.   (
  989.     (copylib
  990.       (source fromarc-src)
  991.       (dest support-dest)
  992.     )
  993.     (copylib
  994.       (source toarc-src)
  995.       (dest support-dest)
  996.     )
  997.   )
  998. )
  999.  
  1000. (complete 98)
  1001.  
  1002. ; delete 1.x archandler
  1003. (if (bitand parts 128)
  1004.   (
  1005.     (delete "L:arc-handler")
  1006.     (delete (tackon flusharc-dir "FlushARC"))
  1007.     (delete "DEVS:DOSDrivers/ARC")
  1008.     (delete "DEVS:DOSDrivers/ARC.info")
  1009.     (delete "SYS:Storage/DOSDrivers/ARC")
  1010.     (delete "SYS:Storage/DOSDrivers/ARC.info")
  1011.   )
  1012. )
  1013.  
  1014. (complete 100)
  1015.  
  1016. ;================================================================================
  1017. ; Goodbye...
  1018.  
  1019. (set @default-dest archandler-dest)
  1020. (exit "\n" #shareware)
  1021.