Changeset 222 for branches/interpreter2/UGenerator.pas

Timestamp:

Nov 25, 2020, 12:18:45 AM (3 years ago)

Author:

chronos

Message:

• Added: Support for more expression operators.
• Added: Support for brackets in expressions.

File:

• branches/interpreter2/UGenerator.pas (modified) (3 diffs)

branches/interpreter2/UGenerator.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, strutils;
+  Classes, SysUtils, strutils, USource;
 
 type
@@ -17 +17 @@
     procedure SetIndent(AValue: Integer);
   public
+    Name: string;
+    FileExt: string;
     Output: string;
+    Prog: TProgram;
     procedure AddText(Text: string);
     procedure AddTextLine(Text: string = '');
     procedure Generate; virtual;
+    constructor Create; virtual;
+    destructor Destroy; override;
     property Indent: Integer read FIndent write SetIndent;
   end;
+
+  TGeneratorClass = class of TGenerator;
 
 
@@ -59 +66 @@
 end;
 
+constructor TGenerator.Create;
+begin
+end;
+
+destructor TGenerator.Destroy;
+begin
+  inherited;
+end;
+
 end.