Add attr res.syntaxSugar to Array.{get, set}

Author: aspeddro

compiler/syntax/src/res_core.ml

@@ -2041,6 +2041,9 @@ and parse_bracket_access p expr start_pos =
     Parser.eat_breadcrumb p;
     let rbracket = p.prev_end_pos in
     let array_loc = mk_loc lbracket rbracket in
+    let attr =
+      (Location.mkloc "res.syntaxSugar" array_loc, Parsetree.PStr [])
+    in
     match p.token with
     | Equal ->
       Parser.leave_breadcrumb p ExprArrayMutation;
@@ -2059,7 +2062,7 @@ and parse_bracket_access p expr start_pos =
       let end_pos = p.prev_end_pos in
       let array_set =
         Ast_helper.Exp.apply ~loc:(mk_loc start_pos end_pos)
-          (Ast_helper.Exp.ident ~loc:array_loc array_set)
+          (Ast_helper.Exp.ident ~loc:array_loc array_set ~attrs:[attr])
           [(Nolabel, expr); (Nolabel, access_expr); (Nolabel, rhs_expr)]
       in
       Parser.eat_breadcrumb p;
@@ -2068,7 +2071,7 @@ and parse_bracket_access p expr start_pos =
       let end_pos = p.prev_end_pos in
       let e =
         Ast_helper.Exp.apply ~loc:(mk_loc start_pos end_pos)
-          (Ast_helper.Exp.ident ~loc:array_loc
+          (Ast_helper.Exp.ident ~loc:array_loc ~attrs:[attr]
              (Location.mkloc (Longident.Ldot (Lident "Array", "get")) array_loc))
           [(Nolabel, expr); (Nolabel, access_expr)]
       in

tests/syntax_tests/data/parsing/errors/expressions/expected/array.res.txt

@@ -9,4 +9,7 @@
   Did you forget a `]` here?
 
 let xs =
-  x.map ((Function$ (fun key -> [|key;(predicates.(key))|]))[@res.arity 1])
+  x.map
+    ((Function$
+        (fun key -> [|key;(((Array.get)[@res.syntaxSugar ]) predicates key)|]))
+    [@res.arity 1])

tests/syntax_tests/data/parsing/grammar/expressions/expected/async.res.txt

@@ -20,7 +20,7 @@ let async =
     () |.u async;
     async ();
     async.async;
-    { async = (async.(async)) };
+    { async = (((Array.get)[@res.syntaxSugar ]) async async) };
     (result |.u async) |.u
       (mapAsync ((Function$ (fun a -> doStuff a))[@res.arity 1])))
   [@res.braces ])

tests/syntax_tests/data/parsing/grammar/expressions/expected/await.res.txt

@@ -9,8 +9,9 @@ let () =
   ((let response = ((fetch {js|/users.json|js})[@res.await ]) in
     let users = ((response.json ())[@res.await ]) in
     let comments =
-      ((((fetch {js|comment.json|js})[@res.await ]).json ())
-      [@res.await ]).(0) in
+      ((Array.get)[@res.syntaxSugar ])
+        ((((fetch {js|comment.json|js})[@res.await ]).json ())[@res.await ])
+        0 in
     Js.log2 users comments)
   [@res.braces ])
 let () = ((delay 10)[@res.braces ][@res.await ])

tests/syntax_tests/data/parsing/grammar/expressions/expected/binaryNoEs6Arrow.res.txt

@@ -34,4 +34,5 @@
                       [@res.braces ])))
       [@res.namedArgLoc ][@res.braces ][@res.arity 1]) ~children:[] ())
   [@JSX ])
-;;if inclusions.(index) <- (uid, url) then onChange inclusions
+;;if ((Array.set)[@res.syntaxSugar ]) inclusions index (uid, url)
+  then onChange inclusions

tests/syntax_tests/data/parsing/grammar/expressions/expected/bracedOrRecord.res.txt

@@ -12,10 +12,10 @@ let e = ((a + b)[@res.braces ])
 let e = ((if a then true else false)[@res.braces ][@res.ternary ])
 let e = ((if computation a then true else false)
   [@res.braces ][@res.ternary ])
-let e = ((a.(0))[@res.braces ])
+let e = ((((Array.get)[@res.syntaxSugar ]) a 0)[@res.braces ])
 let e = ((f b)[@res.braces ])
 let e = (((a.b).c)[@res.braces ])
