keystoml.ml

   1 open Printf
   2
   3 let lines =
   4   let lines =
   5     match (try Some (open_in Sys.argv.(1)) with _ -> None) with
   6     | None -> []
   7     | Some ic ->
   8         let lines =
   9           let rec fold accu =
  10             match (try Some (input_line ic) with _ -> None) with
  11             | Some line -> fold (line :: accu)
  12             | None -> List.rev accu
  13           in
  14           fold []
  15         in
  16         close_in ic;
  17         lines
  18   in
  19   lines;
  20 ;;
  21
  22 let _ =
  23   printf "let keys = [\n";
  24   List.iter (fun l -> printf "  %S;\n" l) lines;
  25   printf "];;\n"
  26 ;;