Browse thread
RE: [Caml-list] Setting the EOL character....
- artboreb@n...
[
Home
]
[ Index:
by date
|
by threads
]
[ Message by date: previous | next ] [ Message in thread: previous | next ] [ Thread: previous | next ]
[ Message by date: previous | next ] [ Message in thread: previous | next ] [ Thread: previous | next ]
| Date: | -- (:) |
| From: | artboreb@n... |
| Subject: | RE: [Caml-list] Setting the EOL character.... |
"Richard Lyman" <rich@lithinos.com> wrote:
>To start - I really don't know that much about programming (3 years self-taught in scripted web languages - Perl/PHP/Ruby), and I'm trying to learn OCaml...
>
>I've mostly dealt with persistent socket servers in other programming languages, and I'd like to write one in OCaml.
>
>I've read most of the book - Developing Applications with Objective Caml (English PDF), so I understand a little - but I'm still very unsure of myself.
>
>Here's the problem I'm trying to solve...
>
>I have a proprietary format I'm trying to read in through a socket - when I say proprietary I mean that the EOL character is the ASCII null character (\000) and not the '\n' character.
>
>I've looked at the examples in the OReilly book, but I'm not sure how to change the default End Of Line character (\n) to \000.
>
>Will I have to do some sort of pattern match on the stream so that I can deal with 'each line' using \000 as the EOL character?
>
>Do the input, input_line, read, or read_line methods accept a different EOL character as a parameter - or can I define the method differently?
>
>Since I can read in a certain amount of characters with methods like read, can I find the location of the ASCII null character and read from the stream until right after it?
>
>I hope I've asked good enough questions...
>
>Thanks for any help you guys can give!
>
>Let me know if anything's not clear enough...
>
>-Rich
>
Hi,
you could try something like this
let read_eol inchan =
let rec f buf =
let c = input_char inchan in
if c = '\000' then Buffer.contents buf
else begin Buffer.add_char buf c; f buf end
in f (Buffer.create 64);;
or in 'revised syntax which I prefer)
value read_eol inchan =
f (Buffer.create 64) where rec f buf =
let c = input_char inchan in
if c = '\000' then Buffer.contents buf
else do { Buffer.add_char buf c; f buf }
;
(Note there is no exception handling in examples)
Regards
--
Arturo Borquez
__________________________________________________________________
The NEW Netscape 7.0 browser is now available. Upgrade now! http://channels.netscape.com/ns/browsers/download.jsp
Get your own FREE, personal Netscape Mail account today at http://webmail.netscape.com/
-------------------
To unsubscribe, mail caml-list-request@inria.fr Archives: http://caml.inria.fr
Bug reports: http://caml.inria.fr/bin/caml-bugs FAQ: http://caml.inria.fr/FAQ/
Beginner's list: http://groups.yahoo.com/group/ocaml_beginners