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

Timestamp:

Nov 5, 2010, 11:31:04 AM (14 years ago)

Author:

george

Message:

• Added: Typecasting support.
• Fixed: Function call in expressions.
• Added: Producer module specify generated file name, extension and placing.

File:

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

trunk/Compiler/Produce/UProducerDynamicC.pas

@@ -27 +27 @@
     procedure GenerateProgram(ProgramBlock: TProgram);
     procedure GenerateFunctions(Functions: TFunctionList;
-      Prefix: string = '');
+      Prefix: string = ''; HeaderOnly: Boolean = False);
     procedure GenerateBeginEnd(BeginEnd: TBeginEnd);
     procedure GenerateVariableList(VariableList: TVariableList);
@@ -36 +36 @@
     procedure GenerateIfThenElse(IfThenElse: TIfThenElse);
     procedure GenerateAssignment(Assignment: TAssignment);
-    procedure GenerateFunctionCall(FunctionCall: TFunctionCall);
+    function GenerateFunctionCall(FunctionCall: TFunctionCall): string;
     function GenerateExpression(Expression: TExpression): string;
   public
@@ -55 +55 @@
 begin
   TextSource := TStringList.Create;
-  FileExtension := '.c';
   IndentationLength := 2;
 end;
@@ -119 +118 @@
 procedure TProducerDynamicC.GenerateModule(Module: TModule);
 begin
-  EmitLn('#use "platform.lib"');
-  EmitLn;
   if Module is TModuleProgram then begin
+    Module.TargetFile := Module.Name + '.c';
+    EmitLn('#use "platform.lib"');
+    EmitLn;
     TModuleProgram(Module).Body.Name := 'main';
     GenerateUses(TModuleProgram(Module).UsedModules);
@@ -127 +127 @@
   end else
   if Module is TModuleUnit then begin
+    Module.TargetFile := 'Lib\' + Module.Name + '.lib';
+    EmitLn('/*** BeginHeader */');
+    EmitLn('#ifndef ' + UpperCase(Module.Name) + '_H');
+    EmitLn('#define ' + UpperCase(Module.Name) + '_H');
+    EmitLn;
+    EmitLn('#use "platform.lib"');
     GenerateUses(TModuleProgram(Module).UsedModules);
+    GenerateTypes(TModuleUnit(Module).Body.Types);
+    EmitLn('/*** EndHeader */');
+    EmitLn;
+    EmitLn('/*** BeginHeader */');
+    GenerateFunctions(TModuleUnit(Module).Body.Functions, '', True);
+    EmitLn('/*** EndHeader */');
+    EmitLn;
+
+    GenerateFunctions(TModuleUnit(Module).Body.Functions);
+
     GenerateCommonBlock(TModuleUnit(Module).Body, '');
+
+    EmitLn;
+    EmitLn('/*** BeginHeader */');
+    EmitLn('#endif');
+    EmitLn('/*** EndHeader */');
   end;
 end;
@@ -150 +171 @@
 
 procedure TProducerDynamicC.GenerateFunctions(Functions: TFunctionList;
-  Prefix: string = '');
+  Prefix: string = ''; HeaderOnly: Boolean = False);
 var
   I: Integer;
@@ -171 +192 @@
     Line := Line + ')';
     EmitLn(Line);
-    GenerateBeginEnd(Code);
+    if not HeaderOnly then GenerateBeginEnd(Code);
     EmitLn;
   end;
@@ -218 +239 @@
   else if Command is TIfThenElse then GenerateIfThenElse(TIfThenElse(Command))
   else if Command is TAssignment then GenerateAssignment(TAssignment(Command))
-  else if Command is TFunctionCall then GenerateFunctionCall(TFunctionCall(Command));
+  else if Command is TFunctionCall then EmitLn(GenerateFunctionCall(TFunctionCall(Command)) + ';');
 end;
 
@@ -254 +275 @@
 end;
 
-procedure TProducerDynamicC.GenerateFunctionCall(FunctionCall: TFunctionCall);
+function TProducerDynamicC.GenerateFunctionCall(FunctionCall: TFunctionCall): string;
 var
   Line: string;
@@ -267 +288 @@
       end;
     end;
-    Line := Line + ');';
-    EmitLn(Line);
-  end;
+    Line := Line + ')';
+  end;
+  Result := Line;
 end;
 
@@ -285 +306 @@
       end;
       ntVariable: Result := Expression.Variable.Name;
-      ntFunction: Result := Expression.FunctionCall.Name;
+      ntFunction: Result := GenerateFunctionCall(Expression.FunctionCall);
       ntOperator: begin
         Result := GenerateExpression(TExpression(Expression.SubItems.First))
@@ -308 +329 @@
 begin
   with CommonBlock do begin
-    GenerateTypes(Types);
-    GenerateFunctions(Functions);
     EmitLn('void ' + Name + '()');
     GenerateBeginEnd(Code);