primitiveFileDelete(void)
{
// FilePlugin>>#primitiveFileDelete
char *nameIndex;
sqInt namePointer;
sqInt nameSize;
sqInt okToDelete;
namePointer = stackValue(0);
if (!(isBytes(namePointer))) {
return primitiveFail();
}
nameIndex = firstIndexableField(namePointer);
/* If the security plugin can be loaded, use it to check for permission.
If not, assume it's ok */
nameSize = byteSizeOf(namePointer);
if (sCDFfn != 0) {
okToDelete = ((sqInt (*)(char *, sqInt))sCDFfn)(nameIndex, nameSize);
if (!okToDelete) {
return primitiveFail();
}
}
sqFileDeleteNameSize(nameIndex, nameSize);
if (!(failed())) {
pop(1);
}
}
EXPORT(sqInt) primitiveFileDelete(void) {
sqInt nameSize;
sqInt okToDelete;
sqInt namePointer;
char * nameIndex;
namePointer = interpreterProxy->stackValue(0);
if (!(interpreterProxy->isBytes(namePointer))) {
return interpreterProxy->primitiveFail();
}
nameIndex = interpreterProxy->firstIndexableField(namePointer);
/* If the security plugin can be loaded, use it to check for permission.
If not, assume it's ok */
nameSize = interpreterProxy->byteSizeOf(namePointer);
if (sCDFfn != 0) {
okToDelete = ((sqInt (*)(char *, sqInt))sCDFfn)(nameIndex, nameSize);
if (!(okToDelete)) {
return interpreterProxy->primitiveFail();
}
}
sqFileDeleteNameSize(nameIndex, nameSize);
if (!(interpreterProxy->failed())) {
interpreterProxy->pop(1);
}
}
