Csv.square, Csv.print_readable functions.

[ocaml-csv.git] / example.ml

diff --git a/example.ml b/example.ml
new file mode 100644 (file)
index 0000000..6b30924
--- /dev/null
+++ b/example.ml
@@ -0,0 +1,15 @@
+(* See also 'test.ml' for examples, and 'csv.mli' for documentation.
+ * $Id: example.ml,v 1.1 2005-02-17 15:51:47 rich Exp $ *)
+
+open Printf
+open Csv
+
+let csvs =
+  List.map (fun name -> name, load name)
+    [ "example1.csv"; "example2.csv" ] ;;
+
+List.iter (
+  fun (name, csv) ->
+    print_endline name;
+    print_readable csv
+) csvs