; This is the script for "Inno Setup 5" to create the setup_espeak.exe installer for Windows



[Setup]

AppName=eSpeak

AppVerName=eSpeak version 1.39

AppCopyright=Licensed under GNU General Public License version 3.   (See file License.txt for details).

WindowVisible=yes



DefaultDirName={pf}\eSpeak

DefaultGroupName=eSpeak

OutputBaseFilename=setup_espeak

Compression=lzma

SolidCompression=yes

ShowLanguageDialog=auto



[InstallDelete]

Type: files; Name: "{app}\espeak.dll"



[Dirs]

Name: "{app}\espeak-data\soundicons"

Name: "{app}\espeak-data\mbrola"



[Files]

Source: "espeak_sapi.dll"; DestDir: "{app}"; Flags: regserver promptifolder replacesameversion

Source: "TTSApp.exe"; DestDir:"{app}"

Source: "espeak-data\*"; DestDir: "{app}\espeak-data"; Flags: recursesubdirs

Source: "dictsource\*"; DestDir: "{app}\dictsource"; Flags: recursesubdirs

Source: "docs\*"; DestDir: "{app}\docs"; Flags: recursesubdirs

Source: "command_line\*"; DestDir: "{app}\command_line"

Source: "Readme.txt"; DestDir: "{app}"; Flags: isreadme

Source: "License.txt"; DestDir: "{app}";



[Registry]

Root: HKLM; Subkey: "Software\Microsoft\Speech\Voices\Tokens\eSpeak"; Flags: deletekey uninsdeletekey

Root: HKLM; Subkey: "Software\Microsoft\Speech\Voices\Tokens\eSpeak_1"; Flags: deletekey uninsdeletekey

Root: HKLM; Subkey: "Software\Microsoft\Speech\Voices\Tokens\eSpeak_2"; Flags: deletekey uninsdeletekey

Root: HKLM; Subkey: "Software\Microsoft\Speech\Voices\Tokens\eSpeak_3"; Flags: deletekey uninsdeletekey

Root: HKLM; Subkey: "Software\Microsoft\Speech\Voices\Tokens\eSpeak_4"; Flags: deletekey uninsdeletekey

Root: HKLM; Subkey: "Software\Microsoft\Speech\Voices\Tokens\eSpeak_5"; Flags: deletekey uninsdeletekey

Root: HKLM; Subkey: "Software\Microsoft\Speech\PhoneConverters\Tokens\eSpeak"; Flags: deletekey uninsdeletekey





[Languages]

Name: "en"; MessagesFile: "compiler:Default.isl"

Name: "af"; MessagesFile: "compiler:Languages\Afrikaans.isl"

Name: "bs"; MessagesFile: "compiler:Languages\Bosnian.isl"

Name: "cs"; MessagesFile: "compiler:Languages\Czech.isl"

Name: "de"; MessagesFile: "compiler:Languages\German.isl"

Name: "el"; MessagesFile: "compiler:Languages\Greek.isl"

Name: "es"; MessagesFile: "compiler:Languages\Spanish.isl"

Name: "fi"; MessagesFile: "compiler:Languages\Finnish.isl"

Name: "fr"; MessagesFile: "compiler:Languages\French.isl"

Name: "hr"; MessagesFile: "compiler:Languages\Croatian.isl"

Name: "hu"; MessagesFile: "compiler:Languages\Hungarian.isl"

Name: "it"; MessagesFile: "compiler:Languages\Italian.isl"

Name: "nl"; MessagesFile: "compiler:Languages\Dutch.isl"

Name: "no"; MessagesFile: "compiler:Languages\Norwegian.isl"

Name: "pl"; MessagesFile: "compiler:Languages\Polish.isl"

Name: "pt"; MessagesFile: "compiler:Languages\Portuguese.isl"

Name: "ro"; MessagesFile: "compiler:Languages\Romanian.isl"

Name: "ru"; MessagesFile: "compiler:Languages\Russian.isl"

Name: "sk"; MessagesFile: "compiler:Languages\Slovak.isl"

Name: "sr"; MessagesFile: "compiler:Languages\Serbian.isl"

Name: "tr"; MessagesFile: "compiler:Languages\Turkish.isl"



[CustomMessages]

v1=Select which voices to install

v2=or press Enter to accept defaults

v3=Enter voice names, eg: (for Portuguese)   pt,  or with a variant, eg: pt+f3



bs.v1=Odaberite jezik kojeg želite instalirati

bs.v2=ili pritisnite Enter za prihvat zadanih.

bs.v3=Upišite, npr. bs (za Bosanski) ili s varjantom: bs+f3



fr.v1=Sélectionnez les voix ? installer

fr.v2=ou appuyez sur Entrée pour accepter les valeurs par défaut.

fr.v3=Entrez le nom des voix, ex : (pour le Français) fr, ou avec une variante ex : fr+f3



hr.v1=Odaberite jezik kojeg želite instalirati

hr.v2=ili pritisnite Enter za prihvat zadanih.

hr.v3=Upišite, npr. hr (za Hrvatski) ili s varjantom: hr+f3



pt.v1=Seleccione as vozes que pretende instalar

