Ignore:
Timestamp:
Nov 25, 2020, 12:18:45 AM (4 years ago)
Author:
chronos
Message:
  • Added: Support for more expression operators.
  • Added: Support for brackets in expressions.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/interpreter2/UGenerator.pas

    r208 r222  
    66
    77uses
    8   Classes, SysUtils, strutils;
     8  Classes, SysUtils, strutils, USource;
    99
    1010type
     
    1717    procedure SetIndent(AValue: Integer);
    1818  public
     19    Name: string;
     20    FileExt: string;
    1921    Output: string;
     22    Prog: TProgram;
    2023    procedure AddText(Text: string);
    2124    procedure AddTextLine(Text: string = '');
    2225    procedure Generate; virtual;
     26    constructor Create; virtual;
     27    destructor Destroy; override;
    2328    property Indent: Integer read FIndent write SetIndent;
    2429  end;
     30
     31  TGeneratorClass = class of TGenerator;
    2532
    2633
     
    5966end;
    6067
     68constructor TGenerator.Create;
     69begin
     70end;
     71
     72destructor TGenerator.Destroy;
     73begin
     74  inherited;
     75end;
     76
    6177end.
    6278
Note: See TracChangeset for help on using the changeset viewer.