home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 109 / EnigmaAmiga109CD.iso / software / utilities / shellscr / install-shellscr < prev    next >
Encoding:
Text File  |  1999-12-22  |  7.4 KB  |  314 lines
  1. ; catalog languages
  2. ; 0 ENGLISH
  3. ; 1 ÇEÎTINA (CZECH)
  4. ; 2 DANSK
  5. ; 3 DEUTSCH
  6. ; 4 ESPAÑOL
  7. ; 5 FRANÇAIS
  8. ; 6 GREEK
  9. ; 7 ITALIANO
  10. ; 8 MAGYAR
  11. ; 9 NORSK
  12. ; 10 PORTUGUÊS
  13. ; 11 PORTUGUÊS-BRASIL
  14. ; 12 RUSSIAN
  15. ; 13 SLOVENSKO
  16. ; 14 SRPSKI
  17. ; 15 SUOMI
  18. ; 16 SVENSKA
  19.  
  20. ; guide languages
  21. ; 0 ENGLISH
  22. ; 1 DEUTSCH
  23. ; 2 ITALIANO
  24. ; 3 PORTUGUÊS
  25. ; 4 RUSSIAN
  26. ; 5 SLOVENSKO
  27. ; 6 SUOMI
  28. ; 7 SVENSKA
  29.  
  30. ; default-strings - english
  31. (set #askdir (cat
  32.   "Where would you like " @app-name " installed?\n"
  33.   "No extra drawer will be created."
  34. ))
  35. (set #askcatlang "Which catalog would you like to install?")
  36. (set #askdoclang "Which guide would you like to install?")
  37. (set #askdocdir  "Where would you like to install the guide?")
  38. (set #def-guide-lang 0)
  39. (set #def-cat-lang 0)
  40.  
  41.  
  42. ; translations
  43. (if (= @language "czech") (
  44.   (set #askdir (cat
  45.     "Kam chcete " @app-name " nainstalovat?\n"
  46.     "Adresáê NEBUDE vytvoêen."
  47.     )
  48.   )
  49.   (set #askcatlang "Který z lokalizaçních katalogû chcete nainstalovat?")
  50.   (set #askdoclang "Který z pêeloùených dokumentû typu .guide chcete nainstalovat?")
  51.   (set #askdocdir  "Kam chcete dokumentaci nainstalovat?")
  52.   (set #def-cat-lang 1)
  53. ))
  54.  
  55. (if (= @language "dansk") (
  56.   (set #askdir (cat
  57.     "Hvor ønsker du " @app-name " installeret?\n"
  58.     "Der vil ikke blive oprettet et nyt katalog."
  59.     )
  60.   )
  61.   (set #askcatlang "Hvilken oversættelse ønsker du at installere?")
  62.   (set #askdoclang "Hvilken dokumentation ønsker du at installere?")
  63.   (set #askdocdir  "Hvor ønsker du at installere dokumentationen?")
  64.   (set #def-cat-lang 2)
  65. ))
  66.  
  67. (if (= @language "deutsch") (
  68.   (set #askdir (cat
  69.     "Wo soll " @app-name " installiert werden?\n"
  70.     "Es wird keine neue Schublade angelegt."
  71.     )
  72.   )
  73.   (set #askcatlang "Welcher Katalog soll installiert werden?")
  74.   (set #askdoclang "Welche Anleitung soll installiert werden?")
  75.   (set #askdocdir  "Wo soll die Anleitung installiert werden?")
  76.   (set #def-guide-lang 1)
  77.   (set #def-cat-lang 3)
  78. ))
  79.  
  80.  
  81. (if (= @language "español") (
  82.   (set #askdir (cat
  83.     "¿Dónde desea instalar " @app-name "?\n"
  84.     "No se creará ningún directorio."
  85.     )
  86.   )
  87.   (set #askcatlang "¿Qué catálogo desea instalar?")
  88.   (set #askdoclang "¿Qué guía desea instalar?")
  89.   (set #askdocdir  "¿Dónde desea instalar la guía?")
  90.   (set #def-cat-lang 4)
  91. ))
  92.  
  93. (if (= @language "français")
  94.   (set #def-cat-lang 5)
  95. )
  96.  
  97. (if (= @language "greek")
  98.   (set #def-cat-lang 6)
  99. )
  100.  
  101. (if (= @language "italiano") (
  102.   (set #askdir (cat
  103.     "Dove desideri installare " @app-name " ?\n"
  104.     "Non sarà creato alcun nuovo cassetto."
  105.     )
  106.   )
  107.   (set #askcatlang "Quale catalogo desideri installare?")
  108.   (set #askdoclang "Quale documentazione desideri installare?")
  109.   (set #askdocdir  "Dove desideri installare la documentazione?")
  110.   (set #def-guide-lang 2)
  111.   (set #def-cat-lang 7)
  112. ))
  113.  
  114. (if (= @language "magyar") (
  115.   (set #askdir (cat
  116.     "Hova szeretnéd telepíteni a következõ programot: "@app-name "?\n"
  117.     "Új könyvtárat nem hozok létre."
  118.     )
  119.   )
  120.   (set #askcatlang "Melyik katalógust szeretnéd telepíteni?")
  121.   (set #askdoclang "Melyik guide-ot szeretnéd telepíteni?")
  122.   (set #askdocdir  "Hova telepítenéd a guide-ot?")
  123.   (set #def-cat-lang 8)
  124. ))
  125.  
  126. (if (= @language "norsk")
  127.   (set #def-cat-lang 9)
  128. )
  129.  
  130. (if (= @language "português") (
  131.   (set #askdir (cat
  132.     "Onde quer instalar o " @app-name "?\n"
  133.     "Não será criado um novo directório."
  134.     )
  135.   )
  136.   (set #askcatlang "Que catálogo quer instalar?")
  137.   (set #askdoclang "Que guia quer instalar?")
  138.   (set #askdocdir  "Onde quer instalar o guia?")
  139.  
  140.   (set #def-guide-lang 3)
  141.   (set #def-cat-lang 10)
  142. ))
  143.  
  144. (if (= @language "português-brasil") (
  145.   (set #askdir (cat
  146.     "Onde deseja que " @app-name " seja instalado?\n"
  147.     "Nenhuma gaveta será criada."
  148.     )
  149.   )
  150.   (set #askcatlang "Qual catálogo deseja instalar?")
  151.   (set #askdoclang "Que guide deseja instalar?")
  152.   (set #askdocdir  "Onde deseja que o guide seja instalado?")
  153.   (set #def-cat-lang 11)
  154. ))
  155.  
  156. (if (= @language "russian") (
  157.   (set #askdir (cat
  158.     "çÄÅ ÷Ù ÖÅÌÁÅÔÅ ÕÓÔÁÎÏ×ÉÔØ " @app-name "?\n"
  159.     "äÏÐÏÌÎÉÔÅÌØÎÙÊ ËÁÔÁÌÏÇ ÎÅ ÂÕÄÅÔ ÓÏÚÄÁ×ÁÔØÓÑ."
  160.     )
  161.   )
  162.   (set #askcatlang "ëÁËÏÊ ÑÚÙË × ÐÒÏÇÒÁÍÍÅ ÷Ù ÖÅÌÁÅÔÅ ÕÓÔÁÎÏ×ÉÔØ?")
  163.   (set #askdoclang "òÕËÏ×ÏÄÓÔ×Ï ÎÁ ËÁËÏÍ ÑÚÙËÅ ÷Ù ÖÅÌÁÅÔÅ ÕÓÔÁÎÏ×ÉÔØ?")
  164.   (set #askdocdir  "ëÕÄÁ ÷Ù ÈÏÔÉÔÅ ÐÏÍÅÓÔÉÔØ ÒÕËÏ×ÏÄÓÔ×Ï?")
  165.  
  166.   (set #def-guide-lang 4)
  167.   (set #def-cat-lang 12)
  168. ))
  169.  
  170. (if (= @language "slovensko") (
  171.   (set #askdir (cat
  172.     "Kam bi radi namestili " @app-name "?\n"
  173.     "Poseben predal ne bo ustvarjen."
  174.     )
  175.   )
  176.   (set #askcatlang "Kateri katalog bi radi namestili?")
  177.   (set #askdoclang "Kateri priroènik bi radi namestili?")
  178.   (set #askdocdir  "Kam bi radi namestili priroènik?")
  179.   (set #def-guide-lang 5)
  180.   (set #def-cat-lang 13)
  181. ))
  182.  
  183. (if (= @language "srpski")
  184.   (set #def-cat-lang 14)
  185. )
  186.  
  187. (if (= @language "suomi") (
  188.   (set #askdir (cat
  189.     "Mihin haluat ohjelman " @app-name " asennettavan?\n"
  190.     "Asennuksessa ei tehdä erillistä hakemistoa."
  191.     )
  192.   )
  193.   (set #askcatlang "Minkä kielen katalogin haluat asentaa?")
  194.   (set #askdoclang "Minkä kielisen guide-tiedoston haluat asentaa?")
  195.   (set #askdocdir  "Mihin haluat guide-tiedoston asennettavan?")
  196.   (set #def-guide-lang 6)
  197.   (set #def-cat-lang 15)
  198. ))
  199.  
  200. (if (= @language "svenska") (
  201.   (set #def-guide-lang 7)
  202.   (set #def-cat-lang 16)
  203. ))
  204.  
  205. ;------------------------------------------------------------------------------
  206. ; the installation
  207.  
  208. ; ask where to install the program - default SYS:Utilities
  209. (complete 0)
  210. (set @default-dest
  211.   (askdir
  212.     (help @askdir-help) (prompt #askdir)
  213.     (default "SYS:Utilities")
  214.   )
  215. )
  216.  
  217.  
  218. ; ask where to install the guide (default HELP:<language>)
  219. (complete 20)
  220. (set #guide-dest
  221.   (askdir
  222.     (help @askdir-help) (prompt #askdocdir)
  223.     (default (cat "HELP:" @language))
  224.   )
  225. )
  226.  
  227.  
  228. ; ask which guide to install
  229. (complete 40)
  230. (set #guide-lang
  231.   (askchoice
  232.     (help @askchoice-help) (prompt #askdoclang)
  233.     (choices
  234.       "English"        ; 0 ENGLISH
  235.       "Deutsch"        ; 1 GERMAN
  236.       "Italiano"    ; 2 ITALIAN
  237.       "Português"    ; 3 PORTUGUESE
  238.       "Russian"        ; 4 RUSSIAN
  239.       "Slovensko"    ; 5 SLOVENIAN
  240.       "Suomi"        ; 6 FINNISH
  241.       "Svenska"        ; 7 SWEDISH
  242.     )
  243.     (default #def-guide-lang)
  244.   )
  245. )
  246. (set #chosen-guide
  247.   (select #guide-lang
  248.     "english" "german" "italian" "portuguese"
  249.     "russian" "slovenian" "finnish" "swedish"
  250.   )
  251. )
  252.  
  253. ; ask which catalog to install
  254. (complete 60)
  255. (set #cat-lang
  256.   (askchoice
  257.     (help @askchoice-help) (prompt #askcatlang)
  258.     (choices
  259.       "English"            ; 0 ENGLISH
  260.       "Çeîtina"            ; 1 ÇEÎTINA (CZECH)
  261.       "Dansk"            ; 2 DANSK
  262.       "Deutsch"            ; 3 DEUTSCH
  263.       "Español"            ; 4 ESPAÑOL
  264.       "Français"        ; 5 FRANÇAIS
  265.       "Greek"            ; 6 GREEK
  266.       "Italiano"        ; 7 ITALIANO
  267.       "Magyar"            ; 8 MAGYAR
  268.       "Norsk"            ; 9 NORSK
  269.       "Português"        ; 10 PORTUGUÊS
  270.       "Português (Brasil)"    ; 11 PORTUGUÊS-BRASIL
  271.       "Russian"            ; 12 RUSSIAN
  272.       "Slovensko"        ; 13 SLOVENSKO
  273.       "Srpski"            ; 14 SRPSKI
  274.       "Suomi"            ; 15 SUOMI
  275.       "Svenska"            ; 16 SVENSKA
  276.     )
  277.     (default #def-cat-lang)
  278.   )
  279. )
  280. (set #locale
  281.   (select #cat-lang
  282.     "english" "czech" "dansk" "deutsch" "español" "français" "greek"
  283.     "italiano" "magyar" "norsk" "português" "português-brasil" "russian"
  284.     "slovensko" "srpski" "suomi" "svenska"
  285.   )
  286. )
  287.  
  288.  
  289. ; install the program
  290. (complete 80)
  291. (copyfiles
  292.    (source "ShellScr") (dest @default-dest) (infos) (noposition)
  293. )
  294.  
  295.  
  296. ; install the guide
  297. (complete 90)
  298. (copyfiles
  299.   (source (cat "docs/ShellScr_" #chosen-guide ".guide"))
  300.   (dest #guide-dest) (infos) (noposition)
  301. )
  302.  
  303. ; install the catalog
  304. (if (NOT (= #locale "english"))
  305.   (copyfiles
  306.     (source (cat "catalogs/" #locale "/ShellScr.catalog"))
  307.     (dest (cat "LOCALE:Catalogs/" #locale))
  308.   )
  309. )
  310.  
  311.  
  312. ; done
  313. (complete 100)
  314.