Dodalem skrypty, zwiazane z obsluga zaleznosci w tarballu.
git-svn-id: svn://atos.wmid.amu.edu.pl/utt@22 e293616e-ec6a-49c2-aa92-f4a8b91c5d16
This commit is contained in:
parent
8abee07844
commit
317d53bd6b
15
app/dist/common/check_dependenties.pl
vendored
Normal file
15
app/dist/common/check_dependenties.pl
vendored
Normal file
@ -0,0 +1,15 @@
|
|||||||
|
|
||||||
|
while(<STDIN>) {
|
||||||
|
chomp;
|
||||||
|
$app = $_;
|
||||||
|
$path = `which $app 2>/dev/null`;
|
||||||
|
$err = $?;
|
||||||
|
print $app.": ";
|
||||||
|
if($err != 0) {
|
||||||
|
print "failed ($err)\n";
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
print $path;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
29
app/dist/common/find_perl_deps.pl
vendored
Normal file
29
app/dist/common/find_perl_deps.pl
vendored
Normal file
@ -0,0 +1,29 @@
|
|||||||
|
|
||||||
|
|
||||||
|
while(<STDIN>) {
|
||||||
|
chomp;
|
||||||
|
# najpierw nazwa pliku zrodlowego out
|
||||||
|
if($_ =~ /^[^:]*\:\s*(.*)$/) {
|
||||||
|
my $line = $1;
|
||||||
|
# print "TEXT: $line\n";
|
||||||
|
# teraz tylko samo polecenie
|
||||||
|
if($line =~ /\`\s*(.+)\s*\`/) {
|
||||||
|
my $cmd = $1;
|
||||||
|
# print "CMD: $cmd\n";
|
||||||
|
# teraz splitujemy potoki
|
||||||
|
my @progs = split(/\s*\|\s*/, $cmd);
|
||||||
|
foreach (@progs) {
|
||||||
|
# print "$_\n";
|
||||||
|
# ucinamy agrumenty programu
|
||||||
|
# oraz linie, zawierajace nie-programy (--replace, $tmpfile_x, /g, \\, itp.)
|
||||||
|
if($_ =~ /^([^\$\\\/\s\']+)(\s.*)?$/) {
|
||||||
|
my $app = $1;
|
||||||
|
# print "APP: $app\n";
|
||||||
|
# my $res = `which $app`;
|
||||||
|
# print "WYNIK: $res\n";
|
||||||
|
print "$app\n";
|
||||||
|
}
|
||||||
|
} # foreach
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
16
app/dist/common/find_rpm_deps.sh
vendored
Executable file
16
app/dist/common/find_rpm_deps.sh
vendored
Executable file
@ -0,0 +1,16 @@
|
|||||||
|
#!/bin/sh
|
||||||
|
|
||||||
|
# sprawdzamy czy podano argument
|
||||||
|
if test $# -lt 1; then echo RPM file name expected!; exit -1; fi
|
||||||
|
|
||||||
|
# sprawdzamy czy to plik, potem, czy rpm
|
||||||
|
if test -f $1; \
|
||||||
|
then
|
||||||
|
if test "rpm" = `ls $1 | tail -c 4`; \
|
||||||
|
then
|
||||||
|
rpm -q -R -p $1; \
|
||||||
|
else echo "It's not a RPM file!"; \
|
||||||
|
fi
|
||||||
|
else echo RPM file not found!; \
|
||||||
|
fi
|
||||||
|
|
3
app/dist/common/make_deps.sh
vendored
Executable file
3
app/dist/common/make_deps.sh
vendored
Executable file
@ -0,0 +1,3 @@
|
|||||||
|
#!/bin/sh
|
||||||
|
|
||||||
|
grep -r -e "\`" ../../src | grep -v -e "\.svn\/" | perl find_perl_deps.pl | sort | uniq > dep_list.txt
|
Loading…
Reference in New Issue
Block a user