Finding all calls to command ' (or any command) in script.tcl

set MyDir [file dirname [info script]]

proc ' {msg args} {
   puts "Msg: $msg"
}

proc subunknown {args} {
}
			
set file [open [file join $MyDir script.tcl] r]
set script [read $file]
close $file

interp create sub

set cmds [sub eval {info commands}]
puts "Cmds: $cmds"
foreach cmd $cmds {
    sub hide $cmd
}

interp alias sub ' {} '
interp alias sub unknown {} subunknown

# We don't care about variables. Take them away
set script [string map {\$ ""} $script]
sub invokehidden -global subst -novariables $script