1# override.tcl -- 2# 3# Checks that files that contain procedures with the same name as the 4# ones used by the compiler package do not cause the ones in the compiler 5# package to disappear. 6# They would if the temporary command created in CompileOneProcBody had 7# the same name as the procedure whose body we are compiling. 8# 9# Copyright (c) 1998-2000 by Ajuba Solutions. 10# 11# See the file "license.terms" for information on usage and redistribution 12# of this file, and for a DISCLAIMER OF ALL WARRANTIES. 13# 14# RCS: @(#) $Id: override.tcl,v 1.2 2000/05/30 22:19:11 wart Exp $ 15 16# this code used to make the procomp::log proc in procomp.tcl disappear. 17# The error looks like this: 18# invalid command name "log" 19# while executing 20# "log "compiled: $path"" 21# (procedure "fileCompile" line 51) 22# invoked from within 23# "fileCompile $file" 24# (procedure "procomp::run" line 9) 25# invoked from within 26# "procomp::run" 27# (file "compiler/startup.tcl" line 43) 28# If the name of the compiler package's namespce is changed, this namespace 29# must be changed as well to keep the test valid. 30 31namespace eval procomp { 32 namespace export log 33} 34 35proc procomp::log { msg } { 36 return "$msg : $msg" 37} 38 39procomp::log TEST 40