Innerfuse Pascal Script
Unit: ifs_utl.pas
TIFPascalParser
TIfPascalParser is used by the script engine to parse a pascal text file into a list of tokens.
Type:
TIFParserErrorKind = (iNoError, iCommentError, iStringError, iCharError, iSyntaxError);
TIFParserError = record
Kind: TIFParserErrorKind;
Position: Cardinal;
end;
TIfPascalParser = class
procedure Next;
Jump to the next token.
function GetToken: string;
Returns the current token if it is a token that can not be read from it's token type.
property CurrTokenPos: Cardinal read GetCurrTokenPos write SetCurrTokenPos;
Returns the current position in the script.
function CurrTokenID: TIFPasToken;
Returns the current token type.
procedure Clear;
Clears the data inside the script engine.
function SetText(const Data: string; var ErrRec: TIFParserError): Boolean;
Assigns a text file to the parser and processes it.
function SetData(const Data: string): Boolean;
Assigns a data file.
function GetData(var Data: string): Boolean;
Retreive the data in a file.
constructor Create;
Create an instance of this object.
destructor Destroy; override;
Destroy an instance of this object.
Copyright (c) 2001 by Carlo Kok
last update: 24-11-01