completely rebindable keyboard and mouse in Holmes

[d2df-sdl.git] / src / shared / xparser.pas

diff --git a/src/shared/xparser.pas b/src/shared/xparser.pas
index fe17d0c8a700aa1dc656c899534901f151d390ad..d8b600dbc1d6340a0a16c9b8017dfde7bd9f401a 100644 (file)
--- a/src/shared/xparser.pas
+++ b/src/shared/xparser.pas
@@ -110,6 +110,7 @@ type
 
   public
     constructor Create (const fname: AnsiString; loadToken: Boolean=true);
+    constructor Create (st: TStream; loadToken: Boolean=true); // will take ownership on st
     destructor Destroy (); override;
   end;
 
@@ -591,6 +592,14 @@ begin
 end;
 
 
+constructor TFileTextParser.Create (st: TStream; loadToken: Boolean=true);
+begin
+  if (st = nil) then raise Exception.Create('cannot create parser for nil stream');
+  mFile := st;
+  inherited Create(loadToken);
+end;
+
+
 destructor TFileTextParser.Destroy ();
 begin
   mFile.Free();