1 (* Read an ELF (Linux binary) header.
8 let filename = "/bin/ls" in
9 let bits = Bitmatch.bitstring_of_file filename in
12 | { 0x7f : 8; "ELF" : 24 : string; (* ELF magic number *)
13 _ : 12*8 : bitstring; (* ELF identifier *)
14 e_type : 16 : littleendian; (* object file type *)
15 e_machine : 16 : littleendian (* architecture *)
17 printf "%s: ELF binary, type %d, arch %d\n" filename e_type e_machine
20 eprintf "%s: Not an ELF binary\n" filename