Changeset 140 for branches/easy compiler/UFormMain.pas

Timestamp:

Jan 16, 2018, 10:38:33 AM (7 years ago)

Author:

chronos

Message:

• Modified: General definition of functions. Static functions are now dynamic predefined.

File:

• branches/easy compiler/UFormMain.pas (modified) (6 diffs)

branches/easy compiler/UFormMain.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  UTargetCode, USourceCode;
+  UTargetCode, USourceCode, USourceExecutor, USourceGenerator;
 
 type
@@ -14 +14 @@
 
   TForm1 = class(TForm)
+    ButtonSend: TButton;
     ButtonBuild: TButton;
+    Edit1: TEdit;
+    Label1: TLabel;
+    Label2: TLabel;
+    Label3: TLabel;
+    Label4: TLabel;
     MemoOutput: TMemo;
     MemoSource: TMemo;
+    MemoGenerator: TMemo;
     procedure ButtonBuildClick(Sender: TObject);
+    procedure ButtonSendClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
   private
-
+    InputBuffer: TStringList;
+    procedure ExecutorOutput(Text: string);
+    function ExecutorInput: string;
   public
-    procedure ExecutorOutput(Text: string);
   end;
 
@@ -47 +58 @@
     Add('PrintLn Text1');
     Add('PrintLn Text2');
+    Add('InputLn Text3');
+    Add('PrintLn Text3');
   end;
 end;
@@ -64 +77 @@
   Executor := TSourceExecutor.Create;
   Executor.OnOutput := ExecutorOutput;
+  Executor.OnInput := ExecutorInput;
   Generator := TSourceGenerator.Create;
 
   Compiler.Compile(MemoSource.Text, SourceCode);
+  MemoGenerator.Text := Generator.Generate(SourceCode);
   Executor.Execute(SourceCode);
-  Generator.Generate(SourceCode);
 
   Generator.Free;
@@ -77 +91 @@
 end;
 
+procedure TForm1.ButtonSendClick(Sender: TObject);
+begin
+  InputBuffer.Add(Edit1.Text);
+  Edit1.Text := '';
+end;
+
+procedure TForm1.FormCreate(Sender: TObject);
+begin
+  InputBuffer := TStringList.Create;
+end;
+
+procedure TForm1.FormDestroy(Sender: TObject);
+begin
+  InputBuffer.Free;
+end;
+
 procedure TForm1.ExecutorOutput(Text: string);
 begin
@@ -82 +112 @@
 end;
 
+function TForm1.ExecutorInput: string;
+begin
+  while InputBuffer.Count = 0 do begin
+    Sleep(50);
+    Application.ProcessMessages;
+  end;
+  Result := InputBuffer[0];
+  InputBuffer.Delete(0);
+end;
+
 end.