Implement FLUSH-FILE

[debian/pforth] / csrc / pf_io.h

diff --git a/csrc/pf_io.h b/csrc/pf_io.h
index e03b034f19dfee3bae584e6b890002b12e814874..8af16677d05e8a06fdbe36355140437e3c9d9265 100644 (file)
--- a/csrc/pf_io.h
+++ b/csrc/pf_io.h
@@ -118,7 +118,7 @@ void ioTerm( void );
         #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
@@ -132,9 +132,9 @@ void ioTerm( void );
         #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)
 
         /*
         ** printf() is only used for debugging purposes.