Changeset 12 for trunk/Compiler/Produce


Ignore:
Timestamp:
Nov 8, 2010, 10:06:37 AM (14 years ago)
Author:
george
Message:
  • Parser renamed to Analyzer.
  • Modified: Specialized parsers and analyzers separated from compiler for purpose of creating custom parsers and analyzers. Units UParsers and UAnalyzers determine which classes will be really used.
Location:
trunk/Compiler/Produce
Files:
1 added
5 edited

Legend:

Unmodified
Added
Removed

  • trunk/Compiler/Produce/UProducer.pas

    r6 r12  
    22
    33{$MODE Delphi}
     4{$MACRO ON}
    45
    56interface
    67
    78uses
    8   USourceCode, Classes;
     9  USourceCode, Classes, SysUtils;
    910
    1011type
    1112  TProducer = class
     13    Name: string;
    1214    procedure AssignToStringList(Target: TStringList); virtual; abstract;
    1315    procedure Produce(Module: TModule); virtual; abstract;
    1416  end;
    1517
     18  // TListProducer = TGObjectList<Integer, TProducer>
     19  {$DEFINE TGObjectListIndex := Integer}
     20  {$DEFINE TGObjectListItem := TProducer}
     21  {$DEFINE TGObjectListList := TObjectListProducer}
     22  {$DEFINE TGObjectList := TListProducer}
     23  {$DEFINE TGObjectListSortCompare := TObjectListSortCompareProducer}
     24  {$DEFINE TGObjectListStringConverter := TObjectListStringConverterProducer}
     25  {$DEFINE INTERFACE}
     26  {$I 'GenericObjectList.inc'}
     27
    1628implementation
    1729
     30{$DEFINE IMPLEMENTATION_USES}
     31{$I 'GenericObjectList.inc'}
     32
     33// TListProducer = TGObjectList<Integer, TProducer>
     34{$DEFINE TGObjectListIndex := Integer}
     35{$DEFINE TGObjectListItem := TProducer}
     36{$DEFINE TGObjectListList := TObjectListProducer}
     37{$DEFINE TGObjectList := TListProducer}
     38{$DEFINE TGObjectListSortCompare := TObjectListSortCompareProducer}
     39{$DEFINE TGObjectListStringConverter := TObjectListStringConverterProducer}
     40{$DEFINE IMPLEMENTATION}
     41{$I 'GenericObjectList.inc'}
     42
    1843end.

  • trunk/Compiler/Produce/UProducerAsm8051.pas

    r6 r12  
    108108begin
    109109  AssemblyCode := TObjectList.Create;
     110  Name := 'ASM 8051';
    110111end;
    111112

  • trunk/Compiler/Produce/UProducerDynamicC.pas

    r6 r12  
    5656  TextSource := TStringList.Create;
    5757  IndentationLength := 2;
     58  Name := 'Dynamic C';
    5859end;
    5960

  • trunk/Compiler/Produce/UProducerGCCC.pas

    r6 r12  
    5656  TextSource := TStringList.Create;
    5757  IndentationLength := 2;
     58  Name := 'GCC C';
    5859end;
    5960

  • trunk/Compiler/Produce/UProducerPascal.pas

    r6 r12  
    5252  IndentationLength := 2;
    5353  TextSource := TStringList.Create;
     54  Name := 'Delphi';
    5455end;
    5556
Note: See TracChangeset for help on using the changeset viewer.