Changeset 19 for branches/DelphiToC/UCSource.pas

Timestamp:

Apr 9, 2009, 2:08:56 PM (16 years ago)

Author:

george

Message:

• Přidáno: Nástřel parsování funkcí.
• Přidáno: Zobrazení stromu struktury programu.
• Opraveno: Zobrazení chybových hlášení.

File:

• branches/DelphiToC/UCSource.pas (modified) (2 diffs)

branches/DelphiToC/UCSource.pas

@@ -5 +5 @@
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, StdCtrls, UPascalSource;
+  Dialogs, StdCtrls, UPascalSource, UCodeProducer;
 
 type
-  TCSource = class
+  TCProducer = class(TCodeProducer)
     TextSource: TStringList;
-    PascalSource: TStringList;
-    procedure Generate;
+    procedure Produce; override;
     constructor Create;
     destructor Destroy; override;
+  private
+    procedure GenerateCommonBlock(CommonBlock: TCommonBlock;
+      LabelPrefix: string);
+    procedure GenerateProgram(ProgramBlock: TProgram);
   end;
 
 implementation
 
-{ TCSource }
+{ TCProducer }
 
-constructor TCSource.Create;
+constructor TCProducer.Create;
 begin
   TextSource := TStringList.Create;
 end;
 
-destructor TCSource.Destroy;
+destructor TCProducer.Destroy;
 begin
   TextSource.Free;
@@ -31 +34 @@
 end;
 
-procedure TCSource.Generate;
+procedure TCProducer.Produce;
 begin
-
+  inherited;
+  GenerateProgram(ProgramCode);
 end;
 
+procedure TCProducer.GenerateProgram(ProgramBlock: TProgram);
+var
+  I: Integer;
+begin
+  with ProgramBlock do
+  for I := 0 to Modules.Count - 1 do
+    GenerateCommonBlock(TModule(Modules[I]), '');
+end;
+
+procedure TCProducer.GenerateCommonBlock(CommonBlock: TCommonBlock; LabelPrefix: string);
+var
+  I: Integer;
+  LabelName: string;
+begin
+  with CommonBlock do begin
+    TextSource.Add('void ' + Name + '()');
+    TextSource.Add('{');
+
+    TextSource.Add('}');
+  end;
+end;
+
+
+
 end.