/*
 * Install V2.1
 *
 * ToolManager install script
 *
 * (c) 1990-1993 Stefan Becker
 */

/* Main routine */
IF (~SHOW("L","rexxsupport.library")) THEN
 CALL ADDLIB("rexxsupport.library", 0, -30)

/* Set locale strings */
language = ARG(1)
SELECT
 WHEN language = "deutsch"    THEN CALL SetDeutsch;
 WHEN language = "français"   THEN CALL SetFrancais;
 WHEN language = "italiano"   THEN CALL SetItaliano;
 WHEN language = "nederlands" THEN CALL SetNederlands;
 WHEN language = "norsk"      THEN CALL SetNorsk;
 WHEN language = "suomi"      THEN CALL SetSuomi;
 WHEN language = "svenska"    THEN CALL SetSvenska;
 OTHERWISE CALL SetEnglish;
END

IF (GetAnswer(Strings.InstallProgram) == Strings.Yes) THEN
 CALL InstallProgram;

IF (GetAnswer(Strings.InstallLocale) == Strings.Yes) THEN
 CALL InstallLocale;

IF (GetAnswer(Strings.InstallDemo) == Strings.Yes) THEN
 CALL InstallDemo;

SAY;
SAY Strings.InstallCompleted;

RETURN;

/* Install program */
InstallProgram:

SAY;
SAY Strings.InstallLibrary;
ADDRESS COMMAND "Copy >NIL: /Libs/toolmanager.library LIBS:";
SAY Strings.InstallStarter;
ADDRESS COMMAND "Copy >NIL: /WBStartup/#? SYS:WBStartup";
SAY Strings.InstallPrefs;
ADDRESS COMMAND "Copy >NIL: /Prefs/#? SYS:Prefs";
SAY Strings.InstallWBStart;
ADDRESS COMMAND "Copy >NIL: /L/WBStart-Handler L: CLONE";

RETURN;

/* Install language file */
InstallLocale:

SAY;
SAY Strings.LanguagesTitle;
SAY;
SAY "0 - english,    1 - deutsch, 2 - eifel, 3 - français, 4 - italiano";
SAY "5 - nederlands, 6 - norsk,   7 - suomi, 8 - svenska";

i = GetAnswer(Strings.ChooseLanguage);
SELECT
 WHEN i = 1 THEN language = "deutsch";
 WHEN i = 2 THEN language = "eifel";
 WHEN i = 3 THEN language = "français";
 WHEN i = 4 THEN language = "italiano";
 WHEN i = 5 THEN language = "nederlands";
 WHEN i = 6 THEN language = "norsk";
 WHEN i = 7 THEN language = "suomi";
 WHEN i = 8 THEN language = "svenska";
 OTHERWISE language = "";
END

SAY;
IF (language ~= "") THEN
 DO
  SAY Strings.InstallLanguage1 || language || Strings.InstallLanguage2;
  ADDRESS COMMAND "Copy >NIL: /Locale/Catalogs/" || language || "/#? LOCALE:Catalogs/" || language;
 END
ELSE
 SAY Strings.DefaultLanguage;

RETURN;

/* Install demo configuration */
InstallDemo:

IF SHOWLIST("P","ToolManager") THEN
 /* ToolManager 1.X active */
 CALL GetAnswer(Strings.QuitTM1X);
ELSE IF SHOWLIST("W","ToolManager Handler") THEN
 /* ToolManager 2.X active */
 DO
  SAY;
  SAY Strings.QuitTM2X;
  ADDRESS COMMAND "/WBStartup/ToolManager";
  /* Wait until handler has vanished */
  DO WHILE SHOWLIST("W","ToolManager Handler")
   CALL DELAY(50);
  END
  /* Flush old library */
  ADDRESS COMMAND "Avail >NIL: FLUSH";
 END

