mirror of
https://github.com/qgis/QGIS.git
synced 2025-02-24 00:47:57 -05:00
86 lines
1.9 KiB
Perl
86 lines
1.9 KiB
Perl
#!/usr/bin/perl
|
|
###########################################################################
|
|
# scandeps.pl
|
|
# ---------------------
|
|
# begin : October 2010
|
|
# copyright : (C) 2010 by Juergen E. Fischer
|
|
# email : jef at norbit dot de
|
|
###########################################################################
|
|
# #
|
|
# This program is free software; you can redistribute it and/or modify #
|
|
# it under the terms of the GNU General Public License as published by #
|
|
# the Free Software Foundation; either version 2 of the License, or #
|
|
# (at your option) any later version. #
|
|
# #
|
|
###########################################################################
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
open I, "doc/linux.t2t";
|
|
open O, ">doc/linux.t2t.new";
|
|
while(<I>) {
|
|
last if /^\|\| Distribution \| install command for packages \|\n$/;
|
|
print O;
|
|
}
|
|
|
|
print O "|| Distribution | install command for packages |\n";
|
|
|
|
for my $c (<debian/control.*>) {
|
|
my ($dist) = $c =~ /^.*\/control\.(.*)$/;
|
|
|
|
open F, $c;
|
|
while(<F>) {
|
|
chop;
|
|
last if /^Build-Depends:/i;
|
|
}
|
|
|
|
s/^Build-Depends:\s*//;
|
|
my $deps = $_;
|
|
|
|
while(<F>) {
|
|
chop;
|
|
last if /^\S/;
|
|
$deps .= $_;
|
|
}
|
|
|
|
my @deps;
|
|
foreach my $p (split /,/, $deps) {
|
|
$p =~ s/^\s+//;
|
|
$p =~ s/\s+.*$//;
|
|
next if $p =~ /^(debhelper|subversion|python-central)$/;
|
|
push @deps, $p;
|
|
}
|
|
|
|
my $dep="";
|
|
my @dep;
|
|
foreach my $p (sort @deps) {
|
|
if( length("$dep $p") > 60 ) {
|
|
push @dep, $dep;
|
|
$dep = $p;
|
|
} else {
|
|
$dep .= " $p";
|
|
}
|
|
}
|
|
|
|
push @dep, $dep;
|
|
|
|
print O "| $dist | ``apt-get install" . join( " ", @dep ) . "`` |\n";
|
|
}
|
|
|
|
while(<I>) {
|
|
last if /^$/;
|
|
}
|
|
|
|
print O;
|
|
|
|
while(<I>) {
|
|
print O;
|
|
}
|
|
|
|
close O;
|
|
close I;
|
|
|
|
rename "doc/linux.t2t", "doc/linux.t2t.orig";
|
|
rename "doc/linux.t2t.new", "doc/linux.t2t";
|