* lang_python/analyze/python_to_generic.ml: expr_to_attribute to

transform some calls in NamedAttr

will help again

test plan:
$ ~/pfff/pfff_test -dump_generic less_attributes.py
Pr(
  [DefStmt(
     ({name=("foo", ());
       attrs=[NamedAttr(("alpha", ()), []); NamedAttr(("beta", ()), []);
              NamedAttr(("charlie", ()), [Arg(L(String(("xyz", ()))))])];
       tparams=[]; info={id_resolved=Ref(None); id_type=Ref(None); }; },
      FuncDef(
        {fparams=[]; frettype=None;
         fbody=ExprStmt(
...

h_program-lang/ast_generic.ml

@@ -546,7 +546,7 @@ and type_ =
 and attribute = 
   | KeywordAttr of keyword_attribute wrap
   (* for general @annotations *)
-  | NamedAttr of ident * any list
+  | NamedAttr of ident * argument list
 
   | OtherAttribute of other_attribute_operator * any list
 
@@ -909,6 +909,7 @@ let expr_to_pattern e =
   OtherPat (OP_ExprPattern, [E e])
 
 (* see also Java_to_generic.entity_to_param *)
+(* see also python_to_generic.expr_to_attribute *)
 
 (* should avoid; should prefer to use 'expr option' in the AST *)
 let opt_to_nop opt =

lang_GENERIC/parsing/map_ast.ml

@@ -293,7 +293,7 @@ and map_attribute = function
       KeywordAttr v1
   | NamedAttr ((v1, v2)) ->
       let v1 = map_ident v1
-      and v2 = map_of_list map_any v2
+      and v2 = map_of_list map_argument v2
       in NamedAttr ((v1, v2))
   | OtherAttribute ((v1, v2)) ->
       let v1 = map_other_attribute_operator v1

lang_GENERIC/parsing/meta_ast.ml

@@ -381,7 +381,7 @@ and vof_attribute = function
     Ocaml.VSum (("KeywordAttr", [v1]))
   | NamedAttr ((v1, v2)) ->
       let v1 = vof_ident v1
-      and v2 = Ocaml.vof_list vof_any v2
+      and v2 = Ocaml.vof_list vof_argument v2
       in Ocaml.VSum (("NamedAttr", [ v1; v2 ]))
   | OtherAttribute ((v1, v2)) ->
       let v1 = vof_other_attribute_operator v1

lang_GENERIC/parsing/visitor_ast.ml

@@ -272,7 +272,7 @@ and v_attribute x =
   let k x = 
   match x with
   | KeywordAttr v1 -> let v1 = v_wrap v_keyword_attribute v1 in ()
-  | NamedAttr ((v1, v2)) -> let v1 = v_ident v1 and v2 = v_list v_any v2 in ()
+  | NamedAttr ((v1, v2)) -> let v1 = v_ident v1 and v2 = v_list v_argument v2 in ()
   | OtherAttribute ((v1, v2)) ->
       let v1 = v_other_attribute_operator v1 and v2 = v_list v_any v2 in ()
   in

lang_python/analyze/python_to_generic.ml

@@ -532,9 +532,15 @@ and excepthandler =
         pat, v3
       )
 
+and expr_to_attribute v  = 
+  match v with
+  | G.Call (G.Name ((id, _), _), args) -> 
+      G.NamedAttr (id, args)
+  | _ -> G.OtherAttribute (G.OA_Expr, [G.E v])
+
 and decorator v = 
   let v = expr v in
-  G.OtherAttribute (G.OA_Expr, [G.E v])
+  expr_to_attribute v
 
 and alias (v1, v2) = 
   let v1 = name v1 and v2 = option name v2 in