SAY;
SAY Strings.InstallConfig;
ADDRESS COMMAND "Copy >NIL: /TM_Demo.prefs ENV:ToolManager.prefs";
SAY Strings.StartToolManager
ADDRESS COMMAND "/WBStartup/ToolManager";
SAY Strings.StartPrefs;
ADDRESS COMMAND "Run <NIL: >NIL: /Prefs/ToolManager";

RETURN;

/* Get answer from user */
GetAnswer: PROCEDURE

PARSE ARG question

SAY;
CALL WRITECH(STDOUT, question);
PULL answer;

RETURN LEFT(answer, 1);

/* Translations */
/* Deutsch */
SetDeutsch:

Strings.Yes              = "J";
Strings.InstallProgram   = "ToolManager 2.1 installieren? [J/N] ";
Strings.InstallLocale    = "Übersetzungsdatei installieren? [J/N] ";
Strings.InstallDemo      = "Beispielkonfiguration installieren? [J/N] ";
Strings.InstallCompleted = "Installation beendet";
Strings.InstallLibrary   = "Installiere Library...";
Strings.InstallStarter   = "Installiere Startprogramm...";
Strings.InstallPrefs     = "Installiere Voreinsteller...";
Strings.InstallWBStart   = "Installiere WBStart-Programm...";
Strings.LanguagesTitle   = "Verfügbare Übersetzungen:";
Strings.ChooseLanguage   = "Wähle 0-9: ";
Strings.InstallLanguage1 = "Installiere Übersetzungsdatei für '";
Strings.InstallLanguage2 = "'...";
Strings.DefaultLanguage  = "Benutze Englisch...";
Strings.QuitTM1X         = "Bitte stoppen sie den momentan aktiven ToolManager! <RETURN>";
Strings.QuitTM2X         = "Sende Ende-Signal zum momentan aktiven ToolManager...";
Strings.InstallConfig    = "Installiere Beispielkonfiguration...";
Strings.StartToolManager = "Starte ToolManager 2.1...";
Strings.StartPrefs       = "Starte Voreinsteller...";

RETURN;

/* English (default) */
SetEnglish:

Strings.Yes              = "Y";
Strings.InstallProgram   = "Install ToolManager 2.1? [Y/N] ";
Strings.InstallLocale    = "Install language file? [Y/N] ";
Strings.InstallDemo      = "Install demo configuration? [Y/N] ";
Strings.InstallCompleted = "Installation complete...";
Strings.InstallLibrary   = "Installing library...";
Strings.InstallStarter   = "Installing starter...";
Strings.InstallPrefs     = "Installing preferences editor...";
Strings.InstallWBStart   = "Installing WBStart handler...";
Strings.LanguagesTitle   = "Available languages:";
Strings.ChooseLanguage   = "Choose 0-9: ";
Strings.InstallLanguage1 = "Installing catalog file for '";
Strings.InstallLanguage2 = "'...";
Strings.DefaultLanguage  = "Using english catalog...";
Strings.QuitTM1X         = "Please quit the currently active ToolManager! <RETURN>";
Strings.QuitTM2X         = "Sending quit signal to currently active ToolManager...";
Strings.InstallConfig    = "Installing demo configuration...";
Strings.StartToolManager = "Starting ToolManager 2.1...";
Strings.StartPrefs       = "Starting preferences editor...";

RETURN;

/* Français */
SetFrancais:

Strings.Yes              = "O";
Strings.InstallProgram   = "Installation de ToolManager 2.1? [O/N] ";
Strings.InstallLocale    = "Installation pour la locale ? [O/N] ";
Strings.InstallDemo      = "Installation de la configuration démo ? [O/N] ";
Strings.InstallCompleted = "Installation achevée...";
Strings.InstallLibrary   = "Installation de la librairie...";
Strings.InstallStarter   = "Installation dans SYS:WBStartup...";
Strings.InstallPrefs     = "Installation de l'éditeur de préférences...";
Strings.InstallWBStart   = "Installation du gestionnaire WBStart...";
Strings.LanguagesTitle   = "Langages disponibles";
Strings.ChooseLanguage   = "Choisis 0-9: ";
Strings.InstallLanguage1 = "Installation du fichier catalogue pour '";
Strings.InstallLanguage2 = "'...";
Strings.DefaultLanguage  = "Utilisation du catalogue anglais...";
Strings.QuitTM1X         = "SVP quitter le ToolManager actuellement actif ! <RETOUR>";
Strings.QuitTM2X         = "Envoi du signal quit au ToolManager actif...";
Strings.InstallConfig    = "Installation de la configuration démo...";
Strings.StartToolManager = "Lancement de ToolManager 2.1...";
Strings.StartPrefs       = "Lancement de l'éditeur de préférences...";

