From 418e3a8bccd0c18d9acb9193160e171112e3f605 Mon Sep 17 00:00:00 2001 From: John Whitington Date: Fri, 4 Oct 2024 12:24:50 +0100 Subject: [PATCH] MCIDs --- cpdftexttopdf.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/cpdftexttopdf.ml b/cpdftexttopdf.ml index 4ee4e58..372008b 100644 --- a/cpdftexttopdf.ml +++ b/cpdftexttopdf.ml @@ -95,7 +95,7 @@ let typeset ~process_struct_tree ?subformat ?title ~papersize ~font ~fontsize te [firstfont; Cpdftype.BeginDocument] @ tagged in let pages, tags = Cpdftype.typeset ~process_struct_tree margin margin margin margin papersize pdf instrs in - iter (fun x -> Printf.printf "PAGE\n"; iter (fun (_, i) -> Printf.printf "Paragraph number %i\n" i) x) tags; + (*iter (fun x -> Printf.printf "PAGE\n"; iter (fun (_, i) -> Printf.printf "Paragraph number %i\n" i) x) tags;*) (* We make (tag number, page number, mcid) triples *) let tagtriples = flatten @@ -105,8 +105,8 @@ let typeset ~process_struct_tree ?subformat ?title ~papersize ~font ~fontsize te (indx0 tags) tags) in - Printf.printf "(paragraph number, page number, mcid) triples:\n"; - iter (fun (tagnum, pn, mcid) -> Printf.printf "%i, %i, %i\n" tagnum pn mcid) tagtriples; + (* Printf.printf "(paragraph number, page number, mcid) triples:\n"; + iter (fun (tagnum, pn, mcid) -> Printf.printf "%i, %i, %i\n" tagnum pn mcid) tagtriples;*) (* Now work out the nodes and which MCIDs in which pages they point to. Each paragraph may point to 1 or more nodes. *) let rec find_nodes (a : ((int * int * int) list) list) = function | (para, page, mcid)::nodes ->