Changeset 52 for branches/DelphiToC/Produce/UProducerC.pas

Timestamp:

Aug 10, 2010, 7:57:46 AM (14 years ago)

Author:

george

Message:

Visual TreeView reprezentation moved into target code producer set.

File:

• branches/DelphiToC/Produce/UProducerC.pas (modified) (18 diffs)

branches/DelphiToC/Produce/UProducerC.pas

@@ -7 +7 @@
 uses
   SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, StdCtrls, USourceCode, UCodeProducer, StrUtils;
+  Dialogs, StdCtrls, USourceCode, UProducer, StrUtils;
 
 type
 
-  { TCProducer }
-
-  TCProducer = class(TCodeProducer)
+  { TProducerC }
+
+  TProducerC = class(TProducer)
   private
     function TranslateType(Name: string): string;
@@ -42 +42 @@
 implementation
 
-{ TCProducer }
-
-constructor TCProducer.Create;
+{ TProducerC }
+
+constructor TProducerC.Create;
 begin
   TextSource := TStringList.Create;
@@ -50 +50 @@
 end;
 
-destructor TCProducer.Destroy;
+destructor TProducerC.Destroy;
 begin
   TextSource.Free;
@@ -56 +56 @@
 end;
 
-function TCProducer.TranslateType(Name: string): string;
+function TProducerC.TranslateType(Name: string): string;
 begin
   if Name = 'Byte' then Result := 'uint8'
@@ -67 +67 @@
 end;
 
-function TCProducer.TranslateOperator(Name: string): string;
+function TProducerC.TranslateOperator(Name: string): string;
 begin
   if Name = '=' then Result := '=='
@@ -82 +82 @@
 end;
 
-procedure TCProducer.Emit(Text: string);
+procedure TProducerC.Emit(Text: string);
 begin
   TextSource.Add(DupeString(' ', IndentationLength * Indetation) + Text);
 end;
 
-procedure TCProducer.GenerateUses(UsedModules: TUsedModuleList);
+procedure TProducerC.GenerateUses(UsedModules: TUsedModuleList);
 var
   I: Integer;
@@ -96 +96 @@
 end;
 
-procedure TCProducer.GenerateModule(Module: TModule);
+procedure TProducerC.GenerateModule(Module: TModule);
 begin
   Emit('#define int8 char');
@@ -109 +109 @@
 end;
 
-procedure TCProducer.Produce;
+procedure TProducerC.Produce;
 begin
   inherited;
@@ -116 +116 @@
 end;
 
-procedure TCProducer.GenerateProgram(ProgramBlock: TProgram);
+procedure TProducerC.GenerateProgram(ProgramBlock: TProgram);
 var
   I: Integer;
@@ -126 +126 @@
 end;
 
-procedure TCProducer.GenerateFunctions(Functions: TFunctionList);
+procedure TProducerC.GenerateFunctions(Functions: TFunctionList);
 var
   I: Integer;
@@ -152 +152 @@
 end;
 
-procedure TCProducer.GenerateBeginEnd(BeginEnd: TBeginEnd);
+procedure TProducerC.GenerateBeginEnd(BeginEnd: TBeginEnd);
 var
   I: Integer;
@@ -176 +176 @@
 end;
 
-procedure TCProducer.GenerateCommand(Command: TCommand);
+procedure TProducerC.GenerateCommand(Command: TCommand);
 begin
   if Command is TBeginEnd then GenerateBeginEnd(TBeginEnd(Command))
@@ -185 +185 @@
 end;
 
-procedure TCProducer.GenerateWhileDo(WhileDo: TWhileDo);
+procedure TProducerC.GenerateWhileDo(WhileDo: TWhileDo);
 begin
   Emit('while (' + GenerateExpression(WhileDo.Condition) + ')');
@@ -191 +191 @@
 end;
 
-procedure TCProducer.GenerateIfThenElse(IfThenElse: TIfThenElse);
+procedure TProducerC.GenerateIfThenElse(IfThenElse: TIfThenElse);
 begin
   Emit('if(' + GenerateExpression(IfThenElse.Condition) + ')');
@@ -201 +201 @@
 end;
 
-procedure TCProducer.GenerateAssignment(Assignment: TAssignment);
+procedure TProducerC.GenerateAssignment(Assignment: TAssignment);
 begin
   if Assignment.Target.Name = 'Result' then Emit('return(' + GenerateExpression(Assignment.Source) + ');')
@@ -207 +207 @@
 end;
 
-procedure TCProducer.GenerateFunctionCall(FunctionCall: TFunctionCall);
+procedure TProducerC.GenerateFunctionCall(FunctionCall: TFunctionCall);
 var
   Line: string;
@@ -225 +225 @@
 end;
 
-function TCProducer.GenerateExpression(Expression: TExpression): string;
+function TProducerC.GenerateExpression(Expression: TExpression): string;
 begin
   case Expression.NodeType of
@@ -240 +240 @@
 end;
 
-procedure TCProducer.GenerateCommonBlock(CommonBlock: TCommonBlock; LabelPrefix: string);
+procedure TProducerC.GenerateCommonBlock(CommonBlock: TCommonBlock; LabelPrefix: string);
 var
   I: Integer;