-let e = ((arr.(x) <- 20)[@res.braces ])
+let e = ((((Array.set)[@res.syntaxSugar ]) arr x 20)[@res.braces ])
 let e = ((Function$ (fun x -> doStuff config (x + 1)))
   [@res.braces ][@res.arity 1])
 let e = ((doStuff config ((Function$ (fun x -> x + 1))[@res.arity 1]))

tests/syntax_tests/data/parsing/grammar/expressions/expected/bsObject.res.txt

@@ -6,7 +6,7 @@ let y = [%obj { age = 30; name = {js|steve|js} }]
 let z =
   [%obj { \xff = 1; \u2212 = {js|two|js}; \0 = zero; \o123 = {js|o123|js} }]
 let x = (({js|age|js})[@res.braces ])
-let x = (({js|age|js}.(0))[@res.braces ])
+let x = ((((Array.get)[@res.syntaxSugar ]) {js|age|js} 0)[@res.braces ])
 let x = (({js|age|js} |.u Js.log)[@res.braces ])
 let x = ((if {js|age|js} then true else false)[@res.braces ][@res.ternary ])
 let x = (({js|age|js} |.u Js.log; (let foo = 1 in let bar = 2 in foo + bar))
@@ -16,5 +16,7 @@ let x =
     [@res.ternary ]);
     (let foo = 1 in let bar = 2 in foo + bar))
   [@res.braces ])
-let x = (({js|age|js}.(0); (let foo = 1 in let bar = 2 in foo + bar))
+let x =
+  ((((Array.get)[@res.syntaxSugar ]) {js|age|js} 0;
+    (let foo = 1 in let bar = 2 in foo + bar))
   [@res.braces ])

tests/syntax_tests/data/parsing/grammar/expressions/expected/firstClassModule.res.txt

@@ -66,37 +66,41 @@ let build_dispatch_table =
   [@res.arity 1])
 ;;(module Three)
 ;;((module Three) : (module X_int))
-;;(module Teenager).(0)
+;;((Array.get)[@res.syntaxSugar ]) (module Teenager) 0
 ;;((module Teenager) |.u age) |.u Js.log
-;;((module Teenager).(0)) |.u Js.log
+;;(((Array.get)[@res.syntaxSugar ]) (module Teenager) 0) |.u Js.log
 ;;((if ((module Teenager) |.u age) |.u isAdult
     then Js.log {js|has responsibilities|js}
     else Js.log {js|can play in the playground|js})[@res.ternary ])
-;;((if ((module Streets).(0)) |.u isExpensive
+;;((if (((Array.get)[@res.syntaxSugar ]) (module Streets) 0) |.u isExpensive
     then Js.log {js|big money|js}
     else Js.log {js|affordable|js})[@res.ternary ])
 let () = ((((module Teenager) |.u age) |.u Js.log)[@res.braces ])
-let () = (((module Teenager).(0))[@res.braces ])
+let () = ((((Array.get)[@res.syntaxSugar ]) (module Teenager) 0)
+  [@res.braces ])
 let () =
   ((if ((module Teenager) |.u age) |.u isAdult
     then Js.log {js|has responsibilities|js}
     else Js.log {js|can play in the playground|js})
   [@res.braces ][@res.ternary ])
 let () =
-  ((if ((module Streets).(0)) |.u isExpensive
+  ((if (((Array.get)[@res.syntaxSugar ]) (module Streets) 0) |.u isExpensive
     then Js.log {js|big money|js}
     else Js.log {js|affordable|js})
   [@res.braces ][@res.ternary ])
 let () =
   ((let a = 1 in
     let b = 2 in
-    (module Teenager).(0); ((module Teenager) |.u age) |.u Js.log)
+    ((Array.get)[@res.syntaxSugar ]) (module Teenager) 0;
+    ((module Teenager) |.u age) |.u Js.log)
   [@res.braces ])
 let () =
   ((let a = 1 in
     let b = 2 in
     ((module Teenager) |.u age) |.u Js.log;
-    ((if (((module Teenager).(0)) |.u age) |.u isAdult
+    ((if
+        ((((Array.get)[@res.syntaxSugar ]) (module Teenager) 0) |.u age) |.u
+          isAdult
       then Js.log {js|has responsibilities|js}
       else Js.log {js|can play in the playground|js})
     [@res.ternary ]))

tests/syntax_tests/data/parsing/grammar/expressions/expected/primary.res.txt

@@ -5,11 +5,14 @@ let x = p.Parser.token
 let x = (p.Lang.Parser.token).pos
 ;;lexbuf.lnum <- (lexbuf.lnum + 1)
 ;;(parser.lexbuf).lnum <- ((parser.lexbuf).lnum + 1)
-let x = arr.(0)
-let x = arr.((x : int))
-let x = (arr.(0)).(1)
-let x = (arr.((x : int))).((y : int))
-;;arr.(0) <- (a + b)
+let x = ((Array.get)[@res.syntaxSugar ]) arr 0
+let x = ((Array.get)[@res.syntaxSugar ]) arr (x : int)
+let x =
+  ((Array.get)[@res.syntaxSugar ]) (((Array.get)[@res.syntaxSugar ]) arr 0) 1
+let x =
+  ((Array.get)[@res.syntaxSugar ])
+    (((Array.get)[@res.syntaxSugar ]) arr (x : int)) (y : int)
+;;((Array.set)[@res.syntaxSugar ]) arr 0 (a + b)
 ;;f ()
 ;;(f ()) ()
 ;;f a