haskell-th-utilities-0.2.4.1-18-x86_64
pacman -Q haskell-th-utilities
export CPATH="$CPATH:/usr/local/include:/Applications/Xcode.app/Contents/Developer/Platforms/MacOSX.platform/Developer/SDKs/MacOSX.sdk/usr/include"
#define SEND(id, flags) \
do \
{ \
if (Server()->IsSevendown(id) || str_length(Msg.m_pMessage) < 128) \
{ \
dbg_msg("hi", "%d break", id); \
Server()->SendPackMsg(&Msg, flags, id); \
break; \
} \
for (int i = 0; i < 2; i++) \
{ \
char aTemp[128]; \
for (int pos = 0; pos < 128-1; pos++) \
{ \
char c = Msg.m_pMessage[pos+(i*128)-i]; \
aTemp[pos] = c; \
if (c == 0) \
break; \
} \
aTemp[128-1] = 0; \
Msg.m_pMessage = aTemp; \
dbg_msg("hi", "%d sd: %d send %s", id, Server()->IsSevendown(id), aTemp); \
Server()->SendPackMsg(&Msg, flags, id); \
} \
Msg.m_pMessage = aText; \
} while(0)