Commits

camlspotter  committed 7711a46

StOpnStar

  • Participants
  • Parent commits ebe9a36

Comments (0)

Files changed (3)

-3.12.1+ocamlspotter-1.3.0+camlp4-lexer-plug
+3.12.1+ocamlspotter-1.3.0+camlp4-lexer-plug+poormans-overloading
 
 # The version string is the first line of this file.
 # It must be in the format described in stdlib/sys.mli

File camlp4/Camlp4/Printers/OCaml.ml

             o#var s o#module_type mt semisep
       | <:sig_item< open $sl$ >> ->
           pp f "@[<2>open@ %a%(%)@]" o#ident sl semisep
+      | <:sig_item< open* $sl$ >> ->
+          pp f "@[<2>open*@ %a%(%)@]" o#ident sl semisep
       | <:sig_item< type $t$ >> ->
           pp f "@[<hv0>@[<hv2>type %a@]%(%)@]" o#ctyp t semisep
       | <:sig_item< value $s$ : $t$ >> ->

File camlp4/boot/Camlp4Ast.ml

                                  (Ast.IdUid _loc "StOpn")))
                            (meta_loc _loc x0))
                         (meta_ident _loc x1)
+                  | Ast.StOpnStar x0 x1 ->
+                      Ast.ExApp _loc
+                        (Ast.ExApp _loc
+                           (Ast.ExId _loc
+                              (Ast.IdAcc _loc (Ast.IdUid _loc "Ast")
+                                 (Ast.IdUid _loc "StOpnStar")))
+                           (meta_loc _loc x0))
+                        (meta_ident _loc x1)
                   | Ast.StMty x0 x1 x2 ->
                       Ast.ExApp _loc
                         (Ast.ExApp _loc
                                  (Ast.IdUid _loc "StOpn")))
                            (meta_loc _loc x0))
                         (meta_ident _loc x1)
+                  | Ast.StOpnStar x0 x1 ->
+                      Ast.PaApp _loc
+                        (Ast.PaApp _loc
+                           (Ast.PaId _loc
+                              (Ast.IdAcc _loc (Ast.IdUid _loc "Ast")
+                                 (Ast.IdUid _loc "StOpnStar")))
+                           (meta_loc _loc x0))
+                        (meta_ident _loc x1)
                   | Ast.StMty x0 x1 x2 ->
                       Ast.PaApp _loc
                         (Ast.PaApp _loc
           | StOpn _x _x_i1 ->
               let _x = o#loc _x in
               let _x_i1 = o#ident _x_i1 in StOpn _x _x_i1
+          | StOpnStar _x _x_i1 ->
+              let _x = o#loc _x in
+              let _x_i1 = o#ident _x_i1 in StOpnStar _x _x_i1
           | StTyp _x _x_i1 ->
               let _x = o#loc _x in let _x_i1 = o#ctyp _x_i1 in StTyp _x _x_i1
           | StVal _x _x_i1 _x_i2 ->
               let o = o#loc _x in
               let o = o#string _x_i1 in let o = o#module_type _x_i2 in o
           | StOpn _x _x_i1 -> let o = o#loc _x in let o = o#ident _x_i1 in o
+          | StOpnStar _x _x_i1 -> let o = o#loc _x in let o = o#ident _x_i1 in o
           | StTyp _x _x_i1 -> let o = o#loc _x in let o = o#ctyp _x_i1 in o
           | StVal _x _x_i1 _x_i2 ->
               let o = o#loc _x in