EXPORT(sqInt) primitiveReadTablet(void) { int * resultPtr; sqInt result; sqInt resultSize; sqInt cursorIndex; cursorIndex = interpreterProxy->stackIntegerValue(0); if (interpreterProxy->failed()) { return null; } resultSize = tabletResultSize(); result = interpreterProxy->instantiateClassindexableSize(interpreterProxy->classBitmap(), resultSize); resultPtr = (int *) interpreterProxy->firstIndexableField(result); interpreterProxy->success(tabletRead(cursorIndex, resultPtr)); if (interpreterProxy->failed()) { return null; } interpreterProxy->popthenPush(2, result); return null; }
primitiveReadTablet(void) { sqInt cursorIndex; sqInt result; int * resultPtr; sqInt resultSize; cursorIndex = stackIntegerValue(0); if (failed()) { return null; } resultSize = tabletResultSize(); result = instantiateClassindexableSize(classBitmap(), resultSize); resultPtr = ((int *)firstIndexableField(result)); success(tabletRead(cursorIndex, resultPtr)); if (failed()) { return null; } popthenPush(2, result); return null; }