Changeset 147 for branches/easy compiler/USourceCode.pas

Timestamp:

Jan 17, 2018, 3:34:13 PM (7 years ago)

Author:

chronos

Message:

• Added: Support for Repeat blocks and Break command.

File:

• branches/easy compiler/USourceCode.pas (modified) (5 diffs)

branches/easy compiler/USourceCode.pas

@@ -10 +10 @@
 type
   TSourceCommand = class
-  end;
-
-  TSourceInstructions = class(TObjectList)
+    Parent: TSourceCommand;
+  end;
+
+  TSourceCommands = class(TObjectList)
   end;
 
@@ -140 +141 @@
   TCommandBeginEnd = class(TSourceCommand)
     SourceCode: TSourceCode;
-    Instructions: TSourceInstructions;
+    Commands: TSourceCommands;
     constructor Create;
     destructor Destroy; override;
   end;
 
+  { TCommandIfZero }
+
   TCommandIfZero = class(TSourceCommand)
-    Variable: TSourceVariable;
+    Variable: TSourceReferenceVariable;
+    destructor Destroy; override;
+  end;
+
+  { TCommandRepeat }
+
+  TCommandRepeat = class(TSourceCommand)
+    Command: TSourceCommand;
+    destructor Destroy; override;
+  end;
+
+  TCommandBreak = class(TSourceCommand)
+  end;
+
+  TCommandContinue = class(TSourceCommand)
   end;
 
@@ -167 +184 @@
 implementation
 
+{ TCommandIfZero }
+
+destructor TCommandIfZero.Destroy;
+begin
+  Variable.Free;
+  inherited Destroy;
+end;
+
+{ TCommandRepeat }
+
+destructor TCommandRepeat.Destroy;
+begin
+  Command.Free;
+  inherited Destroy;
+end;
+
 { TSourceConstant }
 
@@ -192 +225 @@
 constructor TCommandBeginEnd.Create;
 begin
-  Instructions := TSourceInstructions.Create;
+  Commands := TSourceCommands.Create;
 end;
 
 destructor TCommandBeginEnd.Destroy;
 begin
-  Instructions.Free;
+  Commands.Free;
   inherited Destroy;
 end;
@@ -388 +421 @@
 
   Funct := Functions.AddNew('increment');
+  Funct.AddParameter('Variable', pkVariable);
+  Funct.AddParameter('Addition', pkString);
+
+  Funct := Functions.AddNew('decrement');
   Funct.AddParameter('Variable', pkVariable);
   Funct.AddParameter('Addition', pkString);