(info.html/all.html): Fix to use the full 80 columns for the table.

(info.nr/all): Fix race between ls and output redirection.
This commit is contained in:
Markus Armbruster 2007-08-08 06:15:33 +00:00
parent 6e3da4e1d0
commit e7c9ca1186
2 changed files with 5 additions and 6 deletions

View file

@ -291,12 +291,11 @@ $(ttop): $(tsubj)
perl $(srcdir)/info/mktop.pl $@ $(filter %.t, $^) perl $(srcdir)/info/mktop.pl $@ $(filter %.t, $^)
info.nr/all: $(filter-out info.nr/all, $(info.nr)) info.nr/all: $(filter-out info.nr/all, $(info.nr))
(cd info.nr && LC_ALL=C ls -C $(info)) >$@ >$@
# FIXME shouldn't use ls (cd info.nr && LC_ALL=C ls -C $(info)) >>$@
info.html/all.html: $(filter-out info.html/all.html, $(info.html)) info/ls2html.pl info.html/all.html: info.nr/all info/ls2html.pl
(cd info.html && LC_ALL=C ls -C $(notdir $(info.html))) | expand | perl $(filter %.pl, $^) >$@ expand $< | perl $(srcdir)/info/ls2html.pl >$@
# FIXME shouldn't use ls
$(info.nr): info/CRT.MAC info/INFO.MAC info/Blank.awk $(info.nr): info/CRT.MAC info/INFO.MAC info/Blank.awk

View file

@ -5,7 +5,7 @@ use warnings;
printf("<pre>\n"); printf("<pre>\n");
while (<>) { while (<>) {
s/([\w\.\-]+)\.html/<a href=\"$1.html\">$1<\/a>/g; s/([\w\.\-]+)/<a href=\"$1.html\">$1<\/a>/g;
print; print;
} }
printf("</pre>\n"); printf("</pre>\n");