AmigActive 26/AACD 26.iso/AACD/Programming/RxAsl/Install

Text File | 2001-09-18 | 6.6 KB | 208 lines

; $VER: RxAsl_Install 10.0 (18.9.01)

(procedure P_SetMessages

    (if (= "italiano" @language)
        (
            (set #WhatInstallPromptMsg            "Cosa vuoi installare?")
            (set #WhatInstallHelpMsg            "Scegli cosa vuoi installare:\n\nLibrerie - le librerie di RxAsl\nUtilità - alcune programmi d'utilità\nDocumentazione - la documentazione RxAsl in formato AmigaGuide\nEsempi - alcune macro d'esempio")

            (set #WhatInstallLibrariesMsg        "Librerie")
            (set #WhatInstallUtilitiesMsg        "Utilità")
            (set #WhatInstallDocumentationMsg    "Documentazione")
            (set #WhatInstallExamplesMsg        "Esempi")

            (set #AskLibsDirPromptMsg            "Scegli la directory dove installare le librerie")
            (set #AskLibsDirHelpMsg                "Nella directory che sceglierai, saranno installate le librerie di RxAsl. La directory deve essere nell'assegnamento logico LIBS:")

            (set #AskUtilitisDirPromptMsg        "Scegli la directory dove installare le utilità")
            (set #AskUtilitiesDirHelpMsg        "Nella directory che sceglierai, saranno installate le utilità di RxAsl. La directory deve essere nella path.")

            (set #AskGuideDirPromptMsg            "Scegli la directory dove installare la documentazione")
            (set #AskGuideDirHelpMsg            "Nella directory che sceglierai, sarà installata la documentazione di RxAsl.")

            (set #AskExamplesDirPromptMsg        "Scegli la directory dove installare gli esempi")
            (set #AskExamplesDirHelpMsg            "Nella directory che sceglierai, saranno installate alcune macro d'esempio.")

            (set #CopyingLibsMsg                "Sto copiando le librerie")
            (set #CopyingUtilitiesMsg            "Sto copiando le utilità")
            (set #CopyingGuideMsg                "Sto copiando la ducmentazione")
            (set #CopyingExamplesMsg            "Sto copiando gli esempi")
        )
        (
            (set #WhatInstallPromptMsg            "What do you want to install?")
            (set #WhatInstallHelpMsg            "Choose what you want to install:\nLibraries - all the libraries needed by RxAsl to work\nUtilities - some little utilities, such as rxs, needed to call macros from inetd\nDocumentation - RxAsl documentation in AmigaGuide format\nExamples - RxAsl ARexx macros")

            (set #WhatInstallLibrariesMsg        "Libraries")
            (set #WhatInstallUtilitiesMsg        "Utilities")
            (set #WhatInstallDocumentationMsg    "Documentation")
            (set #WhatInstallExamplesMsg        "Examples")

            (set #AskLibsDirPromptMsg            "Select the drawer where you want to install RxAsl libraries")
            (set #AskLibsDirHelpMsg                "In the drawer you supply here, there will be installed RxAsl.library rxlibnet.library and RxAsl.library. This drawer MUST BE in your LIBS: assignment")

            (set #AskUtilitisDirPromptMsg        "Select the drawer where you want to install some RxAsl little utilities.")
            (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 RxAsl functions inline help. The best drawer to place them is C: ; anyway, it should be in your PATH")

            (set #AskGuideDirPromptMsg            "Select the drawer where you want to install RxAsl documentation")
            (set #AskGuideDirHelpMsg            "In the drawer you supply here, there will be installed the RxAsl documentation in AmigaGuide format")

            (set #AskExamplesDirPromptMsg        "Select the drawer where you want to install RxAsl examples macro")
            (set #AskExamplesDirHelpMsg            "In the drawer you supply here, there will be installed some RxAsl examples ARexx macros")

            (set #CopyingLibsMsg                "Copying or Updating libraries")
            (set #CopyingUtilitiesMsg            "Copying or Updating utilities")
            (set #CopyingGuideMsg                "Copying documentation")
            (set #CopyingExamplesMsg            "Copying examples")
        )
    )
)

(procedure P_ChooseWhatIstall
    (set #WhatInstall (askoptions (prompt #WhatInstallPromptMsg)
                                  (help #WhatInstallHelpMsg)
                                  (choices #WhatInstallLibrariesMsg #WhatInstallUtilitiesMsg #WhatInstallDocumentationMsg    #WhatInstallExamplesMsg)
                         )
     )
)

(procedure P_AskLibsDir
    (set #libsDir
        (askdir
               (prompt #AskLibsDirPromptMsg)
               (help #AskLibsDirHelpMsg)
               (default "LIBS:")
          )
     )
)

(procedure P_AskUtiliesDir
    (set #utilitiesDir
        (askdir
               (prompt #AskUtilitisDirPromptMsg)
               (help #AskUtilitiesDirHelpMsg)
               (default "C:")
          )
     )
)

(procedure P_AskGuideDir
    (set #guideDir
        (askdir
           (prompt #AskGuideDirPromptMsg)
           (help #AskGuideDirHelpMsg)
           (default "Ram:")
        )
     )
)

(procedure P_AskExamplesDir
    (set #examplesDir
        (askdir
            (prompt #AskExamplesDirPromptMsg)
               (help #AskExamplesDirHelpMsg)
               (default "Ram:")
          )
     )
)

(procedure P_CopyLibs
    (working #CopyingLibsMsg)
    (set #localLibsDir (tackon #source-dir "LIBS/"))
    (foreach #localLibsDir "#?"
          (copylib
               (source (tackon #localLibsDir @each-name))
               (dest #libsDir)
          )
     )
)

(procedure P_CopyUtilities
    (working #CopyingUtilitiesMsg)
    (set #localUtilitiesDir (tackon #source-dir "C/"))
    (foreach #localUtilitiesDir "#?"
          (copylib
               (source (tackon #localUtilitiesDir @each-name))
               (dest #UtilitiesDir)
          )
     )
)

(procedure P_CopyCatalogs
    (set #catSourceDir (tackon #source-dir (tackon "Catalogs" @language)))
    (set #catDestDir (tackon "Locale:" (tackon "Catalogs" @language)))
    (if (= (and (= (exists (#catSourceDir)) 2) (= (exists (#catDestDir)) 2)) 1)
        (foreach #catSourceDir "#?"
              (copylib
                   (source (tackon #catSourceDir @each-name))
                   (dest #catDestDir)
              )
         )
    )
)

(procedure P_CopyDocs
    (working #CopyingGuideMsg)
    (copyfiles
        (source (tackon #source-dir "DOCS/english/"))
          (dest #guideDir)
          (optional force askuser)
          (all)
     )
)

(procedure P_CopyDocs
    (working #CopyingGuideMsg)
    (set #docSourceDir (tackon #source-dir (tackon "DOCS" @language)))
    (if (<> (exists #docSourceDir) 2) (set #docSourceDir (tackon #source-dir "DOCS/english/")))
    (copyfiles    (source #docSourceDir)
                  (dest #guideDir)
                  (optional force askuser)
                  (all)
     )
)


(procedure P_CopyExamples
    (working #CopyingExamplesMsg)
    (copyfiles
        (source (tackon #source-dir "EXAMPLES/"))
          (dest #examplesDir)
          (optional force askuser)
          (all)
     )
)

(set @default-dest "LIBS:")
(set #source-dir (if (= 1 (exists @icon)) (pathonly (expandpath @icon)) (expandpath @icon)))

(P_SetMessages)

(complete 0)

(P_ChooseWhatIstall)

(if (= 0 #WhatInstall) (exit))
(if (BITAND #WhatInstall 1)  (P_AskLibsDir))
(if (BITAND #WhatInstall 2)  (P_AskUtiliesDir))
(if (BITAND #WhatInstall 4)  (P_AskGuideDir))
(if (BITAND #WhatInstall 8)  (P_AskExamplesDir))

(if (BITAND #WhatInstall  1)
    (
        (P_CopyLibs)
        (P_CopyCatalogs)
    )
)
(complete 30)

(if (BITAND #WhatInstall 2)  (P_CopyUtilities))
(complete 40)

(if (BITAND #WhatInstall 4)  (P_CopyDocs))
(complete 80)

(if (BITAND #WhatInstall 8)  (P_CopyExamples))
(complete 100)