fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-06-05 22:09:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

Unix back in

Browse Source
This commit is contained in:
John Whitington
2013-11-22 14:42:18 +00:00
parent cfd453cca0
commit ace1c4f3f2
10 changed files with 18 additions and 653 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
cpdfstrftime.ml
View File

@ -2,7 +2,7 @@
open Pdfutil
let strf_A t =
match t.Cpdfunix.tm_wday with
match t.Unix.tm_wday with
| 0 -> "Sunday" | 1 -> "Monday" | 2 -> "Tuesday"
| 3 -> "Wednesday" | 4 -> "Thursday" | 5 -> "Friday"
| 6 -> "Saturday"
@ -12,7 +12,7 @@ let strf_a t =
String.sub (strf_A t) 0 3
let strf_B t =
match t.Cpdfunix.tm_mon with
match t.Unix.tm_mon with
| 0 -> "January" | 1 -> "February" | 2 -> "March" | 3 -> "April"
| 4 -> "May" | 5 -> "June" | 6 -> "July" | 7 -> "August"
| 8 -> "September" | 9 -> "October" | 10 -> "November"
@ -22,56 +22,56 @@ let strf_b t =
String.sub (strf_B t) 0 3
let strf_d t =
let s = string_of_int t.Cpdfunix.tm_mday in
let s = string_of_int t.Unix.tm_mday in
if String.length s = 1 then "0" ^ s else s
let strf_e t =
let s = string_of_int t.Cpdfunix.tm_mday in
let s = string_of_int t.Unix.tm_mday in
if String.length s = 1 then " " ^ s else s
let strf_H t =
let s = string_of_int t.Cpdfunix.tm_hour in
let s = string_of_int t.Unix.tm_hour in
if String.length s = 1 then "0" ^ s else s
let strf_I t =
let s = string_of_int (t.Cpdfunix.tm_hour mod 12) in
let s = string_of_int (t.Unix.tm_hour mod 12) in
if String.length s = 1 then "0" ^ s else s
let strf_j t =
let s = string_of_int t.Cpdfunix.tm_yday in
let s = string_of_int t.Unix.tm_yday in
match String.length s with
| 1 -> "00" ^ s
| 2 -> "0" ^ s
| _ -> s
let strf_m t =
let s = string_of_int (t.Cpdfunix.tm_mon + 1) in
let s = string_of_int (t.Unix.tm_mon + 1) in
if String.length s = 1 then "0" ^ s else s
let strf_M t =
let s = string_of_int t.Cpdfunix.tm_min in
let s = string_of_int t.Unix.tm_min in
if String.length s = 1 then "0" ^ s else s
let strf_p t =
if t.Cpdfunix.tm_hour >= 12 then "p.m" else "a.m"
if t.Unix.tm_hour >= 12 then "p.m" else "a.m"
let strf_S t =
let s = string_of_int t.Cpdfunix.tm_sec in
let s = string_of_int t.Unix.tm_sec in
if String.length s = 1 then "0" ^ s else s
let strf_T t =
strf_H t ^ ":" ^ strf_M t ^ ":" ^ strf_S t
let strf_u t =
match t.Cpdfunix.tm_wday with
match t.Unix.tm_wday with
| 0 -> "7"
| n -> string_of_int (n + 1)
let strf_w t =
string_of_int t.Cpdfunix.tm_wday
string_of_int t.Unix.tm_wday
let strf_Y t =
string_of_int (t.Cpdfunix.tm_year + 1900)
string_of_int (t.Unix.tm_year + 1900)
let strf_percent _ = "%"
@ -83,7 +83,7 @@ let strftime_pairs =
"%w", strf_w; "%Y", strf_Y; "%%", strf_percent]
let strftime text =
let time = Cpdfunix.localtime (Cpdfunix.gettimeofday ()) in
let time = Unix.localtime (Unix.gettimeofday ()) in
let text = ref text in
iter
(fun (search, replace_fun) ->