/* Added to support 64 bit operation. */\r
ID_CELL,\r
ID_CELLS,\r
+ /* DELETE-FILE */\r
+ ID_FILE_DELETE,\r
/* If you add a word here, take away one reserved word below. */\r
#ifdef PF_SUPPORT_FP\r
/* Only reserve space if we are adding FP so that we can detect\r
ID_RESERVED11,\r
ID_RESERVED12,\r
ID_RESERVED13,\r
- ID_RESERVED14,\r
ID_FP_D_TO_F,\r
ID_FP_FSTORE,\r
ID_FP_FTIMES,\r
}\r
endcase;\r
\r
+ case ID_FILE_DELETE: /* ( c-addr u -- ior ) */\r
+/* Build NUL terminated name string. */\r
+ Temp = M_POP; /* caddr */\r
+ if( TOS < TIB_SIZE-2 )\r
+ {\r
+ pfCopyMemory( gScratch, (char *) Temp, (ucell_t) TOS );\r
+ gScratch[TOS] = '\0';\r
+ DBUG(("Delete file = %s\n", gScratch ));\r
+ TOS = sdDeleteFile( gScratch );\r
+ }\r
+ else\r
+ {\r
+ ERR("Filename too large for name buffer.\n");\r
+ TOS = -2;\r
+ }\r
+ endcase;\r
+\r
case ID_FILE_OPEN: /* ( c-addr u fam -- fid ior ) */\r
/* Build NUL terminated name string. */\r
Scratch = M_POP; /* u */\r
TOUCH(Stream);\r
return 0; \r
}\r
+\r
+FileStream *sdDeleteFile( const char *FileName )\r
+{\r
+ UNIMPLEMENTED("sdDeleteFile");\r
+ TOUCH(FileName);\r
+ return NULL;\r
+}\r
#endif\r
\r
typedef FILE FileStream;\r
\r
#define sdOpenFile fopen\r
+ #define sdDeleteFile remove\r
#define sdFlushFile fflush\r
#define sdReadFile fread\r
#define sdWriteFile fwrite\r
CreateDicEntryC( ID_FILL, "FILL", 0 );\r
CreateDicEntryC( ID_FIND, "FIND", 0 );\r
CreateDicEntryC( ID_FILE_CREATE, "CREATE-FILE", 0 );\r
+ CreateDicEntryC( ID_FILE_DELETE, "DELETE-FILE", 0 );\r
CreateDicEntryC( ID_FILE_OPEN, "OPEN-FILE", 0 );\r
CreateDicEntryC( ID_FILE_CLOSE, "CLOSE-FILE", 0 );\r
CreateDicEntryC( ID_FILE_READ, "READ-FILE", 0 );\r