File: example.ml

package info (click to toggle)
ocaml-csv 1.2.2-1
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 432 kB
  • sloc: ml: 6,090; makefile: 99
file content (14 lines) | stat: -rw-r--r-- 335 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
(* See also 'test.ml' for examples, and 'csv.mli' for documentation. *)

open Printf

let csvs =
  List.map (fun name -> name, Csv.load name)
    [ "example1.csv"; "example2.csv" ]

let () =
  List.iter (
    fun (name, csv) ->
      printf "---%s----------------------------------------\n" name;
      Csv.print_readable csv
  ) csvs