mirror of
https://github.com/c64scene-ar/llvm-6502.git
synced 2025-08-05 13:26:55 +00:00
fix for parse, and a start at db import. Using CVS as scp :)
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@21591 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
26
utils/importNLT.pl
Normal file
26
utils/importNLT.pl
Normal file
@@ -0,0 +1,26 @@
|
||||
#!/usr/bin/perl
|
||||
#take the output of parseNLT.pl and load it into a database
|
||||
|
||||
use DBI;
|
||||
|
||||
# database information
|
||||
$db="llvmalpha";
|
||||
$host="narya.lenharth.org";
|
||||
$userid="llvmdbuser";
|
||||
$passwd=""; #removed for obvious reasons
|
||||
$connectionInfo="dbi:mysql:$db;$host";
|
||||
|
||||
# make connection to database
|
||||
$dbh = DBI->connect($connectionInfo,$userid,$passwd) or die DBI->errstr;
|
||||
|
||||
while($d = <>)
|
||||
{
|
||||
if (18 == split / /, $d)
|
||||
{
|
||||
($day, $mon, $year, $prog, $gccas, $bc, $llc-compile, $llc-beta-compile, $jit-compile,
|
||||
$mc, $gcc, $cbe, $llc, $llc-beta, $jit, $foo1, $foo2, $foo3) = split / /, $d;
|
||||
print ".";
|
||||
}
|
||||
}
|
||||
# disconnect from database
|
||||
$dbh->disconnect
|
Reference in New Issue
Block a user