143 lines
3.9 KiB
Perl
143 lines
3.9 KiB
Perl
# $OpenBSD: Info.pm,v 1.3 2012/06/18 12:18:45 espie Exp $
|
|
#
|
|
# Copyright (c) 2012 Marc Espie <espie@openbsd.org>
|
|
#
|
|
# Permission to use, copy, modify, and distribute this software for any
|
|
# purpose with or without fee is hereby granted, provided that the above
|
|
# copyright notice and this permission notice appear in all copies.
|
|
#
|
|
# THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
|
|
# WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
|
|
# MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
|
|
# ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|
|
# WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
|
|
# ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
|
|
# OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
|
|
|
# example script that shows how to store all variable values into a
|
|
# database, using SQLite for that purpose.
|
|
#
|
|
# usage: cd /usr/ports && make dump-vars |mksqlitedb
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Var;
|
|
|
|
package Info;
|
|
our $vars = {
|
|
AUTOCONF_VERSION => 'AutoVersionVar',
|
|
AUTOMAKE_VERSION => 'AutoVersionVar',
|
|
BROKEN => 'BrokenVar',
|
|
BUILD_DEPENDS => 'BuildDependsVar',
|
|
CATEGORIES => 'CategoriesVar',
|
|
COMES_WITH => 'DefinedVar',
|
|
COMMENT => 'AnyVar',
|
|
CONFIGURE_ARGS => 'ConfigureArgsVar',
|
|
CONFIGURE_STYLE => 'ConfigureVar',
|
|
DESCR => 'FileVar',
|
|
DISTFILES => 'AnyVar',
|
|
PATCHFILES => 'AnyVar',
|
|
DISTNAME => 'AnyVar',
|
|
DIST_SUBDIR => 'DefinedVar',
|
|
EPOCH => 'AnyVar',
|
|
FETCH_MANUALLY => 'IgnoredVar',
|
|
FLAVOR => 'IgnoredVar',
|
|
FLAVORS => 'FlavorsVar',
|
|
FULLPKGNAME => 'AnyVar',
|
|
HOMEPAGE => 'AnyVar',
|
|
IGNORE => 'DefinedVar',
|
|
IS_INTERACTIVE => 'AnyVar',
|
|
LIB_DEPENDS => 'LibDependsVar',
|
|
MAINTAINER=> 'EmailVar',
|
|
MASTER_SITES => 'MasterSitesVar',
|
|
MASTER_SITES0 => 'MasterSitesVar',
|
|
MASTER_SITES1 => 'MasterSitesVar',
|
|
MASTER_SITES2 => 'MasterSitesVar',
|
|
MASTER_SITES3 => 'MasterSitesVar',
|
|
MASTER_SITES4=> 'MasterSitesVar',
|
|
MASTER_SITES5 => 'MasterSitesVar',
|
|
MASTER_SITES6 => 'MasterSitesVar',
|
|
MASTER_SITES7 => 'MasterSitesVar',
|
|
MASTER_SITES8 => 'MasterSitesVar',
|
|
MASTER_SITES9=> 'MasterSitesVar',
|
|
MISSING_FILES => 'IgnoredVar',
|
|
MODULES => 'ModulesVar',
|
|
MULTI_PACKAGES => 'MultiVar',
|
|
NO_BUILD => 'YesNoVar',
|
|
NO_REGRESS => 'YesNoVar',
|
|
NOT_FOR_ARCHS => 'NotForArchListVar',
|
|
ONLY_FOR_ARCHS => 'OnlyForArchListVar',
|
|
PERMIT_DISTFILES_CDROM => 'YesKeyVar',
|
|
PERMIT_DISTFILES_FTP=> 'YesKeyVar',
|
|
PERMIT_PACKAGE_CDROM => 'YesKeyVar',
|
|
PERMIT_PACKAGE_FTP=> 'YesKeyVar',
|
|
PKGNAME => 'AnyVar',
|
|
PKGSPEC => 'AnyVar',
|
|
PKG_ARCH => 'ArchKeyVar',
|
|
PSEUDO_FLAVOR => 'AnyVar',
|
|
PSEUDO_FLAVORS => 'PseudoFlavorsVar',
|
|
REGRESS_DEPENDS => 'RegressDependsVar',
|
|
REGRESS_IS_INTERACTIVE => 'AnyVar',
|
|
REVISION => 'AnyVar',
|
|
RUN_DEPENDS => 'RunDependsVar',
|
|
SEPARATE_BUILD => 'YesKeyVar',
|
|
SHARED_LIBS => 'SharedLibsVar',
|
|
SHARED_ONLY => 'YesNoVar',
|
|
STATIC_PLIST => 'YesNoVar',
|
|
SUBPACKAGE => 'DefinedVar',
|
|
SUPDISTFILES => 'AnyVar',
|
|
TARGETS => 'TargetsVar',
|
|
USE_GMAKE => 'YesNoVar',
|
|
USE_GROFF => 'YesNoVar',
|
|
USE_LIBTOOL => 'YesNoGnuVar',
|
|
VMEM_WARNING => 'YesNoVar',
|
|
WANTLIB => 'WantlibVar',
|
|
};
|
|
|
|
our $unknown = {};
|
|
|
|
sub new
|
|
{
|
|
my ($class, $p) = @_;
|
|
bless {path => $p, vars => {}}, $class;
|
|
}
|
|
|
|
sub create
|
|
{
|
|
my ($self, $var, $value, $arch, $path) = @_;
|
|
my $k = $var;
|
|
if (defined $arch) {
|
|
$k .= "-$arch";
|
|
}
|
|
if (defined $vars->{$var}) {
|
|
$self->{vars}{$k} = $vars->{$var}->new($var, $value, $arch,
|
|
$path);
|
|
} else {
|
|
$unknown->{$k} //= $path;
|
|
}
|
|
}
|
|
|
|
sub variables
|
|
{
|
|
my $self = shift;
|
|
return values %{$self->{vars}};
|
|
}
|
|
|
|
sub value
|
|
{
|
|
my ($self, $name) = @_;
|
|
return $self->{vars}{$name}->value;
|
|
}
|
|
|
|
sub reclaim
|
|
{
|
|
my $self = shift;
|
|
my $n = {};
|
|
for my $k (qw(SUBPACKAGE FLAVOR)) {
|
|
$n->{$k} = $self->{vars}{$k};
|
|
}
|
|
$self->{vars} = $n;
|
|
}
|
|
|
|
1;
|