hphp/hack/src/facts/symbols/textIndexWriter.ml

   1 (**
   2  * Copyright (c) 2019, Facebook, Inc.
   3  * All rights reserved.
   4  *
   5  * This source code is licensed under the MIT license found in the
   6  * LICENSE file in the "hack" directory of this source tree.
   7  *
   8 *)
   9
  10 open IndexBuilderTypes
  11
  12
  13 let record_in_textfile
  14     (filename: string)
  15     (symbols: found_symbol_result list): unit =
  16
  17   (* Open a temporary file *)
  18   let open Core_kernel in
  19   let temp_filename = filename ^ ".temp" in
  20   let channel = Out_channel.create temp_filename in
  21
  22   (* Write lines to file *)
  23   List.iter symbols ~f:(fun symbol -> begin
  24     let kindstr = Printf.sprintf "%d" (kind_to_int symbol.found_symbol_kind) in
  25       Out_channel.output_string channel symbol.found_symbol_name;
  26       Out_channel.output_string channel " ";
  27       Out_channel.output_string channel kindstr;
  28       Out_channel.output_string channel "\n";
  29   end);
  30
  31   (* Clean up *)
  32   Out_channel.close channel;
  33
  34   (* Sort the file *)
  35   let cmdline = Printf.sprintf "sort -f \"%s\" -o \"%s\""
  36     temp_filename filename in
  37   let _ = Unix.system cmdline in
  38   Sys.remove filename;
  39 ;;