EXPORT(sqInt) primitiveDirectoryDelimitor(void) { sqInt ascii; ascii = asciiDirectoryDelimiter(); if (!((ascii >= 0) && (ascii <= 255))) { return interpreterProxy->primitiveFail(); } interpreterProxy->pop(1); interpreterProxy->push(interpreterProxy->fetchPointerofObject(ascii, interpreterProxy->characterTable())); }
primitiveDirectoryDelimitor(void) { sqInt ascii; ascii = asciiDirectoryDelimiter(); if (!((ascii >= 0) && (ascii <= 255))) { return interpreterProxy->primitiveFail(); } interpreterProxy->popthenPush(1, interpreterProxy->fetchPointerofObject(ascii, interpreterProxy->characterTable())); // OK xxx_dmu }
primitiveDirectoryDelimitor(void) { // FilePlugin>>#primitiveDirectoryDelimitor sqInt ascii; ascii = asciiDirectoryDelimiter(); if ((interpreterProxy->minorVersion()) >= 13) { popthenPush(1, characterObjectOf(ascii)); } else { if ((ascii >= 0) && (ascii <= 0xFF)) { popthenPush(1, fetchPointerofObject(ascii, characterTable())); } else { primitiveFail(); } } }