From f2a1daff3e5339e8a7cd24834307e4885f4f55e9 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Thu, 10 Jun 2021 16:09:59 +0100
Subject: [PATCH] cache time

---
 cpdf.ml          | 11 ++++++-----
 cpdfstrftime.mli |  2 ++
 2 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/cpdf.ml b/cpdf.ml
index 7a3ec84..3f7da52 100644
--- a/cpdf.ml
+++ b/cpdf.ml
@@ -581,10 +581,10 @@ let pagelabel pdf num =
     num
     (Pdfpagelabels.complete (Pdfpagelabels.read pdf))
 
-let rec process_text text m =
+let rec process_text time text m =
   match m with
-  | [] -> Cpdfstrftime.strftime text
-  | (s, r)::t -> process_text (string_replace_all_lazy s r text) t
+  | [] -> Cpdfstrftime.strftime ~time text
+  | (s, r)::t -> process_text time (string_replace_all_lazy s r text) t
 
 let expand_date = function
   | "now" -> Cpdfstrftime.strftime "D:%Y%m%d%H%M%S"
@@ -1806,6 +1806,7 @@ let addtext
   underneath position hoffset voffset text pages orientation cropbox opacity
   justification filename extract_text_font_size shift pdf
 =
+  let time = Cpdfstrftime.current_time () in
   let endpage = Pdfpage.endpage pdf in
   let replace_pairs pdf filename bates batespad num page =
       [
@@ -1854,7 +1855,7 @@ let addtext
       in
         let unique_fontname = Pdf.unique_key "F" fontdict in
           let ops =
-            let text = process_text text (replace_pairs pdf filename bates batespad num page) in
+            let text = process_text time text (replace_pairs pdf filename bates batespad num page) in
               let calc_textwidth text =
                 match font with
                 | Some f ->
@@ -1882,7 +1883,7 @@ let addtext
                 let expanded_lines =
                   map
                     (function text ->
-                       process_text text (replace_pairs pdf filename bates batespad num page))
+                       process_text time text (replace_pairs pdf filename bates batespad num page))
                     lines
                 in
                 let textwidth = calc_textwidth text
diff --git a/cpdfstrftime.mli b/cpdfstrftime.mli
index 09dfd36..ddf2076 100644
--- a/cpdfstrftime.mli
+++ b/cpdfstrftime.mli
@@ -15,5 +15,7 @@ type t =
    _tm_yday : int;
    _tm_isdst : bool}
 
+val current_time : unit -> t
+
 (** If time omitted, the current time is used. *)
 val strftime : ?time:t -> string -> string