better symbols

This commit is contained in:
rsc 2006-02-14 19:38:04 +00:00
parent 469e5e5196
commit a4b2187729

View file

@ -603,13 +603,17 @@ defn mem(addr, fmt)
defn symbols(pattern) defn symbols(pattern)
{ {
local l, s; local l, s, name;
l = symbols; l = symbols;
while l do { while l do {
s = head l; s = head l;
if regexp(pattern, s[0]) then if regexp(pattern, s[0]) then {
print(s[0], "\t", s[1], "\t", s[2], "\t", s[3], "\n"); name = s[4];
if name == {} then
name = "";
print(s[0], "\t", s[1], "\t", s[2], "\t", s[3], "\t", name, "\n");
}
l = tail l; l = tail l;
} }
} }