git.annexia.org
/
ocaml-csv.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bumped for release
[ocaml-csv.git]
/
csv.ml
diff --git
a/csv.ml
b/csv.ml
index
82d8d02
..
6ca424b
100644
(file)
--- a/
csv.ml
+++ b/
csv.ml
@@
-1,6
+1,6
@@
(* csv.ml - comma separated values parser
*
(* csv.ml - comma separated values parser
*
- * $Id: csv.ml,v 1.1
0 2006-04-21 12:44:42
rich Exp $
+ * $Id: csv.ml,v 1.1
1 2006-07-19 09:41:58
rich Exp $
*)
(* The format of CSV files:
*)
(* The format of CSV files:
@@
-379,7
+379,7
@@
let save_out_readable chan csv =
try List.combine r1 r2
with
Invalid_argument "List.combine" ->
try List.combine r1 r2
with
Invalid_argument "List.combine" ->
- failwith
"Csv.save_out_readable: internal error: length r1 = %d, length r2 = %d" (List.length r1) (List.length r2
) in
+ failwith
(sprintf "Csv.save_out_readable: internal error: length r1 = %d, length r2 = %d" (List.length r1) (List.length r2)
) in
List.map (fun ((a : int), (b : int)) -> max a b) rp
in
List.fold_left max2rows lengths_row1 lengths_rest in
List.map (fun ((a : int), (b : int)) -> max a b) rp
in
List.fold_left max2rows lengths_row1 lengths_rest in