print_ext.ml

   1 match List.tl (Array.to_list Sys.argv) with
   2 | ["dll"] -> print_endline Config.ext_dll
   3 | ["obj"] -> print_endline Config.ext_obj
   4 | ["lib"] -> print_endline Config.ext_lib
   5 | _ -> prerr_endline "print_ext.ml: wrong usage"; exit 2