pt.v2=ou precione enter para aceitar as predefinidas.

pt.v3=Introduza os nomes das vozes, ex: (Brazil) pt (ou Portugal) pt-pt, ou com outras caracter?sticas, ex: pt+f3



sr.v1=Molimo vas da odaberete glasove, koje želite da instalirate

sr.v2=ili pritisnite Enter za instalaciju podrazumevanih glasova.

sr.v3=Da odaberete glas, unesite ime glasa kojeg želite instalirati, na primer sr, ili sr+f3





[Code]

var

  UILanguage: Integer;

  UIVoice: String;

  Page: TInputQueryWizardPage;



const

  sEspeak = 'eSpeak-';

  RegVoice1 = 'Software\Microsoft\Speech\Voices\Tokens\eSpeak';

  RegPhConv = 'Software\Microsoft\Speech\PhoneConverters\Tokens';





function VoiceFromLanguage(language: Integer): String;

var

  lang_main: Integer;



begin

  lang_main := language and $3ff;

  Result := 'en';



  // translation from microsoft codes to language codes

  case lang_main of

  $04: Result := 'zh';

  $05: Result := 'cs';

  $06: Result := 'da';

  $07: Result := 'de';

  $08: Result := 'el';

  $09: Result := 'en';

  $0a: Result := 'es-la';

  $0b: Result := 'fi';

  $0c: Result := 'fr';

  $0e: Result := 'hu';

  $0f: Result := 'is';

  $10: Result := 'it';

  $12: Result := 'ko';

  $13: Result := 'nl';

  $14: Result := 'no';

  $15: Result := 'pl';

  $16: Result := 'pt';

  $18: Result := 'ro';

  $19: Result := 'ru';

  $1a: Result := 'hr';

  $1b: Result := 'sk';

  $1d: Result := 'sv';

  $1f: Result := 'tr';

  $21: Result := 'id';

  $2a: Result := 'vi';

  $2f: Result := 'mk';

  $36: Result := 'af';

  $39: Result := 'hi';

  $41: Result := 'sw';

  $49: Result := 'ta';

  $52: Result := 'cy';

  $87: Result := 'rw';

  end;



  // is there a match on the full language code?

  case language of

  $40a: Result := 'es';

  $c0a: Result := 'es';

  $816: Result := 'pt-pt';

  $41a: Result := 'hr';

  $81a: Result := 'sr';

  $c1a: Result := 'sr';

  $141a: Result := 'bs';

  end;

end;





function LanguageFromVoice(voice: String): String;

var

  value: Integer;

  lang1: String;

  len: Integer;

begin

  value := $409;   // default en-us



  lang1 := Copy(voice,0,2);

  if lang1 = 'mb' then

  begin

    lang1 := Copy(voice,3,3);

    len := Length(voice);

    if len > 8 then

      lang1 := Copy(voice,8,6);  // eg. mb-de4-en, return 'en'

  end;

  

  case lang1 of

  'af': value := $436;

  'bs': value := $41a;   // should be $141a but Jaws crashes on startup

  'cs': value := $405;

  'cy': value := $452;

  'da': value := $406;

  'de': value := $407;

  'el': value := $408;

  'en': value := $409;

  'es': value := $40a;

  'fi': value := $40b;

  'fr': value := $40c;

  'hi': value := $439;

  'hr': value := $41a;

  'hu': value := $40e;

  'id': value := $421;

  'is': value := $40f;

  'it': value := $410;

  'ko': value := $412;

  'mk': value := $42f;

  'nl': value := $413;

  'no': value := $414;

  'pl': value := $415;

  'pt': value := $416;

  'ro': value := $418;

  'ru': value := $419;

  'rw': value := $487;

  'sk': value := $41b;

  'sr': value := $81a;

  'sv': value := $41d;

  'sw': value := $441;

  'ta': value := $449;

  'tr': value := $41f;

  'vi': value := $42a;

  'zh': value := $804;

  // mbrola voices

  '-af': value := $436;

  '-br': value := $416;

  '-ca': value := $c0c;

  '-cr': value := $41a;

  '-cz': value := $405;

  '-de': value := $407;

  '-en': value := $809;

  '-es': value := $40a;

  '-fr': value := $40c;

  '-gr': value := $408;

  '-hu': value := $40e;

  '-ic': value := $40f;

  '-in': value := $439;

  '-it': value := $410;

  '-mx': value := $80a;

  '-nl': value := $413;

  '-pl': value := $415;

  '-pt': value := $816;

  '-ro': value := $418;

  '-sw': value := $41d;

  '-us': value := $409;

  '-vz': value := $200a;

  end;



  // check for specific voices

  case voice of

  'pt-pt': value := $816;

  end;

  

  Result := Format('%X',[value]);

end;





// is the language number already in a PhoneConvertor ?

function CheckPhoneConvertors(Lcode: String): Integer;

var

  Convertors: TArrayOfString;

  ix: Integer;

  len: Integer;

  s1: String;

  s2: String;

  sLangs: String;

