smatch_scripts/db/fill_db_buf_size.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use DBI;
   5
   6 my $warns = shift;
   7
   8 if (!defined($warns)) {
   9     print "usage:  $0 <warns.txt>\n";
  10     exit(1);
  11 }
  12
  13 my $db = DBI->connect("dbi:SQLite:smatch_db.sqlite", "", "", {RaiseError => 1, AutoCommit => 0});
  14
  15 $db->do("delete from buf_size;");
  16
  17 open(WARNS, "<$warns");
  18 while (<WARNS>) {
  19     if (!($_ =~ /passes_buffer/)) {
  20         next;
  21     }
  22     if ($_ =~ /(printk|memset|memcpy|kfree|printf|dev_err)/) {
  23         next;
  24     }
  25
  26     s/\n//;
  27
  28     my ($file, $dummy, $func, $param, $size);
  29     ($file, $dummy, $dummy, $dummy, $dummy, $func, $param, $size) = split(/ /, $_);
  30
  31     if (!defined($size) || !($param =~ /^\d+$/)) {
  32         next;
  33     }
  34
  35     $db->do("insert into buf_size values ('$file', $func, $param, $size)");
  36 }
  37 $db->commit();
  38 $db->disconnect();