]> On Oct 28, 2003, at 11:23 PM, Florian Hars wrote: > let parse_logfile filename = > let ic = open_in filename in > let start_events, transactions = > Textfile.fold operate_on_line (M.empty, M.empty) ic in > close_in ic; > cleanup_dangling_events start_events transactions > > let _ = print_transaction_info (parse_logfile "my_logfile") What is Textfile? I wrote something very similar to what I think this is in scheme (from which this thing is being ported somewhat slowly): ; Loop on input, pass each line to function f. ; Optional argument should be either a port, or a filename. If not ; provided, (current-input-port) will be used. (input-loop f . other) ; A conditional input loop (only loop on a line if (c line) is true) (conditional-input-loop c f . other) I'll probably do the same thing in caml when I get this a little more out of the toy phase. Thanks for the input. -- Dustin Sallings ------------------- 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