; $VER: FinalWrapper.install 3.14 (19.05.97) by NDY's

(PROCEDURE _copy
  (IF (= @user-level 2)
    (IF (= (ASKBOOL (PROMPT (#copy #file #destdr)) (HELP @askbool-help) (DEFAULT 1) (CHOICES (CAT #no #yes))) 1)
      (
        (IF (NOT (EXISTS #destdr)) (MAKEDIR #destdr))
        (COPYFILES (SOURCE #file) (DEST #destdr))
      )
    )
    (
      (IF (NOT (EXISTS #destdr)) (MAKEDIR #destdr))
      (COPYFILES (SOURCE #file) (DEST #destdr))
    )
  )
)
(PROCEDURE _setenv
  (
    (SET #destdr #envdr)
    (IF (NOT (EXISTS #destdr)) (MAKEDIR #destdr))
    (SET #fwdef "ENVARC:FinalWrapper.def")
    (IF (EXISTS #fwdef (NOREQ)) (DELETE #fwdef)) ; created by obsolete FW version
    (TEXTFILE (DEST "ENVARC:FinalWrapper/FWPath") (APPEND (SUBSTR #destname 0 (- (STRLEN #destname) (STRLEN (FILEONLY #destname))))))
    (TEXTFILE (DEST "ENVARC:FinalWrapper/FWLanguage") (APPEND @language))
    (SET #file "FWbugreport.rexx")
    (_copy)
    (SET #file "SetLanguage")
    (_copy)
    (IF (<> @language "english")
      (
        (SET #file (TACKON "Translations" (CAT "FinalWrapper." @language)))
        (_copy)
      )
    )
  )
)

(IF (AND (AND (AND (<> @language "english") (<> @language "deutsch")) (AND (<> @language "italiano") (<> @language "dansk"))) (<> @language "norsk"))
  (
    (SET #lang (ASKCHOICE (PROMPT "Which language do you want to use?") (CHOICES "English" "German" "Italian" "Danish" "Norwegian (installation in English)") (DEFAULT 0) (HELP @askchoice-help)))
    (IF (= #lang 0) ((SET @language "english")))
    (IF (= #lang 1) ((SET @language "deutsch")))
    (IF (= #lang 2) ((SET @language "italiano")))
    (IF (= #lang 3) ((SET @language "dansk")))
    (IF (= #lang 4) ((SET @language "norsk")))
  )
)
(IF (= @language "deutsch")
  (
    (SET #defdest "FinalWriter_D/FWMacros")
    (SET #hi "\nWilkommen zum Installer-Skript\nvon FinalWrapper 3.14!\n\n(c) 1997 by\n\nAndreas Weiss\nDorfstrasse 24\nCH-8212 Nohl\n(Schweiz)\n\nDas Programm ist SHAREWARE!\n(siehe Anleitung)")
    (SET #kick "Sorry, FinalWrapper benötigt mindestens OS2.0!")
    (SET #macro "Wählen Sie Ihr Final Writer Makroverzeichnis:")
    (SET #macrohelp "FinalWrapper wird in dieses Verzeichnis\ninstalliert, die Anleitung nach HELP:deutsch,\ndie benötigten Libraries nach LIBS:\nund einige kleine Dateien nach ENVARC:")
    (SET #nosuchdir "Verzeichnis nicht gefunden:")
    (SET #alreadynewer "Diese oder eine neuere Version ist bereits installiert:\n\n")
    (SET #manual "FinalWrapperSmallD.Guide")
    (SET #dosetenv "Umgebungsvariablen setzen?\n\nEin Verzeichnis 'ENVARC:FinalWrapper'\nwird erzeugt. Dies wird für die\ndeutsche Benutzerführung benötigt.")
    (SET #yes "Ja")
    (SET #no "Nein")
    (SET #copy "%s nach \n%s kopieren?")
    (SET #prefix "")
    (SET #infix " nach ")
    (SET #postfix " kopieren?")
    (SET #done "FinalWrapper 3.14 wurde\nerfolgreich installiert!")
  )
  (IF (= @language "italiano")
    (
      (SET #defdest "FinalWriter/FWMacros")
      (SET #hi "\nBenvenuti all'installazione di\nFinalWrapper 3.14!\n\n(c) 1997 by\n\nAndreas Weiss\nDorfstrasse 24\nCH-8212 Nohl\n(Switzerland)\n\nIl programma è SHAREWARE!\n(vedi manuale)")
      (SET #kick "Spiacente, è necessario almeno OS2.0!")
      (SET #macro "Scegliere la directory delle macro di Final Writer:")
      (SET #macrohelp "FinalWrapper sarà installato in questa\ndirectory, il manuale in HELP:italiano,\nle librarie richieste in LIBS:\n e qualche piccole programme in ENVARC:")
      (SET #nosuchdir "Directory non trovata:")
      (SET #alreadynewer "Già presente questa versione (o più recente) di FW:\n\n")
      (SET #manual "FinalWrapperSmallI.Guide")
      (SET #dosetenv "Setto la variabile di ambiente ENVARC:FinalWrapper?\nE' necessario per tutti i linguaggi\ntranne l'inglese.")
      (SET #yes "Si")
      (SET #no "No")
      (SET #copy "Copio %s\nin %s ?")
      (SET #done "FinalWrapper 3.14 è stato\ninstallato con successo!")
    )
    (IF (= @language "dansk")
      (
        (SET #defdest "FinalWriter/FWMacros")
        (SET #hi "\nVelkommen til FinalWrapper 3.14's\nInstaller-script\n\n(c) 1997 by\n\nAndreas Weiss\nDorfstrasse 24\nCH-8212 Nohl\n(Switzerland)\n\nProgrammet er SHAREWARE!\n(se manualen)")
        (SET #kick "Desværre, FinalWrapper skal bruge mindst OS2.0!")
        (SET #macro "Vælg skuffen med Final Writer's macroer :")
        (SET #macrohelp "FinalWrapper bliver installeret til dette\ndirectory, manualen til HELP:dansk,\nde nødvendige libraries til LIBS:\nog et lille program til ENVARC:")
        (SET #nosuchdir "Directory ikke fundet:")
        (SET #alreadynewer "Denne, eller en nyere version er allerede installeret:\n\n")
        (SET #manual "FinalWrapperSmall.Guide")
        (SET #dosetenv "Sæt system-variable ENVARC:FinalWrapper?\nEr nødvendigt for alle sprog,\nundtagen Engelsk.")
        (SET #yes "Ja")
        (SET #no "Nej")
        (SET #copy "Kopier %s\ntil %s ?")
        (SET #done "FinalWrapper 3.14 er blevet\ninstalleret som de skal!")
      )
      (
        (SET #defdest "FinalWriter/FWMacros")
        (SET #hi "\nWelcome to the Installer script\nof  FinalWrapper 3.14!\n\n(c) 1997 by\n\nAndreas Weiss\nDorfstrasse 24\nCH-8212 Nohl\n(Switzerland)\n\nThe program is SHAREWARE!\n(see manual)")
        (SET #kick "Sorry, FinalWrapper needs at least OS2.0!")
        (SET #macro "Choose your Final Writer macro directory:")
        (SET #macrohelp "FinalWrapper will be installed to this\ndirectory, the manual to HELP:english,\nthe needed libraries to LIBS:\nand some small files to ENVARC:")
        (SET #nosuchdir "Directory not found:")
        (SET #alreadynewer "This or a newer version is already installed:\n\n")
        (SET #manual "FinalWrapperSmall.Guide")
        (SET #dosetenv "Set environnement variables?\n\nA directory 'ENVARC:FinalWrapper'\nwill be created.")
        (SET #yes "Yes")
        (SET #no "No")
        (SET #copy "Copy %s\nto %s ?")
        (SET #done "FinalWrapper 3.14 has been\nsuccessfully installed!")
      )
    )
  )
)
(IF (< (SHIFTRIGHT (GETVERSION) 16) 37) (EXIT #kick))
(MESSAGE #hi)
(IF (= (USER 1) 2) (USER 2)) ; Minimal user level is 1
(SET @default-dest (TACKON @default-dest #defdest))
(SET #destdr (ASKDIR (PROMPT #macro) (DEFAULT @default-dest) (HELP #macrohelp)))
(IF (NOT (EXISTS #destdr (NOREQ))) (EXIT #nosuchdir #destdr))
(SET @default-dest #destdr)
(SET #file "FinalWrapper.rexx")
(SET #destname (TACKON #destdr #file))
(IF (EXISTS #destname (NOREQ))
  (
    (SET #env "FWInstall.temp")
    (RUN (CAT "Version >ENV:" #env " \"" #file "\""))
    (SET #sourcever (GETENV #env))
    (RUN (CAT "Version >ENV:" #env " \"" #destname "\""))
    (SET #destver (GETENV #env))
    (DELETE (TACKON "ENV:" #env))
    (IF (>= #destver #sourcever) (EXIT #alreadynewer #destver))
  )
)

(_copy)
(FOREACH "FW_Macros" "FW_#?.rexx"
  (
    (SET #file (TACKON "FW_Macros" @each-name))
    (_copy)
  )
)
(SET #destdr "LIBS:")
(FOREACH "libs" "#?.library"
  (
    (SET #file (TACKON "libs" @each-name))
    (_copy)
  )
)
(SET #envdr "ENVARC:FinalWrapper")
(IF (= @user-level 2)
  (IF (= (ASKBOOL (PROMPT #dosetenv) (HELP @askbool-help) (DEFAULT 1) (CHOICES (CAT #no #yes))) 1)
    (_setenv)
  )
  (_setenv)
)
(SET #file #manual)
(SET #destdr (TACKON "HELP:" @language))
(IF (NOT (EXISTS #destdr (NOREQ))) (SET #destdr #envdr))
(IF (EXISTS #destdr (NOREQ)) (_copy))
(EXIT #done)