Import of tclX82 after repo-copy from tclX80, one more step on

the road to obliterating tcl/tk 8.0 from the tree.

Note 1: the patches have been extensively re-worked from the
        original submission, to make this port PREFIX-safe,
        and also to deal with multiple patchfiles updating the
        same source file.

Note 2: I've left the MAINTAINER as jseger.  Justin, you may
        want to cast your TCL-expert eye over this one, it seems
        to do the right thing.

PR:		16970
Submitted by:	Mikhail Teterin <mi@aldan.algebra.com>

1 files changed, 63 insertions, 0 deletions

diff --git a/lang/tclX/files/patch-af b/lang/tclX/files/patch-af
new file mode 100644
index 000000000000..1e38676af12c
--- /dev/null
+++ b/lang/tclX/files/patch-af
@@ -0,0 +1,63 @@
+--- tools/bldmanhelp.tcl.orig	Sun Feb  6 19:54:02 2000
++++ tools/bldmanhelp.tcl	Thu Feb 24 17:03:26 2000
+@@ -13,6 +13,5 @@
+ #
+-#   bldmanhelp docdir maninfo helpdir
++#   bldmanhelp maninfo helpdir
+ #
+ # Where:
+-#    o docdir is the directory containing the manual pages.
+ #    o maninfo is the path to a file that when sources returns a list of
+@@ -64,5 +63,14 @@
+ 
+-    set stat [catch {
+-        open $manPage
+-    } fh]
++    set section [lindex [split $manPage .] end]
++    set manPage [file rootname $manPage]
++    set manPage [split [exec man -w $section $manPage] ":)"]
++    if {[llength $manPage] > 1} { # Get the source, not from cat
++	set manPage [string trim [lindex $manPage 1]]
++    }
++    
++    if {[string match *.gz $manPage]} {
++	set stat [catch {open "|gzip -d -c $manPage"} fh]
++    } else {
++	set stat [catch {open $manPage} fh]
++    }
+     if {$stat != 0} {
+@@ -70,3 +75,3 @@
+         set gotErrors 1
+-        puts stderr "can't open \"$manPage\" $fh"
++        puts stderr "can't open \"$manPage\" $fh. (cwd is [pwd])"
+         return
+@@ -114,3 +119,3 @@
+ 
+-proc GenInputFile {docDir manInfoTbl tmpFile} {
++proc GenInputFile {manInfoTbl tmpFile} {
+ 
+@@ -118,3 +123,2 @@
+    set cwd [pwd]
+-   cd $docDir
+ 
+@@ -132,4 +136,4 @@
+ 
+-if {[llength $argv] != 4} {
+-    puts stderr "wrong # args: bldmanhelp docdir maninfo helpdir brief"
++if {[llength $argv] != 3} {
++    puts stderr "wrong # args: bldmanhelp maninfo helpdir brief"
+     exit 1
+@@ -139,9 +143,8 @@
+ 
+-set docDir [lindex $argv 0]
+-set manInfoTbl [source [lindex $argv 1]]
+-set helpDir [lindex $argv 2]
+-set brief [lindex $argv 3]
++set manInfoTbl [source [lindex $argv 0]]
++set helpDir [lindex $argv 1]
++set brief [lindex $argv 2]
+ 
+ puts stdout "Begin preprocessing UCB manual files"
+-GenInputFile $docDir $manInfoTbl $tmpFile
++GenInputFile $manInfoTbl $tmpFile
+