Commits

camlspotter  committed 546fc57

pos updating

  • Participants
  • Parent commits 59be0b3
  • Branches dev

Comments (0)

Files changed (2)

     pos
     reader
     tokenstr
-    result
     xparser
     machine
     args
 
   let none = Lexing.dummy_pos
 
-(*
-  let zero = { pos_fname = "";
-               pos_lnum = 1;
-               pos_bol = 0;
-               pos_cnum = 0 }
-
-  let zero = { pos_fname = "";
-               pos_lnum = 0;
-               pos_bol = 0;
-               pos_cnum = 0 }
-*)
-
   let columns p = p.pos_cnum - p.pos_bol
 
   (* ignore filename *)
   type t = Position.t * Position.t with sexp
   let lnum (p,_) = p.pos_lnum
   let columns (p,_) = columns p
-(*  let zero = (Position.zero, Position.zero) *) (* CR jfuruse: to be removed *)
+  let top fname = let p = Position.top fname in p, p
   let none = (Position.none, Position.none)
   let move_chars diff (p,p') = 
     { p  with pos_cnum = p .pos_cnum + diff },