Pull latest parser and compiler helper files (#998)

* wip pull latest parser and compiler helper files

* comment out

* changelog

Author: zth

CHANGELOG.md

@@ -42,6 +42,10 @@
 - Add code action for expanding catch-all patterns. https://github.com/rescript-lang/rescript-vscode/pull/987
 - Add code actions for removing unused code (per item and for an entire file), driven by `reanalyze`. https://github.com/rescript-lang/rescript-vscode/pull/989
 
+#### :house: Internal
+
+- Update parser and compiler support files to the latest version. https://github.com/rescript-lang/rescript-vscode/pull/998
+
 ## 1.50.0
 
 #### :rocket: New Feature

analysis/src/Codemod.ml

@@ -11,8 +11,8 @@ let transform ~path ~pos ~debug ~typ ~hint =
   | AddMissingCases -> (
     let source = "let " ^ hint ^ " = ()" in
     let {Res_driver.parsetree = hintStructure} =
-      Res_driver.parseImplementationFromSource ~forPrinter:false
-        ~displayFilename:"<none>" ~source
+      Res_driver.parse_implementation_from_source ~for_printer:false
+        ~display_filename:"<none>" ~source
     in
     match hintStructure with
     | [{pstr_desc = Pstr_value (_, [{pvb_pat = pattern}])}] -> (

analysis/src/Commands.ml

@@ -278,20 +278,20 @@ let rename ~path ~pos ~newName ~debug =
 let format ~path =
   if Filename.check_suffix path ".res" then
     let {Res_driver.parsetree = structure; comments; diagnostics} =
-      Res_driver.parsingEngine.parseImplementation ~forPrinter:true
+      Res_driver.parsing_engine.parse_implementation ~for_printer:true
         ~filename:path
     in
     if List.length diagnostics > 0 then ""
     else
-      Res_printer.printImplementation ~width:!Res_cli.ResClflags.width ~comments
-        structure
+      Res_printer.print_implementation ~width:!Res_cli.ResClflags.width
+        ~comments structure
   else if Filename.check_suffix path ".resi" then
     let {Res_driver.parsetree = signature; comments; diagnostics} =
-      Res_driver.parsingEngine.parseInterface ~forPrinter:true ~filename:path
+      Res_driver.parsing_engine.parse_interface ~for_printer:true ~filename:path
     in
     if List.length diagnostics > 0 then ""
     else
-      Res_printer.printInterface ~width:!Res_cli.ResClflags.width ~comments
+      Res_printer.print_interface ~width:!Res_cli.ResClflags.width ~comments
         signature
   else ""
 

analysis/src/CompletionFrontEnd.ml

@@ -77,7 +77,7 @@ let findArgCompletables ~(args : arg list) ~endPos ~posBeforeCursor
       if CursorPosition.locIsEmpty exp.pexp_loc ~pos:posBeforeCursor then
         someArgHadEmptyExprLoc := true;
 
-      if Res_parsetree_viewer.isTemplateLiteral exp then None
+      if Res_parsetree_viewer.is_template_literal exp then None
       else if exp.pexp_loc |> Loc.hasPos ~pos:posBeforeCursor then (
         if Debug.verbose () then
           print_endline
@@ -281,7 +281,7 @@ let rec exprToContextPathInner (e : Parsetree.expression) =
 
 and exprToContextPath (e : Parsetree.expression) =
   match
-    ( Res_parsetree_viewer.hasAwaitAttribute e.pexp_attributes,
+    ( Res_parsetree_viewer.has_await_attribute e.pexp_attributes,
       exprToContextPathInner e )
   with
   | true, Some ctxPath -> Some (CPAwait ctxPath)
@@ -1072,7 +1072,7 @@ let completionWithParser1 ~currentFile ~debug ~offset ~path ~posCursor
                       completionContext =
                         (if
                            isLikelyModulePath
-                           && expr |> Res_parsetree_viewer.isBracedExpr
+                           && expr |> Res_parsetree_viewer.is_braced_expr
                          then ValueOrField
                          else Value);
                     }))
@@ -1143,7 +1143,7 @@ let completionWithParser1 ~currentFile ~debug ~offset ~path ~posCursor
             | Some contextPath -> setResult (Cpath (CPField (contextPath, "")))
             | None -> ())
         | Pexp_apply ({pexp_desc = Pexp_ident compName}, args)
-          when Res_parsetree_viewer.isJsxExpression expr ->
+          when Res_parsetree_viewer.is_jsx_expression expr ->
           inJsxContext := true;
           let jsxProps = CompletionJsx.extractJsxProps ~compName ~args in
           let compNamePath = flattenLidCheckDot ~jsx:true compName in
@@ -1500,7 +1500,7 @@ let completionWithParser1 ~currentFile ~debug ~offset ~path ~posCursor
 
   if Filename.check_suffix path ".res" then (
     let parser =
-      Res_driver.parsingEngine.parseImplementation ~forPrinter:false
+      Res_driver.parsing_engine.parse_implementation ~for_printer:false
     in
     let {Res_driver.parsetree = str} = parser ~filename:currentFile in
     iterator.structure iterator str |> ignore;
@@ -1512,7 +1512,7 @@ let completionWithParser1 ~currentFile ~debug ~offset ~path ~posCursor
     if !found = false then if debug then Printf.printf "XXX Not found!\n";
     !result)
   else if Filename.check_suffix path ".resi" then (
-    let parser = Res_driver.parsingEngine.parseInterface ~forPrinter:false in
+    let parser = Res_driver.parsing_engine.parse_interface ~for_printer:false in
     let {Res_driver.parsetree = signature} = parser ~filename:currentFile in
     iterator.signature iterator signature |> ignore;
     if blankAfterCursor = Some ' ' || blankAfterCursor = Some '\n' then (

analysis/src/CreateInterface.ml

@@ -147,8 +147,8 @@ let printSignature ~extractor ~signature =
 
   Printtyp.reset_names ();
   let sigItemToString (item : Outcometree.out_sig_item) =
-    item |> Res_outcome_printer.printOutSigItemDoc
-    |> Res_doc.toString ~width:!Res_cli.ResClflags.width
+    item |> Res_outcome_printer.print_out_sig_item_doc
+    |> Res_doc.to_string ~width:!Res_cli.ResClflags.width
   in
 
   let genSigStrForInlineAttr lines attributes id vd =

analysis/src/Diagnostics.ml

@@ -3,10 +3,10 @@ let document_syntax ~path =
     diagnostics
     |> List.map (fun diagnostic ->
            let _, startline, startcol =
-             Location.get_pos_info (Res_diagnostics.getStartPos diagnostic)
+             Location.get_pos_info (Res_diagnostics.get_start_pos diagnostic)
            in
            let _, endline, endcol =
-             Location.get_pos_info (Res_diagnostics.getEndPos diagnostic)
+             Location.get_pos_info (Res_diagnostics.get_end_pos diagnostic)
            in
            Protocol.stringifyDiagnostic
              {
@@ -21,13 +21,14 @@ let document_syntax ~path =
   in
   if FindFiles.isImplementation path then
     let parseImplementation =
-      Res_driver.parsingEngine.parseImplementation ~forPrinter:false
+      Res_driver.parsing_engine.parse_implementation ~for_printer:false
         ~filename:path
     in
     get_diagnostics parseImplementation.diagnostics
   else if FindFiles.isInterface path then
     let parseInterface =
-      Res_driver.parsingEngine.parseInterface ~forPrinter:false ~filename:path
+      Res_driver.parsing_engine.parse_interface ~for_printer:false
+        ~filename:path
     in
     get_diagnostics parseInterface.diagnostics
   else []

analysis/src/DocumentSymbol.ml

@@ -135,15 +135,17 @@ let command ~path =
   in
 
   (if Filename.check_suffix path ".res" then
-   let parser =
-     Res_driver.parsingEngine.parseImplementation ~forPrinter:false
-   in
-   let {Res_driver.parsetree = structure} = parser ~filename:path in
-   iterator.structure iterator structure |> ignore
-  else
-    let parser = Res_driver.parsingEngine.parseInterface ~forPrinter:false in
-    let {Res_driver.parsetree = signature} = parser ~filename:path in
-    iterator.signature iterator signature |> ignore);
+     let parser =
+       Res_driver.parsing_engine.parse_implementation ~for_printer:false
+     in
+     let {Res_driver.parsetree = structure} = parser ~filename:path in
+     iterator.structure iterator structure |> ignore
+   else
+     let parser =
+       Res_driver.parsing_engine.parse_interface ~for_printer:false
+     in
+     let {Res_driver.parsetree = signature} = parser ~filename:path in
+     iterator.signature iterator signature |> ignore);
   let isInside
       ({
          range =

analysis/src/DumpAst.ml

@@ -313,7 +313,7 @@ let printStructItem structItem ~pos ~source =
 
 let dump ~currentFile ~pos =
   let {Res_driver.parsetree = structure; source} =
-    Res_driver.parsingEngine.parseImplementation ~forPrinter:true
+    Res_driver.parsing_engine.parse_implementation ~for_printer:true
       ~filename:currentFile
   in
 

analysis/src/Hint.ml

@@ -15,7 +15,7 @@ let locItemToTypeHint ~full:{file; package} locItem =
       | Const_float _ -> "float"
       | Const_int32 _ -> "int32"
       | Const_int64 _ -> "int64"
-      | Const_nativeint _ -> "int")
+      | Const_bigint _ -> "bigint")
   | Typed (_, t, locKind) ->
     let fromType typ =
       typ |> Shared.typeToString
@@ -71,11 +71,11 @@ let inlay ~path ~pos ~maxLength ~debug =
   in
   let iterator = {Ast_iterator.default_iterator with value_binding} in
   (if Files.classifySourceFile path = Res then
-   let parser =
-     Res_driver.parsingEngine.parseImplementation ~forPrinter:false
-   in
-   let {Res_driver.parsetree = structure} = parser ~filename:path in
-   iterator.structure iterator structure |> ignore);
+     let parser =
+       Res_driver.parsing_engine.parse_implementation ~for_printer:false
+     in
+     let {Res_driver.parsetree = structure} = parser ~filename:path in
+     iterator.structure iterator structure |> ignore);
   match Cmt.loadFullCmtFromPath ~path with
   | None -> None
   | Some full ->
@@ -135,11 +135,11 @@ let codeLens ~path ~debug =
   (* We only print code lenses in implementation files. This is because they'd be redundant in interface files,
      where the definition itself will be the same thing as what would've been printed in the code lens. *)
   (if Files.classifySourceFile path = Res then
-   let parser =
-     Res_driver.parsingEngine.parseImplementation ~forPrinter:false
-   in
-   let {Res_driver.parsetree = structure} = parser ~filename:path in
-   iterator.structure iterator structure |> ignore);
+     let parser =
+       Res_driver.parsing_engine.parse_implementation ~for_printer:false
+     in
+     let {Res_driver.parsetree = structure} = parser ~filename:path in
+     iterator.structure iterator structure |> ignore);
   match Cmt.loadFullCmtFromPath ~path with
   | None -> None
   | Some full ->

analysis/src/Hover.ml

@@ -227,7 +227,7 @@ let newHover ~full:{file; package} ~supportsMarkdownLinks locItem =
          | Const_float _ -> "float"
          | Const_int32 _ -> "int32"
          | Const_int64 _ -> "int64"
-         | Const_nativeint _ -> "int"))
+         | Const_bigint _ -> "bigint"))
   | Typed (_, t, locKind) ->
     let fromType ~docstring typ =
       ( hoverWithExpandedTypes ~file ~package ~supportsMarkdownLinks typ,