cpet/openbsd-ports
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

do not commit empty libspecs.

Browse Source 
keep rowid around, since the key does not change for every iteration.
This commit is contained in:
espie 2006-07-09 20:56:48 +00:00
parent 3880cdb906
commit 3b1cddbff9
1 changed files with 18 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
infrastructure/package/mksqlitedb
View File

@ -1,5 +1,5 @@
#! /usr/bin/perl
# $OpenBSD: mksqlitedb,v 1.3 2006/07/09 17:39:34 ckuethe Exp $
# $OpenBSD: mksqlitedb,v 1.4 2006/07/09 20:56:48 espie Exp $
#
# Copyright (c) 2006 Marc Espie <espie@openbsd.org>
#
@ -72,10 +72,12 @@ sub add
my ($libs, $pkgspec, $pkgpath2, $rest) = split(/\:/, $depends);
my $stmt = $db->prepare("INSERT INTO Depends (PKGPATH, FULLDEPENDS, DEPENDSPATH, TYPE) VALUES (?, ?, ?, ?)");
$stmt->execute($pkgpath, $depends, $pkgpath2, $class->type());
for my $lib (split(/,/, $libs)) {
if ($libs ne '') {
for my $lib (split(/\,/, $libs)) {
$class->addlib($pkgpath, $db, $lib);
}
}
}
}
sub addlib
@ -266,6 +268,8 @@ my $stmt = $db->prepare("SELECT RowID FROM Ports WHERE PKGPATH=(?)");
my $stmt2= $db->prepare("INSERT INTO Ports (PKGPATH) VALUES (?)");
my $i = 0;
my $rowid;
my $lastkey;
while (<STDIN>) {
chomp;
# kill noise
@ -281,6 +285,7 @@ while (<STDIN>) {
$value = $1;
}
if (!(defined $lastkey) || $key ne $lastkey) {
# get rowid for existing value
$stmt->execute($key);
my $z = $stmt->fetchall_arrayref;
@ -290,7 +295,9 @@ while (<STDIN>) {
$stmt->execute($key);
$z = $stmt->fetchall_arrayref;
}
my $rowid = $z->[0]->[0];
$rowid = $z->[0]->[0];
$lastkey = $key;
}
$vars->{$var}->add($key, $db, $var, $value, $rowid);
# and we commit just once every 1000 transactions, for efficiency