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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
(** Optional Content Groups. *)
open Pdfutil
type ocgusage (* Nothing for now; expand later *)
type ocg =
{ocg_name : string;
ocg_intent : string list;
ocg_usage : ocgusage option}
type ocgstate = OCG_ON | OCG_OFF | OCG_Unchanged
type ocglistmode = OCG_AllPages | OCG_VisiblePages
type ocgappdict (* Nothing for now; expand later *)
type ocgconfig =
{ocgconfig_name : string option;
ocgconfig_creator : string option;
ocgconfig_basestate : ocgstate;
ocgconfig_on : int list option;
ocgconfig_off : int list option;
ocgconfig_intent: string list;
ocgconfig_usage_application_dictionaries: ocgappdict list option;
ocgconfig_order : int tree option;
ocgconfig_listmode : ocglistmode;
ocgconfig_rbgroups : int list list;
ocgconfig_locked : int list}
type ocgproperties =
{ocgs : (int * ocg) list;
ocg_default_config : ocgconfig;
ocg_configs : ocgconfig list}
(** Read optional content data. *)
val read_ocg : Pdf.t -> ocgproperties option
(** Write optional content data. *)
val write_ocg : Pdf.t -> ocgproperties -> unit
(** Print information about the document's Optional Content Groups to Standard
Output. For debug only. *)
val print_document_ocg : Pdf.t -> unit
|
