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

Timestamp:

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

Author:

george

Message:

• Modified: Enhanced Delphi producer.

File:

• trunk/Compiler/Produce/UProducerDynamicC.pas (modified) (4 diffs)

trunk/Compiler/Produce/UProducerDynamicC.pas

@@ -17 +17 @@
     function TranslateType(Name: string): string;
     function TranslateOperator(Name: string): string;
-    procedure Emit(AText: string);
-    procedure EmitLn(AText: string = '');
     procedure GenerateUses(UsedModules: TUsedModuleList);
     procedure GenerateModule(Module: TModule);
@@ -39 +37 @@
     function GenerateExpression(Expression: TExpression): string;
   public
-    TextSource: TStringList;
-    IndentationLength: Integer;
-    Indetation: Integer;
     procedure AssignToStringList(Target: TStringList); override;
     procedure Produce(Module: TModule); override;
@@ -54 +49 @@
 constructor TProducerDynamicC.Create;
 begin
-  TextSource := TStringList.Create;
-  IndentationLength := 2;
   Name := 'Dynamic C';
 end;
@@ -90 +83 @@
   else if Name = 'xor' then Result := '^'
   else Result := Name;
-end;
-
-procedure TProducerDynamicC.EmitLn(AText: string = '');
-begin
-  Emit(AText);
-  TextSource.Add('');
-end;
-
-procedure TProducerDynamicC.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;