summaryrefslogtreecommitdiff
path: root/lang/tclX/files/patch-af
diff options
context:
space:
mode:
authorMikhail Teterin <mi@FreeBSD.org>2006-06-27 23:23:20 +0000
committerMikhail Teterin <mi@FreeBSD.org>2006-06-27 23:23:20 +0000
commitad82eb27b87a2c255d02824838fc00132b8c27ea (patch)
treea3997e1956be69c25724b6879fceb291fffb13d8 /lang/tclX/files/patch-af
parentFix up a few issues: (diff)
Upgrade tclX from 8.3.5 to 8.4 released last November after several
years of idleness. The changes are fairly substantial -- all Tk bits, however insignificant they were, are now removed completely, for example. No TclX enabled executable is built/installed either -- a Tcl script is expected to load the Tclx package via the "package require Tclx" only. The changes to port add the handling of SIGINFO (made possible by the recent fix-up of lang/tcl84), running the authors' test-target as part of the build, and skipping building/installing of help files in the NOPORTDOCS case. The devel/tcl-neo is the only dependant port of tclX and is updated to depend on the new version.
Diffstat (limited to 'lang/tclX/files/patch-af')
-rw-r--r--lang/tclX/files/patch-af43
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]