kythe.io@v0.0.68-0.20240422202219-7225dbc01741/kythe/ocaml/js_indexer/flow.patch (about)

     1  diff --git a/third_party/flow/src/commands/dumpKytheCommand.ml b/third_party/flow/src/commands/dumpKytheCommand.ml
     2  new file mode 120000
     3  index 0000000..839798c
     4  --- /dev/null
     5  +++ b/third_party/flow/src/commands/dumpKytheCommand.ml
     6  @@ -0,0 +1 @@
     7  +../../../../kythe/ocaml/js_indexer/dumpKytheCommand.ml
     8  \ No newline at end of file
     9  diff --git a/third_party/flow/src/common/b64.ml b/third_party/flow/src/common/b64.ml
    10  new file mode 120000
    11  index 0000000..d7f7d1a
    12  --- /dev/null
    13  +++ b/third_party/flow/src/common/b64.ml
    14  @@ -0,0 +1 @@
    15  +../../../ocaml_b64/b64.ml
    16  \ No newline at end of file
    17  diff --git a/third_party/flow/src/common/b64.mli b/third_party/flow/src/common/b64.mli
    18  new file mode 120000
    19  index 0000000..08d0e50
    20  --- /dev/null
    21  +++ b/third_party/flow/src/common/b64.mli
    22  @@ -0,0 +1 @@
    23  +../../../ocaml_b64/b64.mli
    24  \ No newline at end of file
    25  diff --git a/third_party/flow/src/flow.ml b/third_party/flow/src/flow.ml
    26  index 1645b4e..454f440 100644
    27  --- a/third_party/flow/src/flow.ml
    28  +++ b/third_party/flow/src/flow.ml
    29  @@ -37,6 +37,7 @@ end = struct
    30       SuggestCommand.command;
    31       TypeAtPosCommand.command;
    32       DumpTypesCommand.command;
    33  +    DumpKytheCommand.command;
    34     ]
    35  
    36     (* status commands, which need a list of other commands *)
    37  diff --git a/third_party/flow/src/server/dumpKytheService_js.ml b/third_party/flow/src/server/dumpKytheService_js.ml
    38  new file mode 120000
    39  index 0000000..6e22611
    40  --- /dev/null
    41  +++ b/third_party/flow/src/server/dumpKytheService_js.ml
    42  @@ -0,0 +1 @@
    43  +../../../../kythe/ocaml/js_indexer/dumpKytheService_js.ml
    44  \ No newline at end of file
    45  diff --git a/third_party/flow/src/server/server.ml b/third_party/flow/src/server/server.ml
    46  index ccb2e08..a01582e 100644
    47  --- a/third_party/flow/src/server/server.ml
    48  +++ b/third_party/flow/src/server/server.ml
    49  @@ -193,6 +193,11 @@ struct
    50       Marshal.to_channel oc (err, resp) [];
    51       flush oc
    52  
    53  +  let dump_kythe file_input oc =
    54  +    let resp : DumpKytheService_js.resp_t = DumpKytheService_js.query file_input in
    55  +    Marshal.to_channel oc resp [];
    56  +    flush oc
    57  +
    58     let dump_types file_input oc =
    59       let file = ServerProt.file_input_get_filename file_input in
    60       let (err, resp) =
    61  @@ -400,6 +405,8 @@ struct
    62           check_file fn oc
    63       | ServerProt.DUMP_TYPES fn ->
    64           dump_types fn oc
    65  +    | ServerProt.DUMP_KYTHE fn ->
    66  +        dump_kythe fn oc
    67       | ServerProt.ERROR_OUT_OF_DATE ->
    68           incorrect_hash oc
    69       | ServerProt.FIND_MODULES module_names ->
    70  diff --git a/third_party/flow/src/server/serverProt.ml b/third_party/flow/src/server/serverProt.ml
    71  index 1b04f75..aeabd85 100644
    72  --- a/third_party/flow/src/server/serverProt.ml
    73  +++ b/third_party/flow/src/server/serverProt.ml
    74  @@ -30,6 +30,7 @@ type command =
    75   | AUTOCOMPLETE of file_input
    76   | CHECK_FILE of file_input
    77   | DUMP_TYPES of file_input
    78  +| DUMP_KYTHE of file_input
    79   | ERROR_OUT_OF_DATE
    80   | FIND_MODULES of string list
    81   | GET_DEF of file_input * int * int (* filename, line, char *)