RETURN;

/* Italiano */
SetItaliano:

Strings.Yes              = "S";
Strings.InstallProgram   = "Installare ToolManager 2.1? [S/N] ";
Strings.InstallLocale    = "Installare file di traduzione? [S/N] ";
Strings.InstallDemo      = "Installare configurazione di esempio? [S/N] ";
Strings.InstallCompleted = "Fine Installazione";
Strings.InstallLibrary   = "Installa librerie...";
Strings.InstallStarter   = "Installa programma di avvio...";
Strings.InstallPrefs     = "Installa Editor Preferenze...";
Strings.InstallWBStart   = "Installa programma WBStart...";
Strings.LanguagesTitle   = "Traduzioni disponibili:";
Strings.ChooseLanguage   = "Scegli 0-9: ";
Strings.InstallLanguage1 = "Installa file traduzione per '";
Strings.InstallLanguage2 = "'...";
Strings.DefaultLanguage  = "Utilizza inglese...";
Strings.QuitTM1X         = "Prego terminate ToolManager attualmente attivo! <RETURN>";
Strings.QuitTM2X         = "Invio segnale di file a ToolManager attualmente attivo...";
Strings.InstallConfig    = "Installazione configurazione di esempio...";
Strings.StartToolManager = "Lancia ToolManager 2.1...";
Strings.StartPrefs       = "Lancia Editor Preferenze...";

RETURN;

/* Nederlands */
SetNederlands:

Strings.Yes              = "J";
Strings.InstallProgram   = "ToolManager 2.1 installeren? [J/N] ";
Strings.InstallLocale    = "Taal bestand installeren [J/N] ";
Strings.InstallDemo      = "Demonstratie instellingen installeren? [J/N] ";
Strings.InstallCompleted = "Installatie klaar...";
Strings.InstallLibrary   = "Library aan het installeren...";
Strings.InstallStarter   = "Starter aan het installeren...";
Strings.InstallPrefs     = "Instellingen bewerker aan het installeren...";
Strings.InstallWBStart   = "WBStart handler aan het installeren...";
Strings.LanguagesTitle   = "Beschikbare talen:";
Strings.ChooseLanguage   = "Kies 0-9:";
Strings.InstallLanguage1 = "Installeer catalog bestand voor '";
Strings.InstallLanguage2 = "'...";
Strings.DefaultLanguage  = "Ik gebruik engels...";
Strings.QuitTM1X         = "Verwijder A.U.B. een reeds draaiende ToolManager! <RETURN>";
Strings.QuitTM2X         = "Ik stuur een einde signaal naar de reeds draaiende ToolManager...";
Strings.InstallConfig    = "Demonstratie instellingen aan het installeren...";
Strings.StartToolManager = "Ik start ToolManager 2.1...";
Strings.StartPrefs       = "Ik start de instellingen bewerker...";

RETURN;

/* Norsk */
SetNorsk:

