commit - 469e5e5196565eac53b2d341ea865800150705d4
commit + a4b2187729f7c9f3da0f0e28dd590758e9065a5d
blob - c6bf9056f18d881dae73e917894f198083c5ae91
blob + c8e195fc1b3b0fd41b04280e1cfb7a32eb63bc7c
--- acid/port
+++ acid/port
defn symbols(pattern)
{
- local l, s;
-
+ local l, s, name;
+
l = symbols;
while l do {
s = head l;
- if regexp(pattern, s[0]) then
- print(s[0], "\t", s[1], "\t", s[2], "\t", s[3], "\n");
+ if regexp(pattern, s[0]) then {
+ 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;
}
}