home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / MUI / MUIBuilder22.lha / MUIBuilder / Install / Install_MB < prev    next >
Encoding:
Text File  |  1995-06-06  |  13.7 KB  |  520 lines
  1. (complete 0)
  2.  
  3. (set locale 0)
  4.  
  5. ;===========================================================================
  6. ; English strings
  7.  
  8. (if (= @language "english")
  9. (
  10.  
  11. (set #bad-MUI         (cat "You need at least MUI2.2 to use MUIBuilder 2.0." ))
  12. (set #dir-choice     (cat "Select the directory where the MUIBuilder Directory will be created." ))
  13. (set #copy         (cat "Copying MUIBuilder"))
  14. (set #doc-copy         (cat "Copying Documentation"))
  15. (set #olddoc         (cat "/MB/Documentations/MUIBuilder_english.guide"))
  16. (set #olddocdvi        (cat "/MB/Documentations/MUIBuilder_english.dvi"))
  17. (set #copyENV         (cat "Copying to ENV:"))
  18. (set #copyENVARC     (cat "Copying to ENVARC:"))
  19. (set #installcatalog     (cat "\n\nDo you want to install the english catalog ?"))
  20. (set #copycatalog     (cat "Installation of the english catalogue."))
  21. (set #catalogname     (cat "/Catalogs/English/MUIBuilder.catalog"))
  22. (set #destname         (cat "Locale:Catalogs/English"))
  23. (set #genchoice        (cat "Chose the generators you need"))
  24. (set #c            (cat "C language"))
  25. (set #E            (cat "E language"))
  26. (set #Oberon        (cat "Oberon language"))
  27. (set #Modula        (cat "Modula2 language"))
  28. (set #Assembly        (cat "Assembly language"))
  29. (set #libcopy        (cat "Copying muibuilder.library to LIBS:"))
  30.  
  31. ))
  32.  
  33. ;===========================================================================
  34. ; French strings
  35.  
  36. (if (= @language "français")
  37. (
  38. (set locale 1)
  39.  
  40. (set #bad-MUI         (cat "Vous avez besoin au moins de MUI2.2 pour utiliser MUIBuilder 2.0." ))
  41. (set #dir-choice     (cat "Sélectionnez le répertoire dans lequel vous voulez installer le répertoire de MUIBuider." ))
  42. (set #copy         (cat "Copie de MUIBuilder"))
  43. (set #doc-copy         (cat "Copie de la Documentation"))
  44. (set #olddoc         (cat "/MB/Documentations/MUIBuilder_Français.guide"))
  45. (set #olddocdvi     (cat "/MB/Documentations/MUIBuilder_Français.dvi"))
  46. (set #copyENV         (cat "Copie des variables d'environnement dans ENV:"))
  47. (set #copyENVARC     (cat "Copie des variables d'environnement dans ENVARC:"))
  48. (set #installcatalog     (cat "\n\nVoulez vous installer le catalogue Français ?"))
  49. (set #copycatalog     (cat "Installation du catalogue Français."))
  50. (set #catalogname     (cat "/Catalogs/Français/MUIBuilder.catalog"))
  51. (set #destname         (cat "Locale:Catalogs/Français"))
  52. (set #genchoice        (cat "Choisissez les modules externes dont vous avez besoin"))
  53. (set #c            (cat "Langage C"))
  54. (set #E            (cat "Langage E"))
  55. (set #Oberon        (cat "Langage Oberon"))
  56. (set #Modula        (cat "Langage Modula2"))
  57. (set #Assembly        (cat "Langage Assembleur"))
  58. (set #libcopy        (cat "Copie de la muibuilder.library vers LIBS:"))
  59.  
  60. ))
  61.  
  62. ;===========================================================================
  63. ; German strings
  64.  
  65. (if (= @language "deutsch")
  66. (
  67. (set locale 2)
  68.  
  69. (set #bad-MUI         (cat "Sie benötigen mindestens MUI2.2, um MUIBuilder 2.0 zu nutzen."))
  70. (set #dir-choice     (cat "Wählen Sie das Verzeichnis aus, in welches das Verzeichnis von MUIBuilderV1.1 installiert wird."))
  71. (set #copy         (cat "Kopiere MUIBuilder"))
  72. (set #doc-copy         (cat "Kopiere Dokumentation"))
  73. (set #olddoc         (cat "/MB/Documentations/MUIBuilder_Deutsch.guide"))
  74. (set #olddocdvi     (cat "/MB/Documentations/MUIBuilder_Deutsch.dvi"))
  75. (set #copyENV         (cat "Kopiere nach ENV:"))
  76. (set #copyENVARC     (cat "Kopiere nach ENVARC:"))
  77. (set #installcatalog     (cat "\n\nSoll der deutsche Catalog installiert werden?"))
  78. (set #copycatalog     (cat "Installiere deutschen Catalog." ))
  79. (set #catalogname     (cat "/Catalogs/Deutsch/MUIBuilder.catalog"))
  80. (set #destname         (cat "Locale:Catalogs/Deutsch"))
  81. (set #genchoice        (cat "Wählen Sie die Modulen aus, die Sie wollen"))
  82. (set #c            (cat "C Sprache"))
  83. (set #E            (cat "E Sprache"))
  84. (set #Oberon        (cat "Oberon Sprache"))
  85. (set #Modula        (cat "Modula2 Sprache"))
  86. (set #Assembly        (cat "Assembly Sprache"))
  87. (set #libcopy        (cat "Kopiere muibuilder.library nach LIBS:"))
  88.  
  89. ))
  90.  
  91. ;===========================================================================
  92. ; Czech strings
  93.  
  94. (if (= @language "czech")
  95. (
  96. (set locale 3)
  97.  
  98. (set #bad-MUI         (cat "MUIBuilder 2.0 vyùaduje MUI2.2 !" ))
  99. (set #dir-choice     (cat "Zvolte adresáê, ve kterém chcete vytvoêit adresáê pro MUIBuilder." ))
  100. (set #copy         (cat "Kopíruji MUIBuilder"))
  101. (set #doc-copy         (cat "Kopíruji Dokumentaci"))
  102. (set #olddoc         (cat "/MB/Documentations/MUIBuilder_english.guide"))
  103. (set #olddocdvi     (cat "/MB/Documentations/MUIBuilder_english.dvi"))
  104. (set #copyENV         (cat "Kopíruji do ENV:"))
  105. (set #copyENVARC     (cat "Kopíruji do ENVARC:"))
  106. (set #installcatalog     (cat "\n\nChcete nainstalovat çeský katalog?"))
  107. (set #copycatalog     (cat "Instaluji çeský katalog."))
  108. (set #catalogname     (cat "/Catalogs/Czech/MUIBuilder.catalog"))
  109. (set #destname         (cat "Locale:Catalogs/Czech"))
  110. (set #genchoice        (cat "Zvolte generátory, které si pêejete nainstalovat"))
  111. (set #c            (cat "Jazyk C"))
  112. (set #E            (cat "Jazyk E"))
  113. (set #Oberon        (cat "Jazik Oberon"))
  114. (set #Modula        (cat "Jazik Modula2"))
  115. (set #Assembly        (cat "Assembler"))
  116. (set #libcopy        (cat "Kopíruji muibuilder.library do LIBS:"))
  117.  
  118. ))
  119.  
  120. ;=============================================================================
  121. ; Español strings
  122.  
  123. (if (= @language "español")
  124. (
  125. (set locale 0)
  126.  
  127. (set #bad-MUI         (cat "Necesitas al menos MUI2.2 para usar MUIBuilder 2.0." ))
  128. (set #dir-choice     (cat "Elige el Directorio donde quieres instalar MUIBuilder." ))
  129. (set #copy         (cat "Copiando MUIBuilder"))
  130. (set #doc-copy         (cat "Copiando Documentación"))
  131. (set #olddoc         (cat "/MB/Documentations/MUIBuilder_english.guide"))
  132. (set #olddocdvi     (cat "/MB/Documentations/MUIBuilder_english.dvi"))
  133. (set #copyENV         (cat "Copiando a ENV:"))
  134. (set #copyENVARC     (cat "Copiando a ENVARC:"))
  135. (set #installcatalog     (cat "\n\nQuieres instalar el catálogo español ?"))
  136. (set #copycatalog     (cat "Instalación del catálogo español."))
  137. (set #catalogname     (cat "/Catalogs/Español/MUIBuilder.catalog"))
  138. (set #destname         (cat "Locale:Catalogs/Español"))
  139. (set #genchoice        (cat "Elige los módulos externos que necesites"))
  140. (set #c            (cat "Lenguaje C"))
  141. (set #E            (cat "Lenguaje E"))
  142. (set #Oberon        (cat "Lenguaje Oberon"))
  143. (set #Modula        (cat "Lenguaje Modula2"))
  144. (set #Assembly        (cat "Lenguaje Ensamblador"))
  145. (set #libcopy        (cat "Copiando muibuilder.library a LIBS:"))
  146.  
  147. ))
  148.  
  149. ;===========================================================================
  150. ; Polish strings - Marcin Orîowski
  151.  
  152. (if (= @language "polski")
  153. (
  154. (set locale 0)
  155.  
  156. (set #bad-MUI         (cat "Potrzebujesz co najmniej MUI2.2 aby uûyê MUIBuildera 2.0." ))
  157. (set #dir-choice     (cat "Wybierz katalog docelowy, w ktorym zostanie zaîoûony katalog MUIBuilder." ))
  158. (set #copy         (cat "Co chcesz zainstalowaê?"))
  159. (set #doc-copy         (cat "Instalujë dokumentacjë"))
  160. (set #olddoc         (cat "/MB/Documentations/MUIBuilder_english.guide"))
  161. (set #olddocdvi        (cat "/MB/Documentations/MUIBuilder_english.dvi"))
  162. (set #copyENV         (cat "Kopiujë do katalogu ENV:"))
  163. (set #copyENVARC     (cat "Kopiujë do katalogu ENVARC:"))
  164. (set #installcatalog     (cat "\n\nCzy chcesz zainstalowaê polski katalog (plik jëzykowy)?"))
  165. (set #copycatalog     (cat "Instalujë polski katalog."))
  166. (set #catalogname     (cat "/Catalogs/Polski/MUIBuilder.catalog"))
  167. (set #destname         (cat "Locale:Catalogs/polski"))
  168. (set #genchoice        (cat "Wybierz generatory tekstów úródîowych"))
  169. (set #c            (cat "Jëzyk C"))
  170. (set #E            (cat "Jëzyk E"))
  171. (set #Oberon        (cat "Oberon"))
  172. (set #Modula        (cat "Modula2"))
  173. (set #Assembly        (cat "Assembler"))
  174. (set #libcopy        (cat "Kopiujë muibuilder.library do katalogu LIBS:"))
  175.  
  176. ))
  177.  
  178. ;===========================================================================
  179. ; Italian strings
  180.  
  181. (if (= @language "italiano")
  182. (
  183. (set locale 6)
  184.  
  185. (set #bad-MUI         (cat "You need at least MUI2.2 to use MUIBuilder 2.0." ))
  186. (set #dir-choice     (cat "Select the directory where the MUIBuilder Directory will be created." ))
  187. (set #copy         (cat "Copying MUIBuilder"))
  188. (set #doc-copy         (cat "Copying Documentation"))
  189. (set #olddoc         (cat "/MB/Documentations/MUIBuilder_english.guide"))
  190. (set #olddocdvi        (cat "/MB/Documentations/MUIBuilder_english.dvi"))
  191. (set #copyENV         (cat "Copying to ENV:"))
  192. (set #copyENVARC     (cat "Copying to ENVARC:"))
  193. (set #installcatalog     (cat "\n\nDo you want to install the english catalog ?"))
  194. (set #copycatalog     (cat "Installation of the english catalogue."))
  195. (set #catalogname     (cat "/Catalogs/English/MUIBuilder.catalog"))
  196. (set #destname         (cat "Locale:Catalogs/English"))
  197. (set #genchoice        (cat "Chose the generators you need"))
  198. (set #c            (cat "C language"))
  199. (set #E            (cat "E language"))
  200. (set #Oberon        (cat "Oberon language"))
  201. (set #Modula        (cat "Modula2 language"))
  202. (set #Assembly        (cat "Assembly language"))
  203. (set #libcopy        (cat "Copying muibuilder.library to LIBS:"))
  204.  
  205. ))
  206.  
  207. ;===========================================================================
  208. ; Dansk strings
  209.  
  210. (if (= @language "Dansk")
  211. (
  212. (set locale 7)
  213.  
  214. (set #bad-MUI         (cat "You need at least MUI2.2 to use MUIBuilder 2.0." ))
  215. (set #dir-choice     (cat "Select the directory where the MUIBuilder Directory will be created." ))
  216. (set #copy         (cat "Copying MUIBuilder"))
  217. (set #doc-copy         (cat "Copying Documentation"))
  218. (set #olddoc         (cat "/MB/Documentations/MUIBuilder_english.guide"))
  219. (set #olddocdvi        (cat "/MB/Documentations/MUIBuilder_english.dvi"))
  220. (set #copyENV         (cat "Copying to ENV:"))
  221. (set #copyENVARC     (cat "Copying to ENVARC:"))
  222. (set #installcatalog     (cat "\n\nDo you want to install the english catalog ?"))
  223. (set #copycatalog     (cat "Installation of the english catalogue."))
  224. (set #catalogname     (cat "/Catalogs/Dansk/MUIBuilder.catalog"))
  225. (set #destname         (cat "Locale:Catalogs/Dansk"))
  226. (set #genchoice        (cat "Chose the generators you need"))
  227. (set #c            (cat "C language"))
  228. (set #E            (cat "E language"))
  229. (set #Oberon        (cat "Oberon language"))
  230. (set #Modula        (cat "Modula2 language"))
  231. (set #Assembly        (cat "Assembly language"))
  232. (set #libcopy        (cat "Copying muibuilder.library to LIBS:"))
  233.  
  234. ))
  235.  
  236. ;=============================================================================
  237. ;=============================================================================
  238. ; Installation procedure
  239.  
  240. ( set MBdir "Ram:" )
  241.  
  242. ;========================================================================
  243. ;
  244. ; Scanning MUI version
  245. ;
  246.  
  247. ( set versionnumber (getversion "LIBS:muimaster.library" ) )
  248. ( set version (/ versionnumber 65536))
  249.  
  250. ( if (< version 8)
  251.     (
  252.         (if (= locale 0)
  253.                 ( abort #bad-MUI )
  254.         )
  255.     )
  256. )
  257.  
  258. ;========================================================================
  259. ;
  260. ; Select the MUIBuilder directory
  261. ;
  262.  
  263. (set MBdir
  264.     ( askdir
  265.         ( prompt #dir-choice )
  266.         (help "")
  267.         (default "Sys:")
  268.         (newpath)
  269.     )
  270. )
  271.  
  272. ;========================================================================
  273. ;
  274. ; Copying MUIBuilder
  275. ;
  276.  
  277. (complete 10)
  278.  
  279. (set @default-dest MBdir )
  280. (set MBdir ( tackon MBdir "MUIBuilder" ) )
  281.  
  282. (copyfiles
  283.     (prompt #copy)
  284.     (source "/MB")
  285.     (help   @copyfiles-help)
  286.     (infos)
  287.     (dest MBdir)
  288.     (choices "MUIBuilder"
  289.          "BuilderSave"
  290.          "Tools"
  291.          "Catalogs"
  292.          "Developer"
  293.          "Images"
  294.     )
  295.     (confirm)
  296. )
  297.  
  298. (copyfiles
  299.     (source "/MB.info")
  300.     (help    @copyfiles-help)
  301.     (dest     @default-dest)
  302.     (newname (cat MBdir ".info"))
  303. )
  304.  
  305. (complete 20)
  306.  
  307. ;========================================================================
  308. ;
  309. ; Copying muibuilder.library
  310. ;
  311.  
  312.  
  313. (copylib
  314.     (source    "/Libs/muibuilder.library")
  315.     (dest "LIBS:")
  316.     (prompt #libcopy)
  317.     (help @copylib-help)
  318.     (confirm)
  319. )
  320.  
  321. (complete 30)
  322.  
  323. ;========================================================================
  324. ;
  325. ; Copying Modules
  326.  
  327. (set modules
  328.     (askoptions
  329.         (prompt     #genchoice)
  330.         (help     @askoptions-help)
  331.         (choices #C
  332.              #E
  333.              #Oberon
  334.              #Modula
  335.              #Assembly
  336.         )
  337.         (default 31)
  338.     )
  339. )
  340.  
  341. ;======================
  342. ; Copying GenCodeC
  343. ;
  344. (if (IN modules 0)
  345.     (
  346.         (copyfiles
  347.             (source "/MB/Modules")
  348.             (dest (tackon MBdir "Modules"))
  349.             (choices "GenCodeC" "C-Header" "H-Header"
  350.                  "GenCodeGCC" "C++-Header" "H++-Header")
  351.         )
  352.         (copyfiles
  353.             (source "/MB")
  354.             (dest MBdir)
  355.             (choices "C" "GCC")
  356.             (infos)
  357.         )
  358.     )
  359. )    
  360.  
  361. ;======================
  362. ; Copying GenCodeE
  363. ;
  364. (if (IN modules 1)
  365.     (
  366.         (copyfiles
  367.             (source "/MB/Modules")
  368.             (dest (tackon MBdir "Modules"))
  369.             (choices "GenCodeE30b+" "GenCodeE31a+")
  370.         )
  371.         (copyfiles
  372.             (infos)
  373.             (source "/MB")
  374.             (dest MBdir)
  375.             (choices "E")
  376.         )
  377.     )
  378. )
  379.  
  380. ;======================
  381. ; Copying GenCodeOberon
  382. ;
  383. (if (IN modules 2)
  384.     (
  385.         (copyfiles
  386.             (source "/MB/Modules")
  387.             (dest (tackon MBdir "Modules"))
  388.             (choices "GenCodeOberon")
  389.         )
  390.         (copyfiles
  391.             (infos)
  392.             (source "/MB")
  393.             (dest MBdir)
  394.             (choices "Oberon")
  395.         )
  396.     )
  397. )
  398.  
  399. ;======================
  400. ; Copying GenCodeModula
  401. ;
  402. (if (IN modules 3)
  403.     (
  404.         (copyfiles
  405.             (source "/MB/Modules")
  406.             (dest (tackon MBdir "Modules"))
  407.             (choices "GenCodeM2")
  408.         )
  409.         (copyfiles
  410.             (infos)
  411.             (source "/MB")
  412.             (dest MBdir)
  413.             (choices "M2")
  414.         )
  415.     )
  416. )
  417.  
  418. ;======================
  419. ; Copying GenCodeASM
  420. ;
  421. (if (IN modules 4)
  422.     (
  423.         (copyfiles
  424.             (source "/MB/Modules")
  425.             (dest (tackon MBdir "Modules"))
  426.             (choices "GenCodeASM")
  427.         )
  428.         (copyfiles
  429.             (infos)
  430.             (source "/MB")
  431.             (dest MBdir)
  432.             (choices "ASM")
  433.         )
  434.     )
  435. )
  436.  
  437. (complete 60)
  438.  
  439. ;========================================================================
  440. ;
  441. ; Copying documentation
  442. ;
  443.  
  444. ( set MBdoc ( tackon MBdir "Documentations" ) )
  445.  
  446. (copyfiles
  447.     (prompt #doc-copy)
  448.     (source #olddoc)
  449.     (newname "MUIBuilder.guide")
  450.     (help @copyfiles-help)
  451.         (infos)
  452.     (confirm)
  453.         (dest MBdoc )
  454. )
  455.  
  456. (copyfiles
  457.     (source "/MB/Documentations.info")
  458.     (newname (cat MBdoc ".info"))
  459.     (dest @default-dest)
  460. )
  461.  
  462. (copyfiles
  463.     (prompt #doc-copy)
  464.     (source #olddocdvi)
  465.     (newname "MUIBuilder.dvi")
  466.     (help @copyfiles-help)
  467.         (infos)
  468.     (confirm)
  469.         (dest MBdoc )
  470. )
  471.  
  472. ;========================================================================
  473. ;
  474. ; copying MUIBuilder.catalog files
  475. ;
  476.  
  477. (complete 70)
  478.  
  479. (if (> locale 0)
  480.     (if     (askbool
  481.         (prompt #installcatalog)
  482.         (help   "")
  483.         )
  484.         (copylib
  485.             (prompt #copycatalog)
  486.             (source #catalogname)
  487.             (dest   #destname)
  488.             (help   @copylib-help)
  489.             (confirm)
  490.         )
  491.     )
  492. )
  493.  
  494. ;=========================================================================
  495. ;
  496. ; Copying environment variables
  497. ;
  498.  
  499. (complete 80)
  500.  
  501. (copyfiles
  502.     (prompt #copyENV)
  503.     (source "/Env")
  504.     (dest   "ENV:")
  505.     (all)
  506. )
  507.  
  508. (copyfiles
  509.     (prompt #copyENVARC)
  510.     (source "/Env")
  511.     (dest   "ENVARC:")
  512.     (help   @copyfiles-help)
  513.     (confirm)
  514.     (all)
  515. )
  516.  
  517. (complete 99)
  518.  
  519. (exit)
  520.