Exemplo n.º 1
0
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;
}
Exemplo n.º 2
0
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;
}