1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
"""Selective implementation of tcl info command.
This script is used while running python tests translated from Tcl."""
import re
def command (caller_globals, caller_locals, pattern):
return commands(caller_globals, caller_locals, pattern)
def commands (caller_globals, caller_locals, pattern):
print "pattern %s" % pattern
rex = re.compile(pattern)
str = ""
for c in caller_globals.keys():
if rex.match(c):
str += c + " "
for c in caller_locals.keys():
if rex.match(c):
str += c + " "
return str.strip()
|
