The SmPL AST0 visitor has a function for attributes. Reflect these changes in spgen.
Signed-off-by: Jaskaran Singh <[email protected]> --- tools/spgen/source/detect_patch.ml | 3 ++- tools/spgen/source/meta_variable.ml | 3 ++- tools/spgen/source/rule_body.ml | 3 ++- 3 files changed, 6 insertions(+), 3 deletions(-) diff --git a/tools/spgen/source/detect_patch.ml b/tools/spgen/source/detect_patch.ml index 0489afec..7b148a23 100644 --- a/tools/spgen/source/detect_patch.ml +++ b/tools/spgen/source/detect_patch.ml @@ -111,6 +111,7 @@ let patch_combiner = let paramfn = donothing in let forinfofn = donothing in let string_fragmentfn = donothing in + let attributefn = donothing in let topfn = donothing in let dotsstmtfn = donothing in @@ -163,7 +164,7 @@ let patch_combiner = dotsexprfn dotsinitfn dotsparamfn dotsstmtfn dotsdeclfn dotsfieldfn dotsenumdeclfn dotscasefn dotsdefparfn identfn exprfn assignOpfn binaryOpfn tyfn initfn paramfn declfn fieldfn - enumdeclfn stmtfn forinfofn casefn string_fragmentfn topfn + enumdeclfn stmtfn forinfofn casefn string_fragmentfn attributefn topfn (* ------------------------------------------------------------------------- *) diff --git a/tools/spgen/source/meta_variable.ml b/tools/spgen/source/meta_variable.ml index 31456614..40dcae9c 100644 --- a/tools/spgen/source/meta_variable.ml +++ b/tools/spgen/source/meta_variable.ml @@ -396,6 +396,7 @@ let metavar_combiner rn = let casefn = donothing in let topfn = donothing in let enumdeclfn = donothing in + let attributefn = donothing in (* --- These are shortened formatting functions that return MVSets --- *) @@ -577,7 +578,7 @@ let metavar_combiner rn = dotsexprfn dotsinitfn dotsparamfn dotsstmtfn dotsdeclfn dotsfieldfn dotsenumdeclfn dotscasefn dotsdefparfn identfn exprfn assignOpfn binaryOpfn tyfn initfn paramfn declfn fieldfn - enumdeclfn stmtfn forinfofn casefn string_fragmentfn topfn + enumdeclfn stmtfn forinfofn casefn string_fragmentfn attributefn topfn (* ------------------------------------------------------------------------- *) diff --git a/tools/spgen/source/rule_body.ml b/tools/spgen/source/rule_body.ml index 163dff9a..d8aa957e 100644 --- a/tools/spgen/source/rule_body.ml +++ b/tools/spgen/source/rule_body.ml @@ -231,6 +231,7 @@ let rec gen_combiner ~context_mode = let forinfofn = donothing in let casefn = donothing in let string_fragmentfn = donothing in + let attributefn = donothing in (* Universal special cases, regardless of no_gen mode: * Disjunctions with SmPL style pattern-matching may need to be split into @@ -353,7 +354,7 @@ let rec gen_combiner ~context_mode = dotsexprfn dotsinitfn dotsparamfn dotsstmtfn dotsdeclfn dotsfieldfn dotsenumdeclfn dotscasefn dotsdefparfn identfn exprfn assignOpfn binaryOpfn tyfn initfn paramfn declfn fieldfn - enumdeclfn stmtfn forinfofn casefn string_fragmentfn topfn + enumdeclfn stmtfn forinfofn casefn string_fragmentfn attributefn topfn (* ------------------------------------------------------------------------- *) -- 2.21.3 _______________________________________________ Cocci mailing list [email protected] https://systeme.lip6.fr/mailman/listinfo/cocci
