fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-01-24 23:45:05 +01:00
Code Issues Packages Projects Releases Wiki Activity

Figure check

Browse Source
This commit is contained in:
John Whitington 2024-06-20 16:25:16 +01:00
parent ae80f30044
commit 0d2c836205
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
cpdfua.ml
View File

@ -46,14 +46,17 @@ let read_a pdf stnode =
| Some _ -> []
| None -> []
in
(* For now, stick /ID, /Alt in here too. *)
(* For now, stick /ID, /Alt, /ActualText in here too. Eventually, move to prevent crashes. *)
let alt =
match Pdf.lookup_direct pdf "/Alt" stnode with | Some _ -> ["/Alt"] | None -> []
in
let id =
match Pdf.lookup_direct pdf "/ID" stnode with | Some _ -> ["/ID"] | None -> []
in
from_a @ id @ alt
let at =
match Pdf.lookup_direct pdf "/ActualText" stnode with | Some _ -> ["/ActualText"] | None -> []
in
from_a @ id @ at @ alt
let rec read_st_inner pdf stnode =
let s =
@ -371,7 +374,15 @@ let matterhorn_11_005 _ _ pdf = todo ()
let matterhorn_11_006 _ _ pdf = todo ()
(* <Figure> tag alternative or replacement text missing. *)
let matterhorn_13_004 _ _ pdf = todo ()
let matterhorn_13_004 _ st2 pdf =
let rec check_fig = function
| E2 ("/Figure", attrs, cs) ->
if not (mem "/Alt" attrs || mem "/ActualText" attrs) then merror ();
iter check_fig cs
| E2 (_, _, cs) ->
iter check_fig cs
in
check_fig st2
let is_hnum s =
match explode s with