summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordavygrvy <davygrvy@pobox.com>2007-10-15 20:01:42 (GMT)
committerdavygrvy <davygrvy@pobox.com>2007-10-15 20:01:42 (GMT)
commitff513dd2321ade7fa3b0fc340a44021f200704ce (patch)
tree921f699317f0fb516719467cee5be5d1e4ec8597
parenteb86ccb53ca68851ce67ced4d861c4ae5926879a (diff)
downloadtcl-ff513dd2321ade7fa3b0fc340a44021f200704ce.zip
tcl-ff513dd2321ade7fa3b0fc340a44021f200704ce.tar.gz
tcl-ff513dd2321ade7fa3b0fc340a44021f200704ce.tar.bz2
* tools/mkdepend.tcl: include path problem fixed. Never fight
city hall when comes to levels of quoting issues.
-rw-r--r--tools/mkdepend.tcl6
1 files changed, 4 insertions, 2 deletions
diff --git a/tools/mkdepend.tcl b/tools/mkdepend.tcl
index bb499bd..ed3266c 100644
--- a/tools/mkdepend.tcl
+++ b/tools/mkdepend.tcl
@@ -27,7 +27,7 @@
# http://web.archive.org/web/20070616205924/http://www.doc.ic.ac.uk/~np2/software/mkdepend.html
#
#==============================================================================
-# RCS: @(#) $Id: mkdepend.tcl,v 1.2 2007/10/15 18:38:21 davygrvy Exp $
+# RCS: @(#) $Id: mkdepend.tcl,v 1.3 2007/10/15 20:01:42 davygrvy Exp $
#==============================================================================
array set mode_data {}
@@ -363,7 +363,9 @@ proc main {} {
set mode mgw32
}
-passthru:* {
- puts stderr [set passthru [string range $arg 10 end]]
+ set passthru [string range $arg 10 end]
+ regsub -all {"} $passthru {\"} passthru
+ regsub -all {\\} $passthru {/} passthru
}
-out:* {
openOutput [string range $arg 5 end]