Function fxBufferFunctionNameAddress

xs/sources/xsAll.c:146–179

}

void fxBufferFunctionNameAddress(txMachine* the, txString buffer, txSize size, txID id, txCallback address, txID profileID)
{
	txInteger length;
	if (id != XS_NO_ID) {
		txBoolean adorn;
		txString string = fxGetKeyString(the, id, &adorn);
		if (adorn)
			c_strncat(buffer, "[", size - mxStringLength(buffer) - 1);
		fxBufferName(buffer, string, size - mxStringLength(buffer) - 1);
		if (adorn)
			c_strncat(buffer, "]", size - mxStringLength(buffer) - 1);
		return;
	}
	if (address) {
		c_strncat(buffer, "@", size - mxStringLength(buffer) - 1);
#if mxMacOSX || mxLinux
		Dl_info info;
		if (dladdr(address, &info) && info.dli_sname)
			c_strncat(buffer, info.dli_sname, size - mxStringLength(buffer) - 1);
		else 
#endif
		{
			c_strncat(buffer, "anonymous-", size - mxStringLength(buffer) - 1);
			length = mxStringLength(buffer);
			fxIntegerToString(the, profileID, buffer + length, size - length - 1);
		}
	}
	else {
		c_strncat(buffer, "(anonymous-", size - mxStringLength(buffer) - 1);
		length = mxStringLength(buffer);
		fxIntegerToString(the, profileID, buffer + length, size - length - 1);
		c_strncat(buffer, ")", size - mxStringLength(buffer) - 1);
	}
}

void fxBufferObjectName(txMachine* the, txString buffer, txSize size, txSlot* object, txString suffix)
{