diff options
Diffstat (limited to 'lang/tclX/files/patch-af')
| -rw-r--r-- | lang/tclX/files/patch-af | 43 |
1 files changed, 21 insertions, 22 deletions
diff --git a/lang/tclX/files/patch-af b/lang/tclX/files/patch-af index bab422b04e6e..a9339d197188 100644 --- a/lang/tclX/files/patch-af +++ b/lang/tclX/files/patch-af @@ -1,6 +1,7 @@ ---- 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 @@ +--- unix/tools/bldmanhelp.tcl Thu Dec 2 15:33:05 2004 ++++ unix/tools/bldmanhelp.tcl Mon Jun 26 19:51:14 2006 +@@ -12,8 +12,7 @@ + # The command line is: # -# bldmanhelp docdir maninfo helpdir +# bldmanhelp maninfo helpdir @@ -8,7 +9,9 @@ # 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,16 @@ + # entries describing manual pages to convert. Each entry is a list +@@ -70,15 +69,27 @@ + global skipSection - set stat [catch { - open $manPage @@ -28,42 +31,38 @@ + set stat [catch {open $manPage} fh] + } if {$stat != 0} { -@@ -70,3 +75,3 @@ + global gotErrors set gotErrors 1 - puts stderr "can't open \"$manPage\" $fh" + puts stderr "can't open \"$manPage\" $fh. (cwd is [pwd])" return -@@ -75,2 +89,3 @@ + } + while {[gets $fh line] >= 0} { switch -glob -- $line { + {.so man.macros} {} .so* { -@@ -114,3 +119,3 @@ + CopyManPage [lindex $line 1] $outFH +@@ -120,9 +131,8 @@ + # -proc GenInputFile {docDir manInfoTbl tmpFile} { +proc GenInputFile {manInfoTbl tmpFile} { -@@ -118,3 +123,2 @@ + set tmpFH [open $tmpFile w] 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 @@ + foreach ent $manInfoTbl { +@@ -145,5 +155,4 @@ + set tmpFile "bldmanhelp.tmp" -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] + set manInfoTbl [source [lindex $argv 1]] + set helpDir [lindex $argv 2] +@@ -151,5 +160,5 @@ puts stdout "Begin preprocessing UCB manual files" -GenInputFile $docDir $manInfoTbl $tmpFile +GenInputFile $manInfoTbl $tmpFile + buildhelp $helpDir $brief [list $tmpFile] |