Strings.Yes              = "J";
Strings.InstallProgram   = "Installere ToolManager 2.1? [J/N]";
Strings.InstallLocale    = "Installere språkfil? [J/N]";
Strings.InstallDemo      = "Installere eksempelkonfigurasjon? [J/N]";
Strings.InstallCompleted = "Installering ferdig";
Strings.InstallLibrary   = "Installere library...";
Strings.InstallStarter   = "Installere oppstartprogram...";
Strings.InstallPrefs     = "Installere programmet for forhåndsinnstillinger...";
Strings.InstallWBStart   = "Installere WBStart handler...";
Strings.LanguagesTitle   = "Tilgjengelige språk:";
Strings.ChooseLanguage   = "Velg 0-9: ";
Strings.InstallLanguage1 = "Installerer språkdata for '";
Strings.InstallLanguage2 = "'...";
Strings.DefaultLanguage  = "Bruker engelsk språk...";
Strings.QuitTM1X         = "Vennligst avslutt den ToolManager som kjører nå! <RETURN>";
Strings.QuitTM2X         = "Sender stoppsignal til den ToolManager som nå kjører...";
Strings.InstallConfig    = "Installerer eksempelkonfigurasjon...";
Strings.StartToolManager = "Starter ToolManager 2.1...";
Strings.StartPrefs       = "Starter programmet for forhåndsinstillinger...";

RETURN;

/* Suomi */
SetSuomi:

Strings.Yes              = "K";
Strings.InstallProgram   = "Asennetaanko ToolManager 2.1? [K/E]";
Strings.InstallLocale    = "Asennetaanko kielitiedosto? [K/E]";
Strings.InstallDemo      = "Asennetaanko esimerkki asetukset? [K/E]";
Strings.InstallCompleted = "Asennus on valmis...";
Strings.InstallLibrary   = "Asennetaan kirjastoa...";
Strings.InstallStarter   = "Asennetaan käynnistäjä...";
Strings.InstallPrefs     = "Asennetaan asetusmuokkaajaa...";
Strings.InstallWBStart   = "Asennetaan: WBStart-handler...";
Strings.LanguagesTitle   = "Saatavissa olevat kielet:";
Strings.ChooseLanguage   = "Valitse 0-9 ";
Strings.InstallLanguage1 = "Asennetaan kielitiedosto kielelle '";
Strings.InstallLanguage2 = "'...";
Strings.DefaultLanguage  = "Käytetään englanninkielistä kielitiedostoa...";
Strings.QuitTM1X         = "Ole hyvä ja poista jo käynnissä oleva ToolManager <RETURN>";
Strings.QuitTM2X         = "Lähetetään lopetuspyyntö käynnissä olevalle ToolManagerille...";
Strings.InstallConfig    = "Asennetaan esimerkki asetukset...";
Strings.StartToolManager = "Käynnistetään ToolManager 2.1...";
Strings.StartPrefs       = "Käynnistetään asetusmuokkaaja...";

RETURN;

/* Svenska */
SetSvenska:

Strings.Yes              = "J";
Strings.InstallProgram   = "Installera ToolManager 2.1? [J/N] ";
Strings.InstallLocale    = "Installera språkfil? [J/N] ";
Strings.InstallDemo      = "Installera demonstrationskonfiguration? [J/N] ";
Strings.InstallCompleted = "Installationen klar...";
Strings.InstallLibrary   = "Installerar library...";
Strings.InstallStarter   = "Installerar startprogrammet...";
Strings.InstallPrefs     = "Installerar prefs-redigeraren...";
Strings.InstallWBStart   = "Installerar WBStart handler...";
Strings.LanguagesTitle   = "Tillgängliga språk:";
Strings.ChooseLanguage   = "Välj 0-9: ";
Strings.InstallLanguage1 = "Installerar catalog-fil för '";
Strings.InstallLanguage2 = "'...";
Strings.DefaultLanguage  = "Använder Engelsk catalog...";
Strings.QuitTM1X         = "Var snäll och avsluta den ToolManager du redan kör! <RETURN>";
Strings.QuitTM2X         = "Signalerar till den ToolManager du kör att avsluta...";
Strings.InstallConfig    = "Installerar demonstrationskonfigurationen...";
Strings.StartToolManager = "Startar ToolManager 2.1...";
Strings.StartPrefs       = "Startar prefs-redigeraren...";

RETURN;