Changeset 43 for branches/DelphiToC/Produce/UCSource.pas

Timestamp:

Aug 5, 2010, 4:17:18 PM (14 years ago)

Author:

george

Message:

End parsing process on reaching data end.

File:

• branches/DelphiToC/Produce/UCSource.pas (modified) (3 diffs)

branches/DelphiToC/Produce/UCSource.pas

@@ -18 +18 @@
     function TranslateOperator(Name: string): string;
     procedure Emit(Text: string);
+    procedure GenerateUses(UsedModules: TUsedModuleList);
+    procedure GenerateModule(Module: TModule);
     procedure GenerateCommonBlock(CommonBlock: TCommonBlock;
       LabelPrefix: string);
@@ -80 +82 @@
 end;
 
+procedure TCProducer.GenerateUses(UsedModules: TUsedModuleList);
+var
+  I: Integer;
+begin
+  for I := 0 to UsedModules.Count - 1 do
+    Emit('#include "' + TUsedModule(UsedModules[I]).Name + '.h"');
+  Emit('');
+end;
+
+procedure TCProducer.GenerateModule(Module: TModule);
+begin
+  GenerateUses(Module.UsedModules);
+  GenerateCommonBlock(Module, '');
+end;
+
 procedure TCProducer.Produce;
 begin
@@ -94 +111 @@
   with ProgramBlock do
   for I := 0 to Modules.Count - 1 do
-    GenerateCommonBlock(TModule(Modules[I]), '');
+    GenerateModule(TModule(Modules[I]));
 end;