Add support for WATCOMC

[pforth] / csrc / pf_io.h

diff --git a/csrc/pf_io.h b/csrc/pf_io.h
index d4346cb..beb3495 100644 (file)
--- a/csrc/pf_io.h
+++ b/csrc/pf_io.h
@@ -81,13 +81,13 @@ void ioTerm( void );
        \r
        /* Prototypes for stubs. */\r
        FileStream *sdOpenFile( const char *FileName, const char *Mode );\r
        \r
        /* Prototypes for stubs. */\r
        FileStream *sdOpenFile( const char *FileName, const char *Mode );\r

-       int32 sdFlushFile( FileStream * Stream  );\r
-       int32 sdReadFile( void *ptr, int32 Size, int32 nItems, FileStream * Stream  );\r
-       int32 sdWriteFile( void *ptr, int32 Size, int32 nItems, FileStream * Stream  );\r
-       int32 sdSeekFile( FileStream * Stream, int32 Position, int32 Mode );\r
-       int32 sdTellFile( FileStream * Stream );\r
-       int32 sdCloseFile( FileStream * Stream );\r
-       int32 sdInputChar( FileStream *stream );\r
+       cell_t sdFlushFile( FileStream * Stream  );\r
+       cell_t sdReadFile( void *ptr, cell_t Size, int32_t nItems, FileStream * Stream  );\r
+       cell_t sdWriteFile( void *ptr, cell_t Size, int32_t nItems, FileStream * Stream  );\r
+       cell_t sdSeekFile( FileStream * Stream, off_t Position, int32_t Mode );\r
+       off_t sdTellFile( FileStream * Stream );\r
+       cell_t sdCloseFile( FileStream * Stream );\r
+       cell_t sdInputChar( FileStream *stream );\r

        \r
        #ifdef __cplusplus\r
        }   \r
        \r
        #ifdef __cplusplus\r
        }   \r


@@ -114,11 +114,18 @@ void ioTerm( void );
                typedef FILE FileStream;\r
 \r
                #define sdOpenFile      fopen\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
                #define sdFlushFile     fflush\r
                #define sdReadFile      fread\r
                #define sdWriteFile     fwrite\r

-               #define sdSeekFile      fseek\r
-               #define sdTellFile      ftell\r
+               #if defined(WIN32) || defined(__NT__)\r
+                       /* TODO To support 64-bit file offset we probably need fseeki64(). */\r
+                       #define sdSeekFile      fseek\r
+                       #define sdTellFile      ftell\r
+               #else\r
+                       #define sdSeekFile      fseeko\r
+                       #define sdTellFile      ftello\r
+               #endif\r

                #define sdCloseFile     fclose\r
                #define sdInputChar     fgetc\r
                \r
                #define sdCloseFile     fclose\r
                #define sdInputChar     fgetc\r
                \r


@@ -143,10 +150,10 @@ void ioTerm( void );
 extern "C" {\r
 #endif\r
 \r
 extern "C" {\r
 #endif\r
 \r

-cell ioAccept( char *Target, cell n1 );\r
-cell ioKey( void);\r
+cell_t ioAccept( char *Target, cell_t n1 );\r
+cell_t ioKey( void);\r

 void ioEmit( char c );\r
 void ioEmit( char c );\r

-void ioType( const char *s, int32 n);\r
+void ioType( const char *s, cell_t n);\r

 \r
 #ifdef __cplusplus\r
 }   \r
 \r
 #ifdef __cplusplus\r
 }   \r