Drop bettery.cocci as a more specific filename was preferred. Signed-off-by: Julia Lawall <Julia.Lawall@xxxxxxx> --- scripts/coccinelle/api/battery.cocci | 161 ----------------------------------- 1 file changed, 161 deletions(-) diff --git a/scripts/coccinelle/api/battery.cocci b/scripts/coccinelle/api/battery.cocci deleted file mode 100644 index 77c145a..0000000 --- a/scripts/coccinelle/api/battery.cocci +++ /dev/null @@ -1,161 +0,0 @@ -/// Detect BQ27XXX_DATA structures with identical registers, dm registers or -/// properties. -//# Doesn't unfold macros used in register or property fields. -//# Requires OCaml scripting -/// -// Confidence: High -// Copyright: (C) 2017 Julia Lawall, Inria/LIP6, GPLv2. -// URL: http://coccinelle.lip6.fr/ -// Requires: 1.0.7 -// Keywords: BQ27XXX_DATA - -virtual report - -@initialize:ocaml@ -@@ - -let print_report p msg = - let p = List.hd p in - Printf.printf "%s:%d:%d-%d: %s" p.file p.line p.col p.col_end msg - -@str depends on report@ -type t; -identifier i,i1,i2; -expression e1,e2; -@@ - -t i[] = { - ..., - [e1] = BQ27XXX_DATA(i1,...), - ..., - [e2] = BQ27XXX_DATA(i2,...), - ..., -}; - -@script:ocaml tocheck@ -i1 << str.i1; -i2 << str.i2; -i1regs; i2regs; -i1dmregs; i2dmregs; -i1props; i2props; -@@ - -if not(i1 = i2) -then - begin - i1regs := make_ident (i1 ^ "_regs"); - i2regs := make_ident (i2 ^ "_regs"); - i1dmregs := make_ident (i1 ^ "_dm_regs"); - i2dmregs := make_ident (i2 ^ "_dm_regs"); - i1props := make_ident (i1 ^ "_props"); - i2props := make_ident (i2 ^ "_props") - end - -(* ---------------------------------------------------------------- *) - -@getregs1@ -typedef u8; -identifier tocheck.i1regs; -initializer list i1regs_vals; -position p1; -@@ - -u8 i1regs@p1[...] = { i1regs_vals, }; - -@getregs2@ -identifier tocheck.i2regs; -initializer list i2regs_vals; -position p2; -@@ - -u8 i2regs@p2[...] = { i2regs_vals, }; - -@script:ocaml@ -(_,i1regs_vals) << getregs1.i1regs_vals; -(_,i2regs_vals) << getregs2.i2regs_vals; -i1regs << tocheck.i1regs; -i2regs << tocheck.i2regs; -p1 << getregs1.p1; -p2 << getregs2.p2; -@@ - -if i1regs < i2regs && - List.sort compare i1regs_vals = List.sort compare i2regs_vals -then - let msg = - Printf.sprintf - "WARNING %s and %s (line %d) have the same registers\n" - i1regs i2regs (List.hd p2).line in - print_report p1 msg - -(* ---------------------------------------------------------------- *) - -@getdmregs1@ -identifier tocheck.i1dmregs; -initializer list i1dmregs_vals; -position p1; -@@ - -struct bq27xxx_dm_reg i1dmregs@p1[] = { i1dmregs_vals, }; - -@getdmregs2@ -identifier tocheck.i2dmregs; -initializer list i2dmregs_vals; -position p2; -@@ - -struct bq27xxx_dm_reg i2dmregs@p2[] = { i2dmregs_vals, }; - -@script:ocaml@ -(_,i1dmregs_vals) << getdmregs1.i1dmregs_vals; -(_,i2dmregs_vals) << getdmregs2.i2dmregs_vals; -i1dmregs << tocheck.i1dmregs; -i2dmregs << tocheck.i2dmregs; -p1 << getdmregs1.p1; -p2 << getdmregs2.p2; -@@ - -if i1dmregs < i2dmregs && - List.sort compare i1dmregs_vals = List.sort compare i2dmregs_vals -then - let msg = - Printf.sprintf - "WARNING %s and %s (line %d) have the same dm registers\n" - i1dmregs i2dmregs (List.hd p2).line in - print_report p1 msg - -(* ---------------------------------------------------------------- *) - -@getprops1@ -identifier tocheck.i1props; -initializer list[n1] i1props_vals; -position p1; -@@ - -enum power_supply_property i1props@p1[] = { i1props_vals, }; - -@getprops2@ -identifier tocheck.i2props; -initializer list[n2] i2props_vals; -position p2; -@@ - -enum power_supply_property i2props@p2[] = { i2props_vals, }; - -@script:ocaml@ -(_,i1props_vals) << getprops1.i1props_vals; -(_,i2props_vals) << getprops2.i2props_vals; -i1props << tocheck.i1props; -i2props << tocheck.i2props; -p1 << getprops1.p1; -p2 << getprops2.p2; -@@ - -if i1props < i2props && - List.sort compare i1props_vals = List.sort compare i2props_vals -then - let msg = - Printf.sprintf - "WARNING %s and %s (line %d) have the same properties\n" - i1props i2props (List.hd p2).line in - print_report p1 msg -- To unsubscribe from this list: send the line "unsubscribe kernel-janitors" in the body of a message to majordomo@xxxxxxxxxxxxxxx More majordomo info at http://vger.kernel.org/majordomo-info.html
