primitiveGetSecureUserDirectory(void) { sqInt dirLen; char *dirName; sqInt dirOop; char *dirPtr; sqInt i; dirName = ioGetSecureUserDirectory(); if ((dirName == null) || (failed())) { return primitiveFail(); } dirLen = strlen(dirName); dirOop = instantiateClassindexableSize(classString(), dirLen); if (failed()) { return null; } dirPtr = firstIndexableField(dirOop); for (i = 0; i < dirLen; i += 1) { dirPtr[i] = (dirName[i]); } popthenPush(1, dirOop); return 0; }
EXPORT(sqInt) primitiveGetSecureUserDirectory(void) { sqInt i; char * dirName; sqInt dirLen; sqInt dirOop; char * dirPtr; dirName = ioGetSecureUserDirectory(); if ((dirName == null) || (interpreterProxy->failed())) { return interpreterProxy->primitiveFail(); } dirLen = strlen(dirName); dirOop = interpreterProxy->instantiateClassindexableSize(interpreterProxy->classString(), dirLen); if (interpreterProxy->failed()) { return null; } dirPtr = interpreterProxy->firstIndexableField(dirOop); for (i = 0; i <= (dirLen - 1); i += 1) { dirPtr[i] = (dirName[i]); } interpreterProxy->popthenPush(1, dirOop); }