61 lines
2.0 KiB
ObjectPascal
61 lines
2.0 KiB
ObjectPascal
unit dpglib.DelphiBlockFinishingInfo;
|
|
|
|
interface
|
|
uses
|
|
System.Classes;
|
|
|
|
type
|
|
TDelphiBlockFinishingInfo = class
|
|
public
|
|
PostScript : AnsiString;
|
|
GeneratedSwitch : boolean;
|
|
GeneratedAnIf : boolean;
|
|
|
|
// ------------------------------------------------------------
|
|
// When generating an if or switch, end-of-token lookahead sets
|
|
// will become the else or default clause, don't generate an
|
|
// error clause in this case.
|
|
// ------------------------------------------------------------
|
|
NeedAnErrorClause : boolean;
|
|
NeedAClosingEnd : boolean;
|
|
|
|
public
|
|
constructor Create; overload;
|
|
constructor Create( pPostScript : AnsiString;
|
|
pGenSwitch : boolean;
|
|
pGenAnIf : boolean;
|
|
pNeedEC : boolean); overload;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{ TDelphiBlockFinishingInfo }
|
|
// ============================================================================
|
|
// Constructor
|
|
// ============================================================================
|
|
constructor TDelphiBlockFinishingInfo.Create;
|
|
begin
|
|
PostScript := '';
|
|
GeneratedSwitch := false;
|
|
GeneratedAnIf := false;
|
|
NeedAnErrorClause := true;
|
|
NeedAClosingEnd := false;
|
|
end;
|
|
|
|
// ============================================================================
|
|
// Destructor
|
|
// ============================================================================
|
|
constructor TDelphiBlockFinishingInfo.Create( pPostScript : AnsiString;
|
|
pGenSwitch : boolean;
|
|
pGenAnIf : boolean;
|
|
pNeedEC : boolean);
|
|
begin
|
|
PostScript := pPostScript;
|
|
GeneratedSwitch := pGenSwitch;
|
|
GeneratedAnIf := pGenAnIf;
|
|
NeedAnErrorClause := pNeedEC;
|
|
NeedAClosingEnd := false;
|
|
end;
|
|
|
|
end.
|