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

Timestamp:

Aug 9, 2010, 3:05:26 PM (14 years ago)

Author:

george

Message:

Added support for loop for-to-do.
System types and functions are not generated to output code.

File:

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

branches/DelphiToC/Produce/UProducerC.pas

@@ -98 +98 @@
 procedure TCProducer.GenerateModule(Module: TModule);
 begin
+  Emit('#define int8 char');
+  Emit('#define int16 int');
+  Emit('#define int32 long');
+  Emit('#define uint8 unsigned char');
+  Emit('#define uint16 unsigned int');
+  Emit('#define uint32 unsigned long');
+  Emit('');
   GenerateUses(Module.UsedModules);
   GenerateCommonBlock(Module, '');
@@ -127 +134 @@
   for I := 0 to Functions.Count - 1 do
   with TFunction(Functions[I]) do
+  if not System then
   begin
     if HaveResult then Line := TranslateType(ResultType.Name) + ' '
@@ -195 +203 @@
 procedure TCProducer.GenerateAssignment(Assignment: TAssignment);
 begin
-  Emit(Assignment.Target.Name + ' = ' + GenerateExpression(Assignment.Source) + ';');
+  if Assignment.Target.Name = 'Result' then Emit('return(' + GenerateExpression(Assignment.Source) + ');')
+    else Emit(Assignment.Target.Name + ' = ' + GenerateExpression(Assignment.Source) + ';');
 end;
 
@@ -201 +210 @@
 var
   Line: string;
-begin
-  Line := FunctionCall.FunctionRef.Name + '(';
-  Line := Line + ');';
-  Emit(Line);
+  I: Integer;
+begin
+  with FunctionCall do begin
+    Line := FunctionRef.Name + '(';
+    if ParameterExpression.Count > 0 then begin
+      for I := 0 to ParameterExpression.Count - 1 do begin
+        Line := Line + GenerateExpression(TExpression(ParameterExpression[I]));
+        if I < ParameterExpression.Count - 1 then Line := Line + ', ';
+      end;
+    end;
+    Line := Line + ');';
+    Emit(Line);
+  end;
 end;