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.
21 lines
578 B
21 lines
578 B
2 years ago
|
"""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()
|