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