10 lines
234 B
OCaml
10 lines
234 B
OCaml
let parquet_check_prefix ic =
|
|
let par = really_input_string ic 4 in
|
|
"PAR1" = par
|
|
|
|
let parquet_check_suffix ic =
|
|
let len = in_channel_length ic in
|
|
seek_in ic (len - 4);
|
|
let par = really_input_string ic 4 in
|
|
"PAR1" = par
|