fenix
/
cpdf-source
mirror of https://github.com/johnwhitington/cpdf-source.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

more

This commit is contained in:
John Whitington 2022-12-23 16:19:40 +00:00
parent f5cbb330fc
commit 3309f3f753
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
cpdfpng.ml
View File

@ -16,13 +16,24 @@ let string_of_tag t =
(char_of_int (i32toi (Int32.logand 0x000000FFl (Int32.shift_right t 8)))) (char_of_int (i32toi (Int32.logand 0x000000FFl (Int32.shift_right t 8))))
(char_of_int (i32toi (Int32.logand 0x000000FFl t))) (char_of_int (i32toi (Int32.logand 0x000000FFl t)))
let read_unsigned_4byte i = 0l let read_unsigned_4byte i =
let a = i32ofi (i.input_byte ()) in
let b = i32ofi (i.input_byte ()) in
let c = i32ofi (i.input_byte ()) in
let d = i32ofi (i.input_byte ()) in
lor32 (lor32 (lsl32 a 24) (lsl32 b 16)) (lor32 (lsl32 c 8) d)
let read_data l i = bytes_of_string "" let read_data l i =
let l = i32toi l in
let b = mkbytes l in
setinit i b 0 l;
b
let read_chunk i = let read_chunk i =
let chunklen = read_unsigned_4byte i in let chunklen = read_unsigned_4byte i in
Printf.printf "chunklen = %li\n" chunklen;
let chunktype = read_unsigned_4byte i in let chunktype = read_unsigned_4byte i in
Printf.printf "chunktype = %s\n" (string_of_tag chunktype);
let chunkdata = read_data chunklen i in let chunkdata = read_data chunklen i in
let _ (* crc *) = read_unsigned_4byte i in let _ (* crc *) = read_unsigned_4byte i in
(string_of_tag chunktype, chunkdata) (string_of_tag chunktype, chunkdata)