primitiveSetStringProperty(void)
{
sqInt handle;
sqInt propID;
sqInt result;
sqInt srcLen;
sqInt srcOop;
char *srcPtr;
if (!((methodArgumentCount()) == 3)) {
return primitiveFail();
}
srcOop = stackObjectValue(0);
propID = stackIntegerValue(1);
handle = stackIntegerValue(2);
if (failed()) {
return null;
}
if (!(isBytes(srcOop))) {
return primitiveFail();
}
srcPtr = firstIndexableField(srcOop);
srcLen = byteSizeOf(srcOop);
result = sqSetStringPropertySSL(handle, propID, srcPtr, srcLen);
if (!result) {
return primitiveFail();
}
if (failed()) {
return null;
}
pop(methodArgumentCount());
return 0;
}
EXPORT(sqInt) primitiveSetStringProperty(void) {
sqInt handle;
sqInt propID;
sqInt result;
sqInt srcLen;
sqInt srcOop;
char *srcPtr;
if (!((interpreterProxy->methodArgumentCount()) == 3)) {
return interpreterProxy->primitiveFail();
}
srcOop = interpreterProxy->stackObjectValue(0);
propID = interpreterProxy->stackIntegerValue(1);
handle = interpreterProxy->stackIntegerValue(2);
if (interpreterProxy->failed()) {
return null;
}
if (!(interpreterProxy->isBytes(srcOop))) {
return interpreterProxy->primitiveFail();
}
srcPtr = interpreterProxy->firstIndexableField(srcOop);
srcLen = interpreterProxy->byteSizeOf(srcOop);
result = sqSetStringPropertySSL(handle, propID, srcPtr, srcLen);
if (!(result)) {
return interpreterProxy->primitiveFail();
}
if (interpreterProxy->failed()) {
return null;
}
interpreterProxy->pop(interpreterProxy->methodArgumentCount());
return null;
}
