Print this page
11972 resync smatch
Split |
Close |
Expand all |
Collapse all |
--- 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();
↓ open down ↓ |
29 lines elided |
↑ open up ↑ |
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX