home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 3 / AACD03.BIN / AACD / Programming / Triton / Source / installation / InstScr_2.1 < prev    next >
Text File  |  1998-05-23  |  14KB  |  428 lines
  1.  
  2. ; Install script for Triton (Workbench 2.1 or higher)
  3.  
  4. (set default-dest "")
  5. (set old_level @user-level)
  6.  
  7. (set tritonlib37 "//libs37/triton.library")
  8. (set tritonlib39 "//libs39/triton.library")
  9. (set tritonprefs "//Prefs/Triton")
  10. (set trPrefsUpdate "//trPrefsUpdate")
  11. (set catalogdir "//Catalogs/")
  12.  
  13.  
  14. ;=============================================================================
  15. ; English strings
  16.  
  17. (set default_lang 0)
  18.  
  19. (set #bad-kick        "You must be using Kickstart 2.04+ to run Triton.")
  20. (set #ask-kick39 (cat    "You are running OS3.0 or higher. Do you want to install a special OS3.0+ "
  21.             "version of triton.library?"))
  22. (set #help-kick39 (cat    "The OS3.0+ version of triton.library is shorter and faster than the "
  23.             "general OS2.04+ version. It cannot be used with OS versions below 3.0."))
  24. (set #ask-prefs        "Do you want to install the Triton Preferences editor?")
  25. (set #help-prefs (cat    "The Triton Preferences editor allows you to change the look and feel "
  26.             "of all Triton applications' GUIs to fit your personal taste."))
  27. (set #ask-makedir1     "Do you want to create the directory\n\nenv:Triton ?")
  28. (set #ask-makedir2     "Do you want to create the directory\n\nenvarc:Triton ?")
  29. (set #help-makedir (cat    "Triton needs the directories env:Triton and envarc:Triton to save it's "
  30.             "configuration files. Without these directories you cannot use window "
  31.             "position remembering or the Triton Preferences editor. You may create "
  32.             "and delete these directories at any time with the Preferences editor.\n\n"
  33.             @makedir-help))
  34. (set #ask-updateprefs     "\nDo you want to update the preferences files?")
  35. (set #help-updateprefs (cat "You have to update the Triton Preferences settings for your new "
  36.             "Triton version. This will be done automatically. You cannot use the new "
  37.             "settings files with older Triton versions."))
  38. (set #copying-triton    "Copying triton.library to Libs:...")
  39. (set #copying-prefs    "Copying Triton Preferences editor to sys:Prefs...")
  40. (set #install-msg (cat    "\n\nTriton installation script.\n"
  41.             "This script installs Triton on your Amiga.\n\n"
  42.             "Read the 'Distribution' file for\n"
  43.             "more information on the distribution\n"
  44.             "and commercial usage of Triton.\n\n"
  45.             "Triton © 1993-1995 Stefan Zeiger.\n"
  46.             "All rights reserved."))
  47. (set #which-language    "\nWhich languages should be installed?")
  48. (set #which-language-help (cat
  49.             "\nThe Amiga can be operated in many different"
  50.             " languages. If you want Triton to"
  51.             " use the same language as the Amiga Workbench,"
  52.             " a catalog file must be copied to your"
  53.             " system disk for each language supported.\n\n"
  54.             "To reduce the amount of space consumed by the"
  55.             " language files, you can select to have only the"
  56.             " files of specific languages copied.\n\n"
  57.             "Simply check the boxes of the languages you wish"
  58.             " to have available on your system.\n\n"
  59.             @askoptions-help))
  60.  
  61. ;=============================================================================
  62. ; Portugues strings
  63.  
  64. (if (= @language "português")
  65. (
  66.  
  67. (set default_lang 0)
  68.  
  69. (set #bad-kick
  70. (cat "É preciso de ter o Kickstart 2.04+ para poder instalar!" ))
  71.  
  72. (set #copying-triton "Copiando triton.library para a Libs:...")
  73.  
  74. (set #install-msg
  75. (cat "\n\nScript de Instalação do Triton.\n"
  76.      "Este script instala o Triton no seu Amiga.\n\n"
  77.      "Leia o ficheiro 'Distribution' para\n"
  78.      "mais informação acerca da distribuição\n"
  79.      "e uso comercial do Triton.\n\n"
  80.      "Triton © 1993-1995 Stefan Zeiger.\n"
  81.      "Todos os Direitos Reservados."
  82. ))
  83.  
  84. ))
  85.  
  86. ;=============================================================================
  87. ; Spanish strings
  88.  
  89. (if (= @language "español")
  90. (
  91.  
  92. (set default_lang 0)
  93.  
  94. ; string needs to be changed (see english string)
  95. (set #bad-kick
  96. (cat "Necesita usar el Kickstart 2.04+ para instalar!"
  97. ))
  98.  
  99. (set #copying-triton "Copiado triton.library a Libs:...")
  100.  
  101. ))
  102.  
  103. ;=============================================================================
  104. ; French strings
  105.  
  106. (if (= @language "français")
  107. (
  108.  
  109. (set default_lang 2)
  110.  
  111. (set #bad-kick "Vous devez utiliser le Kickstart 2.04+ pour pouvoir utiliser Triton")
  112.  
  113. (set #copying-triton "Copie du fichier triton.library vers Libs:...")
  114.  
  115. (set #install-msg
  116. (cat "\n\nScript d'installation de Triton.\n"
  117.      "Ce script installe Triton sur votre Amiga.\n\n"
  118.      "Lisez le fichier intitulé 'Distribution' pour\n"
  119.      "de plus amples informations sur la distribution\n"
  120.      "et l'utilisation commerciale de Triton.\n\n"
  121.      "Triton © 1993-1995 Stefan Zeiger.\n"
  122.      "Tous Droits réservés."
  123. ))
  124.  
  125. ))
  126.  
  127. ;=============================================================================
  128. ; German strings
  129.  
  130. (if (= @language "deutsch")
  131. (
  132.  
  133. (set default_lang 1)
  134.  
  135. (set #bad-kick        "Triton benötigt mindestens OS2.04.")
  136. (set #ask-kick39 (cat    "Sie haben OS3.0 oder höher installiert. Wollen Sie die OS3.0+-Version "
  137.             "von triton.library installieren?"))
  138. (set #help-kick39 (cat    "Die OS3.0+-Version ist kürzer und schneller als die herkömmliche  "
  139.             "OS2.04+-Version. Sie kann allerdings nicht mit Betriebssystemversionen "
  140.             "kleiner als 3.0 verwendet werden."))
  141. (set #ask-prefs        "Wollen Sie den Triton-Voreinsteller installieren?")
  142. (set #help-prefs (cat    "Mit Hilfe des Triton-Voreinstellers können Sie alle mit Triton erstellten "
  143.             "Oberflächen Ihrem persönlichen Geschmack anpassen."))
  144. (set #ask-makedir1     "Wollen Sie das Verzeichnis\n\nenv:Triton\n\nerzeugen?")
  145. (set #ask-makedir2     "Wollen Sie das Verzeichnis\n\nenvarc:Triton\n\nerzeugen?")
  146. (set #help-makedir (cat    "Triton benötigt die Verzeichnisse env:Triton und envarc:Triton, um dort "
  147.             "Konfigurationsdateien zu sichern. Ohne diese Verzeichnisse können Sie z.B. "
  148.             "den Window-Manager und die Voreinstellungen von Triton nicht verwenden. "
  149.             "Sie können die Verzeichnisse jederzeit im Triton-Voreinsteller entfernen "
  150.             "oder einrichten lassen.\n\n"
  151.             @makedir-help))
  152. (set #ask-updateprefs     "\nWollen Sie die Voreinstellungs-Dateien aktualisieren lassen?")
  153. (set #help-updateprefs (cat "Die Dateien müssen für eine neue Triton-Version aktualisiert "
  154.             "werden. Dies geschieht automatisch. Sie können dann nicht mehr von "
  155.             "älteren Triton-Systemen gelesen werden."))
  156. (set #copying-triton    "Kopiere triton.library nach Libs:...")
  157. (set #copying-prefs    "Kopiere Triton-Voreinsteller nach sys:Prefs...")
  158. (set #install-msg (cat    "\n\nTriton-Installationsskript.\n"
  159.             "Dieses Skript installiert Triton auf Ihrem Amiga.\n\n"
  160.             "Lesen Sie die Datei 'Distribution' für\n"
  161.             "weitere Informationen über Weitergabe\n"
  162.             "und kommerzielle Nutzung von Triton.\n\n"
  163.             "Triton © 1993-1995 Stefan Zeiger.\n"
  164.             "Alle Rechte vorbehalten."))
  165. (set #which-language    "\nWelche Sprachen wollen Sie installieren?")
  166. (set #which-language-help (cat
  167.             "\nDer Amiga kann in vielen verschiedenen Sprachen betrieben werden. "
  168.             "Wenn Sie wollen, daß Triton die gleiche Sprache "
  169.             "wie die Amiga-Workbench benutzt, müssen für jede zu installierende Sprache "
  170.             "zwei Dateien auf Ihre Festplatte kopiert werden.\n\n"
  171.             "Um den Platz in Grenzen zu halten, den die Sprachentreiberdateien "
  172.             "einnehmen, können Sie wählen, nur die Treiber für bestimmte "
  173.             "Sprachen zu installieren.\n\n"
  174.             "Markieren Sie einfach die Felder derjenigen Sprachen, die Sie in "
  175.             "Ihrem System verfügbar haben wollen.\n\n"
  176.             @askoptions-help))
  177.  
  178. ))
  179.  
  180. ;=============================================================================
  181. ; Dutch strings
  182.  
  183. (if (= @language "nederlands")
  184. (
  185.  
  186. (set default_lang 4)
  187.  
  188. ; string needs to be changed (see english string)
  189. (set #bad-kick "U moet Kickstart 2.04+ gebruiken om met dit installatie script te installeren!")
  190.  
  191. (set #copying-triton "Kopieer triton.library naar Libs:...")
  192.  
  193. (set #install-msg
  194. (cat "\n\nTriton installatie script.\n"
  195.      "Dit script installeert Triton op uw Amiga.\n\n"
  196.      "Lees het 'Distribution' bestand voor\n"
  197.      "meer informatie over de verspreiding\n"
  198.      "en het commcerciële gebruik van Triton.\n\n"
  199.      "Triton © 1993-1995 Stefan Zeiger.\n"
  200.      "All rights reserved."
  201. ))
  202.  
  203. ))
  204.  
  205. ;=============================================================================
  206. ; Italian strings
  207.  
  208. (if (= @language "italiano")
  209. (
  210. (set default_lang 0)
  211.  
  212. ; string needs to be changed (see english string)
  213. (set #bad-kick
  214. (cat "E' necessario il Kickstart 2.04+ per installare!"
  215. ))
  216.  
  217. (set #copying-triton "Copia triton.library nel Libs:...")
  218.  
  219. ))
  220.  
  221. ;=============================================================================
  222. ; Danish strings
  223.  
  224. (if (= @language "dansk")
  225. (
  226.  
  227. (set default_lang 0)
  228.  
  229. ; string needs to be changed (see english string)
  230. (set #bad-kick "Din maskine har ikke Kickstart 2.04+, mindstekravet for Triton.")
  231.  
  232. (set #copying-triton "Kopierer triton.library til Libs:...")
  233.  
  234. ))
  235.  
  236. ;=============================================================================
  237. ; Swedish strings
  238.  
  239. (if (= @language "svenska")
  240. (
  241. (set default_lang 8)
  242.  
  243. (set #bad-kick        "Du måste använda Kickstart 2.04+ för att använda Triton.")
  244. (set #ask-kick39 (cat    "Du använder OS 3.0 eller högre. Vill du installera en speciell "
  245.             "OS 3.0+ version av triton.library?"))
  246. (set #help-kick39 (cat    "  OS 3.0+ versionen av triton.library är mindre och snabbare än den "
  247.             "generella OS 2.04+ versionen. OS 3.0+ versionen kan inte användas med "
  248.             "OS-versioner under 3.0."))
  249. (set #ask-prefs        "Vill du installera Tritons inställningsredigerare?")
  250. (set #help-prefs (cat    "  Triton installationsredigerare låter dig ändra utseendet för "
  251.             "alla program som använder sig av Triton, så att de passar din "
  252.             "personliga smak."))
  253. (set #ask-makedir1     "Vill du skapa lådan\n\nEnv:Triton?")
  254. (set #ask-makedir2     "Vill du skapa lådan\n\nEnvArc:Triton?")
  255. (set #help-makedir (cat    "Triton behöver lådorna Env:Triton och EnvArc:Triton för att spara sina "
  256.             "inställningsfiler. Utan dessa lådor kan inte Triton komma ihåg fönstrens "
  257.             "position, och inställningsredigeraren kan inte användas. Du kan skapa "
  258.             "och ta bort dessa lådor när du vill med hjälp av "
  259.             "inställningsredigeraren.\n\n"
  260.             @makedir-help))
  261. (set #copying-triton    "Kopierar triton.library till Libs:...")
  262. (set #copying-prefs    "Kopierar Tritons inställningsredigerare till Sys:Prefs...")
  263. (set #install-msg (cat    "\n\nTritons installationsprogram.\n"
  264.             "Det här programmet låter dig installera Triton i din Amiga.\n\n"
  265.             "Läs filen 'Distribution' för mer\n"
  266.             "information om distributionen\n"
  267.             "och kommersiell användning av Triton.\n\n"
  268.             "Triton © 1993-1995 Stefan Zeiger.\n"
  269.             "Alla rättigheter reserverade."))
  270. (set #which-language    "\nVilka språk vill du installera?")
  271. (set #which-language-help (cat
  272.             "\n  Amigan kan arbeta med flera olika språk. "
  273.             "Om du vill att Triton ska använda "
  274.             "samma språk som Amiga Workbench så måste"
  275.             "en så kallad katalogfil koiperas till din "
  276.             "systemdisk för varje språk.\n\n"
  277.             "  För att minimera diskutrymmet för språkfiler "
  278.             "kan du välja att bara istallera filerna för "
  279.             "vissa språk.\n"
  280.             "  Markera bara rutorna för de språk du önskar installera i "
  281.             "din dator.\n\n"
  282.             @askoptions-help))
  283. ))
  284.  
  285. ;=============================================================================
  286. ; Norwegian strings
  287.  
  288. (if (= @language "norsk")
  289. (
  290.  
  291. (set default_lang 0)
  292.  
  293. ; string needs to be changed (see english string)
  294. (set #bad-kick "Du må ha Kickstart 2.04+ for å installere!")
  295.  
  296. (set #copying-triton "Kopier fil triton.library til Libs:...")
  297.  
  298. ))
  299.  
  300. ;=============================================================================
  301. ; make sure we are running under Kickstart 2.04 (v37) or better
  302.  
  303. (if (< (/ (getversion) 65536) 37)
  304. (
  305.     (abort #bad-kick)
  306. ))
  307.  
  308. ;=============================================================================
  309.  
  310. (message #install-msg)
  311.  
  312. (if    (< (/ (getversion) 65536) 39)
  313.     (copylib
  314.         (prompt "\n" #copying-triton)
  315.         (help @copylib-help)
  316.         (source tritonlib37)
  317.         (dest "Libs:")
  318.         (confirm)
  319.     )
  320.     (if    (askbool (prompt "\n" #ask-kick39) (help #help-kick39))
  321.         (copylib
  322.             (prompt "\n" #copying-triton)
  323.             (help @copylib-help)
  324.             (source tritonlib39)
  325.             (dest "Libs:")
  326.             (confirm)
  327.         )
  328.         (copylib
  329.             (prompt "\n" #copying-triton)
  330.             (help @copylib-help)
  331.             (source tritonlib37)
  332.             (dest "Libs:")
  333.             (confirm)
  334.         )
  335.     )
  336. )
  337.  
  338. (if    (askbool (prompt "\n" #ask-prefs) (help #help-prefs))
  339.     (
  340.         (copyfiles
  341.             (prompt "\n" #copying-prefs)
  342.             (source tritonprefs)
  343.             (dest "sys:Prefs/")
  344.             (infos)
  345.             (files)
  346.         )
  347.         (if    (= (exists ("env:Triton") (noreq)) 0)
  348.             (
  349.                 (makedir
  350.                     ("env:Triton")
  351.                     (confirm)
  352.                     (prompt "\n" #ask-makedir1)
  353.                     (help #help-makedir)
  354.                 )
  355.                 (makedir
  356.                     ("envarc:Triton")
  357.                     (confirm)
  358.                     (prompt "\n" #ask-makedir2)
  359.                     (help #help-makedir)
  360.                 )
  361.             )
  362.             (run trPrefsUpdate
  363.                 (prompt #ask-updateprefs)
  364.                 (help #help-updateprefs)
  365.                 (confirm)
  366.             )
  367.         )
  368.     )
  369. )
  370.  
  371. (if    (exists "SYS:Locale")
  372.     (if    (exists "LOCALE:")
  373.         (
  374.             (user 2)
  375.             (set lang    (askoptions    (prompt #which-language)
  376.                             (help #which-language-help)
  377.                             (choices
  378. ;                                "Dansk"
  379.                                 "Deutsch"
  380. ;                                "English"
  381. ;                                "Español"
  382.                                 "Français"
  383. ;                                "Italiano"
  384.                                 "Nederlands"
  385. ;                                "Norsk"
  386. ;                                "Português"
  387.                                 "Svenska"
  388.                             )
  389.                             (default default_lang)
  390.                      )
  391.             )
  392.             (user old_level)
  393.             (set n 0)
  394.             (while    (set language    (select n
  395. ;                            "dansk"
  396.                             "deutsch"
  397. ;                            "english"
  398. ;                            "español"
  399.                             "français"
  400. ;                            "italiano"
  401.                             "nederlands"
  402. ;                            "norsk"
  403. ;                            "português"
  404.                             "svenska"
  405.                             ""
  406.                         )
  407.                 )
  408.                 (
  409.                     (if    (IN lang n)
  410.                         (
  411.                             (if    (<> 2 n)
  412.                                 (
  413.                                     (makedir (cat "LOCALE:Catalogs/" language))
  414.                                     (copyfiles    (source (cat catalogdir language))
  415.                                               (dest (cat "LOCALE:Catalogs/" language))
  416.                                               (all)
  417.                                     )
  418.                                 )
  419.                             )
  420.                         )
  421.                     )
  422.                     (set n (+ n 1))
  423.                 )
  424.             )
  425.         )
  426.     )
  427. )
  428.