*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Thu, 19 Feb 2004 15:13:00 +0100
changeset 7970 2ae69eb663eb
parent 7969 1c252e9cf79c
child 7971 357e53496acc
*** empty log message ***
FileStream.st
--- a/FileStream.st	Thu Feb 19 00:51:18 2004 +0100
+++ b/FileStream.st	Thu Feb 19 15:13:00 2004 +0100
@@ -76,15 +76,6 @@
 # include <rms.h>
 #endif
 
-#ifndef WIN32
-  extern long ftell();
-# ifndef FREEBSD
-  extern long lseek();
-# endif
-# define HFILE FILE *
-
-#endif
-
 #ifdef WIN32
 # define NO_STDIO
 # ifdef i386
@@ -178,10 +169,18 @@
 #  define HFILE FILE *
 /* #  define fileno(f) f */
 
-// extern long lseek();
+# ifndef MAXPATHLEN
+#  define MAXPATHLEN MAXPATH
+# endif
 
+#else /* not WIN32 */
+  extern long ftell();
+# ifndef FREEBSD
+  extern long lseek();
+# endif
+# define HFILE FILE *
 
-#endif /* WIN32 */
+#endif /* WIN32 or not WIN32*/
 
 #include "stxOSDefs.h"
 
@@ -1444,7 +1443,7 @@
 !FileStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.103 2004-02-18 14:24:31 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.104 2004-02-19 14:13:00 cg Exp $'
 ! !
 
 FileStream initialize!