fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-04-15 10:48:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fixing up Unix dependency

Browse Source
This commit is contained in:
John Whitington 2013-11-11 16:43:03 +00:00
parent c721b085b8
commit 1ecf94e7ba
1 changed files with 42 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

84
cpdfstrftime.ml
View File

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