1. james woodyatt
  2. oni

Commits

jhwoodyatt  committed e3a5cc7

Change name of [line_cursor] class to [cursor] for simplicity.

  • Participants
  • Parent commits 1fb2ad7
  • Branches default

Comments (0)

Files changed (2)

File cf/cf_lex.ml

View file
     c_col = 0;
 }
 
-class line_cursor ?(c = counter_zero) newline =
+class cursor ?(c = counter_zero) newline =
     let nl0 = Cf_seq.to_list (Cf_seq.of_string newline) in
     object(self:'self)
         inherit [char] Cf_parser.cursor c.c_pos

File cf/cf_lex.mli

View file
     end
 end
 
-(** A record used by the [line_cursor] class defined below that indicates the
+(** A record used by the [cursor] class defined below that indicates the
     character index, row and column in the input stream associated with a
     cursor position.
 *)
 val counter_zero: counter_t
 
 (** A class derived from {!Cf_parser.cursor} that intercepts newline characters
-    to track the row and column of a cursor position.  Use [new line_cursor ~c
-    s] to construct an initial cursor position, optionally with the counter [c]
+    to track the row and column of a cursor position.  Use [new cursor ~c s] to
+    construct an initial cursor position, optionally with the counter [c]
     (default: [counter_zero]), and a string [s] containing the character
     sequence that is recognized as a newline, e.g. "\013\010" indicates that
     newline is a CR LF sequence.
 *)
-class line_cursor:
+class cursor:
     ?c:counter_t ->
     string ->
     object