Changeset 77 for branches/Transpascal/Compiler/UCompiler.pas

Timestamp:

Oct 22, 2010, 9:22:55 AM (14 years ago)

Author:

george

Message:

• Compiler producer for C language separated to GCC and Dynamic C dialect.
• Enhanced: Parse record functions body.

File:

• branches/Transpascal/Compiler/UCompiler.pas (modified) (5 diffs)

branches/Transpascal/Compiler/UCompiler.pas

@@ -8 +8 @@
   SysUtils, Variants, Classes,
   Dialogs, USourceCode, UProducer, UPascalParser, UParser,
-  UProducerC, Contnrs;
+  UProducerDynamicC, Contnrs, UProducerTreeView, UProducerASM8051,
+  UProducerPascal, UProducerGCCC;
 
 type
+  TProducerType = (ptGCCC, ptDynamicC, ptPascal, ptAssembler, ptXML);
 
   TErrorMessage = class
@@ -33 +35 @@
   private
     FOnErrorMessage: TErrorMessageEvent;
+    FProducerType: TProducerType;
     procedure ErrorMessage(Text: string; Position: TPoint; FileName: string);
+    procedure SetProducerType(const AValue: TProducerType);
   public
     ProgramCode: TProgram;
@@ -49 +53 @@
     property OnErrorMessage: TErrorMessageEvent read FOnErrorMessage
       write FOnErrorMessage;
+    property ProducerType: TProducerType read FProducerType
+      write SetProducerType;
   end;
+
+const
+  ProducerTypeName: array[TProducerType] of string = (
+    'GCC C', 'Rabbit Dynamic C', 'Generic Pascal', 'Assembler', 'XML');
+
 
 implementation
@@ -93 +104 @@
 
   ProgramCode := TProgram.Create;
-  Producer := TProducerC.Create;
+  Producer := TProducerGCCC.Create;
   Parser := TPascalParser.Create;
   Parser.OnErrorMessage := ErrorMessage;
@@ -127 +138 @@
 end;
 
+procedure TCompiler.SetProducerType(const AValue: TProducerType);
+begin
+  if FProducerType = AValue then Exit;
+  FProducerType := AValue;
+  Producer.Free;
+  case AValue of
+    ptGCCC: Producer := TProducerGCCC.Create;
+    ptDynamicC: Producer := TProducerDynamicC.Create;
+    ptPascal: Producer := TProducerPascal.Create;
+    ptAssembler: Producer := TProducerGCCC.Create;
+    ptXML: Producer := TProducerTreeView.Create;
+  end;
+end;
+
 { TCompilerTargetList }