pkg_add/OpenBSD/Ustar.pm

2 # $OpenBSD: Ustar.pm,v 1.96 2023/06/13 09:07:17 espie Exp $
22 package OpenBSD::Ustar;
48 use OpenBSD::IdCache;
49 use OpenBSD::Paths;
51 our $uidcache = OpenBSD::UidCache->new;
52 our $gidcache = OpenBSD::GidCache->new;
53 our $unamecache = OpenBSD::UnameCache->new;
54 our $gnamecache = OpenBSD::GnameCache->new;
120 	DIR , 'OpenBSD::Ustar::Dir',
121 	HARDLINK , 'OpenBSD::Ustar::HardLink',
122 	SOFTLINK , 'OpenBSD::Ustar::SoftLink',
123 	FILE , 'OpenBSD::Ustar::File',
124 	FILE1 , 'OpenBSD::Ustar::File',
125 	FIFO , 'OpenBSD::Ustar::Fifo',
126 	CHARDEVICE , 'OpenBSD::Ustar::CharDevice',
127 	BLOCKDEVICE , 'OpenBSD::Ustar::BlockDevice',
420 	my $class = "OpenBSD::Ustar::File"; # default
423 		$class = "OpenBSD::Ustar::HardLink";
426 		$class = "OpenBSD::Ustar::SoftLink";
428 		$class = "OpenBSD::Ustar::Fifo";
430 		$class = "OpenBSD::Ustar::CharDevice";
432 		$class ="OpenBSD::Ustar::BlockDevice";
434 		$class = "OpenBSD::Ustar::Dir";
473 package OpenBSD::Ustar::Object;
477 	# XXX weird format to prevent cvs from expanding OpenBSD id
478 	$entry->{uid} //= $OpenBSD::Ustar::uidcache
480 	$entry->{gid} //= $OpenBSD::Ustar::gidcache
603 package OpenBSD::Ustar::Dir;
604 our @ISA=qw(OpenBSD::Ustar::Object);
614 sub type($) { OpenBSD::Ustar::DIR }
616 package OpenBSD::Ustar::HardLink;
617 our @ISA=qw(OpenBSD::Ustar::Object);
645 sub type($) { OpenBSD::Ustar::HARDLINK }
647 package OpenBSD::Ustar::SoftLink;
648 our @ISA=qw(OpenBSD::Ustar::Object);
663 sub type($) { OpenBSD::Ustar::SOFTLINK }
665 package OpenBSD::Ustar::Fifo;
666 our @ISA=qw(OpenBSD::Ustar::Object);
678 sub type($) { OpenBSD::Ustar::FIFO }
680 package OpenBSD::UStar::Device;
681 our @ISA=qw(OpenBSD::Ustar::Object);
686 	$self->{archive}{state}->system(OpenBSD::Paths->mknod,
694 package OpenBSD::Ustar::BlockDevice;
695 our @ISA=qw(OpenBSD::Ustar::Device);
697 sub type($) { OpenBSD::Ustar::BLOCKDEVICE }
700 package OpenBSD::Ustar::CharDevice;
701 our @ISA=qw(OpenBSD::Ustar::Device);
703 sub type($) { OpenBSD::Ustar::BLOCKDEVICE }
709 package OpenBSD::CompactWriter;
774 package OpenBSD::Ustar::File;
775 our @ISA=qw(OpenBSD::Ustar::Object);
788 	my $out = OpenBSD::CompactWriter->new($fh);
916 sub type($) { OpenBSD::Ustar::FILE1 }