Section 3: library functions
Lintian::Index::Control::Scripts – information about maintainer scripts. Synopsis use Lintian::Processable; my $processable = Lintian::Processable::Binary->new;DescriptionLintian::Index::Control::Scripts information about maintainer scripts. Instance Methodsadd_scripts AuthorOriginally written by Felix Lechner <felix.lechner [at] lease-up.com> for Lintian. See Alsolintian(1)
Lintian::Index::Control — An index of a control file set Synopsis use Lintian::Index::Control; # Instantiate via Lintian::Index::Control my $orig = Lintian::Index::Control->new;DescriptionInstances of this perl class are objects that hold file indices of control file sets. The origins of this class can be found in part in the collections scripts used previously. Instance Methodscollect unpack AuthorOriginally written…
Lintian::Index::Ar – binary symbol information. Synopsis use Lintian::Processable; my $processable = Lintian::Processable::Binary->new;DescriptionLintian::Index::Ar binary symbol information. Instance Methodsadd_ar AuthorOriginally written by Felix Lechner <felix.lechner [at] lease-up.com> for Lintian. See Alsolintian(1)
Lintian::Index – access to collected data about the upstream (orig) sources Synopsis use Lintian::Processable; my $processable = Lintian::Processable::Binary->new;DescriptionLintian::Processable::Orig::Index provides an interface to collected data about the upstream (orig) sources. Instance Methodscatalog Returns a reference to a hash with elements catalogued by path names. saved_sorted_list Returns a reference to a sorted array with path names. "basedir"…
Lintian::Group — A group of objects that Lintian can process Synopsis use Lintian::Group; my $group = Lintian::Group->new(‘lintian_2.5.0_i386.changes’);DescriptionInstances of this perl class are sets of processables. It allows at most one source and one changes or buildinfo package per set, but multiple binary packages (provided that the binary is not already in the set). Methods$group->pooldir Returns…
Lintian::File::Path – Lintian representation of a path entry in a package Synopsis my ($name, $type, $dir) = (‘lintian’, ‘source’, ‘/path/to/entry’);Instance Methodsinit_from_tar_output get_quoted_filename unescape_c_style magic(COUNT) Returns the specified COUNT of magic bytes for the file. get_interpreter Returns the interpreter for the file if it is a script. is_script Returns true if file is a script and…
Lintian::DepMap::Properties – Dependencies with properties map/tree creator Synopsis use Lintian::DepMap::Properties; my $map = Lintian::DepMap::Properties->new;DescriptionLintian::DepMap::Properties is a simple layer between Lintian::DepMap and the application allowing nodes to have application-defined properties. add(node, [dependencies], [ref to property]) Adds a node with possibly one or more dependencies and sets the "node"‘s property to the ref, if defined. The property…
Lintian::DepMap – Dependencies map/tree creator Synopsis use Lintian::DepMap; my $map = Lintian::DepMap->new; # know about A: $map->add(‘A’); # B depends on A: $map->add(‘B’, ‘A’); # prints ‘A’: print $map->selectable; # indicate we are working on ‘A’ (optional): $map->select(‘A’); # do ‘A’ … work work work # we are done with A: $map->satisfy(‘A’); # prints ‘B’:…
Lintian::Deb822Parser – Lintian’s generic Deb822 parser functions Synopsis use Lintian::Deb822Parser qw(read_dpkg_control_utf8); my (@paragraphs); eval { @paragraphs = read_dpkg_control_utf8(‘some/debian/ctrl/file’); }; if ($@) { # syntax error etc. die "ctrl/file: $@"; } foreach my $para (@paragraphs) { my $value = $para->{‘some-field’}; if (defined $value) { # … } }DescriptionThis module contains a number of utility subs that…
Lintian::Data – Lintian interface to query lists of keywords Synopsis my $keyword; my $list = Lintian::Data->new(‘type’); if ($list->known($keyword)) { # do something … } my $hash = Lintian::Data->new(‘another-type’, qr{\s++}); if ($hash->value($keyword) > 1) { # do something … } if ($list->value($keyword) > 1) { # do something … } my @keywords = $list->all; if ($list->matches_any($keyword))…
Lintian::Command::Simple – Run commands without pipes Synopsis use Lintian::Command::Simple qw(wait_any); my %pid_info; my $pid = fork() // die("fork: $!"); exec(‘do’, ‘something’) if $pid == 0; $pid_info{$pid} = "A useful value associated with $pid"; my ($termiated_pid, $value) = wait_any(\%pid_info); …;DescriptionLintian::Command::Simple allows running commands with the capability of running them “in the background” (asynchronously.) Pipes are not…
Lintian::Command – Utilities to execute other commands from lintian code Synopsis use Lintian::Command qw(spawn); # simplest possible call my $success = spawn({}, [‘command’]); # catch output my $opts = {}; $success = spawn($opts, [‘command’]); if ($success) { print "STDOUT: $opts->{out}\n"; print "STDERR: $opts->{err}\n"; } # from file to file $opts = { in => ‘infile.txt’,…
Lintian::Collect::Source – Lintian interface to source package data collection Synopsis my ($name, $type, $dir) = (‘foobar’, ‘source’, ‘/path/to/lab-entry’); my $collect = Lintian::Collect->new ($name, $type, $dir); if ($collect->native) { print "Package is native\n"; }DescriptionLintian::Collect::Source provides an interface to package data for source packages. It implements data collection methods specific to source packages. This module is in…
Lintian::Collect::Package – Lintian base interface to binary and source package data collection Synopsis use autodie; use Lintian::Collect; my ($name, $type, $dir) = (‘foobar’, ‘source’, ‘/path/to/lab-entry’); my $info = Lintian::Collect->new ($name, $type, $dir); my $filename = "etc/conf.d/$name.conf"; my $file = $info->index_resolved_path($filename); if ($file and $file->is_open_ok) { my $fd = $info->open; # Use $fd … close($fd); }…
Lintian::Collect::Group – Lintian interface to group data collection Synopsis my $group = Lintian::ProcessableGroup->new (‘lintian_2.5.0_i386.changes’); my $ginfo = Lintian::Collect::Group->new ($group); foreach my $bin ($group->get_binary_processables) { my $pkg_name = $bin->pkg_name; foreach my $dirdep ($ginfo->direct_dependencies ($bin)) { print "$pkg_name (pre-)depends on $dirdep (which is also in this group)\n"; } }DescriptionLintian::Collect::Group is a “group” variant of the Lintian::Collect modules….
Lintian::Collect::Changes – Lintian interface to .changes file data collection Synopsis my ($name, $type) = (‘foobar_1.2_i386.changes’, ‘changes’); my $collect = Lintian::Collect->new($name, $type); my $files = $collect->files; foreach my $file (keys %{$files}) { my $size = $files->{$file}{size}; print "File $file has size $size\n"; }DescriptionLintian::Collect::Changes provides an interface to data for .changes files. It implements data collection methods…
Lintian::Collect::Buildinfo – Lintian interface to .buildinfo file data collection Synopsis my ($name, $type) = (‘foobar_1.2_i386.buildinfo’, ‘changes’); my $collect = Lintian::Collect->new($name, $type); my $files = $collect->files; foreach my $file (keys %{$files}) { my $size = $files->{$file}{size}; print "File $file has size $size\n"; }DescriptionLintian::Collect::Buildinfo provides an interface to data for .buildinfo files. It implements data collection methods…
Lintian::Collect::Binary – Lintian interface to binary package data collection Synopsis my ($name, $type, $dir) = (‘foobar’, ‘binary’, ‘/path/to/lab-entry’); my $collect = Lintian::Collect->new ($name, $type, $dir); if ($collect->native) { print "Package is native\n"; }DescriptionLintian::Collect::Binary provides an interface to package data for binary packages. It implements data collection methods specific to binary packages. This module is in…
Lintian::Collect – Lintian interface to package data collection Synopsis my ($name, $type, $dir) = (‘foobar’, ‘udeb’, ‘/some/abs/path’); my $collect = Lintian::Collect->new ($name, $type, $dir); $name = $collect->name; $type = $collect->type;DescriptionLintian::Collect provides the shared interface to package data used by source, binary and udeb packages and .changes files. It creates an object of the appropriate type…
Lintian::CollScript – Collection script handle Synopsis use Lintian::CollScript; my $cs = Lintian::CollScript->new ("$ENV{‘LINTIAN_ROOT’}/collection/index.desc"); my $name = $cs->name; foreach my $needs ($cs->needs_info) { print "$name needs $needs\n"; }DescriptionInstances of this class represents the data in the collection “.desc” files. It allows access to the common meta data of the collection (such as Needs-Info). Class Methodsnew (FILE)…