begin

  Result := 0;

  len := Length(Lcode);

  if RegGetSubkeyNames(HKEY_LOCAL_MACHINE, RegPhConv, Convertors) then

  begin

    for ix := 0 to GetArrayLength(Convertors) - 1 do

    begin

      s1 := RegPhConv + '\' + Convertors[ix] + '\Attributes';

      if RegQueryStringValue(HKEY_LOCAL_MACHINE, s1, 'Language', sLangs) then

      begin

        s2 := Copy(sLangs, 1, len);

        if s2 = Lcode then

          Result := 1;

        if sLangs = Lcode then

          Result := 1;

        if Pos(';' + Lcode, sLangs) > 0 then

          Result := 1;

      end;

    end;

  end;

end;



// ensure the language number is included in a PhoneConvertor

procedure SetPhoneConvertor(Lcode: String);

var

  done: Boolean;

  s1: String;

  sLangs: String;

begin

  if CheckPhoneConvertors(Lcode) = 0 then

  begin

    done := False;

    s1 := RegPhConv + '\Universal\Attributes';

    if RegQueryStringValue(HKEY_LOCAL_MACHINE, s1, 'Language', sLangs) then

    begin

      done := RegWriteStringValue(HKEY_LOCAL_MACHINE, s1, 'Language', Lcode + ';' + sLangs);

    end;



    if done = False then

    begin

      s1 := RegPhConv + '\eSpeak\Attributes';

      if RegQueryStringValue(HKEY_LOCAL_MACHINE, s1, 'Language', sLangs) = False then

      begin

        // add 'eSpeak' dummy PhoneConvertor

        RegWriteStringValue(HKEY_LOCAL_MACHINE, RegPhConv + '\eSpeak', 'CLSID','{9185F743-1143-4C28-86B5-BFF14F20E5C8}');

        RegWriteStringValue(HKEY_LOCAL_MACHINE, RegPhConv + '\eSpeak', 'PhoneMap','- 0001');

        RegWriteStringValue(HKEY_LOCAL_MACHINE, s1, 'Language','');

      end;

      

      if RegQueryStringValue(HKEY_LOCAL_MACHINE, s1, 'Language', sLangs) then

      begin

        done := RegWriteStringValue(HKEY_LOCAL_MACHINE, s1, 'Language', Lcode + ';' + sLangs);

      end;

    end;

  end;

end;





procedure SetupVoice(Voice, Lcode: String; Index: Integer);

var

  RegVoice2: String;

  RegVoice2a: String;

  VoiceUC: String;

  

begin

  if Index = 0 then

    RegVoice2 := RegVoice1

  else

    RegVoice2 := RegVoice1 + Format('_%d',[Index]);

    

  RegVoice2a := RegVoice2 + '\Attributes';



  if Voice = 'default' then

    VoiceUC := 'default'

  else

    VoiceUC := Uppercase(Voice);

    

  RegWriteStringValue(HKEY_LOCAL_MACHINE,RegVoice2,'',sEspeak+VoiceUC);

  RegWriteStringValue(HKEY_LOCAL_MACHINE,RegVoice2,'CLSID','{BE985C8D-BE32-4A22-AA93-55C16A6D1D91}');

  RegWriteStringValue(HKEY_LOCAL_MACHINE,RegVoice2,'Path',ExpandConstant('{app}'));

  RegWriteStringValue(HKEY_LOCAL_MACHINE,RegVoice2,'VoiceName',Voice);



  RegWriteStringValue(HKEY_LOCAL_MACHINE,RegVoice2a,'Name',sEspeak+Voice);

  RegWriteStringValue(HKEY_LOCAL_MACHINE,RegVoice2a,'Gender','Male');

  RegWriteStringValue(HKEY_LOCAL_MACHINE,RegVoice2a,'Age','Adult');

  RegWriteStringValue(HKEY_LOCAL_MACHINE,RegVoice2a,'Language',Lcode);

  RegWriteStringValue(HKEY_LOCAL_MACHINE,RegVoice2a,'Vendor','Jonathan Duddington');

  

  SetPhoneConvertor(Lcode);

end;







procedure CurStepChanged(CurStep: TSetupStep);

var

  ix: Integer;

begin

  if CurStep = ssPostInstall then

  begin



    for ix := 0 to 5 do begin

      if Page.Values[ix] <> '' then

       SetUpVoice(Page.Values[ix],LanguageFromVoice(Page.Values[ix]),ix);

    end;

  end;

end;





procedure InitializeWizard;

var

  lang: String;

begin

  // Create the language selection page

  lang := ActiveLanguage;

  Page := CreateInputQueryPage(wpSelectDir,CustomMessage('v1'),CustomMessage('v2'),CustomMessage('v3'));



  // Add items (False means it's not a password edit)

  Page.Add('', False);

  Page.Add('', False);

  Page.Add('', False);

  Page.Add('', False);

  Page.Add('', False);

  Page.Add('', False);



  UILanguage := GetUILanguage;

  UIVoice := VoiceFromLanguage(UILanguage);



  // Set initial values (optional)

  Page.Values[0] := UIVoice;

  Page.Values[1] := UIVoice+'+f2';

  if UIVoice = 'en' then

    Page.Values[2] := 'en-r'

  else

    Page.values[2] := 'en';



end;