diff --git a/src/shared/xparser.pas b/src/shared/xparser.pas
index b985f1a30a781724b03a058c5b644621b9d0c851..0f2c2ece5b06731f2a18d6c4a46dcf15e445f7d3 100644 (file)
--- a/src/shared/xparser.pas
+++ b/src/shared/xparser.pas
function skipToken1 (): Boolean;
{$ENDIF}
+ function isIdOrStr (): Boolean; inline;
+
function expectId (): AnsiString;
procedure expectId (const aid: AnsiString; caseSens: Boolean=true);
function eatId (const aid: AnsiString; caseSens: Boolean=true): Boolean;
end;
+function TTextParser.isIdOrStr (): Boolean; inline;
+begin
+ result := (mTokType = TTId) or (mTokType = TTStr);
+end;
+
+
function TTextParser.expectId (): AnsiString;
begin
if (mTokType <> TTId) then raise Exception.Create('identifier expected');