1
0
Fork 0
mirror of git://git.psyced.org/git/psyced synced 2024-08-15 03:25:10 +00:00
psyced/world/net/members.i

60 lines
1.4 KiB
OpenEdge ABL
Raw Normal View History

// 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;
}