1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
(* Example program which uses Date::Parse.
* Copyright (C) 2003 Merjis Ltd.
* $Id: parsedate.ml,v 1.2 2003/12/11 17:41:52 rich Exp $
*)
open Printf
open Pl_Date_Parse
open Pl_Date_Format
let () =
(* Parse dates passed on the command line. *)
if Array.length Sys.argv <= 1 then
eprintf "parsedate [list of quoted date strings ...]\n"
else (
let strings = List.tl (Array.to_list Sys.argv) in
List.iter (fun s ->
printf "input string = '%s' ->\n" s;
let t = str2time s in
printf "\ttime_t = %f\n" t;
let s = ctime t in
printf "\tconverted back to string = %s\n" s;
printf "\n"
) strings
);
(* Perform a full collection - good way to find GC/allocation bugs. *)
Gc.full_major ()
|
