home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Programming / RxMUI / install < prev    next >
Encoding:
Text File  |  2001-05-24  |  8.2 KB  |  247 lines
  1. ; $VER: RxMUI_Install 7.0 (12.5.2001)
  2.  
  3. (procedure P_SetMessages
  4.  
  5.     (if (= "italiano" @language)
  6.         (
  7.             (set #WhatInstallPromptMsg            "Cosa vuoi installare?")
  8.             (set #WhatInstallHelpMsg            "Scegli cosa vuoi installare:\n    Librerie - tutte le librerie di RxMUI\n    ClassiMUI - alcune classi MUI\n    Utilità - alcuni programmi d'utilità\n    Documentazione - la documentazione di RxMUI in formato HTML\n    Esempi - macro d'esempio")
  9.  
  10.             (set #WhatInstallLibrariesMsg        "Librerie")
  11.             (set #WhatInstallMCCsMsg            "Classi MUI")
  12.             (set #WhatInstallUtilitiesMsg        "Utilità")
  13.             (set #WhatInstallDocumentationMsg    "Documentazione")
  14.             (set #WhatInstallExamplesMsg        "Esempi")
  15.  
  16.             (set #AskLibsDirPromptMsg            "Scegli la directory dove installare le librerie")
  17.             (set #AskLibsDirHelpMsg                "Nella directory che sceglierai, verranno copiate varie librerie e verrà creata una directory chiamata RxMUI, contenente le classi esterne. Ovviamente la directory scelta, dovrà essere nell'assegnamento logico LIBS:")
  18.  
  19.             (set #AskMCCsDirPromptMsg            "Scegli la directory dove installare alcuni classi MUI")
  20.             (set #AskMCCsDirHelpMsg                "Nella directory che sceglierai, verranno copiate alcune classi MUI. Ovviamente la directory scelta, dovrà essere nell'assegnamento logico LIBS:")
  21.  
  22.             (set #AskUtilitisDirPromptMsg        "Scegli la directory dove installare alcuni programmi d'utilità")
  23.             (set #AskUtilitiesDirHelpMsg        "Nella directory che sceglierai, verranno copiati alcuni piccoli programmi d'utilità, come rxs o rxhelp. Il posto migliore dove metterli è C:, ma qualsiasi altra drawer in path va bene.")
  24.  
  25.             (set #AskGuideDirPromptMsg            "Scegli la directory dove installare la documentazione di RxMUI")
  26.             (set #AskGuideDirHelpMsg            "Nella directory che sceglierai, verrà copiata la documentazione di RxMUI in formato HTML")
  27.  
  28.             (set #AskExamplesDirPromptMsg        "Scegli la directory dove installare alcune macro d'esempio di RxMUI")
  29.             (set #AskExamplesDirHelpMsg            "Nella directory che sceglierai, verranno copiate alcune macro d'esempio")
  30.  
  31.             (set #CopyingLibsMsg                "Sto copiando le librerie...")
  32.             (set #CopyingMCCsMsg                    "Sto copiando le classi MUI...")
  33.             (set #CopyingUtilitiesMsg            "Sto copiando programmi di utilità...")
  34.             (set #CopyingGuideMsg                "Sto copiando la documentazione...")
  35.             (set #CopyingExamplesMsg            "Sto copiando gli esempi...")
  36.         )
  37.         (
  38.             (set #WhatInstallPromptMsg            "What do you want to install?")
  39.             (set #WhatInstallHelpMsg            "Choose what you want to install:\n    Libraries - all the libraries needed by RxMUI to work\n    MUI classes - some MUI custom classes\n    Utilities - some little utilities progs\n    Documentation - RxMUI documentation in HTML\n    Examples - RxMUI ARexx macros")
  40.  
  41.             (set #WhatInstallLibrariesMsg        "Libraries")
  42.             (set #WhatInstallMCCsMsg            "MUI classes")
  43.             (set #WhatInstallUtilitiesMsg        "Utilities")
  44.             (set #WhatInstallDocumentationMsg    "Documentation")
  45.             (set #WhatInstallExamplesMsg        "Examples")
  46.  
  47.             (set #AskLibsDirPromptMsg            "Select the drawer where you want to copy libraries and RxMUI external classes")
  48.             (set #AskLibsDirHelpMsg                "In the drawer you supply here, there will be installed libraries and there will be created a drawer called rxmui, where external RxMUI classes reside. This drawer MUST BE in your LIBS: assignment")
  49.  
  50.             (set #AskMCCsDirPromptMsg            "Select the drawer where you want to copy some MUI classes")
  51.             (set #AskMCCsDirHelpMsg                "In the drawer you supply here, there will be installed some MUI classes. This drawer MUST BE in your LIBS: assignment")
  52.  
  53.             (set #AskUtilitisDirPromptMsg        "Select the drawer where you want to install some little utilities.")
  54.             (set #AskUtilitiesDirHelpMsg        "In the drawer you supply here, there will be installed some little utilities such as rxs, needed to launch macro from inetd and rxhelp, needed to obtain functions inline help. The best drawer to place them is C: ; anyway, it should be in your PATH")
  55.  
  56.             (set #AskGuideDirPromptMsg            "Select the drawer where you want to install RxMUI HTML documentation")
  57.             (set #AskGuideDirHelpMsg            "In the drawer you supply here, there will be installed the RxMUI documentation in HTML format")
  58.  
  59.             (set #AskExamplesDirPromptMsg        "Select the drawer where you want to install RxMUI examples macro")
  60.             (set #AskExamplesDirHelpMsg            "In the drawer you supply here, there will be installed some RxMUI examples ARexx macros")
  61.  
  62.             (set #CopyingLibsMsg                "Copying or Updating libraries")
  63.             (set #CopyingMCCsMsg                "Copying or Updating MUI classes")
  64.             (set #CopyingUtilitiesMsg            "Copying or Updating utilities")
  65.             (set #CopyingGuideMsg                "Copying documentation")
  66.             (set #CopyingExamplesMsg            "Copying examples")
  67.         )
  68.     )
  69. )
  70.  
  71. (procedure P_ChooseWhatIstall
  72.     (set #WhatInstall
  73.         (askoptions
  74.             (prompt #WhatInstallPromptMsg
  75.                 (help #WhatInstallHelpMsg)
  76.                 (choices #WhatInstallLibrariesMsg #WhatInstallMCCsMsg #WhatInstallUtilitiesMsg #WhatInstallDocumentationMsg    #WhatInstallExamplesMsg)
  77.                )
  78.           )
  79.      )
  80. )
  81.  
  82. (procedure P_AskLibsDir
  83.     (set #libsDir
  84.         (askdir
  85.                (prompt #AskLibsDirPromptMsg)
  86.                (help #AskLibsDirHelpMsg)
  87.                (default "LIBS:")
  88.           )
  89.      )
  90. )
  91.  
  92. (procedure P_AskMCCsDir
  93.     (set #MCCsDir
  94.         (askdir
  95.                (prompt #AskMCCsDirPromptMsg)
  96.                (help #AskMCCsDirHelpMsg)
  97.                (default "MUI:LIBS/MUI/")
  98.           )
  99.      )
  100. )
  101.  
  102. (procedure P_AskUtilitiesDir
  103.     (set #UtilitiesDir
  104.         (askdir
  105.                (prompt #AskUtilitisDirPromptMsg)
  106.                (help #AskUtilitiesDirHelpMsg)
  107.                (default "C:")
  108.           )
  109.      )
  110. )
  111.  
  112. (procedure P_AskGuideDir
  113.     (set #guideDir
  114.         (askdir
  115.            (prompt #AskGuideDirPromptMsg)
  116.            (help #AskGuideDirHelpMsg)
  117.            (default "Ram Disk:")
  118.         )
  119.      )
  120. )
  121.  
  122. (procedure P_AskExamplesDir
  123.     (set #examplesDir
  124.         (askdir
  125.             (prompt #AskExamplesDirPromptMsg)
  126.                (help #AskExamplesDirHelpMsg)
  127.                (default "Ram Disk:")
  128.           )
  129.      )
  130. )
  131.  
  132. (procedure P_CopyLibs
  133.     (working #CopyingLibsMsg)
  134.     (set #localLibsDir (tackon #source-dir "LIBS/"))
  135.     (foreach #localLibsDir "#?"
  136.           (copylib
  137.                (source (tackon #localLibsDir @each-name))
  138.                (dest #libsDir)
  139.           )
  140.      )
  141.  
  142.     (set #localRxmecLibsDir (tackon #source-dir "LIBS/RXMUI/"))
  143.     (set #installRxmecLibsDir (tackon #libsDir "RxMUI/"))
  144.     (if (= (exists #installRxmecLibsDir) 0)
  145.         (makedir #installRxmecLibsDir)
  146.     )
  147.     (foreach #localRxmecLibsDir "#?"
  148.           (copylib
  149.                (source (tackon #localRxmecLibsDir @each-name))
  150.                (dest #installRxmecLibsDir) (optional "nofail")
  151.           )
  152.      )
  153. )
  154.  
  155. (procedure P_CopyMCCs
  156.     (working #CopyingMCCsMsg)
  157.     (set #localMCCSDir (tackon #source-dir "MUI/"))
  158.     (foreach #localMCCsDir "#?"
  159.           (copylib
  160.                (source (tackon #localMCCsDir @each-name))
  161.                (dest #MCCsDir)
  162.           )
  163.      )
  164. )
  165.  
  166. (procedure P_CopyUtilities
  167.     (working #CopyingUtilitiesMsg)
  168.     (set #localUtilitiesDir (tackon #source-dir "C/"))
  169.     (foreach #localUtilitiesDir "#?"
  170.           (copylib
  171.                (source (tackon #localUtilitiesDir @each-name))
  172.                (dest #UtilitiesDir)
  173.           )
  174.      )
  175. )
  176.  
  177. (procedure P_CopyDocs
  178.     (working #CopyingGuideMsg)
  179.     (set #docsDir (tackon #source-dir (tackon "DOCS" @language)))
  180.     (if (= (exists #docsDir) 0)
  181.         (set #docsDir (tackon #source-dir "DOCS/english"))
  182.     )
  183.     (copyfiles
  184.         (source #docsDir)
  185.           (dest #guideDir)
  186.           (optional force askuser)
  187.           (all)
  188.      )
  189. )
  190.  
  191. (procedure P_CopyExamples
  192.     (working #CopyingExamplesMsg)
  193.     (copyfiles
  194.         (source (tackon #source-dir "EXAMPLES/"))
  195.           (dest #examplesDir)
  196.           (optional force askuser)
  197.           (all)
  198.      )
  199. )
  200.  
  201. (procedure P_CopyCatalogs
  202.     (set #catName (tackon (tackon "Catalogs" @language) "rxmui.catalog"))
  203.     (if (= (exists (tackon #source-dir #catName)) 1)
  204.         (copylib
  205.             (source (tackon #source-dir #catName))
  206.                (dest (tackon "Locale:" (tackon "Catalogs" @language)))
  207.               (optional force askuser)
  208.           )
  209.     )
  210. )
  211.  
  212. (set @default-dest "")
  213. (set #source-dir (if (= 1 (exists @icon)) (pathonly (expandpath @icon)) (expandpath @icon)))
  214.  
  215. (P_SetMessages)
  216.  
  217. (complete 0)
  218.  
  219. (P_ChooseWhatIstall)
  220.  
  221. (if (= 0 #WhatInstall) (exit))
  222. (if (BITAND #WhatInstall  1)  (P_AskLibsDir))
  223. (if (BITAND #WhatInstall  2)  (P_AskMCCsDir))
  224. (if (BITAND #WhatInstall  4)  (P_AskUtilitiesDir))
  225. (if (BITAND #WhatInstall  8)  (P_AskGuideDir))
  226. (if (BITAND #WhatInstall 16)  (P_AskExamplesDir))
  227.  
  228. (if (BITAND #WhatInstall  1)
  229.     (
  230.         (P_CopyLibs)
  231.         (P_CopyCatalogs)
  232.     )
  233. )
  234. (complete 30)
  235.  
  236. (if (BITAND #WhatInstall  2)  (P_CopyMCCs))
  237. (complete 35)
  238.  
  239. (if (BITAND #WhatInstall  4)  (P_CopyUtilities))
  240. (complete 40)
  241.  
  242. (if (BITAND #WhatInstall  8)  (P_CopyDocs))
  243. (complete 80)
  244.  
  245. (if (BITAND #WhatInstall 16)  (P_CopyExamples))
  246. (complete 100)
  247.