Changeset 67 for branches/Transpascal/Compiler/Produce/UProducerC.pas

Timestamp:

Oct 18, 2010, 12:39:37 PM (14 years ago)

Author:

george

Message:

• Fixed: Parsing of strings.
• Modified: Now supported C target "Dynamic C" dialect.

File:

• branches/Transpascal/Compiler/Produce/UProducerC.pas (modified) (6 diffs)

branches/Transpascal/Compiler/Produce/UProducerC.pas

@@ -10 +10 @@
 
 type
+
+  TProducerCDialect = (pdGCC, pdDynamicC);
 
   { TProducerC }
@@ -35 +37 @@
     function GenerateExpression(Expression: TExpression): string;
   public
+    Dialect: TProducerCDialect;
     TextSource: TStringList;
     IndentationLength: Integer;
@@ -53 +56 @@
   FileExtension := '.c';
   IndentationLength := 2;
+  Dialect := pdDynamicC;
 end;
 
@@ -104 +108 @@
 begin
   for I := 0 to UsedModules.Count - 1 do
-    Emit('#include "' + TUsedModule(UsedModules[I]).Name + '.h"');
+    if Dialect = pdDynamicC then
+      Emit('#use "' + TUsedModule(UsedModules[I]).Name + '.lib"')
+      else Emit('#include "' + TUsedModule(UsedModules[I]).Name + '.h"');
   Emit('');
 end;
@@ -110 +116 @@
 procedure TProducerC.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');
+  if Dialect = pdDynamicC then Emit('#use "platform.lib"')
+    else Emit('#include "platform.h"');
   Emit('');
   if Module is TModuleProgram then begin
+    TModuleProgram(Module).Body.Name := 'main';
     GenerateUses(TModuleProgram(Module).UsedModules);
     GenerateCommonBlock(TModuleProgram(Module).Body, '');
@@ -253 +256 @@
 begin
   case Expression.NodeType of
-    ntConstant: Result := Expression.Value;
+    ntConstant: begin
+      if VarType(Expression.Value) = varString then
+        Result := '"' + Expression.Value + '"'
+        else Result := Expression.Value;
+    end;
     ntVariable: Result := Expression.Variable.Name;
     ntFunction: Result := Expression.Method.Name;