update mkfile to remove junk intermediates.

Reference: /n/atom/patch/applied/permindmk
Date: Tue Mar 11 18:36:50 CET 2014
Signed-off-by: quanstro@quanstro.net

# rm /sys/lib/man/permind/ptxmark
# rm /sys/lib/man/permind/ptxsort
# rm /sys/lib/man/permind/ptxwidth

--- /sys/lib/man/permind/mkfile	Tue Mar 11 18:36:21 2014
+++ /sys/lib/man/permind/mkfile	Tue Mar 11 18:36:21 2014
@@ -10,9 +10,8 @@
 	if (test -f sec)
 		for (i in `{cat sec})
 			makind1 $i >> junk0
-	if not
-		for (i in /sys/man/[0-9] /sys/man/[1-9][0-9])
-			makind1 $i >> junk0
+	for (i in /sys/man/[0-9]*)
+		makind1 $i >> junk0
 	sed 's/0intro/intro/g
 	s/  +/ /g
 	s/ +$//' junk0 > junk1
@@ -24,7 +23,7 @@
 	awk -f dup2.awk junk2 | awk -f dup1.awk | sort -dfut'"' +5 -6 +1 -2 +8 +0 >junk3
 	mv junk3 junk2
 	awk -f dup2.awk junk2 | awk -f dup1.awk | sort -dfut'"' +5 -6 +1 -2 +8 +0 >junk3
-	tr A-Z a-z <toc | awk '{ print "\"" $1 "(" $2 ")\"", $3 }' >junk4
+	rune/case <toc | awk '{ print "\"" $1 "(" $2 ")\"", $3 }' >junk4
 	awk '	BEGIN { Q = "\""
 			while(getline <"junk4") toc[$1] = $1 " " $2 }
 		{ $NF = toc[$NF]; print }
@@ -35,4 +34,5 @@
 	$LD -o $target ptx1.$O -lstdio
 
 clean:V:
-	rm -f junk* ptx1.$O *.ptx1 permindex out
+	rm -f junk* ptx1.[$OS] [$OS].ptx1 permindex out ptxmark ptxwidth ptxsort
+
--- /sys/lib/man/permind/makind1	Tue Mar 11 18:36:21 2014
+++ /sys/lib/man/permind/makind1	Tue Mar 11 18:36:21 2014
@@ -1,6 +1,6 @@
 #!/bin/rc
 owd=`{pwd}
-cd $1
+builtin cd $1
 for (i in *){
 	sed -n '
 	/^.TH *[^ ]* */{
@@ -8,9 +8,10 @@
 		s/ .*//
 		h
 	}
-	/SH.*NAM/{
+	/SH *NAM/{
 		N
 		s/.*\n//
+		s/\\fI(.*)\\fP/\1/
 		:x
 		N
 		/\n.SH.*/{
@@ -20,7 +21,7 @@
 			s/  */ /g
 			G
 			s/([^ ]*)(.*)\n(.*)/\1(\3)\2/
-			s/[A-Z]\)/)/
+#			s/[A-Z]\)/)/
 			p
 			d
 		}
@@ -29,7 +30,7 @@
 	}
 ' $i
 }
-cd $owd
+builtin cd $owd
 exit
 # add to shell script to get file references
 # in this case, pipe output thru uniq