Scaffolding for -remove-obj

This commit is contained in:
John Whitington
2025-03-26 20:35:21 +00:00
parent 715d16db1e
commit 19762f09df
3 changed files with 13 additions and 2 deletions

View File

@@ -313,6 +313,8 @@ let replace_obj pdf objspec obj =
try Pdf.replace_chain pdf (split_chain objspec) obj with
_ -> raise (Pdf.PDFError "Chain not found")
let remove_obj pdf objspec = ()
(* Replace a stream from a file e.g 4=data.dat replaces contents of object 4.
The stream dictionary is altered only to correct the length. *)
let replace_stream pdf objspec filename =