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

Begin implementation of javascript functions

Browse Source
This commit is contained in:
John Whitington
2025-04-29 18:28:04 +01:00
parent 022bc0b7ad
commit b9c14fcebb
3 changed files with 9 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
cpdfcommand.ml
View File

@ -3830,16 +3830,16 @@ let write_images device res quality boxname annots antialias downsample spec pdf
Sys.remove tmppdf
let remove_javascript pdf =
(* Find /S /JavaScript and empty the /JS string *)
(* Find /S /JavaScript and empty the /JS string. Also, Empty out any /URI (javascript). *)
Pdf.objselfmap (fun o -> o) pdf
(* Process the /Root -> /Names -> /JavaScript *)
(* Empty out and /URL (javascript:...*)
()
(*Pdf.remove_chain pdf ["/Root"; "/Names"; "/JavaScript"];*)
let contains_javascript pdf =
(* Any dictionary with /S /JavaScript; or
Any /Root -> /Names -> /JavaScript; or
Any /URL (javascript:...) *)
()
let found = ref false in
(* Any dictionary with /S /JavaScript or any /URI (javascript:...) *)
(* Any /Root -> /Names -> /JavaScript *)
print_string (Printf.sprintf "%b" !found)
(* Main function *)
let go () =