fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-06-05 22:09:39 +02: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
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 _ -> [] | Some _ -> []
| None -> [] | None -> []
in 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 = let alt =
match Pdf.lookup_direct pdf "/Alt" stnode with | Some _ -> ["/Alt"] | None -> [] match Pdf.lookup_direct pdf "/Alt" stnode with | Some _ -> ["/Alt"] | None -> []
in in
let id = let id =
match Pdf.lookup_direct pdf "/ID" stnode with | Some _ -> ["/ID"] | None -> [] match Pdf.lookup_direct pdf "/ID" stnode with | Some _ -> ["/ID"] | None -> []
in 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 rec read_st_inner pdf stnode =
let s = let s =
@@ -371,7 +374,15 @@ let matterhorn_11_005 _ _ pdf = todo ()
let matterhorn_11_006 _ _ pdf = todo () let matterhorn_11_006 _ _ pdf = todo ()
(* <Figure> tag alternative or replacement text missing. *) (* <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 = let is_hnum s =
match explode s with match explode s with