unit Speech

Configuration/GlobalAssemblyInfo.cs

@@ -15,7 +15,7 @@ internal static class RevisionClass
 	public const string Major = "3";
 	public const string Minor = "2";
 	public const string Build = "0";
-	public const string Revision = "1439";
+	public const string Revision = "1442";
 
         public const string MainVersion = Major + "." + Minor;
 	public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

Configuration/Version.defs

@@ -1,4 +1,4 @@
-%COREVERSION%=0
-%REVISION%=1439
 %MINOR%=2
+%REVISION%=1442
+%COREVERSION%=0
 %MAJOR%=3

ReleaseGenerators/PascalABCNET_version.nsh

@@ -1 +1 @@
-!define VERSION '3.2.0.1439'
+!define VERSION '3.2.0.1442'

ReleaseGenerators/sect_Core.nsh

@@ -12,7 +12,6 @@
     File "..\bin\SyntaxTree.dll"
     File "..\bin\SyntaxTreeConverters.dll"
     File "..\bin\SyntaxVisitors.dll"
-    File "..\bin\YieldConversionSyntax.dll"
     File "..\bin\YieldHelpers.dll"
 	File "..\bin\ICSharpCode.NRefactory.dll"
     File "..\bin\TreeConverter.dll"
@@ -50,7 +49,6 @@
     ${AddFile} "SyntaxTreeConverters.dll"
     ${AddFile} "YieldHelpers.dll"
     ${AddFile} "SyntaxVisitors.dll"
-    ${AddFile} "YieldConversionSyntax.dll"
 	${AddFile} "ICSharpCode.NRefactory.dll"
     ${AddFile} "TreeConverter.dll"
     ${AddFile} "OptimizerConversion.dll"
@@ -106,6 +104,7 @@
     File ..\bin\Lib\ClientServer.pcu
     File ..\bin\Lib\OpenGL.pcu
     File ..\bin\Lib\PT4MakerNetX.pcu
+    File ..\bin\Lib\Speech.pcu
     File ..\bin\Lib\PABCRtl.dll
 	File ..\bin\Lib\PABCRtl32.dll
 	
@@ -153,6 +152,7 @@
     ${AddFile} "ClientServer.pcu"
     ${AddFile} "OpenGL.pcu"
     ${AddFile} "PT4MakerNetX.pcu"
+    ${AddFile} "Speech.pcu"
 	${AddFile} "PABCRtl.dll"
 	${AddFile} "PABCRtl.pdb"
 	Push "Lib\PABCRtl.dll"
@@ -201,6 +201,7 @@
     File ..\bin\Lib\ClientServer.pas
     File ..\bin\Lib\OpenGL.pas
     File ..\bin\Lib\PT4MakerNetX.pas
+    File ..\bin\Lib\Speech.pas
 	File ..\bin\Lib\__RedirectIOMode.vb
 	File ..\bin\Lib\VBSystem.vb
 	
@@ -247,6 +248,7 @@
     ${AddFile} "ClientServer.pas"
     ${AddFile} "OpenGL.pas"
     ${AddFile} "PT4MakerNetX.pas"
+    ${AddFile} "Speech.pas"
 	${AddFile} "__RedirectIOMode.vb"
     ${AddFile} "VBSystem.vb"
 	
@@ -255,8 +257,6 @@
     Call NGEN
 	Push "SyntaxVisitors.dll"
     Call NGEN
-    Push "YieldConversionSyntax.dll"
-    Call NGEN
     
 ;    SetOutPath "$INSTDIR\Output"
 SectionEnd

SyntaxTree/tree/Tree.cs

@@ -43382,7 +43382,7 @@ namespace PascalABCCompiler.SyntaxTree
 
 
 	///<summary>
-	///узел, не генерирующий кода, но осуществляющий семантические проверки сахарных узлов. stat - это на самом деле statement. stat сделано типа object - чтобы оно автоматически не обходилось
+	///Узел, не генерирующий кода, но осуществляющий семантические проверки сахарных узлов. stat - это на самом деле statement. stat сделано типа object - чтобы оно автоматически не обходилось
 	///</summary>
 	[Serializable]
 	public partial class semantic_check_sugared_statement_node : statement

SyntaxTree/tree/tree.xml

@@ -3826,7 +3826,7 @@
       <HelpData Key="semantic_check_statement.stat" Value="" />
       <HelpData Key="semantic_check_sugared_statement" Value="узел, не генерирующий кода, но осуществляющий семантические проверки сахарных узлов. stat - это на самом деле statement. stat сделано типа object - чтобы оно автоматически не обходилось" />
       <HelpData Key="semantic_check_sugared_statement.stat" Value="" />
-      <HelpData Key="semantic_check_sugared_statement_node" Value="узел, не генерирующий кода, но осуществляющий семантические проверки сахарных узлов. stat - это на самом деле statement. stat сделано типа object - чтобы оно автоматически не обходилось" />
+      <HelpData Key="semantic_check_sugared_statement_node" Value="Узел, не генерирующий кода, но осуществляющий семантические проверки сахарных узлов. stat - это на самом деле statement. stat сделано типа object - чтобы оно автоматически не обходилось" />
       <HelpData Key="semantic_check_sugared_statement_node.lst" Value="" />
       <HelpData Key="semantic_check_sugared_statement_node.stat" Value="" />
       <HelpData Key="semantic_check_sugared_statement_node.typ" Value="" />

bin/Lib/Speech.pas

@@ -0,0 +1,30 @@
+{$reference System.Speech.dll}
+unit Speech;
+
+interface
+
+procedure Speak(s: string);
+
+procedure SpeakAsync(s: string);
+
+implementation
+
+uses System.Speech.Synthesis;
+
+var ss: SpeechSynthesizer;
+
+procedure Speak(s: string);
+begin
+  ss.Speak(s)
+end;
+
+procedure SpeakAsync(s: string);
+begin
+  ss.SpeakAsync(s)
+end;
+
+begin
+  ss := new SpeechSynthesizer;
+  var voices := ss.GetInstalledVoices;
+  ss.SelectVoice(voices[0].VoiceInfo.Name)
+end.