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

(info.nr/all): Fix race between ls and output redirection.

diff --git a/Make.mk b/Make.mk
index 272bc58fe8573dec67dc5234ea723fb4cd21f96d..f546c37ca10257c48e69ec686980a018ff4750ab 100644 (file)
--- a/Make.mk
+++ b/Make.mk
@@ -291,12 +291,11 @@ $(ttop): $(tsubj)
        perl $(srcdir)/info/mktop.pl $@ $(filter %.t, $^)
 
 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
-       (cd info.html && LC_ALL=C ls -C $(notdir $(info.html))) | expand | perl $(filter %.pl, $^) >$@
-# FIXME shouldn't use ls
+info.html/all.html: info.nr/all info/ls2html.pl
+       expand $< | perl $(srcdir)/info/ls2html.pl >$@
 
 $(info.nr): info/CRT.MAC info/INFO.MAC info/Blank.awk
 

diff --git a/info/ls2html.pl b/info/ls2html.pl
index 611e4479709c1d095259a9d96cd3afd7f741dfbd..b61230d515826b37644cfe1c76dd3681b525f726 100644 (file)
--- a/info/ls2html.pl
+++ b/info/ls2html.pl
@@ -5,7 +5,7 @@ use warnings;
 
 printf("<pre>\n");
 while (<>) {
-    s/([\w\.\-]+)\.html/<a href=\"$1.html\">$1<\/a>/g;
+    s/([\w\.\-]+)/<a href=\"$1.html\">$1<\/a>/g;
     print;
 }
 printf("</pre>\n");