Amiga Format 123/af123sub.adf/SweepSys.lzx/SweepSys/Install

Text File | 1996-04-23 | 6KB | 208 lines

; --- Installation script for SweepSys 0.9c+ © by Frank Fenn ---

(set @app-name "SweepSys")
(set #def_lang_English 0)
(set #def_lang_Deutsch 1)

; --- English is the default language ---

(set #Welcome
  (cat "Welcome to the SweepSys installation\n\n"
       "Copyright 1998 by Frank Fenn\n"))

(set #SweepDir
  (cat "Choose SweepSys home directory\n"
       "(NO extra drawer will be created!)"))

(set #WhatCatalog
  (cat "Which catalog file do you want to install?\n"
       "(English language is built-in)"))

(set #done_1
  (cat "\nSweepSys has been succesfuly installed.\n\n"
       "Click the \"SweepSys\" icon in the\n\n"))

(set #done_2
  (cat "\n\ndirectory to start\n\n"
       "please send bugreports and improvements to [e-mail]"))

(set #wrongOS           "SweepSys needs at least OS2.04 to run\n")
(set #WhatInstall       "What do you want to install ?")
(set #StartPgm          "Would you like to start the program now ?")
(set #AlreadyInstalled1 "SweepSys already installed\n\n")
(set #AlreadyInstalled2 " is the installed version\n\n")
(set #AlreadyInstalled3 " should be copied")
(set #Sweepsys          "SweepSys version 0.9c (ß-version)")
(set #Docs              "SweepSys documents")
(set #Guide             "SweepSys guide")
(set #StartHelp         "Do you want to start the program right now\n\n")
(set #CopyingPgm        "\nCopying SweepSys to %s.")
(set #CopyingDocs       "\nCopying Docs...")
(set #CopyingGuide      "\nCopying SweepSysGuide to ")
(set #Yes               "Yes")
(set #No                "No")

(IF (= @language "deutsch")

(

(set #Welcome
  (cat "Wilkommen zur SweepSys installation\n\n"
       "Copyright 1998 by Frank Fenn\n"))

(set #SweepDir
  (cat "Bitte wählen sie das Sweepsys Zielverzeichnis\n"
       "(Es wird kein eigenes Verzeichnis erstellt!)"))

(set #WhatCatalog
  (cat "Welches Katalogfile möchten sie installieren\n"
       "(Englische Sprache eingebaut)"))

(set #done_1
  (cat "\nSweepSys wurde erfolgreich installiert\n\n"
       "Klicken sie auf das \"SweepSys\" Piktogramm im Verzeichnis\n\n"))

(set #done_2
  (cat "\n\nzum Starten\n\n"
       "Bitte senden sie Felermeldungen und Verbesserungsvorschläge an [e-mail]"))

(set #wrongOS           "SweepSys benötigt mindestens OS2.04\n")
(set #WhatInstall       "Was möchten sie installieren?")
(set #StartPgm          "Möchten sie das Programm jetzt starten?")
(set #AlreadyInstalled1 "SweepSys ist bereits installiert\n\n")
(set #AlreadyInstalled2 " ist die installierte Vetsion\n\n")
(set #AlreadyInstalled3 " soll kopiert werden")
(set #Sweepsys          "SweepSys Version 0.9c (ß-Version)")
(set #Docs              "SweepSys Dokumente")
(set #Guide             "SweepSys Guide")
(set #StartHelp         "Wenn sie das Programmsofort starten möchten antworten sie bitte mit Ja\n\n")
(set #CopyingPgm        "\nKopiere SweepSys nach %s.")
(set #CopyingDocs       "\nKopiere Dokumentation")
(set #CopyingGuide      "\nKopiere SweepSysGuide nach ")
(set #Yes               "Ja")
(set #No                "Nein")

)

)

;--- Checking environment ---

(set OS_ver (getversion "exec.library" (resident)))
(if (< OS_ver (* 39 65536)) (abort #wrongOS))

(welcome #Welcome)

(set Catalog_lang
   (askoptions
      (prompt  #WhatCatalog)
      (help    @askoptions-help)
      (choices "Deutsch")
      (default #def_cat_lang)
   )
)

(if (= 0 @user-level)
  (set install_level %000111)
  (set install_level (askoptions
                        (prompt #WhatInstall)
                        (help   @askoptions-help)
                        (choices #Sweepsys #Docs #Guide)
                     )
  )
)

(set def_help #DefHelp)

(set my_level @user-level)
(user 2)
(set sweepsysdest
  (askdir (prompt #SweepDir)
          (help   #DestHelp def_help @askdir-help)
          (default @default-dest)
          (disk)
  )
)

(user my_level)

(set copy_Sweepsys (BITAND %000001 install_level))
(set copy_docs     (BITAND %000010 install_level))
(set copy_guide    (BITAND %000100 install_level))

(if copy_Sweepsys
  (
    (set @default-dest sweepsysdest)
    (set Sweepsystacked (tackon sweepsysdest "SweepSys"))

    (copyfiles (prompt (#CopyingPgm sweepsysdest))
               (help    def_help @copyfiles-help)
               (source "SweepSys")
               (dest    sweepsysdest)
    )

    (complete 25)

    (copyfiles (prompt (#CopyingPgm sweepsysdest))
               (help    def_help @copyfiles-help)
               (source "SweepSys.info")
               (dest    sweepsysdest)
    )

    (complete 50)

  )
)

(if copy_guide
  (
    (set @default-dest sweepsysdest)
    (set Sweepsystacked (tackon sweepsysdest "SweepSys"))

    (copyfiles (prompt (#CopyingGuide sweepsysdest))
               (help    def_help @copyfiles-help)
               (source "SweepSysGuide")
               (dest    sweepsysdest)
    )

    (complete 75)

    (copyfiles (prompt (#CopyingGuide sweepsysdest))
               (help    def_help @copyfiles-help)
               (source "SweepSysGuide.info")
               (dest    sweepsysdest)
    )

    (complete 100)
  )
)

(if (> Catalog_lang 0)
  (
    (set Cat_dir "LOCALE:catalogs")
    (if (bitand Catalog_lang #def_lang_Deutsch)
      (
        (set lang "deutsch")
        (copyfiles (source (tackon "catalogs" lang))
                   (choices "sweepsys.catalog")
                   (dest (tackon Cat_dir lang))
        )
      )
    )
  )
)

(set startpgm
  (askbool (prompt  #StartPgm)
           (help    #StartHelp)
           (default #No)
           (choices #Yes #No)
  )
)

(if startpgm
  (run "run >NIL:" @sweepsysdest "SweepSys")
)

(message #done_1 "\"" sweepsysdest "\"" #done_2)