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
}\r
\r
/***************************************************************\r
-** Include a file\r
+** Include then close a file\r
***************************************************************/\r
\r
ThrowCode ffIncludeFile( FileStream *InputFile )\r
/* Pop file stream. */\r
ffPopInputStream();\r
\r
+/* ANSI spec specifies that this should also close the file. */\r
+ sdCloseFile(InputFile);\r
+\r
return exception;\r
}\r
\r