Changeset 17 for trunk/Compiler/Produce/UProducer.pas

Timestamp:

Nov 8, 2010, 2:14:13 PM (14 years ago)

Author:

george

Message:

• Modified: Enhanced Delphi producer.

File:

• trunk/Compiler/Produce/UProducer.pas (modified) (2 diffs)

trunk/Compiler/Produce/UProducer.pas

@@ -7 +7 @@
 
 uses
-  USourceCode, Classes, SysUtils;
+  USourceCode, Classes, SysUtils, StrUtils;
 
 type
+
+  { TProducer }
+
   TProducer = class
     Name: string;
+    TextSource: TStringList;
+    IndentationLength: Integer;
+    Indetation: Integer;
+    procedure Emit(AText: string);
+    procedure EmitLn(AText: string = '');
     procedure AssignToStringList(Target: TStringList); virtual; abstract;
     procedure Produce(Module: TModule); virtual; abstract;
+    constructor Create;
+    destructor Destroy; override;
   end;
 
@@ -41 +51 @@
 {$I 'GenericObjectList.inc'}
 
+{ TProducer }
+
+procedure TProducer.EmitLn(AText: string = '');
+begin
+  Emit(AText);
+  TextSource.Add('');
+end;
+
+constructor TProducer.Create;
+begin
+  TextSource := TStringList.Create;
+  IndentationLength := 2;
+end;
+
+destructor TProducer.Destroy;
+begin
+  TextSource.Free;
+  inherited Destroy;
+end;
+
+procedure TProducer.Emit(AText: string);
+begin
+  with TextSource do begin
+    if Count = 0 then Add('');
+    if Strings[Count - 1] = '' then
+      Strings[Count - 1] := Strings[Count - 1] + DupeString(' ', IndentationLength * Indetation);
+    Strings[Count - 1] := Strings[Count - 1] + AText;
+  end;
+end;
+
 end.