summaryrefslogtreecommitdiffstats
path: root/tools
diff options
context:
space:
mode:
Diffstat (limited to 'tools')
-rw-r--r--tools/cvtEOL.tcl35
-rw-r--r--tools/genStubs.tcl15
2 files changed, 6 insertions, 44 deletions
diff --git a/tools/cvtEOL.tcl b/tools/cvtEOL.tcl
deleted file mode 100644
index e2df341..0000000
--- a/tools/cvtEOL.tcl
+++ /dev/null
@@ -1,35 +0,0 @@
-# cvtEOL.tcl --
-#
-# This file contains a script to parse a Tcl/Tk distribution and
-# convert the EOL from \n to \r on all text files.
-#
-# Copyright (c) 1996-1997 by Sun Microsystems, Inc.
-#
-# SCCS: @(#) cvtEOL.tcl 1.1 97/01/30 11:33:33
-#
-
-#
-# Convert files in the distribution to Mac style
-#
-
-set distDir [lindex $argv 0]
-
-set dirs {unix mac generic win library compat tests unix/dltest \
- library/demos library/demos/images bitmaps xlib xlib/X11 .}
-set files {*.c *.y *.h *.r *.tcl *.test *.rc *.bc *.vc *.bmp *.html \
- *.in *.notes *.terms all defs \
- README ToDo changes tclIndex configure install-sh mkLinks \
- square widget rmt ixset hello browse rolodex tcolor timer}
-
-foreach x $dirs {
- if [catch {cd $distDir/$x}] continue
- puts "Working on $x..."
- foreach y [eval glob $files] {
- exec chmod 666 $y
- exec cp $y $y.tmp
- exec tr \012 \015 < $y.tmp > $y
- exec chmod 444 $y
- exec rm $y.tmp
- }
-}
-
diff --git a/tools/genStubs.tcl b/tools/genStubs.tcl
index ca9a01b..15cb0a2 100644
--- a/tools/genStubs.tcl
+++ b/tools/genStubs.tcl
@@ -8,7 +8,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: genStubs.tcl,v 1.16 2003/08/25 21:04:57 dkf Exp $
+# RCS: @(#) $Id: genStubs.tcl,v 1.17 2004/03/17 18:14:18 das Exp $
package require Tcl 8
@@ -122,7 +122,7 @@ proc genStubs::hooks {names} {
# Arguments:
# index The index number of the interface.
# platform The platform the interface belongs to. Should be one
-# of generic, win, unix, or mac, or macosx or aqua or x11.
+# of generic, win, unix, or macosx or aqua or x11.
# decl The C function declaration, or {} for an undefined
# entry.
#
@@ -221,11 +221,8 @@ proc genStubs::addPlatformGuard {plat text} {
return "#ifdef __WIN32__\n${text}#endif /* __WIN32__ */\n"
}
unix {
- return "#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */\n${text}#endif /* UNIX */\n"
+ return "#if !defined(__WIN32__) /* UNIX */\n${text}#endif /* UNIX */\n"
}
- mac {
- return "#ifdef MAC_TCL\n${text}#endif /* MAC_TCL */\n"
- }
macosx {
return "#ifdef MAC_OSX_TCL\n${text}#endif /* MAC_OSX_TCL */\n"
}
@@ -233,7 +230,7 @@ proc genStubs::addPlatformGuard {plat text} {
return "#ifdef MAC_OSX_TK\n${text}#endif /* MAC_OSX_TK */\n"
}
x11 {
- return "#if !(defined(__WIN32__) || defined(MAC_TCL) || defined(MAC_OSX_TK)) /* X11 */\n${text}#endif /* X11 */\n"
+ return "#if !(defined(__WIN32__) || defined(MAC_OSX_TK)) /* X11 */\n${text}#endif /* X11 */\n"
}
}
return "$text"
@@ -615,7 +612,7 @@ proc genStubs::forAllStubs {name slotProc onAll textVar \
append text [$slotProc $name $stubs($name,generic,$i) $i]
set emit 1
} elseif {[llength $slots] > 0} {
- foreach plat {unix win mac} {
+ foreach plat {unix win} {
if {[info exists stubs($name,$plat,$i)]} {
append text [addPlatformGuard $plat \
[$slotProc $name $stubs($name,$plat,$i) $i]]
@@ -658,7 +655,7 @@ proc genStubs::forAllStubs {name slotProc onAll textVar \
} else {
# Emit separate stubs blocks per platform
- foreach plat {unix win mac} {
+ foreach plat {unix win} {
if {[info exists stubs($name,$plat,lastNum)]} {
set lastNum $stubs($name,$plat,lastNum)
set temp {}