11972 resync smatch

          --- old/usr/src/tools/smatch/src/smatch_data/db/fill_db_sql.pl
          +++ new/usr/src/tools/smatch/src/smatch_data/db/fill_db_sql.pl
   1    1  #!/usr/bin/perl -w
   2    2  
   3    3  use strict;
   4    4  use DBI;
   5    5  
   6    6  my $project = shift;
   7    7  my $warns = shift;
   8    8  my $db_file = shift;
   9    9  
  10      -if (!defined($warns)) {
       10 +if (!defined($db_file)) {
  11   11      print "usage:  $0 <-p=project> <smatch_warns.txt> <db_file>\n";
  12   12      exit(1);
  13   13  }
  14   14  
  15   15  my $db = DBI->connect("dbi:SQLite:$db_file", "", "", {AutoCommit => 0});
  16   16  $db->do("PRAGMA cache_size = 800000");
  17   17  $db->do("PRAGMA journal_mode = OFF");
  18   18  $db->do("PRAGMA count_changes = OFF");
  19   19  $db->do("PRAGMA temp_store = MEMORY");
  20   20  $db->do("PRAGMA locking = EXCLUSIVE");

  21   21  
  22   22  my ($dummy, $sql);
  23   23  
  24   24  open(WARNS, "<$warns");
  25   25  while (<WARNS>) {
  26   26  
  27   27      if (!($_ =~ /^.*? [^ ]*\(\) SQL: /)) {
  28   28          next;
  29   29      }
  30   30      ($dummy, $dummy, $sql) = split(/:/, $_, 3);
  31   31  
  32   32      $db->do($sql);
  33   33  }
  34   34  close(WARNS);
  35   35  
  36   36  open(WARNS, "<$warns");
  37   37  while (<WARNS>) {
  38   38  
  39   39      if (!($_ =~ /^.*? [^ ]*\(\) SQL_late: /)) {
  40   40          next;
  41   41      }
  42   42      ($dummy, $dummy, $sql) = split(/:/, $_, 3);
  43   43  
  44   44      $db->do($sql);
  45   45  }
  46   46  close(WARNS);
  47   47  
  48   48  $db->commit();
  49   49  $db->disconnect();

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX