Implement RESIZE-FILE

[pforth] / csrc / pf_io.h

diff --git a/csrc/pf_io.h b/csrc/pf_io.h
index e03b034..cbd45ec 100644 (file)
--- a/csrc/pf_io.h
+++ b/csrc/pf_io.h
@@ -85,6 +85,9 @@ void ioTerm( void );
     cell_t sdReadFile( void *ptr, cell_t Size, int32_t nItems, FileStream * Stream  );
     cell_t sdWriteFile( void *ptr, cell_t Size, int32_t nItems, FileStream * Stream  );
     cell_t sdSeekFile( FileStream * Stream, off_t Position, int32_t Mode );
     cell_t sdReadFile( void *ptr, cell_t Size, int32_t nItems, FileStream * Stream  );
     cell_t sdWriteFile( void *ptr, cell_t Size, int32_t nItems, FileStream * Stream  );
     cell_t sdSeekFile( FileStream * Stream, off_t Position, int32_t Mode );

+    cell_t sdRenameFile( const char *OldName, const char *NewName );
+    cell_t sdDeleteFile( const char *FileName );
+    ThrowCode sdResizeFile( FileStream *, ucell_t SizeLo, ucell_t SizeHi );

     off_t sdTellFile( FileStream * Stream );
     cell_t sdCloseFile( FileStream * Stream );
     cell_t sdInputChar( FileStream *stream );
     off_t sdTellFile( FileStream * Stream );
     cell_t sdCloseFile( FileStream * Stream );
     cell_t sdInputChar( FileStream *stream );


@@ -114,11 +117,11 @@ void ioTerm( void );
         typedef FILE FileStream;
 
         #define sdOpenFile      fopen
         typedef FILE FileStream;
 
         #define sdOpenFile      fopen

-        #define sdDeleteFile      remove
+        #define sdDeleteFile    remove

         #define sdFlushFile     fflush
         #define sdReadFile      fread
         #define sdWriteFile     fwrite
         #define sdFlushFile     fflush
         #define sdReadFile      fread
         #define sdWriteFile     fwrite

-        #if defined(WIN32) || defined(__NT__)
+        #if defined(WIN32) || defined(__NT__) || defined(AMIGA)

             /* TODO To support 64-bit file offset we probably need fseeki64(). */
             #define sdSeekFile      fseek
             #define sdTellFile      ftell
             /* TODO To support 64-bit file offset we probably need fseeki64(). */
             #define sdSeekFile      fseek
             #define sdTellFile      ftell


@@ -127,14 +130,17 @@ void ioTerm( void );
             #define sdTellFile      ftello
         #endif
         #define sdCloseFile     fclose
             #define sdTellFile      ftello
         #endif
         #define sdCloseFile     fclose

+        #define sdRenameFile    rename

         #define sdInputChar     fgetc
 
         #define PF_STDIN  ((FileStream *) stdin)
         #define PF_STDOUT ((FileStream *) stdout)
 
         #define sdInputChar     fgetc
 
         #define PF_STDIN  ((FileStream *) stdin)
         #define PF_STDOUT ((FileStream *) stdout)
 

-        #define  PF_SEEK_SET   (0)
-        #define  PF_SEEK_CUR   (1)
-        #define  PF_SEEK_END   (2)
+        #define  PF_SEEK_SET   (SEEK_SET)
+        #define  PF_SEEK_CUR   (SEEK_CUR)
+        #define  PF_SEEK_END   (SEEK_END)
+
+        ThrowCode sdResizeFile( FileStream *, ucell_t SizeLo, ucell_t SizeHi );

 
         /*
         ** printf() is only used for debugging purposes.
 
         /*
         ** printf() is only used for debugging purposes.