diff options
| author | letouzey | 2009-12-08 20:06:07 +0000 |
|---|---|---|
| committer | letouzey | 2009-12-08 20:06:07 +0000 |
| commit | da0e158cf5b012ec2b61041553ae3f871e9bef09 (patch) | |
| tree | 4d6bad3742bc4485d712758b9edd12777e6f6065 /toplevel/line_oriented_parser.ml | |
| parent | c046b33aa98537a157becad80dafd1ebf4e01534 (diff) | |
Migration of ProtectedToplevel and Line_oriented_parser into new contrib Interface
the ProtectedLoop feature was used only by CoqInterface.
Idem for stuff in Line_oriented_parser
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12573 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/line_oriented_parser.ml')
| -rw-r--r-- | toplevel/line_oriented_parser.ml | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/toplevel/line_oriented_parser.ml b/toplevel/line_oriented_parser.ml deleted file mode 100644 index a9dcff3e70..0000000000 --- a/toplevel/line_oriented_parser.ml +++ /dev/null @@ -1,29 +0,0 @@ -(************************************************************************) -(* v * The Coq Proof Assistant / The Coq Development Team *) -(* <O___,, * CNRS-Ecole Polytechnique-INRIA Futurs-Universite Paris Sud *) -(* \VV/ **************************************************************) -(* // * This file is distributed under the terms of the *) -(* * GNU Lesser General Public License Version 2.1 *) -(************************************************************************) - -(* $Id$ *) - -let line_oriented_channel_to_option stop_string input_channel = - let count = ref 0 in - let buff = ref "" in - let current_length = ref 0 in - fun i -> - if (i - !count) >= !current_length then begin - count := !count + !current_length + 1; - buff := input_line input_channel; - if !buff = stop_string then - None - else begin - current_length := String.length !buff; - Some '\n' - end - end else - Some (String.get !buff (i - !count)) - -let flush_until_end_of_stream char_stream = - Stream.iter (function _ -> ()) char_stream |