home *** CD-ROM | disk | FTP | other *** search
- ; --- Installation script for VolChange © by Frank Fenn ---
-
- (set @app-name "VolChange")
- (set #def_lang_English 0)
- (set #def_lang_Deutsch 1)
-
- ; --- English is the default language ---
-
- (set #Welcome
- (cat "Welcome to the VolChange installation\n\n"
- "Copyright 1998 by Frank Fenn\n"))
-
- (set #VolChangeDir
- (cat "Choose VolChange 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 "\nVolChange has been succesfuly installed.\n\n"
- "Click the \"VolChange\" icon in the\n\n"))
-
- (set #done_2
- (cat "\n\ndirectory to start\n\n"
- "please send bugreports and improvements to fenn@nucleus.com"))
-
- (set #wrongOS "VolChange needs at least OS3.1 to run\n")
- (set #WhatInstall "What do you want to install ?")
- (set #StartPgm "Would you like to start the program now ?")
- (set #AlreadyInstalled1 "VolChange already installed\n\n")
- (set #AlreadyInstalled2 " is the installed version\n\n")
- (set #AlreadyInstalled3 " should be copied")
- (set #VolChange "VolChange")
- (set #Docs "VolChange documents")
- (set #Guide "VolChange guide")
- (set #StartHelp "Do you want to start the program right now\n\n")
- (set #CopyingPgm "\nCopying VolChange to %s.")
- (set #CopyingDocs "\nCopying Docs...")
- (set #CopyingGuide "\nCopying VolChange to ")
- (set #Yes "Yes")
- (set #No "No")
-
- (IF (= @language "deutsch")
-
- (
-
- (set #Welcome
- (cat "Wilkommen zur VolChange Installation\n\n"
- "Copyright 1999 by Frank Fenn\n"))
-
- (set #VolChangeDir
- (cat "Bitte wählen sie das VolChange 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 "\nVolChange wurde erfolgreich installiert\n\n"
- "Klicken sie auf das \"VolChange\" Piktogramm im Verzeichnis\n\n"))
-
- (set #done_2
- (cat "\n\nzum Starten\n\n"
- "Bitte senden sie Felermeldungen und Verbesserungsvorschläge an fenn@nucleus.com"))
-
- (set #wrongOS "VolChange benötigt mindestens OS2.04\n")
- (set #WhatInstall "Was möchten sie installieren?")
- (set #StartPgm "Möchten sie das Programm jetzt starten?")
- (set #AlreadyInstalled1 "VolChange ist bereits installiert\n\n")
- (set #AlreadyInstalled2 " ist die installierte Version\n\n")
- (set #AlreadyInstalled3 " soll kopiert werden")
- (set #VolChange "VolChange")
- (set #Docs "VolChange Dokumente")
- (set #Guide "VolChange Guide")
- (set #StartHelp "Wenn sie das Programmsofort starten möchten antworten sie bitte mit Ja\n\n")
- (set #CopyingPgm "\nKopiere VolChange nach %s.")
- (set #CopyingDocs "\nKopiere Dokumentation")
- (set #CopyingGuide "\nKopiere VolChangeGuide nach ")
- (set #Yes "Ja")
- (set #No "Nein")
-
- )
-
- )
-
- ;--- Checking environment ---
-
- (set OS_ver (getversion "exec.library" (resident)))
- (if (< OS_ver (* 40 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 #VolChange #Docs #Guide)
- )
- )
- )
-
- (set my_level @user-level)
- (user 2)
- (set VolChangedest
- (askdir (prompt #VolChangeDir)
- (help @askdir-help)
- (default @default-dest)
- (disk)
- )
- )
-
- (user my_level)
-
- (set copy_VolChange (BITAND %000001 install_level))
- (set copy_docs (BITAND %000010 install_level))
- (set copy_guide (BITAND %000100 install_level))
-
- (if copy_VolChange
- (
- (set @default-dest VolChangedest)
- (set VolChangetacked (tackon VolChangedest "VolChange"))
-
- (copyfiles (prompt (#CopyingPgm VolChangedest))
- (help def_help @copyfiles-help)
- (source "VolChange")
- (dest VolChangedest)
- )
-
- (complete 25)
-
- (copyfiles (prompt (#CopyingPgm VolChangedest))
- (help def_help @copyfiles-help)
- (source "VolChange.info")
- (dest VolChangedest)
- )
-
- (complete 50)
-
- )
- )
-
- (if copy_guide
- (
- (set @default-dest VolChangedest)
- (set VolChangetacked (tackon VolChangedest "VolChange"))
-
- (copyfiles (prompt (#CopyingGuide VolChangedest))
- (help def_help @copyfiles-help)
- (source "VolChangeGuide")
- (dest VolChangedest)
- )
-
- (complete 75)
-
- (copyfiles (prompt (#CopyingGuide VolChangedest))
- (help def_help @copyfiles-help)
- (source "VolChangeGuide.info")
- (dest VolChangedest)
- )
-
- (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 "VolChange.catalog")
- (dest (tackon Cat_dir lang))
- )
- )
- )
- )
- )
-
- (set startpgm
- (askbool (prompt #StartPgm)
- (help #StartHelp)
- (default #No)
- (choices #Yes #No)
- )
- )
-
- (if startpgm
- (run "run >NIL:" (tackon VolChangedest "VolChange"))
- )
-
- (message #done_1 "\"" VolChangedest "\"" #done_2)
-