217 lines
10 KiB
Perl
217 lines
10 KiB
Perl
|
Testing metaquots handling of function arity. In OCaml 5.2, the parsetree
|
||
|
|
was changed to allow a distinction between a function like [fun x y -> x + y]
|
||
|
|
and a function like [fun x -> fun y -> x + y].
|
||
|
|
|
||
|
|
In most cases, the former is preferred and functions like `Ast_builder.pexp_fun`
|
||
|
|
and metaquots `[%expr...` build maximum arity functions by inserting calls to
|
||
|
|
`coalesce_arity`.
|
||
|
|
|
||
|
|
$ cat > coalesce.ml << EOF
|
||
|
|
> let b = [%expr fun x -> fun y -> x + y]
|
||
|
|
> EOF
|
||
|
|
|
||
|
|
Here, when the function is an expression metaquot will coalesce the arguments as each
|
||
|
|
subexpression is handled separately.
|
||
|
|
|
||
|
|
$ ./driver.exe coalesce.ml
|
||
|
|
let b =
|
||
|
|
(Ppxlib.Ast_builder.Default.coalesce_arity
|
||
|
|
{
|
||
|
|
pexp_desc =
|
||
|
|
(Pexp_function
|
||
|
|
([{
|
||
|
|
pparam_loc = loc;
|
||
|
|
pparam_desc =
|
||
|
|
(Pparam_val
|
||
|
|
(Nolabel, None,
|
||
|
|
{
|
||
|
|
ppat_desc = (Ppat_var { txt = "x"; loc });
|
||
|
|
ppat_loc = loc;
|
||
|
|
ppat_loc_stack = [];
|
||
|
|
ppat_attributes = []
|
||
|
|
}))
|
||
|
|
}], None,
|
||
|
|
(Pfunction_body
|
||
|
|
(Ppxlib.Ast_builder.Default.coalesce_arity
|
||
|
|
{
|
||
|
|
pexp_desc =
|
||
|
|
(Pexp_function
|
||
|
|
([{
|
||
|
|
pparam_loc = loc;
|
||
|
|
pparam_desc =
|
||
|
|
(Pparam_val
|
||
|
|
(Nolabel, None,
|
||
|
|
{
|
||
|
|
ppat_desc =
|
||
|
|
(Ppat_var { txt = "y"; loc });
|
||
|
|
ppat_loc = loc;
|
||
|
|
ppat_loc_stack = [];
|
||
|
|
ppat_attributes = []
|
||
|
|
}))
|
||
|
|
}], None,
|
||
|
|
(Pfunction_body
|
||
|
|
{
|
||
|
|
pexp_desc =
|
||
|
|
(Pexp_apply
|
||
|
|
({
|
||
|
|
pexp_desc =
|
||
|
|
(Pexp_ident
|
||
|
|
{ txt = (Lident "+"); loc });
|
||
|
|
pexp_loc = loc;
|
||
|
|
pexp_loc_stack = [];
|
||
|
|
pexp_attributes = []
|
||
|
|
},
|
||
|
|
[(Nolabel,
|
||
|
|
{
|
||
|
|
pexp_desc =
|
||
|
|
(Pexp_ident
|
||
|
|
{ txt = (Lident "x"); loc
|
||
|
|
});
|
||
|
|
pexp_loc = loc;
|
||
|
|
pexp_loc_stack = [];
|
||
|
|
pexp_attributes = []
|
||
|
|
});
|
||
|
|
(Nolabel,
|
||
|
|
{
|
||
|
|
pexp_desc =
|
||
|
|
(Pexp_ident
|
||
|
|
{ txt = (Lident "y"); loc });
|
||
|
|
pexp_loc = loc;
|
||
|
|
pexp_loc_stack = [];
|
||
|
|
pexp_attributes = []
|
||
|
|
})]));
|
||
|
|
pexp_loc = loc;
|
||
|
|
pexp_loc_stack = [];
|
||
|
|
pexp_attributes = []
|
||
|
|
})));
|
||
|
|
pexp_loc = loc;
|
||
|
|
pexp_loc_stack = [];
|
||
|
|
pexp_attributes = []
|
||
|
|
}))));
|
||
|
|
pexp_loc = loc;
|
||
|
|
pexp_loc_stack = [];
|
||
|
|
pexp_attributes = []
|
||
|
|
} : Ppxlib_ast.Ast.expression)
|
||
|
|
|
||
|
|
In order to be as uniform as possible across different compiler versions, we also
|
||
|
|
keep the same behaviour with function expressions when used as patterns. Here, we
|
||
|
|
coalesce the first case into a maximum arity function.
|
||
|
|
|
||
|
|
$ cat > pat.ml << EOF
|
||
|
|
> let f v = match v with
|
||
|
|
> | [%expr fun x -> fun y -> fun z -> x + y + z] -> ()
|
||
|
|
> | [%expr fun x y z -> x + y + z] -> ()
|
||
|
|
> | _ -> ()
|
||
|
|
> EOF
|
||
|
|
|
||
|
|
$ ./driver.exe pat.ml
|
||
|
|
let f v =
|
||
|
|
match v with
|
||
|
|
| ({
|
||
|
|
pexp_desc = Pexp_function
|
||
|
|
({ pparam_loc = _;
|
||
|
|
pparam_desc = Pparam_val
|
||
|
|
(Nolabel, None,
|
||
|
|
{ ppat_desc = Ppat_var { txt = "x"; loc = _ }; ppat_loc = _;
|
||
|
|
ppat_loc_stack = _; ppat_attributes = _ })
|
||
|
|
}::{ pparam_loc = _;
|
||
|
|
pparam_desc = Pparam_val
|
||
|
|
(Nolabel, None,
|
||
|
|
{ ppat_desc = Ppat_var { txt = "y"; loc = _ };
|
||
|
|
ppat_loc = _; ppat_loc_stack = _; ppat_attributes = _ })
|
||
|
|
}::[],
|
||
|
|
None, Pfunction_body
|
||
|
|
{
|
||
|
|
pexp_desc = Pexp_function
|
||
|
|
({ pparam_loc = _;
|
||
|
|
pparam_desc = Pparam_val
|
||
|
|
(Nolabel, None,
|
||
|
|
{ ppat_desc = Ppat_var { txt = "z"; loc = _ };
|
||
|
|
ppat_loc = _; ppat_loc_stack = _; ppat_attributes = _ })
|
||
|
|
}::[],
|
||
|
|
None, Pfunction_body
|
||
|
|
{
|
||
|
|
pexp_desc = Pexp_apply
|
||
|
|
({ pexp_desc = Pexp_ident { txt = Lident "+"; loc = _ };
|
||
|
|
pexp_loc = _; pexp_loc_stack = _; pexp_attributes = _ },
|
||
|
|
(Nolabel,
|
||
|
|
{
|
||
|
|
pexp_desc = Pexp_apply
|
||
|
|
({
|
||
|
|
pexp_desc = Pexp_ident
|
||
|
|
{ txt = Lident "+"; loc = _ };
|
||
|
|
pexp_loc = _; pexp_loc_stack = _;
|
||
|
|
pexp_attributes = _ },
|
||
|
|
(Nolabel,
|
||
|
|
{
|
||
|
|
pexp_desc = Pexp_ident
|
||
|
|
{ txt = Lident "x"; loc = _ };
|
||
|
|
pexp_loc = _; pexp_loc_stack = _;
|
||
|
|
pexp_attributes = _ })::(Nolabel,
|
||
|
|
{
|
||
|
|
pexp_desc =
|
||
|
|
Pexp_ident
|
||
|
|
{ txt = Lident "y";
|
||
|
|
loc = _ };
|
||
|
|
pexp_loc = _;
|
||
|
|
pexp_loc_stack = _;
|
||
|
|
pexp_attributes = _ })::[]);
|
||
|
|
pexp_loc = _; pexp_loc_stack = _; pexp_attributes = _
|
||
|
|
})::(Nolabel,
|
||
|
|
{
|
||
|
|
pexp_desc = Pexp_ident
|
||
|
|
{ txt = Lident "z"; loc = _ };
|
||
|
|
pexp_loc = _; pexp_loc_stack = _;
|
||
|
|
pexp_attributes = _ })::[]);
|
||
|
|
pexp_loc = _; pexp_loc_stack = _; pexp_attributes = _ });
|
||
|
|
pexp_loc = _; pexp_loc_stack = _; pexp_attributes = _ });
|
||
|
|
pexp_loc = _; pexp_loc_stack = _; pexp_attributes = _ }
|
||
|
|
: Ppxlib_ast.Ast.expression) -> ()
|
||
|
|
| ({
|
||
|
|
pexp_desc = Pexp_function
|
||
|
|
({ pparam_loc = _;
|
||
|
|
pparam_desc = Pparam_val
|
||
|
|
(Nolabel, None,
|
||
|
|
{ ppat_desc = Ppat_var { txt = "x"; loc = _ }; ppat_loc = _;
|
||
|
|
ppat_loc_stack = _; ppat_attributes = _ })
|
||
|
|
}::{ pparam_loc = _;
|
||
|
|
pparam_desc = Pparam_val
|
||
|
|
(Nolabel, None,
|
||
|
|
{ ppat_desc = Ppat_var { txt = "y"; loc = _ };
|
||
|
|
ppat_loc = _; ppat_loc_stack = _; ppat_attributes = _ })
|
||
|
|
}::{ pparam_loc = _;
|
||
|
|
pparam_desc = Pparam_val
|
||
|
|
(Nolabel, None,
|
||
|
|
{ ppat_desc = Ppat_var { txt = "z"; loc = _ };
|
||
|
|
ppat_loc = _; ppat_loc_stack = _;
|
||
|
|
ppat_attributes = _ })
|
||
|
|
}::[],
|
||
|
|
None, Pfunction_body
|
||
|
|
{
|
||
|
|
pexp_desc = Pexp_apply
|
||
|
|
({ pexp_desc = Pexp_ident { txt = Lident "+"; loc = _ };
|
||
|
|
pexp_loc = _; pexp_loc_stack = _; pexp_attributes = _ },
|
||
|
|
(Nolabel,
|
||
|
|
{
|
||
|
|
pexp_desc = Pexp_apply
|
||
|
|
({ pexp_desc = Pexp_ident { txt = Lident "+"; loc = _ };
|
||
|
|
pexp_loc = _; pexp_loc_stack = _; pexp_attributes = _
|
||
|
|
},
|
||
|
|
(Nolabel,
|
||
|
|
{ pexp_desc = Pexp_ident { txt = Lident "x"; loc = _ };
|
||
|
|
pexp_loc = _; pexp_loc_stack = _; pexp_attributes = _
|
||
|
|
})::(Nolabel,
|
||
|
|
{
|
||
|
|
pexp_desc = Pexp_ident
|
||
|
|
{ txt = Lident "y"; loc = _ };
|
||
|
|
pexp_loc = _; pexp_loc_stack = _;
|
||
|
|
pexp_attributes = _ })::[]);
|
||
|
|
pexp_loc = _; pexp_loc_stack = _; pexp_attributes = _ })::
|
||
|
|
(Nolabel,
|
||
|
|
{ pexp_desc = Pexp_ident { txt = Lident "z"; loc = _ };
|
||
|
|
pexp_loc = _; pexp_loc_stack = _; pexp_attributes = _ })::[]);
|
||
|
|
pexp_loc = _; pexp_loc_stack = _; pexp_attributes = _ });
|
||
|
|
pexp_loc = _; pexp_loc_stack = _; pexp_attributes = _ }
|
||
|
|
: Ppxlib_ast.Ast.expression) -> ()
|
||
|
|
| _ -> ()
|