smatch_data/db/fill_db_caller_info.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use DBI;
   5 use Scalar::Util qw(looks_like_number);
   6
   7 sub usage()
   8 {
   9     print "usage:  $0 <warns.txt>\n";
  10     exit(1);
  11 }
  12
  13 my %too_common_funcs;
  14 sub get_too_common_functions($)
  15 {
  16     my $warns = shift;
  17
  18     open(FUNCS, "cat $warns | grep 'SQL_caller_info: ' | grep '%call_marker%' | cut -d \"'\" -f 6 | sort | uniq -c | ");
  19
  20     while (<FUNCS>) {
  21         if ($_ =~ /(\d+) (.*)/) {
  22             if (int($1) > 200) {
  23                 $too_common_funcs{$2} = 1;
  24             }
  25         }
  26     }
  27
  28     close(FUNCS);
  29 }
  30
  31 my $warns = shift;
  32
  33 if (!defined($warns)) {
  34     usage();
  35 }
  36
  37 get_too_common_functions($warns);
  38
  39 my $db = DBI->connect("dbi:SQLite:smatch_db.sqlite", "", "", {AutoCommit => 0});
  40 $db->do("PRAGMA synchronous = OFF");
  41 $db->do("PRAGMA cache_size = 800000");
  42 $db->do("PRAGMA journal_mode = OFF");
  43 $db->do("PRAGMA count_changes = OFF");
  44 $db->do("PRAGMA temp_store = MEMORY");
  45 $db->do("PRAGMA locking = EXCLUSIVE");
  46
  47 my $call_id = 0;
  48 my ($fn, $dummy, $sql);
  49
  50 open(WARNS, "<$warns");
  51 while (<WARNS>) {
  52     # test.c:11 frob() SQL_caller_info: insert into caller_info values ('test.c', 'frob', '__smatch_buf_size', %CALL_ID%, 1, 0, -1, '', ');
  53
  54     if (!($_ =~ /^.*? \w+\(\) SQL_caller_info: /)) {
  55         next;
  56     }
  57     ($dummy, $dummy, $dummy, $dummy, $dummy, $fn, $dummy) = split(/'/);
  58
  59     if ($fn =~ /__builtin_/) {
  60         next;
  61     }
  62     if ($fn =~ /(printk|memset|memcpy|kfree|printf|dev_err|writel)/) {
  63         next;
  64     }
  65
  66     if (defined($too_common_funcs{$fn})) {
  67         next;
  68     }
  69
  70     ($dummy, $dummy, $sql) = split(/:/, $_, 3);
  71
  72     $sql =~ s/%CALL_ID%/$call_id/;
  73     if ($sql =~ /%call_marker%/) {
  74         $sql =~ s/%call_marker%//; # don't need this taking space in the db.
  75         $call_id++;
  76     }
  77
  78     $db->do($sql);
  79 }
  80 $db->commit();
  81 $db->disconnect();