home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 114 / af114sub.adf / GadToolsBox3.lzx / GadToolsBox3 / Install-GadToolsBox < prev   
Encoding:
Text File  |  1998-06-08  |  10.9 KB  |  346 lines
  1. ;------------------------------------------------------------------------
  2. ;
  3. ; Install-GadToolsBox
  4. ;
  5. ; $VER: Install-GadToolsBox 3.0 (1.6.98)
  6. ;
  7. ;------------------------------------------------------------------------
  8.  
  9. ;
  10. ; initialize variables
  11. ;
  12.  
  13. (set #FlagENGLISH 0)
  14. (set #FlagPOLSKI  1)
  15. (set #FlagOTHER   2)
  16.  
  17. (set #FlagGTB     0)
  18. (set #FlagGENS    1)
  19. (set #FlagLIBS    2)
  20. (set #FlagHELP    3)
  21. (set #FlagDEVKIT  4)
  22.  
  23. (set #FlagC       0)
  24.  
  25. (set #welcome (cat "Welcome to the GadToolsBox Installation."))
  26. (set #gtbdestdir-prompt (cat "Please select the drawer, where GadToolsBox v3 should be installed. Directory GadToolsBox3 will be created here.\n"))
  27. (set #gtbdestdir-help (cat "Please select the drawer, where GadToolsBox v3 should be installed. Directory GadToolsBox3 will be created here.\n"))
  28. (set #language-prompt (cat "Select what language versions you prefer to install."))
  29. (set #language-help (cat "GadToolsBox can work in many languages. Default language is english - built in.\nIf you select other, you will be able to translate GadToolsBox yourself, with this option select also other language."))
  30. (set #additional-prompt (cat "Select which elements to install."))
  31. (set #additional-help (cat "GadToolsBox3 - main file\nGenerators - source generators\nLibs - libraries, gadgets and images\nHelp - help file and catalogs\nDevKit - autodocs and includes for additional objects"))
  32. (set #additional-choice-mainfile (cat "GadToolsBox3"))
  33. (set #additional-choice-gens (cat "Generators"))
  34. (set #additional-choice-libs (cat "Libs"))
  35. (set #additional-choice-help (cat "Help"))
  36. (set #additional-choice-devkit (cat "DevKit"))
  37. (set #generator-prompt (cat "Select which source generators to install."))
  38. (set #generator-help (cat "C - SAS/C"))
  39. (set #generator-choice-c (cat "C"))
  40. (set #gadprogress-prompt (cat "Do you want to copy progress.gadget?"))
  41. (set #gadprogress-help (cat "Progress.gadget is required to run GadToolsBox.\nIt's used to show \"working in progress\"."))
  42. (set #gadtextfield-prompt (cat "Do you want to copy textfield.gadget?"))
  43. (set #gadtextfield-help (cat "Textfield.gadget is required to run GadToolsBox.\nIt's used as a text editor."))
  44. (set #gadlistview-prompt (cat "Do you want to copy listview.gadget?"))
  45. (set #gadlistview-help (cat "Listview.gadget is required to run GadToolsBox.\nIt's a standard gadtools listview replacement. You can show tree lists, make collumns, etc."))
  46. (set #gadpage-prompt (cat "Do you want to copy page.gadget?"))
  47. (set #gadpage-help (cat "Page.gadget is required to run GadToolsBox.\nIt's used to make many pages of gadgets on one window."))
  48. (set #imgsmartbitmap-prompt (cat "Do you want to copy smartbitmap.image?"))
  49. (set #imgsmartbitmap-help (cat "Smartbitmap.image is required to run GadToolsBox.\nIt's used for image conversion and rendering."))
  50. (set #libpopupmenu-prompt (cat "Do you want to copy popupmenu.library?"))
  51. (set #libpopupmenu-help (cat "Popupmenu.library is required to run GadToolsBox.\nIt's used to show popup menus."))
  52. (set #libpopupmenuprefs-prompt (cat "Do you want to copy PopupMenu_MUI preferences?"))
  53. (set #libpopupmenuprefs-help (cat "PopupMenu_MUI is part of popupmenu package.\nIt's used to configure popup menus."))
  54. (set #translation (cat "other - translation files"))
  55.  
  56. (if (= @language "polski")
  57. (
  58.     (set #welcome (cat "Witam w instalacji nowej wersji GadToolsBoxa."))
  59.     (set #gtbdestdir-prompt (cat "Proszë wybraê katalog, w którym GadToolsBox v3 powinien byê zainstalowany. Katalog o nazwie GadToolsBox3 bëdzie automatycznie utworzony.\n"))
  60.     (set #gtbdestdir-help (cat "Proszë wybraê katalog, w którym GadToolsBox v3 powinien byê zainstalowany. Katalog o nazwie GadToolsBox3 bëdzie automatycznie utworzony.\n"))
  61.     (set #language-prompt (cat "Wybierz, jakie chcesz zainstalowaê wersje jëzykowe."))
  62.     (set #language-help (cat "GadToolsBox pozwala na pracë w róûnych jëzykach. Domyôlnie wbudowany jest jëzyk angielski.\nJeôli wybierzesz 'inny', to bëdziesz mógî sam przetîumaczyê Trashman'a na dowolny jëzyk. Zaznacz wtedy jeszcze jakiô inny jëzyk (np. angielski) aby skopiowaê pliki pomocy."))
  63.     (set #additional-prompt (cat "Zaznacz skîadniki które chcesz zainstalowaê."))
  64.     (set #additional-help (cat "GadToolsBox3 - plik gîówny\nGeneratory - generatory kodów úródîowych\nBiblioteki - wymagane biblioteki, gadûety i rysunki\nPomoc - plik pomocy i pliki tîumaczeï\nDevKit - opisy funkcji i inkludy dla zewnëtrznych obiektów"))
  65.     (set #additional-choice-mainfile (cat "GadToolsBox3"))
  66.     (set #additional-choice-gens (cat "Generatory"))
  67.     (set #additional-choice-Libs (cat "Biblioteki"))
  68.     (set #additional-choice-help (cat "Pomoc"))
  69.     (set #additional-choice-devkit (cat "DevKit"))
  70.     (set #generator-prompt (cat "Wybierz generatory kodu úródîowego, które majâ byê zainstalowane."))
  71.     (set #generator-help (cat "C - SAS/C"))
  72.     (set #generator-choice-c (cat "C"))
  73.     (set #gadprogress-prompt (cat "Czy chcesz skopiowaê progress.gadget?"))
  74.     (set #gadprogress-help (cat "Progress.gadget jest potrzebny do uruchomienia GadToolsBoxa.\nGadûet ten jest uûyty do wyôwietlenia wykonywanej jakiejô czynnoôci."))
  75.     (set #gadtextfield-prompt (cat "Czy chcesz skopiowaê textfield.gadget?"))
  76.     (set #gadtextfield-help (cat "Textfield.gadget jest potrzebny do uruchomienia GadToolsBoxa.\nTo jest prosty edytor tekstu."))
  77.     (set #gadlistview-prompt (cat "Czy chcesz skopiowaê listview.gadget?"))
  78.     (set #gadlistview-help (cat "Listview.gadget jest potrzebny do uruchomienia GadToolsBoxa.\nGadget ten zastëpuje standardowy gadûet listview z gadtools.library. Dziëki niemu moûesz tworzyê \"drzewa\", kolumny, itp."))
  79.     (set #gadpage-prompt (cat "Czy chcesz skopiowaê page.gadget?"))
  80.     (set #gadpage-help (cat "Page.gadget jest potrzebny do uruchomienia GadToolsBoxa.\nGadûet ten jest uûywany do zrobienia paru stron gadûetów na jednym oknie."))
  81.     (set #imgsmartbitmap-prompt (cat "Czy chcesz skopiowaê smartbitmap.image?"))
  82.     (set #imgsmartbitmap-help (cat "Smartbitmap.image jest potrzebny do uruchomienia GadToolsBoxa.\nTa klasa sîuûy do konwersji i wyôwietlania map bitowych."))
  83.     (set #libpopupmenu-prompt (cat "Czy chcesz skopiowaê popupmenu.library?"))
  84.     (set #libpopupmenu-help (cat "Popupmenu.library jest potrzebny do uruchomienia GadToolsBoxa.\nBiblioteka ta sîuûy do wyôwietlania podrëcznych menu."))
  85.     (set #libpopupmenuprefs-prompt (cat "Czy chcesz skopiowaê PopupMenu_MUI?"))
  86.     (set #libpopupmenuprefs-help (cat "Popupmenu_MUI jest czëôciâ pakietu popupmenu.\nProgram ten sîuûy do konfigurowania podrëcznych menu."))
  87.     (set #translation (cat "inny - pliki tîumaczeï"))
  88. ))
  89.  
  90. ;
  91. ; begin installation
  92. ;
  93.  
  94. (welcome #welcome)
  95. (complete 0)
  96.  
  97. (set @default-dest (cat "Work:"))
  98. (set #DestDir
  99.     (askdir    (prompt #gtbdestdir-prompt)
  100.         (help    #gtbdestdir-help)
  101.         (default    @default-dest)
  102.         (newpath)
  103.     )
  104. )
  105.  
  106. ;(set #ParentDir #DestDir)
  107. (set #DestDir (tackon #DestDir "GadToolsBox"))
  108. (if (<> (exists    #DestDir) 2)
  109. (
  110.     (makedir #DestDir)
  111. ;    (copyfiles    (source    "GadToolsBox.info")
  112. ;            (dest    #parentDir)
  113. ;            (nogauge)
  114. ;    )
  115. ))
  116.  
  117. (set #Additional (askoptions    (prompt    #additional-prompt)
  118.                 (help    #additional-help)
  119.                 (choices    #additional-choice-mainfile #additional-choice-gens #additional-choice-libs #additional-choice-help #additional-choice-devkit)
  120.         )
  121. )
  122.  
  123. (set #Generators (askoptions    (prompt    #generator-prompt)
  124.                 (help    #generaotr-help)
  125.                 (choices    #generator-choice-c)
  126.         )
  127. )
  128.  
  129. (if (IN #Additional #FlagHELP)
  130. (
  131.     (set #Languages    (askoptions    (prompt    #language-prompt)
  132.                     (help    #language-help)
  133.                     (choices    "English" #translation)
  134.             )
  135.     )
  136. ))
  137.  
  138. (complete 0)
  139.  
  140. ;
  141. ; copy libraries and gadgets
  142. ;
  143.  
  144. (if (IN #Additional #FlagLIBS)
  145. (
  146.     (copylib    (prompt    #gadprogress-prompt)
  147.             (help    #gadprogress-help)
  148.             (source    "classes/gadgets/progress.gadget")
  149.             (dest    "SYS:Classes/gadgets")
  150.             (confirm)
  151.     )
  152.  
  153.     (complete 10)
  154.  
  155.     (copylib    (prompt    #gadtextfield-prompt)
  156.             (help    #gadtextfield-help)
  157.             (source    "classes/gadgets/textfield.gadget")
  158.             (dest    "SYS:Classes/gadgets")
  159.             (confirm)
  160.     )
  161.  
  162.     (complete 15)
  163.  
  164.     (copylib    (prompt    #gadlistview-prompt)
  165.             (help    #gadlistview-help)
  166.             (source    "classes/gadgets/listview.gadget")
  167.             (dest    "SYS:Classes/gadgets")
  168.             (confirm)
  169.     )
  170.  
  171.     (complete 20)
  172.  
  173.     (copylib    (prompt    #gadpage-prompt)
  174.             (help    #gadpage-help)
  175.             (source    "classes/gadgets/page.gadget")
  176.             (dest    "SYS:Classes/gadgets")
  177.             (confirm)
  178.     )
  179.  
  180.     (complete 25)
  181.  
  182.     (copylib    (prompt    #imgsmartbitmap-prompt)
  183.             (help    #imgsmartbitmap-help)
  184.             (source    "classes/images/smartbitmap.image")
  185.             (dest    "SYS:Classes/images")
  186.             (confirm)
  187.     )
  188.  
  189.     (complete 30)
  190.  
  191.     (copylib    (prompt    #libpopupmenu-prompt)
  192.             (help    #libpopupmenu-help)
  193.             (source    "libs/popupmenu.library")
  194.             (dest    "LIBS:")
  195.             (confirm)
  196.     )
  197.     (complete 35)
  198.     (copylib    (prompt    #libpopupmenuprefs-prompt)
  199.             (help    #libpopupmenuprefs-help)
  200.             (source    "Prefs/PopupMenu_MUI")
  201.             (dest    "Sys:Prefs:")
  202.             (infos)
  203.             (confirm)
  204.     )
  205.  
  206.     (complete 40)
  207. ))
  208.  
  209. (if (IN #Additional #FlagGTB)
  210. (
  211.     (copyfiles    (source    "GadToolsBox")
  212.             (dest    #DestDir)
  213.             (infos)
  214.     )
  215. ))
  216.  
  217. (complete 50)
  218.  
  219. ;
  220. ; copy help files and catalogs version
  221. ;
  222.  
  223. (if (IN #Additional #FlagHELP)
  224. (
  225. ;    (if (IN #Languages #FlagPOLSKI)
  226. ;    (
  227. ;        (if (<> (exists    "LOCALE:catalogs/polski") 2)
  228. ;            (makedir "LOCALE:catalogs/polski")
  229. ;        )
  230. ;        (copyfiles    (source    "catalogs/polski")
  231. ;                (dest    "LOCALE:catalogs/polski")
  232. ;                (all)
  233. ;        )
  234. ;
  235. ;        (set #HELPdest (tackon #DestDir "Help"))
  236. ;        (if (<> (exists    #HELPdest) 2)
  237. ;            (makedir #HELPdest)
  238. ;        )
  239. ;
  240. ;        (set #HELPdest (tackon #DestDir "Help/Polski"))
  241. ;        (if (<> (exists    #HELPdest) 2)
  242. ;            (makedir #HELPdest)
  243. ;        )
  244. ;        (copyfiles    (source    "Help/Polski")
  245. ;                (dest    #HELPdest)
  246. ;                (infos)
  247. ;                (all)
  248. ;        )
  249. ;        (set #HELPdest (tackon #DestDir "Help"))
  250. ;        (copyfiles    (source    "Help/Polski.info")
  251. ;                (dest    #HELPdest)
  252. ;                (nogauge)
  253. ;        )
  254. ;        (copyfiles    (source    "Help.info")
  255. ;                (dest    #DestDir)
  256. ;                (nogauge)
  257. ;        )
  258. ;    ))
  259.  
  260.     (if (IN #Languages #FlagENGLISH)
  261.     (
  262.         (set #HELPdest (tackon #DestDir "Help/English"))
  263.         (if (<> (exists    #HELPdest) 2)
  264.             (makedir #HELPdest)
  265.         )
  266.         (set #HELPdest (tackon #DestDir "Help"))
  267.         (if (<> (exists    #HELPdest) 2)
  268.             (makedir #HELPdest)
  269.         )
  270.         (copyfiles    (source    "Help/English")
  271.                 (dest    #HELPdest)
  272.                 (infos)
  273.                 (all)
  274.         )
  275.         (set #HELPdest (tackon #DestDir "Help"))
  276.         (copyfiles    (source    "Help/English.info")
  277.                 (dest    #HELPdest)
  278.                 (nogauge)
  279.         )
  280.         (copyfiles    (source    "Help.info")
  281.                 (dest    #DestDir)
  282.                 (nogauge)
  283.         )
  284.     ))
  285.  
  286.     (if (IN #Languages #FlagOTHER)
  287.     (
  288.         (set #CATAdest (tackon #DestDir "catalogs"))
  289.         (if (<> (exists    #CATAdest) 2)
  290.             (makedir #CATAdest)
  291.         )
  292.     
  293.         (copyfiles    (source    "catalogs.info")
  294.                 (dest    #DestDir)
  295.                 (nogauge)
  296.         )
  297.         (copyfiles    (source    "catalogs/GadToolsBox.cd")
  298.                 (dest    #CATAdest)
  299.         )
  300.         (copyfiles    (source    "catalogs/GadToolsBox.ct")
  301.                 (dest    #CATAdest)
  302.         )
  303.     ))
  304. ))
  305.  
  306. ;
  307. ; copy developers kit
  308. ;
  309.  
  310. (if (IN #Additional #FlagDEVKIT)
  311. (
  312.     (set #DEVKITdest (tackon #DestDir "Developers"))
  313.     (if (<> (exists    #DEVKITdest) 2)
  314.         (makedir #DEVKITdest)
  315.     )
  316.     (copyfiles    (source    "Developers")
  317.             (dest    #DEVKITdest)
  318.             (infos)
  319.             (all)
  320.     )
  321. ))
  322.  
  323. (complete 80)
  324.  
  325. (if (IN #Additional #FlagGENS)
  326. (
  327.     (set #GENdest (tackon #DestDir "generators"))
  328.     (if (<> (exists    #GENdest) 2)
  329.         (makedir #GENdest)
  330.     )
  331.  
  332.     (if (IN #Generators #FlagC)
  333.     (
  334.         (copyfiles    (source    "generators/c.generator")
  335.                 (dest    #GENdest)
  336.         )
  337.     ))
  338. ))
  339.  
  340. ;
  341. ; say goodbye
  342. ;
  343.  
  344. (complete 100)
  345. (exit)
  346.