* Yoann Padioleau, Julia Lawall, Rene Rydhof Hansen, Henrik Stuart, Gilles Muller
* This file is part of Coccinelle.
*
* Yoann Padioleau, Julia Lawall, Rene Rydhof Hansen, Henrik Stuart, Gilles Muller
* This file is part of Coccinelle.
*
- | (x, _, Ast.CONTEXT(_,plus_streams), pos) ->
+ | (x, _, Ast.CONTEXT(_,plus_streams), pos) ->
Ast.MINUS(_,plus_stream) ->
print_string "MINUS";
print_anything ">>> " plus_stream
Ast.MINUS(_,plus_stream) ->
print_string "MINUS";
print_anything ">>> " plus_stream
- Ast.BaseType(ty,sgn) -> print_option (mcode sign) sgn; mcode baseType ty
- | Ast.ImplicitInt(sgn) -> mcode sign sgn
+ Ast.BaseType(ty,strings) ->
+ List.iter (function s -> mcode print_string s; print_string " ") strings
+ | Ast.SignedT(sgn,ty) -> mcode sign sgn; print_option typeC ty
| Ast.Pointer(ty,star) -> fullType ty; mcode print_string star
| Ast.FunctionPointer(ty,lp1,star,rp1,lp2,params,rp2) ->
print_function_pointer (ty,lp1,star,rp1,lp2,params,rp2)
| Ast.Pointer(ty,star) -> fullType ty; mcode print_string star
| Ast.FunctionPointer(ty,lp1,star,rp1,lp2,params,rp2) ->
print_function_pointer (ty,lp1,star,rp1,lp2,params,rp2)
| Ast.Array(ty,lb,size,rb) ->
fullType ty; mcode print_string lb; print_option expression size;
mcode print_string rb
| Ast.Array(ty,lb,size,rb) ->
fullType ty; mcode print_string lb; print_option expression size;
mcode print_string rb
| Ast.StructUnionName(kind,name) ->
mcode structUnion kind;
print_option (function x -> ident x; print_string " ") name
| Ast.StructUnionName(kind,name) ->
mcode structUnion kind;
print_option (function x -> ident x; print_string " ") name
| Ast.DoubleType -> print_string "double "
| Ast.FloatType -> print_string "float "
| Ast.LongType -> print_string "long "
| Ast.DoubleType -> print_string "double "
| Ast.FloatType -> print_string "float "
| Ast.LongType -> print_string "long "
mcode print_string stg; print_string " "; fullType ty; typeC id;
mcode print_string sem
| Ast.DisjDecl(decls) -> print_disj_list declaration decls
mcode print_string stg; print_string " "; fullType ty; typeC id;
mcode print_string sem
| Ast.DisjDecl(decls) -> print_disj_list declaration decls
mcode print_string dots; print_string " when != "; declaration whencode
| Ast.Ddots(dots,None) -> mcode print_string dots
| Ast.MetaDecl(name,_,_) -> mcode print_meta name
mcode print_string dots; print_string " when != "; declaration whencode
| Ast.Ddots(dots,None) -> mcode print_string dots
| Ast.MetaDecl(name,_,_) -> mcode print_meta name
- | Ast.CocciRule (nm, (deps, drops, exists), x, _) ->
+ | Ast.CocciRule (nm, (deps, drops, exists), x, _, _) ->