--- a/FileStream.st Mon Feb 08 21:36:31 1999 +0100
+++ b/FileStream.st Tue Feb 09 12:26:23 1999 +0100
@@ -469,7 +469,7 @@
"return the read/write position in the file -
notice, in smalltalk indices start at 1 so begin of file is 1"
-%{ /* NOCONTEXT */
+%{
FILE *f;
long currentPosition;
@@ -500,7 +500,7 @@
position:newPos
"set the read/write position in the file"
-%{ /* NOCONTEXT */
+%{
FILE *f;
long ret;
@@ -1009,7 +1009,7 @@
fileSize
"return the size in bytes of the file"
-%{ /* NOCONTEXT */
+%{
#ifdef transputer
FILE *f;
@@ -1078,6 +1078,6 @@
!FileStream class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.60 1999-01-15 20:53:35 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.61 1999-02-09 11:26:22 cg Exp $'
! !
FileStream initialize!