smatch_scripts/db/fill_db_sql.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 my ($dummy, $sql);
  19
  20 open(WARNS, "<$warns");
  21 while (<WARNS>) {
  22
  23     if (!($_ =~ /^.*? \w+\(\) SQL: /)) {
  24         next;
  25     }
  26     ($dummy, $dummy, $sql) = split(/:/);
  27
  28     $db->do($sql);
  29 }
  30
  31 $db->commit();
  32 $db->disconnect();