EXPORT(sqInt) primitiveFileGetPosition(void) {
squeakFileOffsetType position;
SQFile * file;
sqInt objectPointer;
/* begin fileValueOf: */
objectPointer = interpreterProxy->stackValue(0);
if (!((interpreterProxy->isBytes(objectPointer)) && ((interpreterProxy->byteSizeOf(objectPointer)) == (fileRecordSize())))) {
interpreterProxy->primitiveFail();
file = null;
goto l1;
}
file = interpreterProxy->firstIndexableField(objectPointer);
l1: /* end fileValueOf: */;
if (!(interpreterProxy->failed())) {
position = sqFileGetPosition(file);
}
if (!(interpreterProxy->failed())) {
interpreterProxy->popthenPush(2, interpreterProxy->positive64BitIntegerFor(position));
}
}
primitiveFileGetPosition(void)
{
// FilePlugin>>#primitiveFileGetPosition
SQFile *file;
sqInt objectPointer;
squeakFileOffsetType position;
/* begin fileValueOf: */
objectPointer = stackValue(0);
if (!((isBytes(objectPointer))
&& ((byteSizeOf(objectPointer)) == (sizeof(SQFile))))) {
primitiveFail();
file = null;
goto l1;
}
file = firstIndexableField(objectPointer);
l1: /* end fileValueOf: */;
if (!(failed())) {
position = sqFileGetPosition(file);
}
if (!(failed())) {
popthenPush(2, positive64BitIntegerFor(position));
}
}
