home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / tools / datatypes / icondt401 / install < prev    next >
Encoding:
Text File  |  1996-07-16  |  9.8 KB  |  304 lines
  1. ;******************************************************************************
  2. ; IconDT - Installscript
  3. ; Written by Swen K. Stullich/UFT   14.06.96, based of binary.dt and DTpref
  4. ;  install-scripts
  5. ; Localized by JosÚ Roberto Gonzßlez Rocha <alu756@csi.ull.es> 04.06.96
  6. ;******************************************************************************
  7.  
  8. ; Initialize a few things
  9. (set #datatype      "icon.datatype")
  10. (set #datatype-desc "ICON")
  11. (set language (getenv "language"))
  12. ;
  13. ;******************************************************************************
  14. ;******************************************************************************
  15. ; Locale Section
  16. ;******************************************************************************
  17. ;
  18. ; To translate this script just uncomment the code on your language section,
  19. ;   add the string and uncomment the parenthesis of your language at the end
  20. ;   of the locale section.
  21. ; If your language isnt listed below just copy an empty section just before
  22. ;   the english section, change the language name with yours, add the strings
  23. ;   and add a close parenthesis at the end of the locale section.
  24. ;
  25.  
  26. ;******************************************************************************
  27. ; Default language (english) strings
  28. ;
  29. ;******************************************************************************
  30.   (set #wellcome (cat @app-name "-Installer"))
  31.   (set #about (cat "Welcome to the " @app-name "-Install-Script\n\n" @app-name " is ®1994-96\nSwen K. Stullich\nUnited Forces Tools"))
  32.   (set #install "Install")
  33.   (set #installing "Installing ")
  34.   (set #copying "Copying ")
  35.   (set #copydescr "Copying the Descriptors")
  36.   (set #copydocs "Copying AmigaGuide file")
  37.   (set #remove "Remove")
  38.   (set #removing "Removing ")
  39.   (set #removeok (cat "The \"" @app-name "\" components that you specified have been successfully removed"))
  40.   (set #getdtdir "Where do the Datatypes belong")
  41.   (set #whichlang "Which languages should be installed?")
  42.   (set default_lang 1)
  43. ;
  44. ;******************************************************************************
  45. ; German strings
  46. ; Translated by Swen K. Stullich <Swen@Trashcan.mcnet.de>
  47. ;******************************************************************************
  48. (if (= language "deutsch")
  49.  (
  50.   (set #wellcome (cat @app-name "-Installer "))
  51.   (set #about (cat "Wilkommen zu dem " @app-name "-Install-Script\n\n" @app-name " ist ®1994-96\nSwen K. Stullich\nUnited Forces Tools"))
  52.   (set #install "Installieren")
  53.   (set #installing "Installiere ")
  54.   (set #copying "Kopiere ")
  55.   (set #copydescr "Kopiere den Descriptor")
  56.   (set #copydocs "Kopiere die AmigaGuide-Dateien")
  57.   (set #remove "Entfernen")
  58.   (set #removing "Entferne ")
  59.   (set #removeok (cat "Die \"" @app-name "\" Komponenten, die Du angegeben hast, wurden erfolgreich entfernt"))
  60.   (set #getdtdir "Wo befinden sich die Datatypes")
  61.   (set #whichlang "Welche Sprachen sollen installiert werden?")
  62.   (set default_lang 2)
  63.  )
  64. )
  65. ;
  66. ;******************************************************************************
  67. ; Spanish strings
  68. ; Translated by JosÚ Roberto Gonzßlez Rocha <alu756@csi.ull.es>
  69. ;******************************************************************************
  70. (if (= language "espa±ol")
  71.  (
  72.   (set #wellcome (cat "Instalador de" @app-name ))
  73.   (set #about (cat "Bienvenido al proceso de instalación de " @app-name "\n\n" @app-name " es ©1994-96\nSwen K. Stullich\nUnited Forces Tools\n\n\ntraducido al castellano por José Roberto González Rocha <alu756@csi.ull.es>"))
  74.   (set #install "Instalar")
  75.   (set #installing "Instalando ")
  76.   (set #copying "Copiando ")
  77.   (set #copydescr "Copiando los Descriptores")
  78.   (set #copydocs "Copiando fichero AmigaGuide")
  79.   (set #remove "Desinstalar")
  80.   (set #removing "Desinstalando ")
  81.   (set #removeok (cat "Los componentes de \"" @app-name "\" que ha especificado han sido desinstalados satisfactoriamente"))
  82.   (set #getdtdir "¿Dónde se encuentran los Datatypes?")
  83.   (set #whichlang "¿Qué lenguajes desea instalar?")
  84.   (set default_lang 4)
  85.  )
  86. )
  87. ;
  88. ;******************************************************************************
  89. ; Translated by 
  90. ; Jerome Chesnot <jchesnot@pratique.fr>
  91. ;******************************************************************************
  92. (if (= language "français")
  93.  (
  94.   (set #wellcome (cat @app-name "-Installer"))
  95.   (set #about (cat "Bienvenu dans le script d'installation d'" @app-name "\n\n" @app-name " par *1994-96\nSwen K. Stullich\nUnited Forces Tools\n\n\nTraduction française par Jérôme Chesnot"))
  96.   (set #install "Installer")
  97.   (set #installing "Installation de ")
  98.   (set #copying "Copie de ")
  99.   (set #copydescr "Copie des Descriptifs")
  100.   (set #copydocs "Copie de la documentation AmigaGuide")
  101.   (set #remove "Désinstaller")
  102.   (set #removing "Désinstallation de ")
  103.   (set #removeok (cat "Les composants \"" @app-name "\" que vous avez spécifiés ont été désinstallés avec succès"))
  104.   (set #getdtdir "Où se situent les Datatypes ?")
  105.   (set #whichlang "Quels langages doivent-être installés ?")
  106.   (set default_lang 8)
  107.  )
  108. )
  109. ;
  110. ;******************************************************************************
  111. ; Translated by Manuel Lemos <mlemos@ua.pt>
  112. ;******************************************************************************
  113. (if (= language "português")
  114.  (
  115.   (set #wellcome (cat @app-name "- Ferramenta de instalação"))
  116.   (set #about (cat @app-name "Procedimento de instalação\n\n" @app-name " is *1994-96\nSwen K. Stullich\nUnited Forces Tools\n\nTraduzido por Manuel Lemos <mlemos@ua.pt>"))
  117.   (set #install "Instalar")
  118.   (set #installing "A instalar ")
  119.   (set #copying "A copiar ")
  120.   (set #copydescr "A copiar os descritores")
  121.   (set #copydocs "A copiar o ficheiro de ajuda (AmigaGuide)")
  122.   (set #remove "Apagar")
  123.   (set #removing "A apagar ")
  124.   (set #removeok (cat "Os componentes de \"" @app-name "\" que especificou foram definitivamente apagados."))
  125.   (set #getdtdir "Aonde é que se encontram os \"Datatypes\" no disco?")
  126.   (set #whichlang "Que idiomas pretende que sejam instalados?")
  127.   (set default_lang 16)
  128.  )
  129. )
  130. ;
  131. ;******************************************************************************
  132. ; Translated by 
  133. ;******************************************************************************
  134. ;(if (= language "norsk")
  135. ; (
  136. ; )
  137. ;
  138. ;******************************************************************************
  139. ; Translated by 
  140. ;******************************************************************************
  141. ;(if (= language "suomi")
  142. ; (
  143. ; )
  144. ;
  145. ;******************************************************************************
  146. ; Translated by 
  147. ;******************************************************************************
  148. ;(if (= language "svenska")
  149. ; (
  150. ; 
  151. ;)
  152. ;******************************************************************************
  153. ; Translated by 
  154. ;******************************************************************************
  155. ;(if (= language "Ýslenska")
  156. ; (
  157. ; )
  158. ;
  159. ;******************************************************************************
  160. ; Translated by 
  161. ;******************************************************************************
  162. ;(if (= language "greek")
  163. ; (
  164. ; )
  165. ;
  166. ;
  167. ; End of Locale Section
  168. ;******************************************************************************
  169. ;
  170.  
  171.  
  172.  
  173. ;******************************************************************************
  174. ;******************************************************************************
  175. ; Welcome
  176. (welcome #wellcome)
  177. (message #about)
  178.  
  179.  
  180. ;******************************************************************************
  181. ; Ask for what we are doing (install - remove)
  182. (set mode
  183.     (askchoice
  184.         (prompt @app-name)
  185.         (help @askchoice-help)
  186.         (choices #install #remove)
  187.     )
  188. )
  189.  
  190. (if mode
  191.     (set pmode #remove)
  192.     (set pmode #install)
  193. )
  194.  
  195.  
  196. ;******************************************************************************
  197. ; get datatypes dir
  198. (set datatypesdir
  199.     (askdir
  200.         (prompt #getdtdir)
  201.             (help @askdir-help)
  202.             (default "SYS:Classes/Datatypes")
  203.     )
  204. )
  205.  
  206.  
  207. ; now do install or remove
  208. (if mode
  209.     ; *** We should remove the old one ***
  210.     (
  211.         ; Show what we are doing
  212.         (working #removing @app-name)
  213.  
  214.         ; Remove the non-standard pieces
  215.         (delete (tackon datatypesdir  #datatype))
  216.         (delete (cat "devs:datatypes/" #datatype-desc) (infos))
  217.  
  218.         ; Don't want to use the confusing "Installation Complete" message
  219.         ; when what we really did was remove things...
  220.         (message #removeok)
  221.         (exit (quiet))
  222.     )
  223.  
  224.     ; Install
  225.     (
  226.         (working #installing @app-name)
  227.  
  228.         (set #dtname (tackon "classes/datatypes" #datatype))
  229.  
  230.         ; Install the classes
  231.         (copylib
  232.             (prompt (cat #copying @app-name))
  233.             (help @copylib-help)
  234.             (source (tackon "classes/datatypes" #datatype))
  235.             (dest datatypesdir)
  236.             (confirm)
  237.         )
  238.  
  239.         ; Install the descriptors
  240.         (copyfiles
  241.             (prompt #copydescr)
  242.             (help @copyfiles-help)
  243.             (source "devs/datatypes")
  244.             (dest "DEVS:DataTypes")
  245.             (pattern "#?")
  246.             (infos)
  247.             (confirm)
  248.         )
  249.  
  250.         ; Install the catalogs
  251.         (set lang
  252.             (askoptions
  253.                 (prompt #whichlang)
  254.                 (help @askoptions-help)
  255.                 (choices "English" "Deutsch" "Español" "Français" "Português")
  256.                             ; "Nederlands" "Italiano" "Polski" "Svenska" "Norsk")
  257.                 (default default_lang)
  258.             )
  259.         )
  260.  
  261.         (set n 0)
  262.         (while
  263.             (set language (select n "english" "deutsch" "español" "français" "português" ""))
  264.                                             ; "nederlands" "italiano" "polski" "svenska" "norsk" ""))
  265.             (
  266.                 (if (IN lang n)
  267.                     (
  268.                         (if (<> 0 n)
  269.                             (
  270.                                 (makedir (cat "LOCALE:Catalogs/" language))
  271.                                 (copyfiles (source (cat "Catalogs/" language))
  272.                                     (dest (cat "LOCALE:Catalogs/" language))
  273.                                     (pattern "#?.catalog")
  274.                                 )
  275.                             )
  276.                         )
  277.                     )
  278.                 )
  279.             )
  280.             (set n (+ n 1))
  281.         )
  282.  
  283.         ; install AmigaGuide file
  284.         (copyfiles
  285.             (prompt #copydocs)
  286.             (help @copyfiles-help)
  287.             (source "Docs")
  288.             (dest "Help:")
  289.             (pattern "#?")
  290.             (confirm)
  291.         )
  292.  
  293.         ; Tell the system about the new descriptors
  294.         (run "C:AddDataTypes Refresh")
  295.  
  296.     )
  297. )
  298.  
  299. (set @default-dest datatypesdir)
  300.  
  301. (if (> (exists ("c:multiview")) 0) (set #mpath "c:") )
  302. (if (> (exists ("sys:Utilities/multiview")) 0) (set #mpath "sys:Utilities") )
  303. (run (cat "run " #mpath "/multiview Release.txt") )
  304.