Changeset 90 for branches/virt simple/UCompiler.pas

Timestamp:

Sep 30, 2016, 10:47:25 PM (8 years ago)

Author:

chronos

Message:

• Added: Support for user defined labels.

File:

• branches/virt simple/UCompiler.pas (modified) (7 diffs)

branches/virt simple/UCompiler.pas

@@ -13 +13 @@
   TCompiler = class
   private
+    Labels: TStringList;
     function GetPart(var Text: string; Separator: string): string;
     procedure ParseLine(Line: string; Instructions: TInstructions);
@@ -52 +53 @@
   Value2: Integer;
   OutValue: Integer;
+  LineLabel: string;
+  I: Integer;
 begin
   Line := Trim(Line);
@@ -57 +60 @@
   if Pos(';', Line) > 0 then begin
     Line := Trim(Copy(Line, 1, Pos(';', Line) - 1));
+  end;
+  if Pos(':', Line) > 0 then begin
+    LineLabel := Trim(GetPart(Line, ':'));
+    if Labels.IndexOf(LineLabel) <> -1 then raise Exception.Create('Label ' + LineLabel + ' already defined');
+    Labels.AddObject(LineLabel, TObject(Instructions.Count));
   end;
   if Line = '' then Exit;
@@ -84 +92 @@
       if TryStrToInt(Param1, OutValue) then begin
         Value1 := OutValue;
-      end else raise Exception.Create('Unsupported parameter value ' + Param1);
+      end else begin
+        I := Labels.IndexOf(Param1);
+        if I <> -1 then Value1 := Integer(Labels.Objects[I])
+          else raise Exception.Create('Unsupported parameter value ' + Param1);
+      end;
     end;
     end else ParamType1 := ptNone;
@@ -109 +121 @@
       if TryStrToInt(Param2, OutValue) then begin
         Value2 := OutValue;
-      end else raise Exception.Create('Unsupported parameter value ' + Param2);
+      end else begin
+        I := Labels.IndexOf(Param2);
+        if I <> -1 then Value2 := Integer(Labels.Objects[I])
+          else raise Exception.Create('Unsupported parameter value ' + Param2);
+      end;
     end;
     end else ParamType2 := ptNone;
@@ -132 +148 @@
   I: Integer;
 begin
+  Labels.Clear;
   Instructions.Clear;
   for I := 0 to Lines.Count - 1 do begin
@@ -141 +158 @@
 begin
   Lines := TStringList.Create;
+  Labels := TStringList.Create;
 end;
 
 destructor TCompiler.Destroy;
 begin
+  FreeAndNil(Labels);
   FreeAndNil(Lines);
   inherited Destroy;