Changeset 146 for branches/easy compiler/USourceCode.pas

Timestamp:

Jan 17, 2018, 2:25:45 PM (6 years ago)

Author:

chronos

Message:

• Modified: ParseBeginEnd method split to several other items for parsing each specific command.

File:

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

branches/easy compiler/USourceCode.pas

@@ -9 +9 @@
 
 type
-  TSourceInstruction = class
+  TSourceCommand = class
   end;
 
@@ -125 +125 @@
   end;
 
-  { TSourceFunctionCall }
-
-  TSourceFunctionCall = class(TSourceInstruction)
+  { TCommandFunctionCall }
+
+  TCommandFunctionCall = class(TSourceCommand)
     Name: string;
     Parameters: TSourceReferences;
@@ -136 +136 @@
   TSourceCode = class;
 
-  { TSourceBeginEnd }
-
-  TSourceBeginEnd = class(TSourceInstruction)
+  { TCommandBeginEnd }
+
+  TCommandBeginEnd = class(TSourceCommand)
     SourceCode: TSourceCode;
     Instructions: TSourceInstructions;
     constructor Create;
     destructor Destroy; override;
+  end;
+
+  TCommandIfZero = class(TSourceCommand)
+    Variable: TSourceVariable;
   end;
 
@@ -155 +159 @@
     Variables: TSourceVariables;
     Constants: TSourceConstants;
-    Main: TSourceBeginEnd;
+    Main: TCommandBeginEnd;
     constructor Create;
     destructor Destroy; override;
@@ -171 +175 @@
 end;
 
-{ TSourceFunctionCall }
-
-constructor TSourceFunctionCall.Create;
+{ TCommandFunctionCall }
+
+constructor TCommandFunctionCall.Create;
 begin
   Parameters := TSourceReferences.Create;
 end;
 
-destructor TSourceFunctionCall.Destroy;
+destructor TCommandFunctionCall.Destroy;
 begin
   Parameters.Free;
@@ -184 +188 @@
 end;
 
-{ TSourceBeginEnd }
-
-constructor TSourceBeginEnd.Create;
+{ TCommandBeginEnd }
+
+constructor TCommandBeginEnd.Create;
 begin
   Instructions := TSourceInstructions.Create;
 end;
 
-destructor TSourceBeginEnd.Destroy;
+destructor TCommandBeginEnd.Destroy;
 begin
   Instructions.Free;
@@ -351 +355 @@
 end;
 
-{ TSourceFunctionCall }
+{ TCommandFunctionCall }
 
 { TSourceCode }
@@ -394 +398 @@
   Constants := TSourceConstants.Create;
   Functions := TSourceFunctions.Create;
-  Main := TSourceBeginEnd.Create;
+  Main := TCommandBeginEnd.Create;
   Main.SourceCode := Self;
   InitFunctions;