1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
#!/usr/bin/perl -w
my $erts_version=$ARGV[0];
my @files = `ls -d *\-*`;
chomp(@files);
my($filename);
foreach $filename (@files) {
my($name) = $filename;
print STDERR "Incorporating $filename:";
#
# Add documentation directories
#
my(@info) = `ls $filename`;
foreach $line (@info) {
chomp($line);
print STDERR " $line";
print "/usr/share/doc/erlang-doc/lib/" . $filename . "/" . $line;
print " /usr/lib/erlang/lib/" . $filename . "/" . $line;
print "\n";
}
print STDERR "\n";
}
#
# Closing boilerplate
#
print "/usr/share/doc/erlang-doc/erts-$erts_version/doc /usr/lib/erlang/erts-$erts_version/doc\n";
print "/usr/share/doc/erlang-doc/erts-$erts_version/info /usr/lib/erlang/erts-$erts_version/info\n";
print "/usr/share/doc/erlang-doc/doc /usr/lib/erlang/doc\n";
print STDERR "Finished generating erlang-doc.links\n";
|
