Changeset 141 for branches/easy compiler/UFormMain.pas

Timestamp:

Jan 16, 2018, 2:44:19 PM (7 years ago)

Author:

chronos

Message:

• Added: Support for multiple value types. String and Integer are supported for the start.
• Added: "var" keyword for compile time definition of variable and its type.
• Added: Increment function for integer values.

File:

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

branches/easy compiler/UFormMain.pas

@@ -26 +26 @@
     procedure ButtonBuildClick(Sender: TObject);
     procedure ButtonSendClick(Sender: TObject);
+    procedure Edit1KeyPress(Sender: TObject; var Key: char);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
@@ -51 +52 @@
 begin
   with MemoSource.Lines do begin
+    Add('PrintLn ''Super Calculator''');
+    Add('var Value1 Integer');
+    Add('var Value2 Integer');
+    Add('var Result Integer');
+    Add('Print ''Enter value 1: ''');
+    Add('Assign Value1 0');
+    Add('InputLn Value1');
+    Add('Print ''Enter value 2: ''');
+    Add('Assign Value2 0');
+    Add('InputLn Value2');
+
+    Add('Assign Result Value1');
+    Add('Increment Result Value2');
+    Add('Print ''Sum of two values is: ''');
+    Add('PrintLn Result');
+  end;
+{  with MemoSource.Lines do begin
     Add('PrintLn ''Hello World!''');
     Add('print ''Hello'' PRINT '' World!''');
     Add('PrintLn ''Live your life.''');
+    Add('var Text1 String');
     Add('Assign Text1 ''Live your life.''');
+    Add('var Text2 String');
     Add('Assign Text2 ''Live your life.''');
     Add('PrintLn Text1');
     Add('PrintLn Text2');
+
+    Add('var Value1 Integer');
+    Add('Assign Value1 123');
+    Add('Increment Value1 2');
+    Add('PrintLn Value1');
+
+    Add('var Text3 String');
+    Add('Assign Text3 ''''');
+    Add('Print ''Enter your name:''');
     Add('InputLn Text3');
     Add('PrintLn Text3');
   end;
+
+  with MemoSource.Lines do begin
+    Add('Assign AnimalName[0] ''an elephant''');
+    Add('Assign AnimalProperty[0] ''It is big and slow''');
+    Add('Assign AnimalName[1] ''a cat''');
+    Add('Assign AnimalProperty[1] ''It meows and purrs''');
+    Add('Print ''An animal guessing game.''');
+    Add('Assign AnimalCount 2');
+    Add('Repeat');
+    Add('BeginBlock');
+      Add('PrintLn ''Think an animal.''');
+      Add('Assign I 0');
+      Add('Repeat');
+      Add('BeginBlock');
+        Add('Print AnimalProperty[I]');
+        Add('Print ''? (y/n)''');
+        Add('InputLn Answer');
+        Add('IfEqual Answer ''y''');
+        Add('BeginBlock');
+          Add('PrintLn ''That''s clear. It is ''');
+          Add('PrintLn AnimalName[I]');
+          Add('Break');
+        Add('EndBlock');
+        Add('Increment I');
+        Add('IfHigherOrEqual I AnimalCount');
+        Add('Break');
+      Add('EndBlock');
+      Add('PrintLn ''I am lost. What is the animal?''');
+      Add('InputLn AnimalName[I]');
+      Add('PrintLn ''Describe the animal for me. What is it like?''');
+      Add('InputLn AnimalProperty[I]');
+      Add('PrintLn ''Thank you. I will remember that animal.''');
+      Add('Increment AnimalCount 1');
+      Add('PrintLn ''''');
+    Add('EndBlock');
+  end;
+  }
 end;
 
@@ -97 +163 @@
 end;
 
+procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);
+begin
+  if Key = #13 then ButtonSend.Click;
+end;
+
 procedure TForm1.FormCreate(Sender: TObject);
 begin
@@ -115 +186 @@
 begin
   while InputBuffer.Count = 0 do begin
+    if Application.Terminated then Break;
     Sleep(50);
     Application.ProcessMessages;
   end;
-  Result := InputBuffer[0];
-  InputBuffer.Delete(0);
+  if InputBuffer.Count > 0 then begin
+    Result := InputBuffer[0];
+    InputBuffer.Delete(0);
+  end else Result := '';
 end;