smatch_scripts/db/fill_db_type_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", "", "", {AutoCommit => 0});
  14 $db->do("PRAGMA synchronous = OFF");
  15 $db->do("PRAGMA cache_size = 800000");
  16 $db->do("PRAGMA journal_mode = OFF");
  17
  18 $db->do("delete from type_size;");
  19
  20 my ($file_and_line, $file, $dummy, $struct_bit, $member, $size);
  21
  22 open(WARNS, "<$warns");
  23 while (<WARNS>) {
  24     if (!($_ =~ / allocated_buf_size /)) {
  25         next;
  26     }
  27
  28     # lib/prio_heap.c:12 heap_init() info: '(struct ptr_heap)->ptrs' allocated_buf_size 4096
  29
  30     s/\n//;
  31     s/'//g;
  32
  33     if ($_ =~ /\(struct /) {
  34         ($file_and_line, $dummy, $dummy, $struct_bit, $member, $dummy, $size) = split(/ /, $_);
  35         $member = "(struct $member";
  36     } else {
  37         ($file_and_line, $dummy, $dummy, $member, $dummy, $size) = split(/ /, $_);
  38     }
  39     ($file, $dummy) = split(/:/, $file_and_line);
  40
  41     if (!defined($size)) {
  42         next;
  43     }
  44
  45     $db->do("insert into type_size values ('$file', '$member', '$size')\n");
  46 }
  47
  48 $db->commit();
  49 $db->disconnect();