SecBSD's official ports repository

databases/sqlports/files/PkgPath.pm

@@ -0,0 +1,86 @@
+# ex:ts=8 sw=4:
+# $OpenBSD: PkgPath.pm,v 1.7 2023/06/15 12:53:07 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.
+
+use v5.36;
+
+my $ports1;
+
+BEGIN {
+	$ports1 = $ENV{PORTSDIR} || '/usr/ports';
+}
+use lib ("$ports1/infrastructure/lib");
+
+use DPB::BasePkgPath;
+
+package PkgPath;
+our @ISA = qw(DPB::BasePkgPath);
+use Info;
+
+sub init($)
+{
+}
+
+sub clone_properties($n, $o)
+{
+	$n->{info} //= $o->{info};
+}
+
+sub subpackage($self)
+{
+	return $self->{info}->value('SUBPACKAGE');
+}
+
+sub flavor($self)
+{
+	my $value = $self->{info}->value('FLAVOR');
+	$value =~ s/^\s+//;
+	$value =~ s/\s+$//;
+	my @l = split(/\s+/, $value);
+	my %values = map {($_,1)}  @l;
+	
+	return \%values;
+}
+
+# $class->equates($hash)
+sub equates($, $)
+{
+}
+
+sub simplifies_to($self, $simpler, $walker)
+{
+	$walker->{equivs}{$self->fullpkgpath} = $simpler->fullpkgpath;
+}
+
+sub change_multi($path, $multi)
+{
+	# make a tmp copy, non registered
+	my $tmp = ref($path)->create($path->fullpkgpath);
+	if ($multi eq '-main') {
+		$tmp->{m} = undef;
+	} else {
+		$tmp->{m} = $multi;
+	}
+	return $tmp->normalize;
+}
+
+sub break($path, $message)
+{
+	$path->{parent} //= '?';
+	say STDERR $path->fullpkgpath, "(", $path->{parent}, "):", $message;
+}
+
+1;