mirror of
git://git.psyced.org/git/psyced
synced 2024-08-15 03:25:10 +00:00
60 lines
1.4 KiB
OpenEdge ABL
60 lines
1.4 KiB
OpenEdge ABL
|
// vim:noexpandtab:syntax=lpc
|
||
|
|
// $Id: members.i,v 1.7 2007/10/08 11:00:30 lynx Exp $
|
||
|
|
|
||
|
|
renderMembers(members, nicks, noObjDet) {
|
||
|
|
int i, useNicks;
|
||
|
|
string *u = allocate(sizeof(members));
|
||
|
|
|
||
|
|
#ifdef PARANOID
|
||
|
|
if (stringp(members)) {
|
||
|
|
P0(("%O renderMembers with string members %O and nicks %O\n",
|
||
|
|
ME, members, nicks))
|
||
|
|
return u;
|
||
|
|
}
|
||
|
|
#endif
|
||
|
|
unless (noObjDet) {
|
||
|
|
#if 0
|
||
|
|
members = map(copy(members), #'fuserobj);
|
||
|
|
#else
|
||
|
|
members = map(copy(members), (: return psyc_object($1) || $1; :));
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
useNicks = (pointerp(nicks) && sizeof(members) == sizeof(nicks));
|
||
|
|
|
||
|
|
D3(
|
||
|
|
if (!useNicks) {
|
||
|
|
if (pointerp(nicks)) {
|
||
|
|
D(S("usercmd:%O: invalid size of argument 'nicks' in renderMembers(). will use ->qName().\n", ME));
|
||
|
|
} else {
|
||
|
|
D(S("usercmd:%O: renderMembers() didn't get argument 'nicks'. will use ->qName().\n", ME));
|
||
|
|
}
|
||
|
|
}
|
||
|
|
)
|
||
|
|
|
||
|
|
foreach (mixed entry : members) {
|
||
|
|
string n;
|
||
|
|
|
||
|
|
if (objectp(entry)) {
|
||
|
|
#if defined(ALIASES) && defined(USER_PROGRAM)
|
||
|
|
string tn, tn2;
|
||
|
|
|
||
|
|
if (!(n = raliases[tn = lower_case(tn2 = (useNicks ? nicks[i] : entry->qName()))]) && aliases[tn]) {
|
||
|
|
n = psyc_name(entry);
|
||
|
|
} else unless (n) n = tn2;
|
||
|
|
#else
|
||
|
|
n = useNicks ? nicks[i] : entry->qName();
|
||
|
|
#endif
|
||
|
|
} else if (entry) {
|
||
|
|
#if defined(ALIASES) && defined(USER_PROGRAM)
|
||
|
|
unless (n = raliases[entry])
|
||
|
|
#endif
|
||
|
|
n = entry;
|
||
|
|
}
|
||
|
|
u[i++] = n;
|
||
|
|
}
|
||
|
|
|
||
|
|
return u;
|
||
|
|
}
|
||
|
|
|