special case Patterns that are a single fixed string. This is a microscopic
[oota-llvm.git] / utils / importNLT.pl
1 #!/usr/bin/perl
2 #take the output of parseNLT.pl and load it into a database
3 # use like: cat file |perl parseNLT.pl |perl importNLT.pl password
4
5 use DBI;
6
7 # database information
8 $db="llvmalpha";
9 $host="localhost";
10 $userid="llvmdbuser";
11 $passwd=shift @ARGV;
12 $connectionInfo="dbi:mysql:$db;$host";
13
14 # make connection to database
15 $dbh = DBI->connect($connectionInfo,$userid,$passwd) or die DBI->errstr;
16 my $sth = $dbh->prepare( q{
17       INSERT INTO Tests (NAME, RUN, TEST, VALUE) VALUES (?, STR_TO_DATE(?, '\%d \%M \%Y'), ?, ?)
18   }) || die "Can't prepare statement: $DBI::errstr";;
19
20 while($d = <>)
21 {
22   chomp $d;
23   if (18 == scalar split " ", $d)
24     {
25       ($day, $mon, $year, $prog, $gccas, $bc, $llccompile, $llcbetacompile, $jitcompile,
26        $mc, $gcc, $cbe, $llc, $llcbeta, $jit, $foo1, $foo2, $foo3) = split " ", $d;
27       if ($gccas =~ /\d+/)
28         {
29           $dbh->do("INSERT INTO Tests (NAME, RUN, TEST, VALUE) VALUES
30                 ('$prog', STR_TO_DATE('$day $mon $year', '\%d \%M \%Y'), 'gccas', $gccas)") || die DBI->errstr;
31         }
32       if ($bc =~ /\d/)
33         {
34           $dbh->do("INSERT INTO Tests (NAME, RUN, TEST, VALUE) VALUES
35                 ('$prog', STR_TO_DATE('$day $mon $year', '\%d \%M \%Y'), 'bytecode', $bc)") || die DBI->errstr;
36         }
37       if ($llccompile =~ /\d/)
38         {
39           $dbh->do("INSERT INTO Tests (NAME, RUN, TEST, VALUE) VALUES
40                 ('$prog', STR_TO_DATE('$day $mon $year', '\%d \%M \%Y'), 'llc-compile', $llccompile)") || die DBI->errstr;
41         }
42       if ($llcbetacompile =~ /\d/)
43         {
44           $dbh->do("INSERT INTO Tests (NAME, RUN, TEST, VALUE) VALUES
45                 ('$prog', STR_TO_DATE('$day $mon $year', '\%d \%M \%Y'), 'llc-beta-compile', $llcbetacompile)") || die DBI->errstr;
46         }
47       if ($jitcompile =~ /\d/)
48         {
49           $dbh->do("INSERT INTO Tests (NAME, RUN, TEST, VALUE) VALUES
50                 ('$prog', STR_TO_DATE('$day $mon $year', '\%d \%M \%Y'), 'jit-compile', $jitcompile)") || die DBI->errstr;
51         }
52       if ($mc =~ /\d/)
53         {
54           $dbh->do("INSERT INTO Tests (NAME, RUN, TEST, VALUE) VALUES
55                 ('$prog', STR_TO_DATE('$day $mon $year', '\%d \%M \%Y'), 'machine-code', $mc)") || die DBI->errstr;
56         }
57       if ($gcc =~ /\d/)
58         {
59           $dbh->do("INSERT INTO Tests (NAME, RUN, TEST, VALUE) VALUES
60                 ('$prog', STR_TO_DATE('$day $mon $year', '\%d \%M \%Y'), 'gcc', $gcc)") || die DBI->errstr;
61         }
62       if ($llc =~ /\d/)
63         {
64           $dbh->do("INSERT INTO Tests (NAME, RUN, TEST, VALUE) VALUES
65                 ('$prog', STR_TO_DATE('$day $mon $year', '\%d \%M \%Y'), 'llc', $llc)") || die DBI->errstr;
66         }
67       if ($llcbeta =~ /\d/)
68         {
69           $dbh->do("INSERT INTO Tests (NAME, RUN, TEST, VALUE) VALUES
70                 ('$prog', STR_TO_DATE('$day $mon $year', '\%d \%M \%Y'), 'llc-beta', $llcbeta)") || die DBI->errstr;
71         }
72       if ($jit =~ /\d/)
73         {
74           $dbh->do("INSERT INTO Tests (NAME, RUN, TEST, VALUE) VALUES
75                 ('$prog', STR_TO_DATE('$day $mon $year', '\%d \%M \%Y'), 'jit', $jit)") || die DBI->errstr;
76         }
77       print ".";
78     }
79   else
80     {
81       print "\nNO: $d\n";
82     }
83 }
84 print "\n";
85 # disconnect from database
86 $dbh->disconnect;