FileStream.st
changeset 223 3075043790b8
parent 216 a8abff749575
child 249 810798c5c2e5
--- a/FileStream.st	Sun Feb 05 22:28:39 1995 +0100
+++ b/FileStream.st	Sun Feb 05 22:29:58 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.17 1995-02-02 12:21:09 claus Exp $
+$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.18 1995-02-05 21:29:58 claus Exp $
 '!
 
 !FileStream class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.17 1995-02-02 12:21:09 claus Exp $
+$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.18 1995-02-05 21:29:58 claus Exp $
 "
 !
 
@@ -88,6 +88,13 @@
 # define SEEK_END       2
 #endif
 
+/*
+ * on some systems errno is a macro ... check for it here
+ */
+#ifndef errno
+ extern errno;
+#endif
+
 %}
 ! !
 
@@ -389,7 +396,6 @@
 %{
     FILE *f;
     OBJ path;
-    extern errno;
 
     if (_INST(filePointer) == nil) {
 	path = _INST(pathName);
@@ -524,7 +530,6 @@
     FILE *f;
     struct stat buf;
     int ret;
-    extern errno;
     int fd;
 
     if (_INST(filePointer) != nil) {
@@ -562,7 +567,6 @@
 
     FILE *f;
     long currentPosition;
-    extern errno;
 
     if (_INST(filePointer) != nil) {
 	f = (FILE *)MKFD(_INST(filePointer));
@@ -594,7 +598,6 @@
 
     FILE *f;
     int ret;
-    extern errno;
 
     if (_INST(filePointer) != nil) {
 	if (_isSmallInteger(newPos)) {
@@ -632,7 +635,6 @@
 %{
     FILE *f;
     int ret;
-    extern errno;
 
     if (_INST(filePointer) != nil) {
 	f = (FILE *)MKFD(_INST(filePointer));