module B = Librarian
module H = HExtlib
+module M = MacLexer
+
let unsupported protocol =
failwith (P.sprintf "probe: unsupported protocol: %s" protocol)
aux (F.dirname bdir) (F.concat (F.basename bdir) file)
in
aux dir file
+
+let mac fname =
+ let ich = open_in fname in
+ let lexbuf = Lexing.from_channel ich in
+ M.token lexbuf; close_in ich
+