Debug print preprocessor function

1 files changed, 6 insertions, 1 deletions

diff --git a/stream.sig b/stream.sig
index 2bdb155..e3c63d9 100644
--- a/stream.sig
+++ b/stream.sig
@@ -3,6 +3,7 @@ signature STREAM = sig
   type fileOffset = int
   type pos = fileId * fileOffset
   type ppos (* pretty pos *)
+  type pposCache
 
   type t
   type fileInfo = fileId * string * string
@@ -10,7 +11,6 @@ signature STREAM = sig
   val convert: t -> fileInfo
 
   val ppos2str: ppos -> string
-  val printPos: fileInfo -> pos -> unit
 
   val getchar: t -> char option * t
 
@@ -36,4 +36,9 @@ signature STREAM = sig
 
   (* throws IO.Io *)
   val create: string -> t
+
+  val pposCacheInit: fileInfo -> pposCache
+  val pposCacheAdvance: pos -> pposCache -> (int * int) * pposCache
+  val pposCacheGetLine: pposCache -> int
+  val pposCacheGetFname:  pposCache -> string
 end