You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
20 lines
578 B
20 lines
578 B
"""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()
|
|
|