X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/a80283a747da0ca5a791dcfc5fe1a6261feecc5c..3c17aa8d8a273fd184fc9681c0c998d35128b5b9:/csrc/pf_io.h

diff --git a/csrc/pf_io.h b/csrc/pf_io.h
index 2a4af4b..8af1667 100644
--- a/csrc/pf_io.h
+++ b/csrc/pf_io.h
@@ -1,162 +1,162 @@
-/* @(#) pf_io.h 98/01/26 1.2 */
-#ifndef _pf_io_h
-#define _pf_io_h
-
-/***************************************************************
-** Include file for PForth IO
-**
-** Author: Phil Burk
-** Copyright 1994 3DO, Phil Burk, Larry Polansky, David Rosenboom
-**
-** The pForth software code is dedicated to the public domain,
-** and any third party may reproduce, distribute and modify
-** the pForth software code or any derivative works thereof
-** without any compensation or license.  The pForth software
-** code is provided on an "as is" basis without any warranty
-** of any kind, including, without limitation, the implied
-** warranties of merchantability and fitness for a particular
-** purpose and their equivalents under the laws of any jurisdiction.
-**
-***************************************************************/
-
-#define PF_CHAR_XON    (0x11)
-#define PF_CHAR_XOFF   (0x13)   
-
-int  sdTerminalOut( char c );
-int  sdTerminalEcho( char c );
-int  sdTerminalFlush( void );
-int  sdTerminalIn( void );
-int  sdQueryTerminal( void );
-void sdTerminalInit( void );
-void sdTerminalTerm( void );
-
-void ioInit( void );
-void ioTerm( void );
-
-
-#ifdef PF_NO_CHARIO
-	void sdEnableInput( void );
-	void sdDisableInput( void );
-
-#else   /* PF_NO_CHARIO */
-	#ifdef PF_USER_CHARIO
-/* Get user prototypes or macros from include file.
-** API must match that defined above for the stubs.
-*/
-/* If your sdTerminalIn echos, define PF_KEY_ECHOS. */
-		#include PF_USER_CHARIO
-	#else
-		#define sdEnableInput()     /* sdTerminalOut( PF_CHAR_XON ) */
-		#define sdDisableInput()    /* sdTerminalOut( PF_CHAR_XOFF ) */
-		
-	#endif
-#endif   /* PF_NO_CHARIO */
-
-/* Define file access modes. */
-/* User can #undef and re#define using PF_USER_FILEIO if needed. */
-#define PF_FAM_READ_ONLY   (0)
-#define PF_FAM_READ_WRITE  (1)
-#define PF_FAM_WRITE_ONLY  (2)
-#define PF_FAM_BINARY_FLAG (8)
-
-#define PF_FAM_CREATE_WO      ("w")
-#define PF_FAM_CREATE_RW      ("w+")
-#define PF_FAM_OPEN_RO        ("r")
-#define PF_FAM_OPEN_RW        ("r+")
-#define PF_FAM_BIN_CREATE_WO  ("wb")
-#define PF_FAM_BIN_CREATE_RW  ("wb+")
-#define PF_FAM_BIN_OPEN_RO    ("rb")
-#define PF_FAM_BIN_OPEN_RW    ("rb+")
-
-#ifdef PF_NO_FILEIO
-
-	typedef void FileStream;
-
-	extern FileStream *PF_STDIN;
-	extern FileStream *PF_STDOUT;
-
-	#ifdef __cplusplus
-	extern "C" {
-	#endif
-	
-	/* Prototypes for stubs. */
-	FileStream *sdOpenFile( const char *FileName, const char *Mode );
-	cell_t sdFlushFile( FileStream * Stream  );
-	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 );
-	off_t sdTellFile( FileStream * Stream );
-	cell_t sdCloseFile( FileStream * Stream );
-	cell_t sdInputChar( FileStream *stream );
-	
-	#ifdef __cplusplus
-	}   
-	#endif
-	
-	#define  PF_SEEK_SET   (0)
-	#define  PF_SEEK_CUR   (1)
-	#define  PF_SEEK_END   (2)
-	/*
-	** printf() is only used for debugging purposes.
-	** It is not required for normal operation.
-	*/
-	#define PRT(x) /* No printf(). */
-
-#else
-
-	#ifdef PF_USER_FILEIO
-/* Get user prototypes or macros from include file.
-** API must match that defined above for the stubs.
-*/
-		#include PF_USER_FILEIO
-		
-	#else
-		typedef FILE FileStream;
-
-		#define sdOpenFile      fopen
-		#define sdDeleteFile      remove
-		#define sdFlushFile     fflush
-		#define sdReadFile      fread
-		#define sdWriteFile     fwrite
-		#if WIN32
-			/* TODO To support 64-bit file offset we probably need fseeki64(). */
-			#define sdSeekFile      fseek
-			#define sdTellFile      ftell
-		#else
-			#define sdSeekFile      fseeko
-			#define sdTellFile      ftello
-		#endif
-		#define sdCloseFile     fclose
-		#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)
-		
-		/*
-		** printf() is only used for debugging purposes.
-		** It is not required for normal operation.
-		*/
-		#define PRT(x) { printf x; sdFlushFile(PF_STDOUT); }
-	#endif
-
-#endif  /* PF_NO_FILEIO */
-
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-cell_t ioAccept( char *Target, cell_t n1 );
-cell_t ioKey( void);
-void ioEmit( char c );
-void ioType( const char *s, cell_t n);
-
-#ifdef __cplusplus
-}   
-#endif
-
-#endif /* _pf_io_h */
+/* @(#) pf_io.h 98/01/26 1.2 */
+#ifndef _pf_io_h
+#define _pf_io_h
+
+/***************************************************************
+** Include file for PForth IO
+**
+** Author: Phil Burk
+** Copyright 1994 3DO, Phil Burk, Larry Polansky, David Rosenboom
+**
+** The pForth software code is dedicated to the public domain,
+** and any third party may reproduce, distribute and modify
+** the pForth software code or any derivative works thereof
+** without any compensation or license.  The pForth software
+** code is provided on an "as is" basis without any warranty
+** of any kind, including, without limitation, the implied
+** warranties of merchantability and fitness for a particular
+** purpose and their equivalents under the laws of any jurisdiction.
+**
+***************************************************************/
+
+#define PF_CHAR_XON    (0x11)
+#define PF_CHAR_XOFF   (0x13)
+
+int  sdTerminalOut( char c );
+int  sdTerminalEcho( char c );
+int  sdTerminalFlush( void );
+int  sdTerminalIn( void );
+int  sdQueryTerminal( void );
+void sdTerminalInit( void );
+void sdTerminalTerm( void );
+
+void ioInit( void );
+void ioTerm( void );
+
+
+#ifdef PF_NO_CHARIO
+    void sdEnableInput( void );
+    void sdDisableInput( void );
+
+#else   /* PF_NO_CHARIO */
+    #ifdef PF_USER_CHARIO
+/* Get user prototypes or macros from include file.
+** API must match that defined above for the stubs.
+*/
+/* If your sdTerminalIn echos, define PF_KEY_ECHOS. */
+        #include PF_USER_CHARIO
+    #else
+        #define sdEnableInput()     /* sdTerminalOut( PF_CHAR_XON ) */
+        #define sdDisableInput()    /* sdTerminalOut( PF_CHAR_XOFF ) */
+
+    #endif
+#endif   /* PF_NO_CHARIO */
+
+/* Define file access modes. */
+/* User can #undef and re#define using PF_USER_FILEIO if needed. */
+#define PF_FAM_READ_ONLY   (0)
+#define PF_FAM_READ_WRITE  (1)
+#define PF_FAM_WRITE_ONLY  (2)
+#define PF_FAM_BINARY_FLAG (8)
+
+#define PF_FAM_CREATE_WO      ("w")
+#define PF_FAM_CREATE_RW      ("w+")
+#define PF_FAM_OPEN_RO        ("r")
+#define PF_FAM_OPEN_RW        ("r+")
+#define PF_FAM_BIN_CREATE_WO  ("wb")
+#define PF_FAM_BIN_CREATE_RW  ("wb+")
+#define PF_FAM_BIN_OPEN_RO    ("rb")
+#define PF_FAM_BIN_OPEN_RW    ("rb+")
+
+#ifdef PF_NO_FILEIO
+
+    typedef void FileStream;
+
+    extern FileStream *PF_STDIN;
+    extern FileStream *PF_STDOUT;
+
+    #ifdef __cplusplus
+    extern "C" {
+    #endif
+
+    /* Prototypes for stubs. */
+    FileStream *sdOpenFile( const char *FileName, const char *Mode );
+    cell_t sdFlushFile( FileStream * Stream  );
+    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 );
+    off_t sdTellFile( FileStream * Stream );
+    cell_t sdCloseFile( FileStream * Stream );
+    cell_t sdInputChar( FileStream *stream );
+
+    #ifdef __cplusplus
+    }
+    #endif
+
+    #define  PF_SEEK_SET   (0)
+    #define  PF_SEEK_CUR   (1)
+    #define  PF_SEEK_END   (2)
+    /*
+    ** printf() is only used for debugging purposes.
+    ** It is not required for normal operation.
+    */
+    #define PRT(x) /* No printf(). */
+
+#else
+
+    #ifdef PF_USER_FILEIO
+/* Get user prototypes or macros from include file.
+** API must match that defined above for the stubs.
+*/
+        #include PF_USER_FILEIO
+
+    #else
+        typedef FILE FileStream;
+
+        #define sdOpenFile      fopen
+        #define sdDeleteFile      remove
+        #define sdFlushFile     fflush
+        #define sdReadFile      fread
+        #define sdWriteFile     fwrite
+        #if defined(WIN32) || defined(__NT__) || defined(AMIGA)
+            /* TODO To support 64-bit file offset we probably need fseeki64(). */
+            #define sdSeekFile      fseek
+            #define sdTellFile      ftell
+        #else
+            #define sdSeekFile      fseeko
+            #define sdTellFile      ftello
+        #endif
+        #define sdCloseFile     fclose
+        #define sdInputChar     fgetc
+
+        #define PF_STDIN  ((FileStream *) stdin)
+        #define PF_STDOUT ((FileStream *) stdout)
+
+        #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.
+        ** It is not required for normal operation.
+        */
+        #define PRT(x) { printf x; sdFlushFile(PF_STDOUT); }
+    #endif
+
+#endif  /* PF_NO_FILEIO */
+
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+cell_t ioAccept( char *Target, cell_t n1 );
+cell_t ioKey( void);
+void ioEmit( char c );
+void ioType( const char *s, cell_t n);
+
+#ifdef __cplusplus
+}
+#endif
+
+#endif /* _pf_io_h */