hg/stx-libbasic: ExternalStream.st@09c13ab58bb2 (annotated)

1 a27a279701f8 Initial revision claus parents: diff changeset	1	"
5 67342904af11 * empty log message * claus parents: 3 diff changeset	2	COPYRIGHT (c) 1988 by Claus Gittinger
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3	All Rights Reserved
1 a27a279701f8 Initial revision claus parents: diff changeset	4
a27a279701f8 Initial revision claus parents: diff changeset	5	This software is furnished under a license and may be used
a27a279701f8 Initial revision claus parents: diff changeset	6	only in accordance with the terms of that license and with the
a27a279701f8 Initial revision claus parents: diff changeset	7	inclusion of the above copyright notice. This software may not
a27a279701f8 Initial revision claus parents: diff changeset	8	be provided or otherwise made available to, or used by, any
a27a279701f8 Initial revision claus parents: diff changeset	9	other person. No title to or ownership of the software is
a27a279701f8 Initial revision claus parents: diff changeset	10	hereby transferred.
a27a279701f8 Initial revision claus parents: diff changeset	11	"
a27a279701f8 Initial revision claus parents: diff changeset	12
a27a279701f8 Initial revision claus parents: diff changeset	13	ReadWriteStream subclass:#ExternalStream
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	14	instanceVariableNames:'filePointer mode buffered binary eolMode hitEOF didWrite
2134 246a3bdab8b4 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 2120 diff changeset	15	lastErrorNumber readAhead'
246a3bdab8b4 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 2120 diff changeset	16	classVariableNames:'Lobby LastErrorNumber InvalidReadSignal InvalidWriteSignal
246a3bdab8b4 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 2120 diff changeset	17	InvalidModeSignal OpenErrorSignal StreamNotOpenSignal
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	18	InvalidOperationSignal DefaultEOLMode ReadMode ReadWriteMode
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	19	WriteMode AppendMode CreateReadWriteMode'
2134 246a3bdab8b4 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 2120 diff changeset	20	poolDictionaries:''
246a3bdab8b4 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 2120 diff changeset	21	category:'Streams-External'
1 a27a279701f8 Initial revision claus parents: diff changeset	22	!
a27a279701f8 Initial revision claus parents: diff changeset	23
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	24	!ExternalStream primitiveDefinitions!
1 a27a279701f8 Initial revision claus parents: diff changeset	25	%{
2896 be30640b9012 VMS stuff Claus Gittinger <cg@exept.de> parents: 2875 diff changeset	26
be30640b9012 VMS stuff Claus Gittinger <cg@exept.de> parents: 2875 diff changeset	27	#ifdef __openVMS__
be30640b9012 VMS stuff Claus Gittinger <cg@exept.de> parents: 2875 diff changeset	28	# undef __new
be30640b9012 VMS stuff Claus Gittinger <cg@exept.de> parents: 2875 diff changeset	29	#endif
be30640b9012 VMS stuff Claus Gittinger <cg@exept.de> parents: 2875 diff changeset	30
1 a27a279701f8 Initial revision claus parents: diff changeset	31	#include <stdio.h>
437 a005e97d261e . claus parents: 436 diff changeset	32	#define _STDIO_H_INCLUDED_
a005e97d261e . claus parents: 436 diff changeset	33
2903 e64704e86cce various VMS changes Claus Gittinger <cg@exept.de> parents: 2896 diff changeset	34	#ifndef NO_FCNTL_H
e64704e86cce various VMS changes Claus Gittinger <cg@exept.de> parents: 2896 diff changeset	35	# include <fcntl.h>
e64704e86cce various VMS changes Claus Gittinger <cg@exept.de> parents: 2896 diff changeset	36	# define _FCNTL_H_INCLUDED_
e64704e86cce various VMS changes Claus Gittinger <cg@exept.de> parents: 2896 diff changeset	37	#endif
437 a005e97d261e . claus parents: 436 diff changeset	38
10 4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	39	#include <errno.h>
437 a005e97d261e . claus parents: 436 diff changeset	40	#define _ERRNO_H_INCLUDED_
42 e33491f6f260 * empty log message * claus parents: 38 diff changeset	41
1141 8ea1b43f7034 * empty log message * Claus Gittinger <cg@exept.de> parents: 1138 diff changeset	42	#ifdef LINUX
8ea1b43f7034 * empty log message * Claus Gittinger <cg@exept.de> parents: 1138 diff changeset	43	/* use inline string macros */
8ea1b43f7034 * empty log message * Claus Gittinger <cg@exept.de> parents: 1138 diff changeset	44	# define __STRINGDEFS__
8ea1b43f7034 * empty log message * Claus Gittinger <cg@exept.de> parents: 1138 diff changeset	45	# include <linuxIntern.h>
8ea1b43f7034 * empty log message * Claus Gittinger <cg@exept.de> parents: 1138 diff changeset	46	#endif
8ea1b43f7034 * empty log message * Claus Gittinger <cg@exept.de> parents: 1138 diff changeset	47
42 e33491f6f260 * empty log message * claus parents: 38 diff changeset	48	#ifdef hpux
e33491f6f260 * empty log message * claus parents: 38 diff changeset	49	# define fileno(f) ((f->__fileH << 8) \| (f->__fileL))
e33491f6f260 * empty log message * claus parents: 38 diff changeset	50	#endif
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	51
933 2eebae059045 oops - when truncating buffered streams, we must flush & seek first (stdio trouble) Claus Gittinger <cg@exept.de> parents: 932 diff changeset	52	#ifndef SEEK_SET
2eebae059045 oops - when truncating buffered streams, we must flush & seek first (stdio trouble) Claus Gittinger <cg@exept.de> parents: 932 diff changeset	53	# define SEEK_SET 0
2eebae059045 oops - when truncating buffered streams, we must flush & seek first (stdio trouble) Claus Gittinger <cg@exept.de> parents: 932 diff changeset	54	#endif
2eebae059045 oops - when truncating buffered streams, we must flush & seek first (stdio trouble) Claus Gittinger <cg@exept.de> parents: 932 diff changeset	55	#ifndef SEEK_CUR
2eebae059045 oops - when truncating buffered streams, we must flush & seek first (stdio trouble) Claus Gittinger <cg@exept.de> parents: 932 diff changeset	56	# define SEEK_CUR 1
2eebae059045 oops - when truncating buffered streams, we must flush & seek first (stdio trouble) Claus Gittinger <cg@exept.de> parents: 932 diff changeset	57	#endif
2eebae059045 oops - when truncating buffered streams, we must flush & seek first (stdio trouble) Claus Gittinger <cg@exept.de> parents: 932 diff changeset	58	#ifndef SEEK_END
2eebae059045 oops - when truncating buffered streams, we must flush & seek first (stdio trouble) Claus Gittinger <cg@exept.de> parents: 932 diff changeset	59	# define SEEK_END 2
2eebae059045 oops - when truncating buffered streams, we must flush & seek first (stdio trouble) Claus Gittinger <cg@exept.de> parents: 932 diff changeset	60	#endif
2eebae059045 oops - when truncating buffered streams, we must flush & seek first (stdio trouble) Claus Gittinger <cg@exept.de> parents: 932 diff changeset	61
2961 a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	62	#ifdef __VMS__
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	63	# define CLEAR_ERRNO errno = 0;
2961 a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	64	#else
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	65	# define CLEAR_ERRNO /* nothing */
2961 a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	66	#endif
a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	67
3420 4dc6667afda9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3419 diff changeset	68	#ifdef LATER
4dc6667afda9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3419 diff changeset	69	#define __isFilePointer(x) (__Class(x) == ExternalStream__FilePointer)
4dc6667afda9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3419 diff changeset	70	#define __CHANGECLASS(o, x) (__qClass(o) = (x), o)
4dc6667afda9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3419 diff changeset	71	#define __MKFILEPOINTER(f) __CHANGECLASS(__MKEXTERNALADDRESS(f), ExternalStream__FilePointer)
4dc6667afda9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3419 diff changeset	72	#else
4dc6667afda9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3419 diff changeset	73	#define __MKFILEPOINTER(f) __MKEXTERNALADDRESS(f)
4dc6667afda9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3419 diff changeset	74	#endif
4dc6667afda9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3419 diff changeset	75
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	76	#ifdef xxxWIN32
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	77	# define NO_STDIO
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	78	# define __HANDLEVal(o) (HFILE)(__externalAddressVal(o))
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	79	# define READ(f, cp, n) _lread((f), (cp), (n))
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	80	# define WRITE(f, cp, n) _lwrite((f), (cp), (n))
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	81	# define FFLUSH(fp) /* nothing */
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	82	# undef STDIO_NEEDS_FSEEK
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	83	# define FILEPOINTER HFILE
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	84	# define FILENO(f) (f)
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	85	#else
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	86	# define STDIO_NEEDS_FSEEK
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	87	# define FILEPOINTER FILE *
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	88	# define READ(f, cp, n) read(f, cp, n)
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	89	# define WRITE(f, cp, n) write(f, cp, n)
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	90	# define FFLUSH(fp) fflush(fp)
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	91	# define FILENO(f) fileno(f)
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	92	#endif
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	93
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	94
2596 36c872e47b00 * empty log message * Claus Gittinger <cg@exept.de> parents: 2593 diff changeset	95	#if defined(WIN32) && defined(NO_STDIO)
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	96
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	97	# ifdef i386
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	98	# define _X86_
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	99	# endif
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	100
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	101	# undef INT
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	102	# undef Array
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	103	# undef Number
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	104	# undef Method
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	105	# undef Point
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	106	# undef Rectangle
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	107	# undef Block
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	108
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	109	/* # include <windows.h> /* */
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	110	# include <stdarg.h> /* */
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	111	# include <windef.h> /* */
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	112	# include <winbase.h> /* */
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	113	# include <wingdi.h> /* */
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	114	# include <winuser.h> /* */
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	115
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	116	# ifdef __DEF_Array
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	117	# define Array __DEF_Array
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	118	# endif
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	119	# ifdef __DEF_Number
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	120	# define Number __DEF_Number
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	121	# endif
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	122	# ifdef __DEF_Method
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	123	# define Method __DEF_Method
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	124	# endif
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	125	# ifdef __DEF_Point
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	126	# define Point __DEF_Point
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	127	# endif
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	128	# ifdef __DEF_Block
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	129	# define Block __DEF_Block
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	130	# endif
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	131
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	132	# define stat _stat
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	133
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	134	#endif /* WIN32 */
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	135
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	136	/*
a8abff749575 * empty log message * claus parents: 213 diff changeset	137	* stdio library requires an fseek before reading whenever a file
a8abff749575 * empty log message * claus parents: 213 diff changeset	138	* is open for read/write and the last operation was a write.
a8abff749575 * empty log message * claus parents: 213 diff changeset	139	* (also vice-versa).
a8abff749575 * empty log message * claus parents: 213 diff changeset	140	* All code should use the following macro before doing reads:
a8abff749575 * empty log message * claus parents: 213 diff changeset	141	*/
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	142	#ifdef STDIO_NEEDS_FSEEK
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	143	# define OPT_FSEEK(f, pos, whence) fseek(f, pos, whence)
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	144	#else
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	145	# define OPT_FSEEK(f, pos, whence) /* nothing */
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	146	#endif
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	147
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	148	#define __READING__(f) \
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	149	if ((__INST(didWrite) != false) \
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	150	&& (__INST(mode) == @symbol(readwrite))) { \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	151	__INST(didWrite) = false; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	152	OPT_FSEEK(f, 0L, SEEK_CUR); /* needed in stdio */ \
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	153	}
a8abff749575 * empty log message * claus parents: 213 diff changeset	154
a8abff749575 * empty log message * claus parents: 213 diff changeset	155	#define __WRITING__(f) \
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	156	if ((__INST(didWrite) != true) \
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	157	&& (__INST(mode) == @symbol(readwrite))) { \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	158	__INST(didWrite) = true; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	159	OPT_FSEEK(f, 0L, SEEK_CUR); /* needed in stdio */ \
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	160	}
a8abff749575 * empty log message * claus parents: 213 diff changeset	161
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	162
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	163	#ifdef NO_STDIO
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	164	#define __UNGETC__(c, f, isBuffered) \
2963 17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	165	__INST(readAhead) = __MKSMALLINT((c));
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	166	#else
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	167	#define __UNGETC__(c, f, isBuffered) \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	168	if (isBuffered) { \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	169	ungetc((c), (f)); \
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	170	} else { \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	171	__INST(readAhead) = __MKSMALLINT((c)); \
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	172	}
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	173	#endif
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	174
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	175	#ifdef NO_STDIO
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	176	#define __READBYTE__(ret, f, buf, isBuffered) \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	177	{ \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	178	OBJ rA = __INST(readAhead); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	179	if (rA != nil) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	180	*(buf) = __intVal(rA); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	181	__INST(readAhead) = nil; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	182	(ret) = 1; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	183	} else { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	184	for (;;) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	185	CLEAR_ERRNO; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	186	(ret) = READ(f, buf, 1); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	187	if ((ret) >= 0 \|\| errno != EINTR) \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	188	break; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	189	__HANDLE_INTERRUPTS__; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	190	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	191	} \
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	192	}
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	193	#else
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	194	#define __READBYTE__(ret, f, buf, isBuffered) \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	195	if (isBuffered) { \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	196	for (;;) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	197	CLEAR_ERRNO; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	198	(ret) = getc(f); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	199	if ((ret) >= 0) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	200	*(buf) = (ret); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	201	(ret) = 1; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	202	} else if (ferror(f)) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	203	if (errno == EINTR) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	204	__HANDLE_INTERRUPTS__; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	205	clearerr(f); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	206	continue; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	207	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	208	} else \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	209	(ret) = 0; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	210	break; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	211	} \
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	212	} else { \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	213	OBJ rA = __INST(readAhead); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	214	if (rA != nil) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	215	*(buf) = __intVal(rA); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	216	__INST(readAhead) = nil; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	217	(ret) = 1; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	218	} else { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	219	for (;;) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	220	CLEAR_ERRNO; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	221	(ret) = read(fileno(f), buf, 1); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	222	if ((ret) >= 0 \|\| errno != EINTR) \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	223	break; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	224	__HANDLE_INTERRUPTS__; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	225	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	226	} \
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	227	}
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	228	#endif
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	229
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	230	/*
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	231	* read_bytes into a c-buffer
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	232	* (which may NOT move)
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	233	*/
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	234	#ifdef NO_STDIO
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	235	#define __READBYTES__(ret, f, buf, cnt, isBuffered) \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	236	{ \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	237	int __offs = 0; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	238	\
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	239	while (__offs < (cnt)) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	240	OBJ rA = __INST(readAhead); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	241	if (rA != nil) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	242	(buf)[__offs] = __intVal(rA); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	243	__INST(readAhead) = nil; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	244	(ret) = 1; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	245	} else { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	246	CLEAR_ERRNO; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	247	(ret) = READ(f, (buf)+__offs, (cnt)-__offs); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	248	if ((ret) <= 0) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	249	if ((ret) < 0 && errno == EINTR) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	250	__HANDLE_INTERRUPTS__; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	251	continue; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	252	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	253	break; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	254	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	255	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	256	__offs += (ret); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	257	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	258	if (__offs > 0) \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	259	(ret) = __offs; \
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	260	}
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	261	#else
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	262	#define __READBYTES__(ret, f, buf, cnt, isBuffered) \
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	263	(ret) = 0; \
71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	264	if (isBuffered) { \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	265	int __offs = 0; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	266	while (__offs < (cnt)) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	267	CLEAR_ERRNO; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	268	(ret) = getc(f); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	269	if ((ret) < 0) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	270	if (ferror(f)) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	271	if (errno == EINTR) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	272	__HANDLE_INTERRUPTS__; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	273	clearerr(f); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	274	continue; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	275	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	276	} else { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	277	(ret) = 0; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	278	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	279	break; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	280	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	281	(buf)[__offs++] = (ret); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	282	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	283	if (__offs > 0) \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	284	(ret) = __offs; \
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	285	} else { \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	286	int __offs = 0; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	287	int fd = fileno(f); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	288	\
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	289	while (__offs < (cnt)) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	290	OBJ rA = __INST(readAhead); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	291	if (rA != nil) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	292	(buf)[__offs] = __intVal(rA); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	293	__INST(readAhead) = nil; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	294	(ret) = 1; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	295	} else { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	296	CLEAR_ERRNO; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	297	(ret) = read(fd, (buf)+__offs, (cnt)-__offs); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	298	if ((ret) <= 0) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	299	if ((ret) < 0 && errno == EINTR) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	300	__HANDLE_INTERRUPTS__; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	301	continue; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	302	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	303	break; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	304	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	305	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	306	__offs += (ret); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	307	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	308	if (__offs > 0) \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	309	(ret) = __offs; \
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	310	}
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	311	#endif
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	312
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	313	/*
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	314	* read_bytes into an object
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	315	* (which may be moved by GC)
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	316	*/
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	317	#ifdef NO_STDIO
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	318	#define __READBYTES_OBJ__(ret, f, obj, obj_offs, cnt, isBuffered) \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	319	{ \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	320	int __ooffs = obj_offs; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	321	int __offs = 0; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	322	char buf = (char )(obj); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	323	\
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	324	(ret) = 0; \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	325	{ \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	326	while (__offs < (cnt)) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	327	OBJ rA = __INST(readAhead); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	328	if (rA != nil) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	329	(buf)[__ooffs+__offs] = __intVal(rA); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	330	__INST(readAhead) = nil; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	331	(ret) = 1; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	332	} else { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	333	CLEAR_ERRNO; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	334	(ret) = READ(f, (buf)+__ooffs+__offs, (cnt)-__offs); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	335	if ((ret) <= 0) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	336	if ((ret) < 0 && errno == EINTR) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	337	__HANDLE_INTERRUPTS__; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	338	/* refetch */ \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	339	buf = (char *)(obj); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	340	continue; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	341	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	342	break; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	343	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	344	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	345	__offs += (ret); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	346	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	347	if (__offs > 0) \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	348	(ret) = __offs; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	349	} \
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	350	}
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	351	#else
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	352	#define __READBYTES_OBJ__(ret, f, obj, obj_offs, cnt, isBuffered) \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	353	{ \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	354	int __ooffs = obj_offs; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	355	int __offs = 0; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	356	char buf = (char )(obj); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	357	\
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	358	(ret) = 0; \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	359	if (isBuffered) { \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	360	while (__offs < (cnt)) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	361	CLEAR_ERRNO; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	362	(ret) = getc(f); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	363	if ((ret) < 0) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	364	if (ferror(f)) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	365	if (errno == EINTR) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	366	__HANDLE_INTERRUPTS__; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	367	clearerr(f); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	368	/* refetch */ \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	369	buf = (char *)(obj); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	370	continue; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	371	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	372	} else { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	373	(ret) = 0; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	374	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	375	break; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	376	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	377	(buf)[__ooffs+__offs] = (ret); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	378	__offs++; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	379	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	380	if (__offs > 0) \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	381	(ret) = __offs; \
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	382	} else { \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	383	int fd = fileno(f); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	384	\
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	385	while (__offs < (cnt)) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	386	OBJ rA = __INST(readAhead); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	387	if (rA != nil) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	388	(buf)[__ooffs+__offs] = __intVal(rA); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	389	__INST(readAhead) = nil; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	390	(ret) = 1; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	391	} else { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	392	CLEAR_ERRNO; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	393	(ret) = read(fd, (buf)+__ooffs+__offs, (cnt)-__offs); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	394	if ((ret) <= 0) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	395	if ((ret) < 0 && errno == EINTR) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	396	__HANDLE_INTERRUPTS__; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	397	/* refetch */ \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	398	buf = (char *)(obj); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	399	continue; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	400	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	401	break; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	402	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	403	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	404	__offs += (ret); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	405	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	406	if (__offs > 0) \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	407	(ret) = __offs; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	408	} \
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	409	}
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	410
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	411	#define __READAVAILBYTES_OBJ__(ret, f, obj, obj_offs, cnt, isBuffered) \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	412	{ \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	413	int __ooffs = obj_offs; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	414	int __offs = 0; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	415	char buf = (char )(obj); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	416	\
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	417	(ret) = 0; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	418	if (isBuffered) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	419	while (__offs < (cnt)) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	420	CLEAR_ERRNO; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	421	(ret) = getc(f); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	422	if ((ret) < 0) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	423	if (ferror(f)) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	424	if (errno == EINTR) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	425	__HANDLE_INTERRUPTS__; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	426	clearerr(f); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	427	/* refetch */ \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	428	buf = (char *)(obj); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	429	continue; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	430	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	431	} else { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	432	(ret) = 0; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	433	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	434	break; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	435	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	436	(buf)[__ooffs+__offs] = (ret); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	437	__offs++; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	438	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	439	if (__offs > 0) \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	440	(ret) = __offs; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	441	} else { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	442	int fd = fileno(f); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	443	\
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	444	while (__offs < (cnt)) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	445	OBJ rA = __INST(readAhead); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	446	if (rA != nil) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	447	(buf)[__ooffs+__offs] = __intVal(rA); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	448	__INST(readAhead) = nil; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	449	(ret) = 1; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	450	__offs += (ret); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	451	continue; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	452	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	453	CLEAR_ERRNO; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	454	(ret) = read(fd, (buf)+__ooffs+__offs, (cnt)-__offs); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	455	if ((ret) < 0 && errno == EINTR) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	456	__HANDLE_INTERRUPTS__; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	457	/* refetch */ \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	458	buf = (char *)(obj); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	459	continue; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	460	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	461	__offs += (ret); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	462	break; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	463	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	464	if (__offs > 0) \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	465	(ret) = __offs; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	466	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	467	}
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	468
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	469
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	470	#endif
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	471
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	472	#ifdef NO_STDIO
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	473	#define __WRITEBYTE__(ret, f, buf, isBuffered) \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	474	for (;;) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	475	CLEAR_ERRNO; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	476	(ret) = WRITE(f, buf, 1); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	477	if ((ret) >= 0 \|\| errno != EINTR) \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	478	break; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	479	__HANDLE_INTERRUPTS__; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	480	}
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	481	#else
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	482	#define __WRITEBYTE__(ret, f, buf, isBuffered) \
71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	483	if (isBuffered) { \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	484	for (;;) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	485	CLEAR_ERRNO; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	486	ret = putc(*(buf), f); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	487	if ((ret) >= 0) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	488	(ret) = 1; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	489	} else if (ferror(f)) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	490	if (errno == EINTR) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	491	__HANDLE_INTERRUPTS__; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	492	clearerr(f); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	493	continue; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	494	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	495	} else \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	496	(ret) = 0; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	497	break; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	498	} \
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	499	} else { \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	500	for (;;) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	501	CLEAR_ERRNO; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	502	(ret) = write(fileno(f), buf, 1); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	503	if ((ret) >= 0 \|\| errno != EINTR) \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	504	break; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	505	__HANDLE_INTERRUPTS__; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	506	} \
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	507	}
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	508	#endif
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	509
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	510	/*
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	511	* write_bytes from a c-buffer
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	512	* (which may NOT move)
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	513	*/
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	514	#ifdef NO_STDIO
2961 a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	515	#define __WRITEBYTES__(ret, f, buf, cnt, isBuffered) \
a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	516	(ret) = 0; \
a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	517	{ \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	518	int __offs = 0; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	519	while (__offs < (cnt)) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	520	CLEAR_ERRNO; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	521	ret = WRITE(f, (buf)+__offs, (cnt)-__offs); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	522	if (ret <= 0) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	523	if (ret < 0 && errno == EINTR) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	524	__HANDLE_INTERRUPTS__; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	525	continue; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	526	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	527	break; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	528	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	529	__offs += (ret); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	530	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	531	if (__offs > 0) \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	532	(ret) = __offs; \
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	533	}
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	534	#else
2961 a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	535	#define __WRITEBYTES__(ret, f, buf, cnt, isBuffered) \
a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	536	(ret) = 0; \
a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	537	if (isBuffered) { \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	538	int __offs = 0; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	539	while (__offs < (cnt)) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	540	CLEAR_ERRNO; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	541	ret = fwrite((buf)+__offs, 1, (cnt)-__offs, f);\
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	542	if ((ret) <= 0) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	543	if (ferror(f)) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	544	if (errno == EINTR) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	545	__HANDLE_INTERRUPTS__; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	546	clearerr(f); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	547	continue; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	548	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	549	break; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	550	} else { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	551	(ret) = 0; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	552	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	553	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	554	__offs += (ret); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	555	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	556	if (__offs > 0) \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	557	(ret) = __offs; \
2961 a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	558	} else { \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	559	int __offs = 0; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	560	while (__offs < (cnt)) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	561	CLEAR_ERRNO; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	562	ret = write(fileno(f), (buf)+__offs, (cnt)-__offs);\
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	563	if (ret <= 0) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	564	if (ret < 0 && errno == EINTR) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	565	__HANDLE_INTERRUPTS__; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	566	continue; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	567	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	568	break; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	569	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	570	__offs += (ret); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	571	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	572	if (__offs > 0) \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	573	(ret) = __offs; \
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	574	}
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	575	#endif
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	576
223 3075043790b8 immediateInterr & errno cleanup claus parents: 216 diff changeset	577	/*
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	578	* write_bytes from an object
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	579	* (which may be moved around by GC)
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	580	*/
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	581	#ifdef NO_STDIO
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	582	#define __WRITEBYTES_OBJ__(ret, f, obj, obj_offs, cnt, isBuffered) \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	583	{ \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	584	int __ooffs = obj_offs; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	585	int __offs = 0; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	586	char buf = (char )(obj); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	587	\
2961 a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	588	(ret) = 0; \
a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	589	{ \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	590	while (__offs < (cnt)) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	591	CLEAR_ERRNO; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	592	ret = WRITE(f, (buf)+__ooffs+__offs, (cnt)-__offs); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	593	if (ret <= 0) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	594	if (ret < 0 && errno == EINTR) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	595	__HANDLE_INTERRUPTS__; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	596	/* refetch */ \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	597	buf = (char *)(obj); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	598	continue; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	599	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	600	break; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	601	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	602	__offs += (ret); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	603	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	604	if (__offs > 0) \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	605	(ret) = __offs; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	606	} \
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	607	}
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	608	#else
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	609	#define __WRITEBYTES_OBJ__(ret, f, obj, obj_offs, cnt, isBuffered) \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	610	{ \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	611	int __ooffs = obj_offs; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	612	int __offs = 0; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	613	char buf = (char )(obj); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	614	\
2961 a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	615	(ret) = 0; \
a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	616	if (isBuffered) { \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	617	while (__offs < (cnt)) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	618	CLEAR_ERRNO; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	619	ret = fwrite((buf)+__ooffs+__offs, 1, (cnt)-__offs, f); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	620	if ((ret) <= 0) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	621	if (ferror(f)) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	622	if (errno == EINTR) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	623	__HANDLE_INTERRUPTS__; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	624	/* refetch */ \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	625	buf = (char *)(obj); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	626	clearerr(f); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	627	continue; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	628	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	629	break; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	630	} else { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	631	(ret) = 0; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	632	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	633	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	634	__offs += (ret); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	635	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	636	if (__offs > 0) \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	637	(ret) = __offs; \
2961 a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	638	} else { \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	639	while (__offs < (cnt)) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	640	CLEAR_ERRNO; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	641	ret = write(fileno(f), (buf)+__ooffs+__offs, (cnt)-__offs); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	642	if (ret <= 0) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	643	if (ret < 0 && errno == EINTR) { \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	644	__HANDLE_INTERRUPTS__; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	645	/* refetch */ \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	646	buf = (char *)(obj); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	647	continue; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	648	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	649	break; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	650	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	651	__offs += (ret); \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	652	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	653	if (__offs > 0) \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	654	(ret) = __offs; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	655	} \
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	656	}
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	657	#endif
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	658
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	659	/*
223 3075043790b8 immediateInterr & errno cleanup claus parents: 216 diff changeset	660	* on some systems errno is a macro ... check for it here
3075043790b8 immediateInterr & errno cleanup claus parents: 216 diff changeset	661	*/
3075043790b8 immediateInterr & errno cleanup claus parents: 216 diff changeset	662	#ifndef errno
3075043790b8 immediateInterr & errno cleanup claus parents: 216 diff changeset	663	extern errno;
3075043790b8 immediateInterr & errno cleanup claus parents: 216 diff changeset	664	#endif
3075043790b8 immediateInterr & errno cleanup claus parents: 216 diff changeset	665
1 a27a279701f8 Initial revision claus parents: diff changeset	666	%}
188 454ed0ee733e EINTR problems claus parents: 159 diff changeset	667	! !
1 a27a279701f8 Initial revision claus parents: diff changeset	668
2045 1ad17ca6520f fall back to super>>nextPutLine: if argument is not a string. Claus Gittinger <cg@exept.de> parents: 2044 diff changeset	669	!ExternalStream class methodsFor:'documentation'!
22 847106305963 * empty log message * claus parents: 12 diff changeset	670
88 81dacba7a63a * empty log message * claus parents: 85 diff changeset	671	copyright
81dacba7a63a * empty log message * claus parents: 85 diff changeset	672	"
81dacba7a63a * empty log message * claus parents: 85 diff changeset	673	COPYRIGHT (c) 1988 by Claus Gittinger
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	674	All Rights Reserved
88 81dacba7a63a * empty log message * claus parents: 85 diff changeset	675
81dacba7a63a * empty log message * claus parents: 85 diff changeset	676	This software is furnished under a license and may be used
81dacba7a63a * empty log message * claus parents: 85 diff changeset	677	only in accordance with the terms of that license and with the
81dacba7a63a * empty log message * claus parents: 85 diff changeset	678	inclusion of the above copyright notice. This software may not
81dacba7a63a * empty log message * claus parents: 85 diff changeset	679	be provided or otherwise made available to, or used by, any
81dacba7a63a * empty log message * claus parents: 85 diff changeset	680	other person. No title to or ownership of the software is
81dacba7a63a * empty log message * claus parents: 85 diff changeset	681	hereby transferred.
81dacba7a63a * empty log message * claus parents: 85 diff changeset	682	"
81dacba7a63a * empty log message * claus parents: 85 diff changeset	683	!
81dacba7a63a * empty log message * claus parents: 85 diff changeset	684
22 847106305963 * empty log message * claus parents: 12 diff changeset	685	documentation
847106305963 * empty log message * claus parents: 12 diff changeset	686	"
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	687	ExternalStream defines protocol common to Streams which have a file-descriptor and
59faa75185ba * empty log message * claus parents: 54 diff changeset	688	represent some file or communicationChannel of the underlying OperatingSystem.
59faa75185ba * empty log message * claus parents: 54 diff changeset	689	ExternalStream is abstract; concrete classes are FileStream, PipeStream etc.
77 6c38ca59927f * empty log message * claus parents: 68 diff changeset	690
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	691	ExternalStreams can be in two modes: text- (the default) and binary-mode.
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	692	In text-mode, the elements read/written are characters;
59faa75185ba * empty log message * claus parents: 54 diff changeset	693	while in binary-mode the basic elements are bytes which read/write as SmallIntegers
59faa75185ba * empty log message * claus parents: 54 diff changeset	694	in the range 0..255.
22 847106305963 * empty log message * claus parents: 12 diff changeset	695
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	696	Also, the stream can be either in buffered or unbuffered mode. In buffered mode,
59faa75185ba * empty log message * claus parents: 54 diff changeset	697	data is not written until either a cr is written (in text mode) or a synchronizeOutput
59faa75185ba * empty log message * claus parents: 54 diff changeset	698	is sent (in both modes).
22 847106305963 * empty log message * claus parents: 12 diff changeset	699
77 6c38ca59927f * empty log message * claus parents: 68 diff changeset	700	The underlying OperatingSystem streams may either be closed explicitely (sending a close)
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	701	or just forgotten - in this case, the garbage collector will eventually collect the
77 6c38ca59927f * empty log message * claus parents: 68 diff changeset	702	object AND a close will be performed automatically (but you will NOT know when this
6c38ca59927f * empty log message * claus parents: 68 diff changeset	703	happens - so it is recommended, that you close your files when no longer needed).
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	704	Closing is also suggested, since if smalltalk is finished (be it by purpose, or due to
77 6c38ca59927f * empty log message * claus parents: 68 diff changeset	705	some crash) the data will not be in the file, if unclosed.
6c38ca59927f * empty log message * claus parents: 68 diff changeset	706	All streams understand the close message, so it never hurts to use it (it is defined as
6c38ca59927f * empty log message * claus parents: 68 diff changeset	707	a noop in one of the superclasses).
22 847106305963 * empty log message * claus parents: 12 diff changeset	708
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	709	Most of the methods found here redefine inherited methods for better performance,
59faa75185ba * empty log message * claus parents: 54 diff changeset	710	since I/O from/to files should be fast.
22 847106305963 * empty log message * claus parents: 12 diff changeset	711
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	712	Recovering a snapshot:
1295 83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	713	not all streams can be restored to the state they had before - see the implementation of
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	714	reOpen in subclasses for more information.
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	715	For streams sitting on some communication channel (i.e. Pipes and Sockets) you should
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	716	reestablish the stream upon image restart (make someone dependent on ObjectMemory).
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	717	FileStreams are reopened and positioned to their offset they had at snapshot time.
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	718	This may fail, if the file was removed or renamed - or lead to confusion
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	719	if the contents changed in the meantime.
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	720	Therefore, it is a good idea to reopen files and check for these things at restart time.
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	721
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	722	[Instance variables:]
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	723
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	724	filePointer <Integer> the unix FILE*; somehow mapped to an integer
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	725	(notice: not the fd)
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	726	on Windows: the fileHandle
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	727	mode <Symbol> #readwrite, #readonly or #writeonly
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	728	buffered <Boolean> true, if buffered (i.e. collects characters - does
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	729	not output immediately)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	730	binary <Boolean> true if in binary mode (reads bytes instead of chars)
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	731	eolMode <Symbol> one of nil, #cr or #crlf.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	732	determines how lines should be terminated.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	733	nil -> newLine (as in Unix);
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	734	#crlf -> with cr-lf (as in MSDOS)
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	735	#cr -> with cr (as in VMS)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	736	hitEOF <Boolean> true, if EOF was reached
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	737
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	738	lastErrorNumber <Integer> the value of errno (only valid right after the error -
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	739	updated with next i/o operation)
1295 83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	740
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	741	[Class variables:]
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	742	Lobby <Registry> keeps track of used ext-streams (to free up FILE*'s)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	743
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	744	StreamErrorSignal <Signal> parent of all stream errors (see Stream class)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	745	InvalidReadSignal <Signal> raised on read from writeonly stream
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	746	InvalidWriteSignal <Signal> raised on write to readonly stream
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	747	InvalidModeSignal <Signal> raised on text I/O with binary-stream
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	748	or binary I/O with text-stream
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	749	OpenErrorSignal <Signal> raised if open fails
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	750	StreamNotOpenSignal <Signal> raised on I/O with non-open stream
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	751
514c749165c3 * empty log message * claus parents: 108 diff changeset	752	Additional notes:
514c749165c3 * empty log message * claus parents: 108 diff changeset	753	This class is implemented using the underlying stdio-c library package, which
514c749165c3 * empty log message * claus parents: 108 diff changeset	754	has both advantages and disadvantages: since it is portable (posix defined), porting
514c749165c3 * empty log message * claus parents: 108 diff changeset	755	ST/X to non-Unix machines is simplified. The disadvantage is that the stdio library
514c749165c3 * empty log message * claus parents: 108 diff changeset	756	has big problems handling unbounded Streams, since the EOF handling in stdio is
514c749165c3 * empty log message * claus parents: 108 diff changeset	757	not prepared for data to arrive after EOF has been reached - time will show, if we need
514c749165c3 * empty log message * claus parents: 108 diff changeset	758	a complete rewrite for UnboundedStream ...
325 46bca6125b93 . claus parents: 308 diff changeset	759
188 454ed0ee733e EINTR problems claus parents: 159 diff changeset	760	Also, depending on the system, the stdio library behaves infriendly when signals
454ed0ee733e EINTR problems claus parents: 159 diff changeset	761	occur while reading (for example, timer interrupts) - on real unixes (i.e. BSD) the signal
454ed0ee733e EINTR problems claus parents: 159 diff changeset	762	is handled transparently - on SYS5.3 (i.e. non unixes :-) the read operation returns
1295 83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	763	an error and errno is set to EINTR.
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	764	Thats what the ugly code around all getc-calls is for ...
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	765	Since things get more and more ugly - we will rewrite ExternalStream
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	766	completely, to NOT use any stdio stuff (and do its buffering itself).
325 46bca6125b93 . claus parents: 308 diff changeset	767
46bca6125b93 . claus parents: 308 diff changeset	768	Notice that typical stdio's use a single errno global variable to return an error code,
46bca6125b93 . claus parents: 308 diff changeset	769	this was bad design in the stdio lib (right from the very beginning), since its much
46bca6125b93 . claus parents: 308 diff changeset	770	harder to deal with this in the presence of lightweight processes, where errno gets
46bca6125b93 . claus parents: 308 diff changeset	771	overwritten by an I/O operation done in another thread. (stdio should have been written
46bca6125b93 . claus parents: 308 diff changeset	772	to return errno as a negative number ...).
46bca6125b93 . claus parents: 308 diff changeset	773	To deal with this, the scheduler treats errno like a per-thread private variable,
46bca6125b93 . claus parents: 308 diff changeset	774	and saves/restores the errno setting when switching to another thread.
46bca6125b93 . claus parents: 308 diff changeset	775	(Notice that some thread packages do this also, but ST/X's thread implementation
46bca6125b93 . claus parents: 308 diff changeset	776	does not depend on those, but instead uses a portable private package).
46bca6125b93 . claus parents: 308 diff changeset	777
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	778	Finally, if an stdio-stream is open for both reading and writing, we have to call
a8abff749575 * empty log message * claus parents: 213 diff changeset	779	fseek whenever we are about to read after write and vice versa.
a8abff749575 * empty log message * claus parents: 213 diff changeset	780	Two macros (__READING__ and __WRITING__) have been defined to be used before every
a8abff749575 * empty log message * claus parents: 213 diff changeset	781	fread/fgetc and fwrite/putc respectively.
1295 83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	782
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	783	[author:]
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	784	Claus Gittinger
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	785	Stefan Vogel (many, many fixes ...)
1295 83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	786
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	787	[see also:]
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	788	FileStream Socket PipeStream
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	789	Filename OperatingSystem
22 847106305963 * empty log message * claus parents: 12 diff changeset	790	"
3255 eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	791	!
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	792
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	793	examples
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	794	"
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	795	open a file, read the contents and display it in a textView:
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	796
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	797	\|topView scrollPane textView fileStream text\|
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	798
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	799	topView := StandardSystemView new.
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	800	topView label:'contents of Makefile'.
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	801
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	802	scrollPane := HVScrollableView in:topView.
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	803	scrollPane origin:0.0@0.0 corner:1.0@1.0.
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	804
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	805	textView := EditTextView new.
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	806	scrollPane scrolledView:textView.
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	807
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	808	fileStream := 'Makefile' asFilename readStream.
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	809	text := fileStream upToEnd.
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	810	fileStream close.
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	811
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	812	textView contents:text.
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	813
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	814	topView open.
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	815
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	816
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	817
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	818	Notice, all of the above can also be done (simply) as:
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	819
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	820	EditTextView openOn:'Makefile'
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	821	"
22 847106305963 * empty log message * claus parents: 12 diff changeset	822	! !
847106305963 * empty log message * claus parents: 12 diff changeset	823
2045 1ad17ca6520f fall back to super>>nextPutLine: if argument is not a string. Claus Gittinger <cg@exept.de> parents: 2044 diff changeset	824	!ExternalStream class methodsFor:'initialization'!
1 a27a279701f8 Initial revision claus parents: diff changeset	825
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	826	initDefaultEOLMode
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	827	OperatingSystem isUNIXlike ifTrue:[
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	828	"/ unix EOL conventions
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	829	DefaultEOLMode := #nl
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	830	] ifFalse:[
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	831	OperatingSystem isVMSlike ifTrue:[
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	832	"/ vms EOL conventions
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	833	DefaultEOLMode := #cr
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	834	] ifFalse:[
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	835	"/ msdos EOL conventions
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	836	DefaultEOLMode := #crlf
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	837	]
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	838	]
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	839	!
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	840
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	841	initModeStrings
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	842	"initialize modeStrings which are passed down to the underlying
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	843	fopen/fdopen functions."
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	844
3132 037027ae20fd msdos MUST use binary mode in I/O Claus Gittinger <cg@exept.de> parents: 3044 diff changeset	845	OperatingSystem isMSDOSlike ifTrue:[
037027ae20fd msdos MUST use binary mode in I/O Claus Gittinger <cg@exept.de> parents: 3044 diff changeset	846	ReadMode := 'rb'.
037027ae20fd msdos MUST use binary mode in I/O Claus Gittinger <cg@exept.de> parents: 3044 diff changeset	847	ReadWriteMode := 'rb+'.
037027ae20fd msdos MUST use binary mode in I/O Claus Gittinger <cg@exept.de> parents: 3044 diff changeset	848	WriteMode := 'wb'.
037027ae20fd msdos MUST use binary mode in I/O Claus Gittinger <cg@exept.de> parents: 3044 diff changeset	849	AppendMode := 'ab+'.
037027ae20fd msdos MUST use binary mode in I/O Claus Gittinger <cg@exept.de> parents: 3044 diff changeset	850	CreateReadWriteMode := 'wb+'.
037027ae20fd msdos MUST use binary mode in I/O Claus Gittinger <cg@exept.de> parents: 3044 diff changeset	851	] ifFalse:[
037027ae20fd msdos MUST use binary mode in I/O Claus Gittinger <cg@exept.de> parents: 3044 diff changeset	852	ReadMode := 'r'.
037027ae20fd msdos MUST use binary mode in I/O Claus Gittinger <cg@exept.de> parents: 3044 diff changeset	853	ReadWriteMode := 'r+'.
037027ae20fd msdos MUST use binary mode in I/O Claus Gittinger <cg@exept.de> parents: 3044 diff changeset	854	WriteMode := 'w'.
037027ae20fd msdos MUST use binary mode in I/O Claus Gittinger <cg@exept.de> parents: 3044 diff changeset	855	AppendMode := 'a+'.
037027ae20fd msdos MUST use binary mode in I/O Claus Gittinger <cg@exept.de> parents: 3044 diff changeset	856	CreateReadWriteMode := 'w+'.
037027ae20fd msdos MUST use binary mode in I/O Claus Gittinger <cg@exept.de> parents: 3044 diff changeset	857	]
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	858	!
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	859
1 a27a279701f8 Initial revision claus parents: diff changeset	860	initialize
593 19d568779cf7 moved StreamErrorSignal into Stream; Claus Gittinger <cg@exept.de> parents: 583 diff changeset	861	OpenErrorSignal isNil ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	862	OpenErrorSignal := StreamErrorSignal newSignalMayProceed:true.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	863	OpenErrorSignal nameClass:self message:#openErrorSignal.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	864	OpenErrorSignal notifierString:'open error'.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	865
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	866	InvalidReadSignal := ReadErrorSignal newSignalMayProceed:false.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	867	InvalidReadSignal nameClass:self message:#invalidReadSignal.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	868	InvalidReadSignal notifierString:'read error'.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	869
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	870	InvalidWriteSignal := WriteErrorSignal newSignalMayProceed:false.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	871	InvalidWriteSignal nameClass:self message:#invalidWriteSignal.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	872	InvalidWriteSignal notifierString:'write error'.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	873
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	874	InvalidModeSignal := StreamErrorSignal newSignalMayProceed:false.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	875	InvalidModeSignal nameClass:self message:#invalidModeSignal.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	876	InvalidModeSignal notifierString:'binary/text mode mismatch'.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	877
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	878	InvalidOperationSignal := StreamErrorSignal newSignalMayProceed:false.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	879	InvalidOperationSignal nameClass:self message:#invalidOperationSignal.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	880	InvalidOperationSignal notifierString:'unsupported file operation'.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	881
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	882	StreamNotOpenSignal := StreamErrorSignal newSignalMayProceed:false.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	883	StreamNotOpenSignal nameClass:self message:#streamNotOpenSignal.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	884	StreamNotOpenSignal notifierString:'stream is not open'.
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	885	].
514c749165c3 * empty log message * claus parents: 108 diff changeset	886
31 75f2b9f78be2 * empty log message * claus parents: 25 diff changeset	887	Lobby isNil ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	888	Lobby := Registry new.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	889
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	890	"want to get informed when returning from snapshot"
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	891	ObjectMemory addDependent:self
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	892	].
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	893	self initDefaultEOLMode.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	894	self initModeStrings.
1 a27a279701f8 Initial revision claus parents: diff changeset	895	!
a27a279701f8 Initial revision claus parents: diff changeset	896
a27a279701f8 Initial revision claus parents: diff changeset	897	reOpenFiles
a27a279701f8 Initial revision claus parents: diff changeset	898	"reopen all files (if possible) after a snapShot load"
a27a279701f8 Initial revision claus parents: diff changeset	899
301 35e40a6fc72b * empty log message * claus parents: 269 diff changeset	900	Lobby do:[:aFileStream \|
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	901	aFileStream reOpen
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	902	].
1 a27a279701f8 Initial revision claus parents: diff changeset	903	!
a27a279701f8 Initial revision claus parents: diff changeset	904
1469 570ef7f8667b checkin from browser Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	905	update:something with:aParameter from:changedObject
1 a27a279701f8 Initial revision claus parents: diff changeset	906	"have to reopen files when returning from snapshot"
a27a279701f8 Initial revision claus parents: diff changeset	907
a27a279701f8 Initial revision claus parents: diff changeset	908	something == #returnFromSnapshot ifTrue:[
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	909	self reOpenFiles.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	910	self initDefaultEOLMode
1 a27a279701f8 Initial revision claus parents: diff changeset	911	]
1469 570ef7f8667b checkin from browser Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	912
570ef7f8667b checkin from browser Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	913	"Created: 15.6.1996 / 15:19:59 / cg"
1 a27a279701f8 Initial revision claus parents: diff changeset	914	! !
a27a279701f8 Initial revision claus parents: diff changeset	915
2045 1ad17ca6520f fall back to super>>nextPutLine: if argument is not a string. Claus Gittinger <cg@exept.de> parents: 2044 diff changeset	916	!ExternalStream class methodsFor:'instance creation'!
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	917
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	918	forFileDescriptor:aFileDescriptor mode:modeString
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	919	"given a fileDescriptor, create an ExternalStream object
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	920	to operate on this fd.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	921	The mode-argument is passed to the fdopen call.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	922	This may be used to wrap fd's as returned by user
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	923	primitive code, or to wrap pipe-fds into externalStreams."
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	924
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	925	\|newStream\|
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	926
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	927	newStream := self basicNew.
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	928	newStream text; buffered:true; eolMode:DefaultEOLMode; clearEOF.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	929	^ newStream
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	930	connectTo:aFileDescriptor
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	931	withMode:modeString
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	932
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	933	"
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	934	the example below will probably fail (15 is a random FD):
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	935
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	936	\|s\|
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	937
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	938	s := ExternalStream forFileDescriptor:15 mode:'r'.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	939	s next.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	940	"
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	941
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	942	"Created: 29.2.1996 / 18:05:00 / cg"
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	943	"Modified: 29.2.1996 / 18:17:07 / cg"
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	944	!
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	945
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	946	forReadWriteToFileDescriptor:aFileDescriptor
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	947	"given a fileDescriptor, create an ExternalStream object
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	948	to read/write from/to this fd. This may be used to wrap fd's
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	949	as returned by user primitive code, or to wrap pipe-
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	950	filedescriptors into externalStreams."
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	951
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	952	^ self forFileDescriptor:aFileDescriptor mode:ReadWriteMode
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	953
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	954	"
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	955	the example below will probably fail (15 is a random FD):
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	956
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	957	\|s\|
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	958
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	959	s := ExternalStream forReadWriteToFileDescriptor:15.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	960	s next.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	961	"
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	962
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	963	"Created: 29.2.1996 / 18:15:08 / cg"
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	964	"Modified: 29.2.1996 / 18:16:25 / cg"
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	965	!
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	966
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	967	forReadingFromFileDescriptor:aFileDescriptor
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	968	"given a fileDescriptor, create an ExternalStream object
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	969	to read from this fd. This may be used to wrap fd's
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	970	as returned by user primitive code, or to wrap pipe-
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	971	filedescriptors into externalStreams."
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	972
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	973	^ self forFileDescriptor:aFileDescriptor mode:ReadMode
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	974
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	975	"
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	976	the example below will probably fail (15 is a random FD):
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	977
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	978	\|s\|
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	979
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	980	s := ExternalStream forReadingFromFileDescriptor:15.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	981	s next.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	982	"
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	983
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	984	"
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	985	\|pipe readFd writeFd rs ws\|
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	986
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	987	'create OS pipe ...'.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	988
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	989	pipe := OperatingSystem makePipe.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	990	readFd := pipe at:1.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	991	writeFd := pipe at:2.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	992
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	993	'connect Smalltalk streams ...'.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	994
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	995	rs := ExternalStream forReadingFromFileDescriptor:readFd.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	996	ws := ExternalStream forWritingToFileDescriptor:writeFd.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	997
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	998	'read ...'.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	999	[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1000	1 to:10 do:[:i \|
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1001	Transcript showCR:rs nextLine
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1002	].
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1003	rs close.
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1004	] forkAt:7.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1005
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1006	'write ...'.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1007	[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1008	1 to:10 do:[:i \|
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1009	ws nextPutAll:'hello world '; nextPutAll:i printString; cr
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1010	].
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1011	ws close.
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1012	] fork.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1013
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1014	"
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1015
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1016	"Created: 29.2.1996 / 18:14:24 / cg"
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1017	"Modified: 29.2.1996 / 18:25:02 / cg"
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1018	!
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1019
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1020	forWritingToFileDescriptor:aFileDescriptor
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1021	"given a fileDescriptor, create an ExternalStream object
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1022	to write to this fd. This may be used to wrap fd's
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1023	as returned by user primitive code, or to wrap pipe-
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1024	filedescriptors into externalStreams."
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1025
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1026	^ self forFileDescriptor:aFileDescriptor mode:WriteMode
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1027
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1028	"
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1029	the example below will probably fail (15 is a random FD):
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1030
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1031	\|s\|
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1032
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1033	s := ExternalStream forWritingToFileDescriptor:15.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1034	s binary.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1035	s nextPut:1.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1036	"
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1037
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1038	"Created: 29.2.1996 / 18:14:43 / cg"
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1039	"Modified: 29.2.1996 / 18:15:54 / cg"
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1040	!
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1041
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1042	makePipe
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1043	"return an array with two streams - the first one for reading,
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1044	the second for writing.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1045	This is the higher level equivalent of OperatingSystem>>makePipe
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1046	(which returns an array of file-descriptors)."
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1047
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1048	\|pipe rs ws\|
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1049
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1050	pipe := OperatingSystem makePipe.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1051
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1052	pipe notNil ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1053	rs := self forReadingFromFileDescriptor:(pipe at:1).
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1054	ws := self forWritingToFileDescriptor:(pipe at:2).
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1055	^ Array with:rs with:ws
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1056	].
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1057	^ nil
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1058
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1059	"
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1060	\|pipe rs ws\|
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1061
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1062	pipe := ExternalStream makePipe.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1063	rs := pipe at:1.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1064	ws := pipe at:2.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1065
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1066	'read ...'.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1067	[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1068	1 to:10 do:[:i \|
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1069	Transcript showCR:rs nextLine
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1070	].
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1071	rs close.
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1072	] forkAt:7.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1073
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1074	'write ...'.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1075	[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1076	1 to:10 do:[:i \|
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1077	ws nextPutAll:'hello world '; nextPutAll:i printString; cr
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1078	].
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1079	ws close.
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1080	] fork.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1081	"
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1082
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1083	"Modified: 29.2.1996 / 18:28:36 / cg"
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1084	!
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1085
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1086	new
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1087	\|newStream\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1088
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1089	newStream := self basicNew.
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1090	newStream text; buffered:true; eolMode:DefaultEOLMode; clearEOF.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1091	^ newStream
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1092	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1093
2045 1ad17ca6520f fall back to super>>nextPutLine: if argument is not a string. Claus Gittinger <cg@exept.de> parents: 2044 diff changeset	1094	!ExternalStream class methodsFor:'Signal constants'!
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1095
1522 1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	1096	inaccessibleSignal
1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	1097	"ST-80 compatibility: return openErrorSignal"
1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	1098
1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	1099	^ self openErrorSignal
1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	1100
1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	1101	"Created: 2.7.1996 / 12:27:16 / stefan"
1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	1102	!
1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	1103
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1104	invalidModeSignal
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1105	"return the signal raised when doing text-I/O with a binary stream
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1106	or binary-I/O with a text stream"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1107
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1108	^ InvalidModeSignal
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1109	!
514c749165c3 * empty log message * claus parents: 108 diff changeset	1110
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1111	invalidOperationSignal
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1112	"return the signal raised when an unsupported or invalid
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1113	I/O operation is attempted"
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1114
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1115	^ InvalidOperationSignal
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1116	!
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1117
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1118	invalidReadSignal
514c749165c3 * empty log message * claus parents: 108 diff changeset	1119	"return the signal raised when reading from writeonly streams"
514c749165c3 * empty log message * claus parents: 108 diff changeset	1120
514c749165c3 * empty log message * claus parents: 108 diff changeset	1121	^ InvalidReadSignal
514c749165c3 * empty log message * claus parents: 108 diff changeset	1122	!
514c749165c3 * empty log message * claus parents: 108 diff changeset	1123
514c749165c3 * empty log message * claus parents: 108 diff changeset	1124	invalidWriteSignal
514c749165c3 * empty log message * claus parents: 108 diff changeset	1125	"return the signal raised when writing to readonly streams"
514c749165c3 * empty log message * claus parents: 108 diff changeset	1126
514c749165c3 * empty log message * claus parents: 108 diff changeset	1127	^ InvalidWriteSignal
514c749165c3 * empty log message * claus parents: 108 diff changeset	1128	!
514c749165c3 * empty log message * claus parents: 108 diff changeset	1129
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1130	openErrorSignal
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1131	"return the signal raised when a file open failed"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1132
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1133	^ OpenErrorSignal
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1134	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1135
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1136	streamNotOpenSignal
514c749165c3 * empty log message * claus parents: 108 diff changeset	1137	"return the signal raised on I/O with closed streams"
514c749165c3 * empty log message * claus parents: 108 diff changeset	1138
514c749165c3 * empty log message * claus parents: 108 diff changeset	1139	^ StreamNotOpenSignal
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1140	! !
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1141
2045 1ad17ca6520f fall back to super>>nextPutLine: if argument is not a string. Claus Gittinger <cg@exept.de> parents: 2044 diff changeset	1142	!ExternalStream class methodsFor:'error handling'!
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	1143
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1144	lastErrorNumber
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1145	"return the errno of the last error"
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	1146
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1147	^ LastErrorNumber
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1148
514c749165c3 * empty log message * claus parents: 108 diff changeset	1149	"
514c749165c3 * empty log message * claus parents: 108 diff changeset	1150	ExternalStream lastErrorNumber
514c749165c3 * empty log message * claus parents: 108 diff changeset	1151	"
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	1152	!
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1153
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1154	lastErrorString
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1155	"return a message string describing the last error"
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1156
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1157	^ OperatingSystem errorTextForNumber:LastErrorNumber
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1158
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1159	"
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1160	ExternalStream lastErrorString
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1161	"
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1162	! !
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1163
3044 a0bbac91639b * empty log message * Claus Gittinger <cg@exept.de> parents: 3029 diff changeset	1164	!ExternalStream methodsFor:'Squeak compatibility'!
a0bbac91639b * empty log message * Claus Gittinger <cg@exept.de> parents: 3029 diff changeset	1165
a0bbac91639b * empty log message * Claus Gittinger <cg@exept.de> parents: 3029 diff changeset	1166	readOnly
a0bbac91639b * empty log message * Claus Gittinger <cg@exept.de> parents: 3029 diff changeset	1167	"Squeak compatibility: make the stream readOnly"
a0bbac91639b * empty log message * Claus Gittinger <cg@exept.de> parents: 3029 diff changeset	1168
a0bbac91639b * empty log message * Claus Gittinger <cg@exept.de> parents: 3029 diff changeset	1169	mode := #readonly
a0bbac91639b * empty log message * Claus Gittinger <cg@exept.de> parents: 3029 diff changeset	1170
a0bbac91639b * empty log message * Claus Gittinger <cg@exept.de> parents: 3029 diff changeset	1171	"Modified: 20.10.1997 / 19:23:04 / cg"
a0bbac91639b * empty log message * Claus Gittinger <cg@exept.de> parents: 3029 diff changeset	1172	"Created: 20.10.1997 / 19:23:19 / cg"
a0bbac91639b * empty log message * Claus Gittinger <cg@exept.de> parents: 3029 diff changeset	1173	! !
a0bbac91639b * empty log message * Claus Gittinger <cg@exept.de> parents: 3029 diff changeset	1174
1 a27a279701f8 Initial revision claus parents: diff changeset	1175	!ExternalStream methodsFor:'accessing'!
a27a279701f8 Initial revision claus parents: diff changeset	1176
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1177	binary
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1178	"switch to binary mode - default is text"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1179
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1180	binary := true
1 a27a279701f8 Initial revision claus parents: diff changeset	1181	!
a27a279701f8 Initial revision claus parents: diff changeset	1182
a27a279701f8 Initial revision claus parents: diff changeset	1183	buffered:aBoolean
10 4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	1184	"turn buffering on or off - default is on"
1 a27a279701f8 Initial revision claus parents: diff changeset	1185
10 4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	1186	buffered := aBoolean
1 a27a279701f8 Initial revision claus parents: diff changeset	1187	!
a27a279701f8 Initial revision claus parents: diff changeset	1188
a27a279701f8 Initial revision claus parents: diff changeset	1189	contents
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1190	"return the contents of the file from the current position up-to
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1191	the end. If the stream is in binary mode, a ByteArray containing
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1192	the byte values is returned.
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1193	In text-mode, a collection of strings, each representing one line,
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1194	is returned."
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1195
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1196	\|text l chunks sizes chunk byteCount cnt bytes offset\|
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1197
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1198	binary ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1199	"adding to a ByteArray produces quadratic time-space
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1200	behavior - therefore we allocate chunks, and concatenate them
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1201	at the end."
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1202
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1203	chunks := OrderedCollection new.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1204	sizes := OrderedCollection new.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1205	byteCount := 0.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1206	[self atEnd] whileFalse:[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1207	chunk := ByteArray uninitializedNew:4096.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1208	cnt := self nextBytes:(chunk size) into:chunk.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1209	cnt notNil ifTrue:[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1210	chunks add:chunk.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1211	sizes add:cnt.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1212	byteCount := byteCount + cnt
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1213	]
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1214	].
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1215
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1216	"now, create one big ByteArray"
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1217	bytes := ByteArray uninitializedNew:byteCount.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1218	offset := 1.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1219	1 to:chunks size do:[:index \|
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1220	chunk := chunks at:index.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1221	cnt := sizes at:index.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1222	bytes replaceFrom:offset to:(offset + cnt - 1) with:chunk.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1223	offset := offset + cnt
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1224	].
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1225	^ bytes
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1226	].
1 a27a279701f8 Initial revision claus parents: diff changeset	1227
244 9faa2da0650a Text <-> StringCollection claus parents: 223 diff changeset	1228	text := StringCollection new.
1 a27a279701f8 Initial revision claus parents: diff changeset	1229	[self atEnd] whileFalse:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1230	l := self nextLine.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1231	l isNil ifTrue:[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1232	^ text
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1233	].
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1234	text add:l
1 a27a279701f8 Initial revision claus parents: diff changeset	1235	].
a27a279701f8 Initial revision claus parents: diff changeset	1236	^ text
a27a279701f8 Initial revision claus parents: diff changeset	1237	!
a27a279701f8 Initial revision claus parents: diff changeset	1238
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1239	contentsOfEntireFile
1522 1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	1240	"ST-80 compatibility: return contents as String"
1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	1241
1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	1242	^ self contents asString.
1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	1243
1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	1244	"Modified: 3.7.1996 / 13:22:16 / stefan"
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1245	!
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1246
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1247	contentsSpecies
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1248	"return the kind of object to be returned by sub-collection builders
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1249	(such as upTo)"
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1250
514c749165c3 * empty log message * claus parents: 108 diff changeset	1251	binary ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1252	^ ByteArray
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1253	].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1254	^ String
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1255	!
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1256
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1257	eolMode:aSymbolOrNil
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1258	"specify how end-of-line (EOL) is to be marked.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1259	The argument may be one of:
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1260	#crlf -> add a CR-NL, as in MSDOS
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1261	#cr -> add a CR, as in VMS
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1262	#nl -> add a NL, as in Unix
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1263	anyOther -> like #nl
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1264	"
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1265
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1266	eolMode := aSymbolOrNil
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1267	!
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1268
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1269	fileDescriptor
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1270	"return the fileDescriptor of the receiver -
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1271	notice: this one returns the underlying OSs fileDescriptor -
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1272	this may not be available on all platforms (i.e. non unix systems)."
1 a27a279701f8 Initial revision claus parents: diff changeset	1273
a27a279701f8 Initial revision claus parents: diff changeset	1274	%{ /* NOCONTEXT */
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1275	#ifdef WIN32
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1276	RETURN (nil);
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1277	#else
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1278	FILEPOINTER f;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1279	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1280
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1281	if ((fp = __INST(filePointer)) != nil) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1282	f = __FILEVal(fp);
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1283	RETURN ( __MKINT(fileno(f)) );
1 a27a279701f8 Initial revision claus parents: diff changeset	1284	}
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1285	#endif
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	1286	%}.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1287	^ self errorNotOpen
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1288	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1289
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1290	filePointer
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1291	"return the filePointer of the receiver -
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1292	notice: for portability stdio is used; this means you will get
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1293	a FILE * - not a fileDescriptor.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1294	(what you really get is a corresponding integer).
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1295	You cannot do much with the returned value
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1296	- except passing it to a primitive, for example."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1297
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1298	^ filePointer
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1299	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1300
3016 42466b291fae more ST80 compatibility ca parents: 2999 diff changeset	1301	lineEndTransparent
42466b291fae more ST80 compatibility ca parents: 2999 diff changeset	1302	eolMode := #cr
42466b291fae more ST80 compatibility ca parents: 2999 diff changeset	1303	!
42466b291fae more ST80 compatibility ca parents: 2999 diff changeset	1304
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1305	readonly
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1306	"set access mode to readonly"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1307
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1308	mode := #readonly
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1309	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1310
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1311	readwrite
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1312	"set access mode to readwrite"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1313
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1314	mode := #readwrite
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1315	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1316
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1317	text
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1318	"switch to text mode - default is text"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1319
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1320	binary := false
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1321	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1322
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1323	useCRLF:aBoolean
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1324	"turn on or off CRLF sending (instead of LF only) - default is off.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1325	This method is provided for backward compatibility - see #eolMode:
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1326	which offers another choice."
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1327
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1328	aBoolean ifTrue:[
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1329	eolMode := #crlf
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1330	] ifFalse:[
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1331	eolMode := #nl
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1332	].
1 a27a279701f8 Initial revision claus parents: diff changeset	1333	!
a27a279701f8 Initial revision claus parents: diff changeset	1334
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1335	writeonly
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1336	"set access mode to writeonly"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1337
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1338	mode := #writeonly
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1339	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1340
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1341	!ExternalStream methodsFor:'error handling'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1342
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1343	argumentMustBeCharacter
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1344	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1345
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1346	"report an error, that the argument must be a character"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1347
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1348	^ self error:'argument must be a character'
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1349	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1350
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1351	argumentMustBeInteger
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1352	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1353
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1354	"report an error, that the argument must be an integer"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1355
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1356	^ self error:'argument must be an integer'
77 6c38ca59927f * empty log message * claus parents: 68 diff changeset	1357	!
6c38ca59927f * empty log message * claus parents: 68 diff changeset	1358
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1359	argumentMustBeString
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1360	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1361
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1362	"report an error, that the argument must be a string"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1363
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1364	^ self error:'argument must be a string'
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1365	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1366
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1367	errorBinary
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1368	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1369
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1370	"report an error, that the stream is in binary mode"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1371
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1372	^ self invalidModeSignal
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1373	raiseRequestWith:self
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1374	errorString:(self class name , ' is in binary mode')
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1375	in:thisContext sender
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1376	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1377
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1378	errorNotBinary
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1379	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1380
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1381	"report an error, that the stream is not in binary mode"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1382
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1383	^ self invalidModeSignal
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1384	raiseRequestWith:self
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1385	errorString:(self class name , ' is not in binary mode')
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1386	in:thisContext sender
1 a27a279701f8 Initial revision claus parents: diff changeset	1387	!
a27a279701f8 Initial revision claus parents: diff changeset	1388
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1389	errorNotBuffered
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1390	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1391
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1392	"report an error, that the stream is not in buffered mode"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1393
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1394	^ StreamErrorSignal
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1395	raiseRequestWith:self
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1396	errorString:(self class name , ' is unbuffered - operation not allowed')
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1397	in:thisContext sender
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1398	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1399
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1400	errorNotOpen
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1401	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1402
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1403	"report an error, that the stream has not been opened"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1404
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1405	^ self streamNotOpenSignal
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1406	raiseRequestWith:self
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1407	errorString:(self class name , ' not open')
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1408	in:thisContext sender
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1409	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1410
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1411	errorOpen
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1412	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1413
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1414	"report an error, that the stream is already opened"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1415
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1416	^ self openErrorSignal
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1417	raiseRequestWith:self
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1418	errorString:(self class name , ' is already open')
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1419	in:thisContext sender
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1420	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1421
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1422	errorReadOnly
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1423	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1424
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1425	"report an error, that the stream is a readOnly stream"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1426
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1427	^ self invalidWriteSignal
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1428	raiseRequestWith:self
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1429	errorString:(self class name , ' is readonly')
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1430	in:thisContext sender
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1431	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1432
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1433	errorUnsupportedOperation
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1434	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1435
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1436	"report an error, that some unsupported operation was attempted"
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1437
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1438	^ self invalidOperationSignal
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1439	raiseRequestWith:self
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1440	errorString:'unsupported operation'
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1441	in:thisContext sender
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1442	!
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1443
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1444	errorWriteOnly
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1445	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1446
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1447	"report an error, that the stream is a writeOnly stream"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1448
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1449	^ self invalidReadSignal
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1450	raiseRequestWith:self
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1451	errorString:(self class name , ' is writeonly')
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1452	in:thisContext sender
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1453	!
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1454
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1455	ioError
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1456	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1457
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1458	"report an error, that some I/O error occured"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1459
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1460	^ StreamErrorSignal
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1461	raiseRequestWith:self
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1462	errorString:('I/O error: ' , self lastErrorString)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1463	in:thisContext sender
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1464	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1465
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1466	lastErrorNumber
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1467	"return the last error"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1468
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1469	^ lastErrorNumber
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1470	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1471
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1472	lastErrorString
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1473	"return a message string describing the last error"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1474
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1475	(lastErrorNumber isNil or:[lastErrorNumber == 0]) ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1476	^ 'I/O error'
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1477	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1478	^ OperatingSystem errorTextForNumber:lastErrorNumber
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1479	!
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1480
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1481	openError
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1482	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1483
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1484	"report an error, that the open failed"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1485
3235 cc254b307159 FileStream redefines #openErrorSignal. Stefan Vogel <sv@exept.de> parents: 3221 diff changeset	1486	^ self class openErrorSignal
cc254b307159 FileStream redefines #openErrorSignal. Stefan Vogel <sv@exept.de> parents: 3221 diff changeset	1487	raiseRequestWith:self
cc254b307159 FileStream redefines #openErrorSignal. Stefan Vogel <sv@exept.de> parents: 3221 diff changeset	1488	errorString:('error on open: ' , self lastErrorString)
cc254b307159 FileStream redefines #openErrorSignal. Stefan Vogel <sv@exept.de> parents: 3221 diff changeset	1489	in:thisContext sender
cc254b307159 FileStream redefines #openErrorSignal. Stefan Vogel <sv@exept.de> parents: 3221 diff changeset	1490
cc254b307159 FileStream redefines #openErrorSignal. Stefan Vogel <sv@exept.de> parents: 3221 diff changeset	1491	"Modified: / 28.1.1998 / 14:37:42 / stefan"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1492	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1493
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1494	readError
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1495	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1496
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1497	"report an error, that some read error occured"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1498
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1499	^ ReadErrorSignal
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1500	raiseRequestWith:self
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1501	errorString:('read error: ' , self lastErrorString)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1502	in:thisContext sender
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1503	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1504
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1505	writeError
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1506	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1507
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1508	"report an error, that some write error occured"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1509
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1510	^ WriteErrorSignal
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1511	raiseRequestWith:self
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1512	errorString:('write error: ' , self lastErrorString)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1513	in:thisContext sender
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1514	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1515
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1516	!ExternalStream methodsFor:'instance release'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1517
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1518	closeFile
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1519	"low level close - may be redefined in subclasses"
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1520
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	1521	%{
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	1522	OBJ fp;
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1523
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1524	if ((fp = __INST(filePointer)) != nil) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1525	__INST(filePointer) = nil;
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1526	#if defined(WIN32) && defined(NO_STDIO)
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1527	CloseHandle(__HANDLEVal(fp));
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1528	#else
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1529	__BEGIN_INTERRUPTABLE__
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1530	fclose(__FILEVal(fp));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1531	__END_INTERRUPTABLE__
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1532	#endif
10 4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	1533	}
4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	1534	%}
4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	1535	!
4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	1536
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1537	disposed
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1538	"some Stream has been collected - close the file if not already done"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1539
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1540	self closeFile
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1541	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1542
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1543	setFileDescriptor:anInteger mode:openMode
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1544	"set the filePointer based upon a given fileDescriptor -
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1545	notice: this one is based on the underlying OSs fileDescriptor -
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1546	this may not be available on all platforms (i.e. non unix systems)."
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1547
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1548	%{ /* NOCONTEXT */
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1549
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1550	FILEPOINTER f;
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1551	OBJ fp;
2765 a56668774ad7 more alpha64 fixes Claus Gittinger <cg@exept.de> parents: 2764 diff changeset	1552	FILE *fdopen();
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1553
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1554	if (__isSmallInteger(anInteger) &&
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1555	__isString(openMode) &&
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1556	(f = fdopen(__intVal(anInteger), __stringVal(openMode))) != 0
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1557	) {
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1558	__PROTECT__(self);
3420 4dc6667afda9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3419 diff changeset	1559	fp = __MKFILEPOINTER(f);
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1560	__UNPROTECT__(self);
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1561	__INST(filePointer) = fp; __STORE(self, fp);
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1562	RETURN (self);
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1563	}
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1564	%}.
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1565	^ self primitiveFailed
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1566	!
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1567
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1568	setFilePointer:something
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1569	"set the filePointer to the given one;
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1570	low level private & friend interface; may also be used to connect to some
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1571	externally provided file handle."
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1572
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1573	filePointer := something
1 a27a279701f8 Initial revision claus parents: diff changeset	1574	!
a27a279701f8 Initial revision claus parents: diff changeset	1575
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1576	shallowCopyForFinalization
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1577	"return a copy for finalization-registration;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1578	since all we need at finalization time is the fileDescriptor,
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1579	a cheaper copy is possible."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1580
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1581	^ self class basicNew setFilePointer:filePointer
1 a27a279701f8 Initial revision claus parents: diff changeset	1582	!
a27a279701f8 Initial revision claus parents: diff changeset	1583
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1584	shutDown
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1585	"close the stream - added for protocol compatibility with PipeStream.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1586	see comment there"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1587
1642 91c6860f1c9d when shutting down, also tell the Lobby Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	1588	filePointer isNil ifTrue:[^ self].
91c6860f1c9d when shutting down, also tell the Lobby Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	1589	Lobby unregister:self.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1590	self closeFile
1642 91c6860f1c9d when shutting down, also tell the Lobby Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	1591
91c6860f1c9d when shutting down, also tell the Lobby Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	1592	"Modified: 30.8.1996 / 00:39:21 / cg"
1 a27a279701f8 Initial revision claus parents: diff changeset	1593	! !
a27a279701f8 Initial revision claus parents: diff changeset	1594
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1595	!ExternalStream methodsFor:'line reading/writing'!
1 a27a279701f8 Initial revision claus parents: diff changeset	1596
a27a279701f8 Initial revision claus parents: diff changeset	1597	nextLine
a27a279701f8 Initial revision claus parents: diff changeset	1598	"read the next line (characters up to newline).
a27a279701f8 Initial revision claus parents: diff changeset	1599	Return a string containing those characters excluding the newline.
a27a279701f8 Initial revision claus parents: diff changeset	1600	If the previous-to-last character is a cr, this is also removed,
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	1601	so its possible to read alien (i.e. ms-dos) text as well.
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	1602	The line must be shorter than 16K characters - otherwise an error is signalled."
71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	1603
71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	1604	\|line\|
971 eb70f5674303 max lineLength (in nextLine) increased to 16k Claus Gittinger <cg@exept.de> parents: 933 diff changeset	1605
3029 aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1606	%{ /* STACK:34000 */
1 a27a279701f8 Initial revision claus parents: diff changeset	1607
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1608	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1609	int len, ret;
3029 aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1610	char buffer[32*1024];
521 70533ec40482 use new MKSTRING_L if length is known (avoids a useless strlen) Claus Gittinger <cg@exept.de> parents: 481 diff changeset	1611	char rslt, nextPtr, *limit;
22 847106305963 * empty log message * claus parents: 12 diff changeset	1612	int fd, ch;
1068 92fdcccf12a3 alles MIST - zurueck zu 1.89 und NOCONTEXT entfernt Claus Gittinger <cg@exept.de> parents: 1067 diff changeset	1613	int _buffered;
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	1614	OBJ fp;
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	1615	int lineTooLong = 0;
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1616	int cutOff = 0;
1 a27a279701f8 Initial revision claus parents: diff changeset	1617
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1618	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1619	if (((fp = __INST(filePointer)) != nil)
3029 aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1620	&& (__INST(mode) != @symbol(writeonly))
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1621	&& (__INST(binary) != true)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1622	) {
3029 aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1623	f = __FILEVal(fp);
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1624	buffer[0] = '\0';
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1625
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1626	_buffered = (__INST(buffered) == true);
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1627	if (_buffered) {
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1628	__READING__(f);
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1629	}
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1630
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1631	rslt = nextPtr = buffer;
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1632	limit = buffer + sizeof(buffer) - 2;
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1633
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1634	for (;;) {
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1635	__READBYTE__(ret, f, nextPtr, _buffered);
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1636	if (ret <= 0) {
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1637	if (nextPtr == buffer)
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1638	rslt = NULL;
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1639	if (ret == 0) {
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1640	__INST(hitEOF) = true;
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1641	break;
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1642	} else {
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1643	__INST(lastErrorNumber) = __MKSMALLINT(errno);
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1644	goto err;
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1645	}
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1646	}
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1647
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1648	if (*nextPtr == '\n') {
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1649	cutOff = 1;
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1650	*nextPtr = '\0';
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1651	break;
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1652	}
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1653	if (*nextPtr == '\r') {
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1654	char peekChar;
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1655
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1656	/*
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1657	* peek ahead for a newLine ...
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1658	*/
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1659	__READBYTE__(ret, f, &peekChar, _buffered);
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1660	if (ret <= 0) {
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1661	cutOff = 1;
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1662	*nextPtr = '\0';
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1663	if (ret == 0) {
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1664	__INST(hitEOF) = true;
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1665	break;
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1666	}
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1667	__INST(lastErrorNumber) = __MKSMALLINT(errno);
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1668	goto err;
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1669	}
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1670
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1671	if (peekChar == '\n') {
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1672	cutOff = 2;
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1673	*nextPtr = '\0';
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1674	break;
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1675	}
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1676
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1677	__UNGETC__(peekChar, f, _buffered);
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1678
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1679	cutOff = 1;
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1680	*nextPtr = '\0';
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1681	break;
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1682	}
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1683
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1684	nextPtr++;
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1685	if (nextPtr >= limit) {
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1686	*nextPtr = '\0';
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1687	lineTooLong = 1;
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1688	if (@global(InfoPrinting) == true) {
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1689	fprintf(stderr, "ExtStream [warning]: line truncated in nextLine\n");
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1690	}
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1691	break;
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1692	}
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1693	}
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1694
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1695	if (rslt != NULL) {
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1696	len = nextPtr-buffer;
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1697
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1698	if (__INST(position) != nil) {
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1699	int __p;
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1700
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1701	__p = __intVal(__INST(position)) + len + cutOff;
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1702	__INST(position) = __MKSMALLINT(__p);
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1703	}
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1704	/* remove any EOL character */
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1705	if (len != 0) {
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1706	if (buffer[len-1] == '\n') {
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1707	buffer[--len] = '\0';
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1708	}
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1709	if ((len != 0) && (buffer[len-1] == '\r')) {
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1710	buffer[--len] = '\0';
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1711	}
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1712	}
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1713	line = __MKSTRING_L(buffer, len);
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1714	if (! lineTooLong) {
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1715	RETURN ( line );
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1716	}
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1717	}
1 a27a279701f8 Initial revision claus parents: diff changeset	1718	}
1478 aae07192b7d1 labels in empty statements need a semi Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	1719	err: ;
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1720	%}.
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	1721	line notNil ifTrue:[
3029 aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1722	"/ the line as read is longer than 32k characters (boy - what a line)
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1723	"/ The exception could be handled by reading more and returning the
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1724	"/ concatenation in your exception handler (the receiver and the partial
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1725	"/ line are passed as parameter)
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1726
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1727	^ ReadErrorSignal
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1728	raiseRequestWith:(Array with:self with:line)
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1729	errorString:('line too long read error')
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	1730	].
71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	1731
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	1732	hitEOF ifTrue:[^ self pastEnd].
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1733	lastErrorNumber notNil ifTrue:[^ self readError].
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1734	filePointer isNil ifTrue:[^ self errorNotOpen].
1 a27a279701f8 Initial revision claus parents: diff changeset	1735	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	1736	^ self errorBinary
1 a27a279701f8 Initial revision claus parents: diff changeset	1737	!
a27a279701f8 Initial revision claus parents: diff changeset	1738
a27a279701f8 Initial revision claus parents: diff changeset	1739	nextPutLine:aString
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1740	"write the characters in aString and append an end-of-Line marker
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1741	(LF, CR or CRLF - depending in the setting of eolMode)"
1 a27a279701f8 Initial revision claus parents: diff changeset	1742
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	1743	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1744	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1745	int len, cnt, len1, _buffered;
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	1746	OBJ pos, fp;
537 dc4dad8a5ddd many ExtStream rewrites - has to be reevaluated in all platforms Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1747	char *cp;
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1748	int o_offs;
1 a27a279701f8 Initial revision claus parents: diff changeset	1749
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1750	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1751	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1752	&& (__INST(mode) != @symbol(readonly))
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1753	&& (__INST(binary) != true)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1754	&& __isString(aString)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1755	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1756	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1757	len = __stringSize(aString);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1758
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1759	if (_buffered = (__INST(buffered) == true)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1760	__WRITING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1761	}
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1762	#ifdef BUGGY
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1763	__WRITEBYTES__(cnt, f, __stringVal(aString), len, _buffered);
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1764	#else
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1765	o_offs = (char )__stringVal(aString)-(char )aString;
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1766	__WRITEBYTES_OBJ__(cnt, f, aString, o_offs, len, _buffered);
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1767	#endif
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1768	if (cnt == len) {
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1769	OBJ mode = __INST(eolMode);
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1770
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1771	len1 = len;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1772
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1773	if (mode == @symbol(cr)) {
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1774	cp = "\r"; len = 1;
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1775	} else if (mode == @symbol(crlf)) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1776	cp = "\r\n"; len = 2;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1777	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1778	cp = "\n"; len = 1;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1779	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1780	__WRITEBYTES__(cnt, f, cp, len, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1781
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1782	if (cnt > 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1783	pos = __INST(position);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1784	if (pos != nil) {
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1785	int __p;
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1786
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1787	__p = __intVal(pos) + len1 + cnt;
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1788	__INST(position) = __MKSMALLINT(__p);
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1789	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1790	RETURN ( self );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1791	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1792	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1793	__INST(lastErrorNumber) = __MKSMALLINT(errno);
1 a27a279701f8 Initial revision claus parents: diff changeset	1794	}
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1795	%}.
2045 1ad17ca6520f fall back to super>>nextPutLine: if argument is not a string. Claus Gittinger <cg@exept.de> parents: 2044 diff changeset	1796	super nextPutLine:aString.
1 a27a279701f8 Initial revision claus parents: diff changeset	1797	!
a27a279701f8 Initial revision claus parents: diff changeset	1798
a27a279701f8 Initial revision claus parents: diff changeset	1799	nextPutLinesFrom:aStream upToLineStartingWith:aStringOrNil
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	1800	"read from aStream up to and including a line starting with aStringOrNil
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1801	and append all lines to self.
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1802	Can be used to copy/create large files or copy from a pipe/socket.
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	1803
22 847106305963 * empty log message * claus parents: 12 diff changeset	1804	If aStringOrNil is nil or not matched, copy preceeds to the end.
847106305963 * empty log message * claus parents: 12 diff changeset	1805	(this allows for example to read a Socket and transfer the data quickly
847106305963 * empty log message * claus parents: 12 diff changeset	1806	into a file - without creating zillions of temporary strings)"
1 a27a279701f8 Initial revision claus parents: diff changeset	1807
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1808	\|srcFilePointer readError line\|
1 a27a279701f8 Initial revision claus parents: diff changeset	1809
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	1810	(mode == #readonly) ifTrue:[self errorReadOnly. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	1811	filePointer isNil ifTrue:[self errorNotOpen. ^ self].
1 a27a279701f8 Initial revision claus parents: diff changeset	1812	srcFilePointer := aStream filePointer.
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	1813	srcFilePointer isNil ifTrue:[aStream errorNotOpen. ^ self].
12 8e03bd717355 * empty log message * claus parents: 10 diff changeset	1814
8e03bd717355 * empty log message * claus parents: 10 diff changeset	1815	%{ /* STACK:2000 */
22 847106305963 * empty log message * claus parents: 12 diff changeset	1816
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1817	#ifndef NO_STDIO
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1818	FILEPOINTER dst;
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1819	FILEPOINTER src;
1 a27a279701f8 Initial revision claus parents: diff changeset	1820	char *matchString;
a27a279701f8 Initial revision claus parents: diff changeset	1821	int matchLen = 0;
12 8e03bd717355 * empty log message * claus parents: 10 diff changeset	1822	char buffer[1024];
1 a27a279701f8 Initial revision claus parents: diff changeset	1823
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1824	__INST(lastErrorNumber) = nil;
249 810798c5c2e5 . claus parents: 244 diff changeset	1825	if (__isSmallInteger(srcFilePointer)) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1826	if ((aStringOrNil == nil) \|\| __isString(aStringOrNil)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1827	if (aStringOrNil != nil) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1828	matchString = (char *) __stringVal(aStringOrNil);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1829	matchLen = __stringSize(aStringOrNil);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1830	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1831	dst = __FILEVal(__INST(filePointer));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1832	src = __FILEVal(srcFilePointer);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1833	__BEGIN_INTERRUPTABLE__
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1834	errno = 0;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1835
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1836	__WRITING__(dst)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1837
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1838	for (;;) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1839	if (fgets(buffer, sizeof(buffer)-1, src) == NULL) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1840	if (ferror(src)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1841	readError = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1842	__END_INTERRUPTABLE__
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1843	goto err;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1844	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1845	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1846	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1847	if (fputs(buffer, dst) == EOF) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1848	if (ferror(dst)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1849	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1850	__END_INTERRUPTABLE__
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1851	goto err;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1852	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1853	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1854	}
12 8e03bd717355 * empty log message * claus parents: 10 diff changeset	1855	#ifndef OLD
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1856	if (__INST(buffered) == false) {
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1857	FFLUSH(dst);
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1858	}
12 8e03bd717355 * empty log message * claus parents: 10 diff changeset	1859	#endif
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1860	if (matchLen) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1861	if (strncmp(matchString, buffer, matchLen) == 0)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1862	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1863	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1864	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1865	__END_INTERRUPTABLE__
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1866	__INST(position) = nil;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1867	RETURN (self);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1868	}
1 a27a279701f8 Initial revision claus parents: diff changeset	1869	}
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1870	err: ;
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1871	#endif /* ! NO_STDIO */
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1872	%}.
514c749165c3 * empty log message * claus parents: 108 diff changeset	1873	readError ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1874	aStream setLastErrorNumber:readError.
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	1875	aStream readError.
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	1876	^ self
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1877	].
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	1878	lastErrorNumber notNil ifTrue:[self writeError. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	1879	buffered ifFalse:[self errorNotBuffered. ^ self].
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1880
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1881	"
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1882	argument error or unimplemented; try it linewise
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1883	"
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1884	[aStream atEnd] whileFalse:[
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1885	line := aStream nextLine.
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1886	line isNil ifTrue:[
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1887	^ self.
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1888	].
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1889	self nextPutLine:line.
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1890	(aStringOrNil notNil and:[line startsWith:aStringOrNil]) ifTrue:[
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1891	^ self
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1892	]
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1893	].
1 a27a279701f8 Initial revision claus parents: diff changeset	1894	!
a27a279701f8 Initial revision claus parents: diff changeset	1895
a27a279701f8 Initial revision claus parents: diff changeset	1896	peekForLineStartingWith:aString
a27a279701f8 Initial revision claus parents: diff changeset	1897	"read ahead for next line starting with aString;
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1898	return the line-string if found, or nil if EOF is encountered.
514c749165c3 * empty log message * claus parents: 108 diff changeset	1899	If matched, not advance position behond that line
514c749165c3 * empty log message * claus parents: 108 diff changeset	1900	i.e. nextLine will read the matched line.
514c749165c3 * empty log message * claus parents: 108 diff changeset	1901	If not matched, reposition to original position for firther reading."
1 a27a279701f8 Initial revision claus parents: diff changeset	1902
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1903	\|firstPos lastPos line\|
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1904
1 a27a279701f8 Initial revision claus parents: diff changeset	1905	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
a27a279701f8 Initial revision claus parents: diff changeset	1906	filePointer isNil ifTrue:[^ self errorNotOpen].
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1907	binary ifTrue:[^ self errorBinary].
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1908	buffered ifFalse:[^ self errorNotBuffered].
12 8e03bd717355 * empty log message * claus parents: 10 diff changeset	1909
8e03bd717355 * empty log message * claus parents: 10 diff changeset	1910	%{ /* STACK: 2000 */
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1911	#ifndef NO_STDIO
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1912
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1913	FILEPOINTER f;
1 a27a279701f8 Initial revision claus parents: diff changeset	1914	int l;
12 8e03bd717355 * empty log message * claus parents: 10 diff changeset	1915	char buffer[1024];
1 a27a279701f8 Initial revision claus parents: diff changeset	1916	char *cp;
a27a279701f8 Initial revision claus parents: diff changeset	1917	char *matchString;
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1918	int gotFirst = 0;
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1919	#ifdef __VMS__
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1920	fpos_t firstpos, lastpos;
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1921	# define FTELL(__f__, __pos__) fgetpos(__f__, &(__pos__))
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1922	# define FSEEK(__f__, __pos__) fsetpos(__f__, &(__pos__))
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1923	#else
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1924	long firstpos, lastpos;
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1925	# define FTELL(__f__, __pos__) __pos__ = ftell(__f__)
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1926	# define FSEEK(__f__, __pos__) fseek(__f__, __pos__, SEEK_SET)
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1927	#endif
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1928
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1929	__INST(lastErrorNumber) = nil;
54 06dbdeeed4f9 * empty log message * claus parents: 44 diff changeset	1930	if (__isString(aString)) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1931	matchString = (char *) __stringVal(aString);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1932	l = __stringSize(aString);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1933
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1934	f = __FILEVal(__INST(filePointer));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1935	__READING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1936
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1937	for (;;) {
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1938	FTELL(f, lastpos);
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1939	if (!gotFirst) {
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1940	firstpos = lastpos;
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1941	gotFirst = 1;
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1942	}
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1943
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1944	__BEGIN_INTERRUPTABLE__
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1945	do {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1946	cp = fgets(buffer, sizeof(buffer)-1, f);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1947	} while ((cp == NULL) && ferror(f) && (errno == EINTR) && (clearerr(f), 1));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1948	buffer[sizeof(buffer)-1] = '\0';
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1949	__END_INTERRUPTABLE__
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1950
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1951	if (cp == NULL) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1952	if (ferror(f)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1953	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1954	goto err;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1955	} else {
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1956	FSEEK(f, firstpos);
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1957	RETURN (nil);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1958	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1959	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1960	if (strncmp(cp, matchString, l) == 0) {
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1961	FSEEK(f, lastpos);
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1962	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1963	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1964	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1965	/* remove EOL character */
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1966	cp = buffer;
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1967	while (cp && (cp != '\n') && (*cp != '\r')) cp++;
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1968	*cp = '\0';
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1969	RETURN ( __MKSTRING(buffer) );
1 a27a279701f8 Initial revision claus parents: diff changeset	1970	}
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1971	err: ;
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1972
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1973	# undef FTELL
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1974	# undef FSEEK
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1975
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1976	#endif
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1977	%}.
514c749165c3 * empty log message * claus parents: 108 diff changeset	1978	lastErrorNumber notNil ifTrue:[^ self readError].
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1979
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1980	"/ try using generic code ...
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1981
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1982	firstPos := self position.
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1983	[self atEnd] whileFalse:[
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1984	lastPos := self position.
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1985	line := self nextLine.
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1986	line isNil ifTrue:[
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1987	self position:firstPos.
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1988	^ nil
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1989	].
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1990	(line startsWith:aString) ifTrue:[
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1991	self position:lastPos.
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1992	^ line
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1993	]
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1994	].
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1995	self position:firstPos.
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1996	^ nil
1 a27a279701f8 Initial revision claus parents: diff changeset	1997	!
a27a279701f8 Initial revision claus parents: diff changeset	1998
a27a279701f8 Initial revision claus parents: diff changeset	1999	peekForLineStartingWithAny:aCollectionOfStrings
a27a279701f8 Initial revision claus parents: diff changeset	2000	"read ahead for next line starting with any of aCollectionOfStrings;
a27a279701f8 Initial revision claus parents: diff changeset	2001	return the index in aCollection if found, nil otherwise..
a27a279701f8 Initial revision claus parents: diff changeset	2002	If no match, do not change position; otherwise advance right before the
a27a279701f8 Initial revision claus parents: diff changeset	2003	matched line so that nextLine will return this line."
a27a279701f8 Initial revision claus parents: diff changeset	2004
a27a279701f8 Initial revision claus parents: diff changeset	2005	\|line startPos linePos index\|
a27a279701f8 Initial revision claus parents: diff changeset	2006
a27a279701f8 Initial revision claus parents: diff changeset	2007	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
a27a279701f8 Initial revision claus parents: diff changeset	2008	filePointer isNil ifTrue:[^ self errorNotOpen].
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	2009	binary ifTrue:[^ self errorBinary].
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	2010
1 a27a279701f8 Initial revision claus parents: diff changeset	2011	startPos := self position.
a27a279701f8 Initial revision claus parents: diff changeset	2012	[self atEnd] whileFalse:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2013	linePos := self position.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2014	line := self nextLine.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2015	line notNil ifTrue:[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2016	index := 1.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2017	aCollectionOfStrings do:[:prefix \|
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2018	(line startsWith:prefix) ifTrue:[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2019	self position:linePos.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2020	^ index
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2021	].
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2022	index := index + 1
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2023	]
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2024	]
1 a27a279701f8 Initial revision claus parents: diff changeset	2025	].
a27a279701f8 Initial revision claus parents: diff changeset	2026	self position:startPos.
a27a279701f8 Initial revision claus parents: diff changeset	2027	^ nil
a27a279701f8 Initial revision claus parents: diff changeset	2028	! !
a27a279701f8 Initial revision claus parents: diff changeset	2029
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2030	!ExternalStream methodsFor:'misc functions'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2031
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2032	async:aBoolean
779 0e41a665038a commentary Claus Gittinger <cg@exept.de> parents: 730 diff changeset	2033	"set/clear the async attribute - if set, the availability of data on
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2034	the receiver will trigger an ioInterrupt.
779 0e41a665038a commentary Claus Gittinger <cg@exept.de> parents: 730 diff changeset	2035	If cleared (which is the default) no special notification is made.
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2036	Notice:
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2037	not every OS supports this
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2038	- check with OS>>supportsIOInterrupts before using"
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	2039
0c73b48551ac * empty log message * claus parents: 88 diff changeset	2040	\|fd\|
0c73b48551ac * empty log message * claus parents: 88 diff changeset	2041
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	2042	filePointer isNil ifTrue:[^ self errorNotOpen].
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2043
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2044	OperatingSystem supportsIOInterrupts ifFalse:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2045	^ self errorUnsupportedOperation
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2046	].
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2047
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	2048	fd := self fileDescriptor.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2049	aBoolean ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2050	^ OperatingSystem enableIOInterruptsOn:fd
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2051	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2052	^ OperatingSystem disableIOInterruptsOn:fd
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2053
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2054	"Modified: 11.1.1997 / 17:50:21 / cg"
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	2055	!
0c73b48551ac * empty log message * claus parents: 88 diff changeset	2056
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2057	backStep
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2058	"step back one element -
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2059	redefined, since position is redefined here"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2060
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2061	self position:(self position - 1)
362 4131e87e79ec . claus parents: 360 diff changeset	2062	!
4131e87e79ec . claus parents: 360 diff changeset	2063
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2064	blocking:aBoolean
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2065	"set/clear the blocking attribute - if set (which is the default)
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2066	a read (using next) on the receiver will block until data is available.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2067	If cleared, a read operation will immediately return with a value of
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2068	nil.
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2069	Turning off blocking is useful when reading from PipeStreams
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2070	or Sockets, and the amount of data to be read is not known
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2071	in advance. However, the data must then be read using #nextBytes:
3174 668414a73de9 Typo in comment Stefan Vogel <sv@exept.de> parents: 3132 diff changeset	2072	methods, in order to avoid other (pastEnd) exceptions."
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	2073
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	2074	filePointer isNil ifTrue:[^ self errorNotOpen].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2075	^ OperatingSystem setBlocking:aBoolean on:(self fileDescriptor)
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2076
3174 668414a73de9 Typo in comment Stefan Vogel <sv@exept.de> parents: 3132 diff changeset	2077	"Modified: / 11.1.1997 / 17:48:01 / cg"
668414a73de9 Typo in comment Stefan Vogel <sv@exept.de> parents: 3132 diff changeset	2078	"Modified: / 15.1.1998 / 11:49:48 / stefan"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2079	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2080
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2081	close
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2082	"close the stream - tell operating system"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2083
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2084	filePointer isNil ifTrue:[^ self].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2085	Lobby unregister:self.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2086	self closeFile.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2087	filePointer := nil
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2088	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2089
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2090	create
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2091	"create the stream
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2092	- this must be redefined in subclass"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2093
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2094	^ self subclassResponsibility
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2095	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2096
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2097	ioctl:ioctlNumber
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2098	"to provide a simple ioctl facility - an ioctl is performed
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2099	on the underlying file; no arguments are passed."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2100
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2101	^ self ioctl:ioctlNumber with:nil
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2102	!
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2103
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2104	ioctl:ioctlNumber with:arg
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2105	"to provide a simple ioctl facility - an ioctl is performed
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2106	on the underlying file; the argument is passed as argument.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2107	This is not used by ST/X, but provided for special situations
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2108	- for example, to control proprietrary I/O devices.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2109
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2110	Since the type of the argument depends on the ioctl being
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2111	performed, different arg types are allowed here.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2112	If the argument is nil, an ioctl without argument is performed.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2113	If the argument is an integral number, its directly passed;
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2114	if its a kind of ByteArray (ByteArray, String or Structure),
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2115	or external data (ExternalBytes or ExternalAddress),
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2116	a pointer to the data is passed.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2117	This allows performing most ioctls
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2118	- however, it might be tricky to setup the buffer.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2119	Be careful in what you pass - ST/X cannot validate its correctness."
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2120
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	2121	%{
2896 be30640b9012 VMS stuff Claus Gittinger <cg@exept.de> parents: 2875 diff changeset	2122	#if !defined(MSDOS_LIKE)
be30640b9012 VMS stuff Claus Gittinger <cg@exept.de> parents: 2875 diff changeset	2123	# if !defined(__openVMS__)
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2124	FILEPOINTER f;
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2125	int ret, ioNum;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2126	OBJ fp;
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2127	INT ioArg;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2128
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2129	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2130	if ((fp = __INST(filePointer)) != nil) {
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2131	if (__isSmallInteger(ioctlNumber)
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2132	&& (__isSmallInteger(arg)
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2133	\|\| (arg == nil)
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2134	\|\| __isBytes(arg)
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2135	\|\| __isExternalBytes(arg)
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2136	\|\| __isExternalAddress(arg))) {
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2137	f = __FILEVal(fp);
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2138	ioNum = __intVal(ioctlNumber);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2139
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2140	__BEGIN_INTERRUPTABLE__
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2141	do {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2142	errno = 0;
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2143	if (arg == nil) {
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2144	ioArg = 0;
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2145	} else if (__isSmallInteger(arg)) {
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2146	ioArg = __intVal(arg);
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2147	} else if (__isExternalBytes(arg)) {
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2148	ioArg = (INT)(__externalBytesAddress(arg));
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2149	} else if (__isExternalAddress(arg)) {
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2150	ioArg = (INT)(__externalAddressVal(arg));
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2151	} else {
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2152	ioArg = (INT)(__ByteArrayInstPtr(arg)->ba_element);
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2153	}
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2154	ret = ioctl(fileno(f), ioNum, ioArg);
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2155	} while ((ret < 0) && (errno == EINTR));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2156	__END_INTERRUPTABLE__
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2157
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2158	if (ret >= 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2159	RETURN ( __MKSMALLINT(ret) );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2160	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2161	__INST(position) = nil;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2162	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2163	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2164	}
2896 be30640b9012 VMS stuff Claus Gittinger <cg@exept.de> parents: 2875 diff changeset	2165	# endif
791 b1c153b1c719 WIN32 has no ioctl Claus Gittinger <cg@exept.de> parents: 779 diff changeset	2166	#endif
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2167	%}.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2168	lastErrorNumber notNil ifTrue:[^ self ioError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2169	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2170	"
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2171	argument is not an integer
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2172	"
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2173	(ioctlNumber isMemberOf:SmallInteger) ifFalse:[^ self primitiveFailed].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2174	"
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2175	the system does not support ioctl (MSDOS or VMS)
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2176	"
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2177	^ self errorUnsupportedOperation
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2178	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2179
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2180	open
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2181	"open the stream
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2182	- this must be redefined in subclass"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2183
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2184	^ self subclassResponsibility
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2185	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2186
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2187	position
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2188	"return the position
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2189	- this must be redefined in subclass"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2190
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2191	^ self subclassResponsibility
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2192	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2193
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2194	position:anInteger
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2195	"set the position
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2196	- this must be redefined in subclass"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2197
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2198	^ self subclassResponsibility
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2199	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2200
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2201	reset
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2202	"set the read position to the beginning of the collection"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2203
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2204	self position:"0" 1
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2205	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2206
1044 c2fb3818e097 ExtSTream>>next: did not work correct if interrupted. Stefan Vogel <sv@exept.de> parents: 971 diff changeset	2207	setToEnd
c2fb3818e097 ExtSTream>>next: did not work correct if interrupted. Stefan Vogel <sv@exept.de> parents: 971 diff changeset	2208	"redefined since it must be implemented differently"
c2fb3818e097 ExtSTream>>next: did not work correct if interrupted. Stefan Vogel <sv@exept.de> parents: 971 diff changeset	2209
c2fb3818e097 ExtSTream>>next: did not work correct if interrupted. Stefan Vogel <sv@exept.de> parents: 971 diff changeset	2210	^ self subclassResponsibility
c2fb3818e097 ExtSTream>>next: did not work correct if interrupted. Stefan Vogel <sv@exept.de> parents: 971 diff changeset	2211	!
c2fb3818e097 ExtSTream>>next: did not work correct if interrupted. Stefan Vogel <sv@exept.de> parents: 971 diff changeset	2212
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2213	truncateTo:newSize
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2214	"truncate the underlying OS file to newSize.
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2215	Warning: this may not be implemented on all platforms."
1066 cffbbdea7e01 care for GC while being interruptable Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	2216
1068 92fdcccf12a3 alles MIST - zurueck zu 1.89 und NOCONTEXT entfernt Claus Gittinger <cg@exept.de> parents: 1067 diff changeset	2217	%{
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2218	#ifdef HAS_FTRUNCATE
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2219	FILEPOINTER f;
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2220	OBJ fp;
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2221
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2222	if (((fp = __INST(filePointer)) != nil)
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2223	&& (__INST(mode) != @symbol(readonly))) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2224	if (__isSmallInteger(newSize)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2225	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2226
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2227	if (__INST(buffered) == true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2228	__READING__(f)
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2229	FFLUSH(f);
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2230	OPT_FSEEK(f, 0L, SEEK_END); /* needed in stdio */
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	2231	}
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2232	ftruncate(fileno(f), __intVal(newSize));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2233	RETURN (self);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2234	}
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2235	}
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2236	#endif
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2237	%}.
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	2238	filePointer isNil ifTrue:[self errorNotOpen. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	2239	(mode == #readonly) ifTrue:[self errorReadOnly. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	2240	self errorUnsupportedOperation
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2241
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2242	"
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2243	\|s\|
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2244
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2245	s := 'test' asFilename writeStream.
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2246	s next:1000 put:$a.
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2247	s truncateTo:100.
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2248	s close.
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2249
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2250	('test' asFilename fileSize) printNL
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2251	"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2252	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2253
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2254	!ExternalStream methodsFor:'non homogenous reading'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2255
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2256	nextAvailableBytes:count into:anObject startingAt:start
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2257	"read the next count bytes into an object and return the number of
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2258	bytes read or the number of bytes read, if EOF is encountered before,
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2259	or no more bytes are available for reading (from the pipe/socket).
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2260
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2261	If the receiver is some socket/pipe-like stream, an exception
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2262	is raised if the connection is broken.
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2263
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2264	Notice, that in contrast to other methods,
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2265	this does NOT return nil on EOF, but the actual count.
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2266	Thus allowing read of partial blocks.
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2267
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2268	The object must have non-pointer indexed instvars
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2269	(i.e. it must be a ByteArray, String, Float- or DoubleArray).
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2270	If anObject is a string or byteArray and reused, this provides the
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2271	fastest possible physical I/O (since no new objects are allocated).
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2272
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2273	Use with care - non object oriented I/O.
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2274	Warning: in general, you cannot use this method to pass data from other
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2275	architectures since it does not care for byte order or float representation."
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2276
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2277	%{
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2278	FILEPOINTER f;
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2279	int cnt, offs, ret, _buffered;
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2280	int objSize, nInstVars, nInstBytes;
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2281	char *cp;
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2282	OBJ pos, fp, oClass;
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2283	int o_offs;
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2284
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2285	__INST(lastErrorNumber) = nil;
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2286	if (((fp = __INST(filePointer)) != nil)
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2287	&& (__INST(mode) != @symbol(writeonly))
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2288	&& __bothSmallInteger(count, start)
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2289	) {
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2290	f = __FILEVal(fp);
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2291
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2292	oClass = __Class(anObject);
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2293	switch (__intVal(__ClassInstPtr(oClass)->c_flags) & ARRAYMASK) {
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2294	case BYTEARRAY:
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2295	case WORDARRAY:
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2296	case LONGARRAY:
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2297	case SWORDARRAY:
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2298	case SLONGARRAY:
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2299	case FLOATARRAY:
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2300	case DOUBLEARRAY:
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2301	break;
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2302	default:
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2303	goto bad;
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2304	}
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2305	cnt = __intVal(count);
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2306	offs = __intVal(start) - 1;
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2307	nInstVars = __intVal(__ClassInstPtr(oClass)->c_ninstvars);
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2308	nInstBytes = OHDR_SIZE + __OBJS2BYTES__(nInstVars);
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2309	objSize = __Size(anObject) - nInstBytes;
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2310	if ((offs >= 0) && (cnt >= 0) && (objSize >= (cnt + offs))) {
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2311	_buffered = (__INST(buffered) == true);
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2312	if (_buffered) {
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2313	__READING__(f);
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2314	}
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2315
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2316	/*
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2317	* on interrupt, anObject may be moved to another location.
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2318	* So we pass (char *)__InstPtr(anObject) + nInstBytes + offs to the macro __READ_BYTES__,
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2319	* to get a new address.
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2320	*/
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2321	o_offs = nInstBytes+offs;
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2322	__READAVAILBYTES_OBJ__(ret, f, anObject, o_offs, cnt, _buffered);
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2323
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2324	if (ret > 0) {
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2325	pos = __INST(position);
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2326	if (pos != nil) {
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2327	__INST(position) = __MKSMALLINT(__intVal(pos) + ret);
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2328	}
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2329	RETURN (__MKSMALLINT(ret));
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2330	}
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2331	if (ret == 0) {
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2332	__INST(hitEOF) = true;
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2333	} else /* ret < 0 */ {
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2334	__INST(position) = nil;
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2335	__INST(lastErrorNumber) = __MKSMALLINT(errno);
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2336	}
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2337	}
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2338	}
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2339	bad: ;
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2340	%}.
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2341	(hitEOF and:[self pastEnd isNil]) ifTrue:[^ 0].
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2342	lastErrorNumber notNil ifTrue:[^ self readError].
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2343	filePointer isNil ifTrue:[^ self errorNotOpen].
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2344	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2345	"
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2346	count not integer or arg not bit-like (String, ByteArray etc)
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2347	"
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2348	^ self primitiveFailed
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2349	!
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2350
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2351	nextByte
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2352	"read the next byte and return it as an Integer; return nil on error.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2353	This is allowed in both text and binary modes, always returning the
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2354	bytes binary value as an integer in 0..255."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2355
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	2356	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2357	FILEPOINTER f;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2358	unsigned char byte;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2359	int ret, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2360	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2361
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2362	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2363	if (((fp = __INST(filePointer)) != nil)
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2364	&& (__INST(mode) != @symbol(writeonly))) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2365	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2366
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2367	_buffered = (__INST(buffered) == true);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2368	if (_buffered) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2369	__READING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2370	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2371	__READBYTE__(ret, f, &byte, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2372	if (ret > 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2373	if (__INST(position) != nil)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2374	__INST(position) = __MKSMALLINT(__intVal(__INST(position)) + 1);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2375	RETURN (__MKSMALLINT(byte));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2376	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2377
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2378	if (ret == 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2379	__INST(hitEOF) = true;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2380	} else /* ret < 0 */ {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2381	__INST(position) = nil;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2382	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2383	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2384	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2385	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	2386	hitEOF ifTrue:[^ self pastEnd].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2387	lastErrorNumber notNil ifTrue:[^ self readError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2388	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2389	^ self errorWriteOnly
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2390	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2391
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2392	nextBytes:count into:anObject startingAt:start
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2393	"read the next count bytes into an object and return the number of
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2394	bytes read or the number of bytes read, if EOF is encountered before.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2395	If the receiver is some socket/pipe-like stream, an exception
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2396	is raised if the connection is broken.
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2397
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2398	Warning: if used with a pipe/socket, this blocks until the requested number
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2399	of bytes have been read. See #nextAvailableBytes:into:startingAt:
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2400	to only read whats there.
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2401
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2402	Notice, that in contrast to other methods,
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2403	this does NOT return nil on EOF, but the actual count.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2404	Thus allowing read of partial blocks.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2405
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2406	The object must have non-pointer indexed instvars
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2407	(i.e. it must be a ByteArray, String, Float- or DoubleArray).
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2408	If anObject is a string or byteArray and reused, this provides the
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2409	fastest possible physical I/O (since no new objects are allocated).
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2410
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2411	Use with care - non object oriented I/O.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2412	Warning: in general, you cannot use this method to pass data from other
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2413	architectures since it does not care for byte order or float representation."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2414
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2415	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2416	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2417	int cnt, offs, ret, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2418	int objSize, nInstVars, nInstBytes;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2419	char *cp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2420	OBJ pos, fp, oClass;
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	2421	int o_offs;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2422
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2423	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2424	if (((fp = __INST(filePointer)) != nil)
2861 c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2425	&& (__INST(mode) != @symbol(writeonly))
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2426	&& __bothSmallInteger(count, start)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2427	) {
2861 c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2428	f = __FILEVal(fp);
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2429
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2430	oClass = __Class(anObject);
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2431	switch (__intVal(__ClassInstPtr(oClass)->c_flags) & ARRAYMASK) {
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2432	case BYTEARRAY:
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2433	case WORDARRAY:
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2434	case LONGARRAY:
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2435	case SWORDARRAY:
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2436	case SLONGARRAY:
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2437	case FLOATARRAY:
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2438	case DOUBLEARRAY:
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2439	break;
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2440	default:
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2441	goto bad;
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2442	}
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2443	cnt = __intVal(count);
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2444	offs = __intVal(start) - 1;
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2445	nInstVars = __intVal(__ClassInstPtr(oClass)->c_ninstvars);
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2446	nInstBytes = OHDR_SIZE + __OBJS2BYTES__(nInstVars);
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2447	objSize = __Size(anObject) - nInstBytes;
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2448	if ((offs >= 0) && (cnt >= 0) && (objSize >= (cnt + offs))) {
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2449	_buffered = (__INST(buffered) == true);
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2450	if (_buffered) {
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2451	__READING__(f);
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2452	}
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2453
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2454	/*
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2455	* on interrupt, anObject may be moved to another location.
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2456	* So we pass (char *)__InstPtr(anObject) + nInstBytes + offs to the macro __READ_BYTES__,
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2457	* to get a new address.
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2458	*/
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2459	o_offs = nInstBytes+offs;
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2460	__READBYTES_OBJ__(ret, f, anObject, o_offs, cnt, _buffered);
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2461
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2462	if (ret > 0) {
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2463	pos = __INST(position);
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2464	if (pos != nil) {
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2465	__INST(position) = __MKSMALLINT(__intVal(pos) + ret);
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2466	}
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2467	RETURN (__MKSMALLINT(ret));
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2468	}
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2469	if (ret == 0) {
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2470	__INST(hitEOF) = true;
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2471	} else /* ret < 0 */ {
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2472	__INST(position) = nil;
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2473	__INST(lastErrorNumber) = __MKSMALLINT(errno);
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2474	}
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2475	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2476	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2477	bad: ;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2478	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	2479	(hitEOF and:[self pastEnd isNil]) ifTrue:[^ 0].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2480	lastErrorNumber notNil ifTrue:[^ self readError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2481	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2482	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2483	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2484	count not integer or arg not bit-like (String, ByteArray etc)
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2485	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2486	^ self primitiveFailed
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	2487	!
0c73b48551ac * empty log message * claus parents: 88 diff changeset	2488
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2489	nextLong
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2490	"Read four bytes (msb-first) and return the value as a 32-bit signed Integer.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2491	The returned value may be a LargeInteger.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2492	(msb-first for compatibility with other smalltalks)"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2493
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2494	^ self nextUnsignedLongMSB:true
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2495	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2496
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2497	nextLongMSB:msbFlag
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2498	"Read four bytes and return the value as a 32-bit signed Integer,
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2499	which may be a LargeInteger.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2500	If msbFlag is true, value is read with most-significant byte first,
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2501	otherwise least-significant byte comes first.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2502	A nil is returned, if EOF is hit before all 4 bytes have been read.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2503	Works in both binary and text modes."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2504
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	2505	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2506	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2507
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2508	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2509	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2510	&& (__INST(mode) != @symbol(writeonly))
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2511	) {
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2512	FILEPOINTER f;
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2513	int ret;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2514	int value;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2515	char buffer[4];
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2516
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2517	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2518	__READBYTES__(ret, f, buffer, 4, __INST(buffered) == true);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2519
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2520	if (ret == 4) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2521	if (__INST(position) != nil) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2522	__INST(position) = __MKSMALLINT(__intVal(__INST(position)) + 4);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2523	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2524	if (msbFlag == true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2525	value = (buffer[0] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2526	value = (value << 8) \| (buffer[1] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2527	value = (value << 8) \| (buffer[2] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2528	value = (value << 8) \| (buffer[3] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2529	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2530	value = (buffer[3] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2531	value = (value << 8) \| (buffer[2] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2532	value = (value << 8) \| (buffer[1] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2533	value = (value << 8) \| (buffer[0] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2534	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2535	if ((value >= _MIN_INT) && (value <= _MAX_INT)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2536	RETURN ( __MKSMALLINT(value));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2537	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2538	RETURN ( __MKLARGEINT(value) );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2539	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2540
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2541	if (ret < 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2542	__INST(position) = nil;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2543	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2544	} else /* ret == 0 */ {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2545	__INST(hitEOF) = true;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2546	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2547	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2548	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	2549	hitEOF ifTrue:[^ self pastEnd].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2550	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2551	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2552	^ self readError.
1079 d47cd86b487b Make methods signal-proof. Stefan Vogel <sv@exept.de> parents: 1068 diff changeset	2553
362 4131e87e79ec . claus parents: 360 diff changeset	2554	!
4131e87e79ec . claus parents: 360 diff changeset	2555
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2556	nextShortMSB:msbFlag
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2557	"Read two bytes and return the value as a 16-bit signed Integer.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2558	If msbFlag is true, value is read with most-significant byte first,
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2559	otherwise least-significant byte comes first.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2560	A nil is returned if EOF is reached (also when EOF is hit after the first byte).
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2561	Works in both binary and text modes."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2562
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	2563	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2564	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2565
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2566	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2567	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2568	&& (__INST(mode) != @symbol(writeonly))
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2569	) {
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2570	FILEPOINTER f;
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2571	int ret;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2572	short value;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2573	char buffer[2];
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2574
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2575	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2576	__READBYTES__(ret, f, buffer, 2, __INST(buffered) == true);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2577
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2578	if (ret == 2) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2579	if (__INST(position) != nil) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2580	__INST(position) = __MKSMALLINT(__intVal(__INST(position)) + 2);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2581	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2582	if (msbFlag == true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2583	value = ((buffer[0] & 0xFF) << 8) \| (buffer[1] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2584	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2585	value = ((buffer[1] & 0xFF) << 8) \| (buffer[0] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2586	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2587	RETURN (__MKSMALLINT(value));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2588	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2589
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2590	if (ret < 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2591	__INST(position) = nil;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2592	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2593	} else /* ret == 0 */ {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2594	__INST(hitEOF) = true;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2595	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2596	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2597	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	2598	hitEOF ifTrue:[^ self pastEnd].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2599	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2600	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2601	^ self readError.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2602	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2603
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2604	nextUnsignedLongMSB:msbFlag
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2605	"Read four bytes and return the value as a 32-bit unsigned Integer, which may be
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2606	a LargeInteger.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2607	If msbFlag is true, value is read with most-significant byte first, otherwise
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2608	least-significant byte comes first.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2609	A nil is returned, if endOfFile occurs before all 4 bytes have been read.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2610	Works in both binary and text modes."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2611
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	2612	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2613	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2614
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2615	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2616	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2617	&& (__INST(mode) != @symbol(writeonly))
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2618	) {
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2619	FILEPOINTER f;
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2620	int ret;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2621	unsigned int value;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2622	char buffer[4];
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2623
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2624	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2625	__READBYTES__(ret, f, buffer, 4, __INST(buffered) == true);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2626
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2627	if (ret == 4) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2628	if (__INST(position) != nil) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2629	__INST(position) = __MKSMALLINT(__intVal(__INST(position)) + 4);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2630	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2631	if (msbFlag == true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2632	value = (buffer[0] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2633	value = (value << 8) \| (buffer[1] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2634	value = (value << 8) \| (buffer[2] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2635	value = (value << 8) \| (buffer[3] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2636	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2637	value = (buffer[3] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2638	value = (value << 8) \| (buffer[2] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2639	value = (value << 8) \| (buffer[1] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2640	value = (value << 8) \| (buffer[0] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2641	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2642	if (value <= _MAX_INT) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2643	RETURN ( __MKSMALLINT(value));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2644	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2645	RETURN ( __MKULARGEINT(value) );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2646	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2647
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2648	if (ret < 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2649	__INST(position) = nil;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2650	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2651	} else /* ret == 0 */ {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2652	__INST(hitEOF) = true;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2653	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2654	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2655	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	2656	hitEOF ifTrue:[^ self pastEnd].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2657	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2658	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2659	^ self readError.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2660	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2661
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2662	nextUnsignedShortMSB:msbFlag
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2663	"Read two bytes and return the value as a 16-bit unsigned Integer.
1079 d47cd86b487b Make methods signal-proof. Stefan Vogel <sv@exept.de> parents: 1068 diff changeset	2664	If msbFlag is true, value is read with most-significant byte first,
d47cd86b487b Make methods signal-proof. Stefan Vogel <sv@exept.de> parents: 1068 diff changeset	2665	otherwise least-significant byte comes first.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2666	A nil is returned if EOF is reached (also when EOF is hit after the first byte).
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2667	Works in both binary and text modes."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2668
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	2669	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2670	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2671
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2672	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2673	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2674	&& (__INST(mode) != @symbol(writeonly))
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2675	) {
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2676	FILEPOINTER f;
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2677	int ret;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2678	unsigned int value;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2679	char buffer[2];
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2680
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2681	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2682	__READBYTES__(ret, f, buffer, 2, __INST(buffered) == true);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2683
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2684	if (ret == 2) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2685	if (__INST(position) != nil) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2686	__INST(position) = __MKSMALLINT(__intVal(__INST(position)) + 2);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2687	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2688	if (msbFlag == true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2689	value = ((buffer[0] & 0xFF) << 8) \| (buffer[1] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2690	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2691	value = ((buffer[1] & 0xFF) << 8) \| (buffer[0] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2692	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2693	RETURN (__MKSMALLINT(value));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2694	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2695
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2696	if (ret < 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2697	__INST(position) = nil;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2698	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2699	} else /* ret == 0 */ {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2700	__INST(hitEOF) = true;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2701	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2702	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2703	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	2704	hitEOF ifTrue:[^ self pastEnd].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2705	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2706	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2707	^ self readError.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2708	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2709
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2710	nextWord
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2711	"in text-mode:
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2712	read the alphaNumeric next word (i.e. up to non letter-or-digit).
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2713	return a string containing those characters.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2714	in binary-mode:
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2715	read two bytes (msb-first) and return the value as a 16-bit
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2716	unsigned Integer (for compatibility with other smalltalks)"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2717
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2718	binary ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2719	^ self nextUnsignedShortMSB:true
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	2720	].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2721	^ self nextAlphaNumericWord
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2722	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2723
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2724	!ExternalStream methodsFor:'non homogenous writing'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2725
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2726	nextPutByte:aByteValue
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2727	"write a byte.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2728	Works in both binary and text modes."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2729
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	2730	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2731	FILEPOINTER f;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2732	char c;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2733	OBJ pos, fp;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2734	int cnt, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2735
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2736	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2737	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2738	&& (__INST(mode) != @symbol(readonly))
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2739	&& __isSmallInteger(aByteValue)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2740
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2741	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2742	c = __intVal(aByteValue);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2743	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2744	if (_buffered = (__INST(buffered) == true)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2745	__WRITING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2746	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2747	__WRITEBYTE__(cnt, f, &c, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2748	if (cnt == 1) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2749	pos = __INST(position);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2750	if (pos != nil)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2751	__INST(position) = __MKSMALLINT(__intVal(pos) + 1);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2752	RETURN (self);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2753	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2754	__INST(lastErrorNumber) = __MKSMALLINT(errno);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2755	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2756	%}.
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	2757	filePointer isNil ifTrue:[self errorNotOpen. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	2758	(mode == #readonly) ifTrue:[self errorReadOnly. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	2759	self writeError.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2760	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2761
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2762	nextPutBytes:count from:anObject startingAt:start
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2763	"write count bytes from an object starting at index start.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2764	return the number of bytes written - which could be 0.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2765	The object must have non-pointer indexed instvars
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2766	(i.e. be a ByteArray, String, Float- or DoubleArray).
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2767	Use with care - non object oriented i/o.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2768	Warning: in general, you cannot use this method to pass data to other
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2769	architectures since it does not care for byte order or float representation."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2770
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	2771	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2772	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2773	int cnt, len, offs, ret;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2774	int objSize, nInstVars, nInstBytes, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2775	char *cp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2776	OBJ oClass, pos, fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2777
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2778	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2779	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2780	&& (__INST(mode) != @symbol(readonly))
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2781	&& __bothSmallInteger(count, start)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2782	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2783	oClass = __Class(anObject);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2784	switch (__intVal(__ClassInstPtr(oClass)->c_flags) & ARRAYMASK) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2785	case BYTEARRAY:
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2786	case WORDARRAY:
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2787	case LONGARRAY:
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2788	case SWORDARRAY:
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2789	case SLONGARRAY:
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2790	case FLOATARRAY:
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2791	case DOUBLEARRAY:
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2792	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2793	default:
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2794	goto bad;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2795	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2796	len = __intVal(count);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2797	offs = __intVal(start) - 1;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2798	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2799
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2800	nInstVars = __intVal(__ClassInstPtr(oClass)->c_ninstvars);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2801	nInstBytes = OHDR_SIZE + __OBJS2BYTES__(nInstVars);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2802	objSize = __Size(anObject) - nInstBytes;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2803	if ( (offs >= 0) && (len >= 0) && (objSize >= (len + offs)) ) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2804	offs += nInstBytes;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2805	if (_buffered = (__INST(buffered) == true)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2806	__WRITING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2807	}
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	2808	__WRITEBYTES_OBJ__(cnt, f, anObject, offs, len, _buffered);
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2809	if (cnt >= 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2810	pos = __INST(position);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2811	if (pos != nil)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2812	__INST(position) = __MKSMALLINT(__intVal(pos) + cnt);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2813	RETURN ( __MKSMALLINT(cnt) );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2814	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2815	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2816	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2817	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2818	bad: ;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2819	%}.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2820	lastErrorNumber notNil ifTrue:[^ self writeError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2821	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2822	(mode == #readonly) ifTrue:[^ self errorReadOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2823	^ self primitiveFailed
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2824	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2825
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2826	nextPutLong:aNumber MSB:msbFlag
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2827	"Write the argument, aNumber as a long (four bytes). If msbFlag is
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2828	true, data is written most-significant byte first; otherwise least
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2829	first.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2830	Works in both binary and text modes."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2831
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	2832	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2833	int num;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2834	char bytes[4];
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2835	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2836	int cnt, _buffered;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2837	OBJ fp, pos;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2838
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2839	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2840	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2841	&& (__INST(mode) != @symbol(readonly))
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2842	&& __isSmallInteger(aNumber)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2843	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2844	num = __intVal(aNumber);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2845	if (msbFlag == true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2846	bytes[0] = (num >> 24) & 0xFF;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2847	bytes[1] = (num >> 16) & 0xFF;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2848	bytes[2] = (num >> 8) & 0xFF;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2849	bytes[3] = num & 0xFF;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2850	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2851	bytes[3] = (num >> 24) & 0xFF;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2852	bytes[2] = (num >> 16) & 0xFF;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2853	bytes[1] = (num >> 8) & 0xFF;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2854	bytes[0] = num & 0xFF;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2855	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2856
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2857	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2858	if (_buffered = (__INST(buffered) == true)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2859	__WRITING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2860	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2861	__WRITEBYTES__(cnt, f, bytes, 4, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2862
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2863	if (cnt == 4) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2864	if ((pos = __INST(position)) != nil) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2865	__INST(position) = __MKSMALLINT(__intVal(pos) + 4);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2866	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2867	RETURN ( self );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2868	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2869	__INST(lastErrorNumber) = __MKSMALLINT(errno);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2870	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2871	%}.
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	2872	filePointer isNil ifTrue:[self errorNotOpen. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	2873	(mode == #readonly) ifTrue:[self errorReadOnly. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	2874	lastErrorNumber notNil ifTrue:[self writeError. ^ self].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2875
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2876	aNumber isInteger ifTrue:[
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	2877	^ super nextPutLong:aNumber MSB:msbFlag
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	2878	].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2879	self argumentMustBeInteger
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2880	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2881
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2882	nextPutShort:aNumber MSB:msbFlag
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2883	"Write the argument, aNumber as a short (two bytes). If msbFlag is
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2884	true, data is written most-significant byte first; otherwise least
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2885	first.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2886	Works in both binary and text modes."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2887
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	2888	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2889	int num;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2890	char bytes[2];
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2891	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2892	int cnt, _buffered;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2893	OBJ fp, pos;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2894
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2895	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2896	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2897	&& (__INST(mode) != @symbol(readonly))
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2898	&& __isSmallInteger(aNumber)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2899	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2900	num = __intVal(aNumber);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2901	if (msbFlag == true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2902	bytes[0] = (num >> 8) & 0xFF;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2903	bytes[1] = num & 0xFF;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2904	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2905	bytes[1] = (num >> 8) & 0xFF;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2906	bytes[0] = num & 0xFF;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2907	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2908
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2909	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2910	if (_buffered = (__INST(buffered) == true)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2911	__WRITING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2912	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2913	__WRITEBYTES__(cnt, f, bytes, 2, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2914
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2915	if (cnt == 2) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2916	if ((pos = __INST(position)) != nil) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2917	__INST(position) = __MKSMALLINT(__intVal(pos) + 2);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2918	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2919	RETURN ( self );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2920	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2921	__INST(lastErrorNumber) = __MKSMALLINT(errno);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2922	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2923	%}.
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	2924	lastErrorNumber notNil ifTrue:[^ self writeError. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	2925	filePointer isNil ifTrue:[self errorNotOpen. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	2926	(mode == #readonly) ifTrue:[self errorReadOnly. ^ self].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2927	self argumentMustBeInteger
10 4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	2928	! !
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2929
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2930	!ExternalStream methodsFor:'private'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2931
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2932	clearEOF
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2933	hitEOF := false
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2934	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2935
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2936	connectTo:aFileDescriptor withMode:openmode
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2937	"connect a fileDescriptor; openmode is the string defining the way to open.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2938	This can be used to connect an extrnally provided fileDescriptor (from
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2939	primitive code) or a pipeFileDescriptor (as returned by makePipe) to
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2940	a Stream object.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2941	The openMode ('r', 'w' etc.) must match the mode in which
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2942	the fileDescriptor was originally opened (otherwise i/o errors will be reported later)."
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2943
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2944	\|retVal\|
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2945
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2946	filePointer notNil ifTrue:[^ self errorOpen].
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2947	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2948	FILEPOINTER f;
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2949	OBJ fp;
2765 a56668774ad7 more alpha64 fixes Claus Gittinger <cg@exept.de> parents: 2764 diff changeset	2950	FILE *fdopen();
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2951
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2952	if (__isSmallInteger(aFileDescriptor)
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2953	&& (__qClass(openmode)== @global(String))) {
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2954	f = (FILEPOINTER) fdopen(__intVal(aFileDescriptor), (char *)__stringVal(openmode));
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2955	if (f == NULL) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2956	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2957	__INST(position) = nil;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2958	} else {
3420 4dc6667afda9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3419 diff changeset	2959	__INST(filePointer) = fp = __MKFILEPOINTER(f); __STORE(self, fp);
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2960	__INST(position) = __MKSMALLINT(1);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2961	retVal = self;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2962	}
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2963	}
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2964	%}.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2965	retVal notNil ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2966	buffered := true. "default is buffered"
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2967	Lobby register:self
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2968	].
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2969	lastErrorNumber notNil ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2970	"
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2971	the open failed for some reason ...
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2972	"
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2973	^ self openError
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2974	].
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2975	^ retVal
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2976	!
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2977
2963 17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	2978	open:aPath withMode:mode
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	2979	"low level open; opens the file/device and sets the filePointer instance
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	2980	variable. Careful: this does not care for any other state."
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	2981
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	2982	\|ok\|
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	2983
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	2984	ok := false.
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	2985	%{
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	2986	FILE *f;
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	2987	OBJ fp;
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	2988
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	2989	if (__isString(aPath)) {
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	2990	__BEGIN_INTERRUPTABLE__
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	2991	do {
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	2992	f = fopen((char ) __stringVal(aPath), (char ) __stringVal(mode));
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	2993	} while ((f == NULL) && (errno == EINTR));
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	2994	__END_INTERRUPTABLE__
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	2995	if (f == NULL) {
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	2996	__INST(lastErrorNumber) = __MKSMALLINT(errno);
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	2997	} else {
3420 4dc6667afda9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3419 diff changeset	2998	__INST(filePointer) = fp = __MKFILEPOINTER(f); __STORE(self, fp);
2963 17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	2999	ok = true;
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	3000	}
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	3001	}
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	3002	%}.
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	3003	ok ifFalse:[
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	3004	"
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	3005	the open failed for some reason ...
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	3006	"
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	3007	^ self openError
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	3008	].
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	3009	Lobby register:self.
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	3010	!
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	3011
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3012	reOpen
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3013	"sent after snapin to reopen streams.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3014	cannot reopen here since I am abstract and have no device knowledge"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3015
2134 246a3bdab8b4 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 2120 diff changeset	3016	self class name errorPrint. ' [warning]: automatic reOpen not supported - stream closed' errorPrintCR.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3017	filePointer := nil.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3018	Lobby unregister:self.
2134 246a3bdab8b4 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 2120 diff changeset	3019
246a3bdab8b4 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 2120 diff changeset	3020	"Modified: 10.1.1997 / 17:50:44 / cg"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3021	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3022
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3023	setLastError:aNumber
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3024	lastErrorNumber := aNumber
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3025	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3026
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3027	!ExternalStream methodsFor:'queries'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3028
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3029	isBinary
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3030	"return true, if the stream is in binary (as opposed to text-) mode.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3031	The default when created is false."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3032
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3033	^ binary
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3034	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3035
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3036	isExternalStream
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3037	"return true, if the receiver is some kind of externalStream;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3038	true is returned here - the method redefined from Object."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3039
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3040	^ true
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3041	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3042
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3043	isReadable
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3044	"return true, if this stream can be read from"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3045
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3046	^ (mode ~~ #writeonly)
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3047	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3048
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3049	isWritable
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3050	"return true, if this stream can be written to"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3051
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3052	^ (mode ~~ #readonly)
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3053	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3054
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3055	!ExternalStream methodsFor:'reading'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3056
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3057	next
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3058	"return the next element; advance read position.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3059	In binary mode, an integer is returned, otherwise a character.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3060	If there are no more elements, nil is returned."
1 a27a279701f8 Initial revision claus parents: diff changeset	3061
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	3062	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	3063	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3064	int ret, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3065	OBJ pos, fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3066	unsigned char ch;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3067
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3068	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3069	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3070	&& (__INST(mode) != @symbol(writeonly))
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3071	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3072	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3073
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3074	_buffered = (__INST(buffered) == true);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3075	if (_buffered) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3076	__READING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3077	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3078	__READBYTE__(ret, f, &ch, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3079
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3080	if (ret > 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3081	pos = __INST(position);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3082	if (__isSmallInteger(pos)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3083	__INST(position) = __MKSMALLINT(__intVal(pos) + 1);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3084	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3085	__INST(position) = nil;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3086	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3087	if (__INST(binary) == true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3088	RETURN ( __MKSMALLINT(ch) );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3089	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3090	RETURN ( __MKCHARACTER(ch) );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3091	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3092
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3093	__INST(position) = nil;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3094	if (ret < 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3095	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3096	} else /* ret == 0 */ {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3097	__INST(hitEOF) = true;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3098	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3099	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3100	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	3101	hitEOF ifTrue:[^ self pastEnd].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3102	lastErrorNumber notNil ifTrue:[^ self readError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3103	filePointer isNil ifTrue:[^ self errorNotOpen].
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3104	^ self errorWriteOnly
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3105	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3106
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3107	next:count
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3108	"return the next count elements of the stream as a collection.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3109	Redefined to return a String or ByteArray instead of the default: Array."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3110
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	3111	\|coll nRead\|
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3112
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3113	binary ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3114	coll := ByteArray uninitializedNew:count
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3115	] ifFalse:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3116	coll := String new:count
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3117	].
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	3118	nRead := self nextBytes:count into:coll startingAt:1.
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	3119
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	3120	"/ for readStream protocol compatibility,
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	3121	"/ we must raise an exception here.
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	3122
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	3123	nRead < count ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3124	^ self pastEnd
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	3125	].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3126	^ coll
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	3127
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	3128	"Modified: 11.1.1997 / 17:44:17 / cg"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3129	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3130
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3131	peek
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3132	"return the element to be read next without advancing read position.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3133	In binary mode, an integer is returned, otherwise a character.
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	3134	If there are no more elements, nil is returned."
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3135
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	3136	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	3137	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3138	unsigned char c;
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3139	int ret, _buffered;
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	3140	OBJ fp;
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	3141
3029 aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3142	if (__INST(readAhead) != nil) {
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3143	RETURN (__INST(readAhead));
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3144	}
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3145
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3146	__INST(lastErrorNumber) = nil;
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3147
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3148	if (((fp = __INST(filePointer)) != nil)
3029 aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3149	&& (__INST(mode) != @symbol(writeonly))
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3150	) {
3029 aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3151	f = __FILEVal(fp);
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3152	_buffered = (__INST(buffered) == true);
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3153	if (_buffered) {
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3154	__READING__(f)
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3155	}
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3156	__READBYTE__(ret, f, &c, _buffered);
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3157
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3158	if (ret > 0) {
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3159	__UNGETC__(c, f, _buffered);
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3160
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3161	if (__INST(binary) == true) {
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3162	RETURN ( __MKSMALLINT(c) );
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3163	}
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3164	RETURN ( __MKCHARACTER(c) );
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3165	}
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3166	if (ret < 0) {
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3167	__INST(lastErrorNumber) = __MKSMALLINT(errno);
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3168	} else /* ret == 0 */ {
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3169	__INST(hitEOF) = true;
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3170	}
1 a27a279701f8 Initial revision claus parents: diff changeset	3171	}
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	3172	%}.
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3173	hitEOF ifTrue:[^ self pastEnd].
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	3174	lastErrorNumber notNil ifTrue:[^ self readError].
1 a27a279701f8 Initial revision claus parents: diff changeset	3175	filePointer isNil ifTrue:[^ self errorNotOpen].
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	3176	^ self errorWriteOnly
1295 83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	3177	!
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	3178
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	3179	upToEnd
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	3180	"return a collection of the elements up-to the end.
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	3181	Return nil if the stream-end is reached before."
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	3182
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	3183	\|answerStream ch\|
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	3184
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	3185	answerStream := WriteStream on:(self contentsSpecies new).
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	3186	[self atEnd] whileFalse:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3187	ch := self next.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3188	ch notNil ifTrue:[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3189	answerStream nextPut:ch
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3190	]
1295 83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	3191	].
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	3192	^ answerStream contents
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	3193
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	3194	"Created: 25.4.1996 / 14:40:31 / cg"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3195	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3196
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3197	!ExternalStream methodsFor:'reimplemented for speed'!
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	3198
514c749165c3 * empty log message * claus parents: 108 diff changeset	3199	nextAlphaNumericWord
379 5b5a130ccd09 revision added claus parents: 372 diff changeset	3200	"read the next word (i.e. up to non letter-or-digit) after first
5b5a130ccd09 revision added claus parents: 372 diff changeset	3201	skipping any whiteSpace.
5b5a130ccd09 revision added claus parents: 372 diff changeset	3202	Return a string containing those characters.
5b5a130ccd09 revision added claus parents: 372 diff changeset	3203	There is a limit of 1023 characters in the word - if longer,
5b5a130ccd09 revision added claus parents: 372 diff changeset	3204	it is truncated."
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	3205
514c749165c3 * empty log message * claus parents: 108 diff changeset	3206	%{ /* STACK: 2000 */
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	3207	FILEPOINTER f;
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	3208	int len;
514c749165c3 * empty log message * claus parents: 108 diff changeset	3209	char buffer[1024];
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3210	unsigned char ch;
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	3211	int cnt = 0;
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3212	int ret, _buffered;
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	3213	OBJ fp;
a8abff749575 * empty log message * claus parents: 213 diff changeset	3214
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3215	if (((fp = __INST(filePointer)) != nil)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3216	&& (__INST(mode) != @symbol(writeonly))
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3217	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3218	f = __FILEVal(fp);
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3219	_buffered = (__INST(buffered) == true);
71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3220	if (_buffered) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3221	__READING__(f)
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3222	}
2045 1ad17ca6520f fall back to super>>nextPutLine: if argument is not a string. Claus Gittinger <cg@exept.de> parents: 2044 diff changeset	3223
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3224	/*
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3225	* skip whiteSpace first ...
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3226	*/
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3227	do {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3228	__READBYTE__(ret, f, &ch, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3229	if (ret > 0)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3230	cnt++;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3231	else
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3232	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3233	} while (
379 5b5a130ccd09 revision added claus parents: 372 diff changeset	3234	#ifndef NON_ASCII
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3235	(ch < ' ') \|\|
379 5b5a130ccd09 revision added claus parents: 372 diff changeset	3236	#endif
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3237	(ch == ' ' ) \|\| (ch == '\t') \|\| (ch == '\r')
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3238	\|\| (ch == '\n') \|\| (ch == 0x0b));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3239
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3240	len = 0;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3241	while (ret > 0 &&
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3242	(((ch >= 'a') && (ch <= 'z')) \|\|
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3243	((ch >= 'A') && (ch <= 'Z')) \|\|
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3244	((ch >= '0') && (ch <= '9')))
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3245	) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3246	buffer[len++] = ch;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3247	if (len >= (sizeof(buffer)-1)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3248	/* emergency */
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3249	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3250	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3251	__READBYTE__(ret, f, &ch, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3252	if (ret > 0)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3253	cnt++;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3254	else
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3255	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3256	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3257
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3258	if (ret <= 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3259	if (ret < 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3260	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3261	goto err;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3262	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3263	else if (ret == 0)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3264	__INST(hitEOF) = true;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3265	} else {
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3266	__UNGETC__(ch, f, _buffered);
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3267	cnt--;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3268	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3269
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3270	if (__INST(position) != nil) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3271	__INST(position) = __MKSMALLINT(__intVal(__INST(position)) + cnt);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3272	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3273	if (len != 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3274	buffer[len] = '\0';
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3275	RETURN ( __MKSTRING_L(buffer, len) );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3276	}
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	3277	}
514c749165c3 * empty log message * claus parents: 108 diff changeset	3278	err: ;
514c749165c3 * empty log message * claus parents: 108 diff changeset	3279	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	3280	hitEOF ifTrue:[^ self pastEnd].
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	3281	lastErrorNumber notNil ifTrue:[^ self readError].
514c749165c3 * empty log message * claus parents: 108 diff changeset	3282	filePointer isNil ifTrue:[^ self errorNotOpen].
514c749165c3 * empty log message * claus parents: 108 diff changeset	3283	^ self errorWriteOnly
1 a27a279701f8 Initial revision claus parents: diff changeset	3284	!
a27a279701f8 Initial revision claus parents: diff changeset	3285
a27a279701f8 Initial revision claus parents: diff changeset	3286	nextChunk
a27a279701f8 Initial revision claus parents: diff changeset	3287	"return the next chunk, i.e. all characters up to the next
668 73165201a9da nextChunk: %{ is only recognized if at begin-of-line Claus Gittinger <cg@exept.de> parents: 665 diff changeset	3288	exclamation mark. Within the chunk, exclamation marks have to be doubled -
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	3289	except within primitive code (this exception was added to make it easier
a8abff749575 * empty log message * claus parents: 213 diff changeset	3290	to edit primitive code with external editors). This means, that other
a8abff749575 * empty log message * claus parents: 213 diff changeset	3291	Smalltalks cannot always read chunks containing primitive code - but that
a8abff749575 * empty log message * claus parents: 213 diff changeset	3292	doesnt really matter, since C-primitives are an ST/X feature anyway.
a8abff749575 * empty log message * claus parents: 213 diff changeset	3293	Reimplemented here for more speed."
a8abff749575 * empty log message * claus parents: 213 diff changeset	3294
665 429936f8e6e7 fixed nextChunk; it was not reentrant due to freeing of the static Claus Gittinger <cg@exept.de> parents: 612 diff changeset	3295	\|retVal outOfMemory buffer\|
1 a27a279701f8 Initial revision claus parents: diff changeset	3296
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	3297	filePointer isNil ifTrue:[^ self errorNotOpen].
514c749165c3 * empty log message * claus parents: 108 diff changeset	3298	binary ifTrue:[^ self errorBinary].
514c749165c3 * empty log message * claus parents: 108 diff changeset	3299	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	3300
2854 3c8bf66e4e7d give nextChunk a bit more stack Claus Gittinger <cg@exept.de> parents: 2766 diff changeset	3301	%{ /* STACK: 12000 */
665 429936f8e6e7 fixed nextChunk; it was not reentrant due to freeing of the static Claus Gittinger <cg@exept.de> parents: 612 diff changeset	3302	/*
429936f8e6e7 fixed nextChunk; it was not reentrant due to freeing of the static Claus Gittinger <cg@exept.de> parents: 612 diff changeset	3303	* the main trick (and a bit of complication) here
2874 020627074c9e oops - nextChunk could access invalid memory due Claus Gittinger <cg@exept.de> parents: 2861 diff changeset	3304	* is to read the first 8k into a stack-buffer.
665 429936f8e6e7 fixed nextChunk; it was not reentrant due to freeing of the static Claus Gittinger <cg@exept.de> parents: 612 diff changeset	3305	* Since most chunks fit into that,
429936f8e6e7 fixed nextChunk; it was not reentrant due to freeing of the static Claus Gittinger <cg@exept.de> parents: 612 diff changeset	3306	* this avoids creating lots of garbage for thos small chunks.
429936f8e6e7 fixed nextChunk; it was not reentrant due to freeing of the static Claus Gittinger <cg@exept.de> parents: 612 diff changeset	3307	*/
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	3308	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3309	int nread = 0, done = 0;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3310	unsigned char c, lastC, peekC;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3311	int ret;
1823 51ffb7231437 type casts Claus Gittinger <cg@exept.de> parents: 1688 diff changeset	3312	unsigned char bufferPtr = (unsigned char )0;
2874 020627074c9e oops - nextChunk could access invalid memory due Claus Gittinger <cg@exept.de> parents: 2861 diff changeset	3313	unsigned char fastBuffer[8000];
1 a27a279701f8 Initial revision claus parents: diff changeset	3314	REGISTER int index;
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3315	int currSize, fastFlag, _buffered;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3316	int atBeginOfLine = 1, inPrimitive = 0;
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3317	int haveCR = 0, haveNL = 0;
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	3318
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3319	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3320	f = __FILEVal(__INST(filePointer));
668 73165201a9da nextChunk: %{ is only recognized if at begin-of-line Claus Gittinger <cg@exept.de> parents: 665 diff changeset	3321
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3322	_buffered = (__INST(buffered) == true);
71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3323	if (_buffered) {
2591 9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3324	__READING__(f)
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3325	}
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	3326
1 a27a279701f8 Initial revision claus parents: diff changeset	3327	/*
a27a279701f8 Initial revision claus parents: diff changeset	3328	* skip spaces
a27a279701f8 Initial revision claus parents: diff changeset	3329	*/
673 2c3a4a536cd1 oops - handling of exclas within primitives was wrong Claus Gittinger <cg@exept.de> parents: 671 diff changeset	3330	c = '\n';
1 a27a279701f8 Initial revision claus parents: diff changeset	3331	while (! done) {
2591 9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3332	lastC = c;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3333	__READBYTE__(ret, f, &c, _buffered);
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3334	if (ret <= 0) {
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3335	goto err;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3336	}
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3337	nread++;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3338	atBeginOfLine = 0;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3339	switch (c) {
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3340	case '\n':
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3341	case ' ':
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3342	case '\t':
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3343	case '\r':
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3344	case '\b':
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3345	case '\014':
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3346	break;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3347
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3348	default:
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3349	atBeginOfLine = (lastC == '\n');
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3350	done = 1;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3351	break;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3352	}
1 a27a279701f8 Initial revision claus parents: diff changeset	3353	}
a27a279701f8 Initial revision claus parents: diff changeset	3354
a27a279701f8 Initial revision claus parents: diff changeset	3355	/*
a27a279701f8 Initial revision claus parents: diff changeset	3356	* read chunk into a buffer
a27a279701f8 Initial revision claus parents: diff changeset	3357	*/
665 429936f8e6e7 fixed nextChunk; it was not reentrant due to freeing of the static Claus Gittinger <cg@exept.de> parents: 612 diff changeset	3358	bufferPtr = fastBuffer; fastFlag = 1;
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	3359	currSize = sizeof(fastBuffer);
362 4131e87e79ec . claus parents: 360 diff changeset	3360
1 a27a279701f8 Initial revision claus parents: diff changeset	3361	index = 0;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3362	for (;;) {
2591 9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3363	__READBYTE__(ret, f, &peekC, _buffered);
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3364	if ((c == '%') && atBeginOfLine && ret > 0) {
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3365	if (peekC == '{') {
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3366	inPrimitive = 1;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3367	} else if (peekC == '}') {
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3368	inPrimitive = 0;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3369	}
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3370	} else if (c == '!' && !inPrimitive) {
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3371	if (ret > 0 && peekC == '!') {
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3372	/*
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3373	* convert double-! to a single !
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3374	*/
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3375	__READBYTE__(ret, f, &peekC, _buffered);
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3376	if (ret > 0)
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3377	nread++;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3378	} else {
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3379	/*
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3380	* End of chunk, push back lookahead character
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3381	* and leave loop.
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3382	*/
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3383	if (ret > 0) {
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3384	__UNGETC__(peekC, f, _buffered);
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3385	} else
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3386	ret = 1;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3387	break;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3388	}
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3389	}
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3390
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3391	/*
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3392	* do we have to resize the buffer ?
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3393	*/
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3394	if ((index+2) >= currSize) {
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3395	OBJ newBuffer;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3396	unsigned char *nbp;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3397
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3398	newBuffer = __MKEMPTYSTRING(currSize * 2);
2874 020627074c9e oops - nextChunk could access invalid memory due Claus Gittinger <cg@exept.de> parents: 2861 diff changeset	3399	if (!fastFlag) {
020627074c9e oops - nextChunk could access invalid memory due Claus Gittinger <cg@exept.de> parents: 2861 diff changeset	3400	/*
020627074c9e oops - nextChunk could access invalid memory due Claus Gittinger <cg@exept.de> parents: 2861 diff changeset	3401	* refetch - buffer could be moved by GC
020627074c9e oops - nextChunk could access invalid memory due Claus Gittinger <cg@exept.de> parents: 2861 diff changeset	3402	*/
020627074c9e oops - nextChunk could access invalid memory due Claus Gittinger <cg@exept.de> parents: 2861 diff changeset	3403	bufferPtr = __stringVal(buffer);
020627074c9e oops - nextChunk could access invalid memory due Claus Gittinger <cg@exept.de> parents: 2861 diff changeset	3404	}
2591 9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3405	if (newBuffer == nil) {
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3406	/*
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3407	* mhmh - chunk seems to be very big ....
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3408	*/
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3409	outOfMemory = true;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3410	goto err;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3411	}
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3412	nbp = __stringVal(newBuffer);
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3413	bcopy(bufferPtr, nbp, index);
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3414	bufferPtr = nbp;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3415	bufferPtr[index] = '\0';
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3416	buffer = newBuffer;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3417	fastFlag = 0;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3418	currSize = currSize * 2;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3419	}
2854 3c8bf66e4e7d give nextChunk a bit more stack Claus Gittinger <cg@exept.de> parents: 2766 diff changeset	3420
2874 020627074c9e oops - nextChunk could access invalid memory due Claus Gittinger <cg@exept.de> parents: 2861 diff changeset	3421	if (!fastFlag) {
020627074c9e oops - nextChunk could access invalid memory due Claus Gittinger <cg@exept.de> parents: 2861 diff changeset	3422	/*
020627074c9e oops - nextChunk could access invalid memory due Claus Gittinger <cg@exept.de> parents: 2861 diff changeset	3423	* old buffer may have moved (interrupt while reading)
020627074c9e oops - nextChunk could access invalid memory due Claus Gittinger <cg@exept.de> parents: 2861 diff changeset	3424	* - refetch pointer
020627074c9e oops - nextChunk could access invalid memory due Claus Gittinger <cg@exept.de> parents: 2861 diff changeset	3425	*/
020627074c9e oops - nextChunk could access invalid memory due Claus Gittinger <cg@exept.de> parents: 2861 diff changeset	3426	bufferPtr = __stringVal(buffer);
020627074c9e oops - nextChunk could access invalid memory due Claus Gittinger <cg@exept.de> parents: 2861 diff changeset	3427	}
020627074c9e oops - nextChunk could access invalid memory due Claus Gittinger <cg@exept.de> parents: 2861 diff changeset	3428
2591 9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3429	/*
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3430	* filter out cr-nl; make it nl
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3431	*/
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3432	if (c == '\n') {
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3433	haveNL = 1;
2591 9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3434	if (index > 0) {
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3435	if (bufferPtr[index-1] == '\r') {
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3436	index--;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3437	}
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3438	}
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3439	} else {
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3440	if (c == '\r') {
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3441	haveCR = 1;
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3442	}
2591 9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3443	}
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3444	bufferPtr[index++] = c;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3445	if (ret <= 0) {
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3446	if (ret == 0)
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3447	break; /* End of chunk reached */
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3448	goto err;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3449	}
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3450	nread++;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3451	atBeginOfLine = (c == '\n');
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3452	c = peekC;
1 a27a279701f8 Initial revision claus parents: diff changeset	3453	}
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	3454
1 a27a279701f8 Initial revision claus parents: diff changeset	3455	/*
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3456	* care for CR-limited files.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3457	* Replace CR's by NL's
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3458	*/
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3459	if (!haveNL && haveCR) {
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3460	int i;
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3461
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3462	for (i=index-1; i>=0; i--) {
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3463	if (bufferPtr[i] == '\r') {
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3464	bufferPtr[i] = '\n';
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3465	}
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3466	}
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3467	}
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3468
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3469	/*
1 a27a279701f8 Initial revision claus parents: diff changeset	3470	* make it a string
665 429936f8e6e7 fixed nextChunk; it was not reentrant due to freeing of the static Claus Gittinger <cg@exept.de> parents: 612 diff changeset	3471	* be careful here - allocating a new string may make the
429936f8e6e7 fixed nextChunk; it was not reentrant due to freeing of the static Claus Gittinger <cg@exept.de> parents: 612 diff changeset	3472	* existing buffer move around. Need to check if copying from
429936f8e6e7 fixed nextChunk; it was not reentrant due to freeing of the static Claus Gittinger <cg@exept.de> parents: 612 diff changeset	3473	* fast (C) buffer or from real (ST) buffer.
1 a27a279701f8 Initial revision claus parents: diff changeset	3474	*/
665 429936f8e6e7 fixed nextChunk; it was not reentrant due to freeing of the static Claus Gittinger <cg@exept.de> parents: 612 diff changeset	3475	if (fastFlag) {
2591 9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3476	retVal = __MKSTRING_L(bufferPtr, index);
665 429936f8e6e7 fixed nextChunk; it was not reentrant due to freeing of the static Claus Gittinger <cg@exept.de> parents: 612 diff changeset	3477	} else {
2591 9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3478	retVal = __MKSTRING_ST_L(buffer, index);
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	3479	}
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3480
1478 aae07192b7d1 labels in empty statements need a semi Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	3481	err: ;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3482	if (ret <= 0) {
2591 9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3483	if (ret == 0)
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3484	__INST(hitEOF) = true;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3485	else /* ret < 0 */
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3486	__INST(lastErrorNumber) = __MKSMALLINT(errno);
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3487	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3488	if (__INST(position) != nil) {
2591 9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3489	__INST(position) = __MKSMALLINT(__intVal(__INST(position)) + nread);
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3490	}
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	3491	%}.
370 20f04d9b371b . claus parents: 369 diff changeset	3492	retVal isNil ifTrue:[
2591 9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3493	"/
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3494	"/ arrive here with retVal==nil either on error or premature EOF
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3495	"/ or if running out of malloc-memory
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3496	"/
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3497	hitEOF ifTrue:[^ self pastEnd].
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3498	lastErrorNumber notNil ifTrue:[^ self readError].
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3499	outOfMemory == true ifTrue:[
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3500	"
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3501	buffer memory allocation failed.
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3502	When we arrive here, there was no memory available for the
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3503	chunk. (seems to be too big of a chunk ...)
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3504	Bad luck - you should increase the ulimit and/or swap space on your machine.
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3505	"
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3506	^ ObjectMemory allocationFailureSignal raise.
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3507	]
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	3508	].
1 a27a279701f8 Initial revision claus parents: diff changeset	3509	^ retVal
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3510	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3511
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3512	nextMatchFor:anObject
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3513	"skip all objects up-to and including anObject, return anObject on success,
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3514	nil if end-of-file is reached before. The next read operation will return
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3515	the element after anObject.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3516	Only single byte characters are currently supported."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3517
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	3518	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	3519	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3520	int ret, peekValue;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3521	char c;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3522	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3523
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3524	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3525	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3526	&& (__INST(mode) != @symbol(writeonly))
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3527	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3528	if ((__INST(binary) == true) && __isSmallInteger(anObject)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3529	peekValue = __intVal(anObject) & 0xFF;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3530	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3531	if ((__INST(binary) != true) && __isCharacter(anObject)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3532	peekValue = __intVal(_characterVal(anObject)) & 0xFF;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3533	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3534	peekValue = -1;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3535	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3536	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3537
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3538	if (peekValue >= 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3539	int _buffered;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3540
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3541	__INST(position) = nil;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3542	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3543
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3544	if (_buffered = (__INST(buffered) == true)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3545	__READING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3546	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3547
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3548	for (;;) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3549	__READBYTE__(ret, f, &c, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3550	if (ret <= 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3551	if (ret < 0)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3552	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3553	else
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3554	__INST(hitEOF) = true;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3555	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3556	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3557	if (c == peekValue) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3558	RETURN (anObject);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3559	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3560	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3561	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3562	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3563	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	3564	hitEOF ifTrue:[^ self pastEnd].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3565	lastErrorNumber notNil ifTrue:[^ self readError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3566	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3567	^ super nextMatchFor:anObject
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3568	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3569
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3570	peekFor:anObject
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3571	"return true and move past next element, if next == something.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3572	Otherwise, stay and return false. False is also returned
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3573	when EOF is encountered.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3574	The argument must be an integer if in binary, a character if in
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3575	text mode; only single byte characters are currently supported."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3576
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	3577	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	3578	FILEPOINTER f;
3029 aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3579	unsigned char c;
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3580	int ret, peekValue, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3581	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3582
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3583	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3584	if (((fp = __INST(filePointer)) != nil)
3029 aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3585	&& (__INST(mode) != @symbol(writeonly))
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3586	) {
3029 aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3587	if (__INST(binary) == true) {
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3588	if (__isSmallInteger(anObject)) {
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3589	peekValue = __intVal(anObject) & 0xFF;
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3590	} else {
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3591	goto bad;
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3592	}
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3593	} else {
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3594	if (__isCharacter(anObject)) {
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3595	peekValue = __intVal(_characterVal(anObject)) & 0xFF;
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3596	} else {
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3597	goto bad;
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3598	}
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3599	}
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3600
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3601	f = __FILEVal(fp);
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3602
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3603	_buffered = (__INST(buffered) == true);
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3604	if (_buffered) {
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3605	__READING__(f)
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3606	}
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3607	__READBYTE__(ret, f, &c, _buffered);
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3608	if (ret > 0) {
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3609	if (c == peekValue) {
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3610	OBJ pos;
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3611
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3612	if ((pos = __INST(position)) != nil) {
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3613	__INST(position) = __MKSMALLINT(__intVal(pos) + 1);
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3614	}
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3615	RETURN (true);
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3616	}
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3617	__UNGETC__(c, f, _buffered);
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3618	RETURN (false);
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3619	}
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3620	if (ret < 0) {
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3621	__INST(lastErrorNumber) = __MKSMALLINT(errno);
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3622	} else /* ret == 0 */
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3623	__INST(hitEOF) = true;
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3624	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3625	bad: ;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3626	%}.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3627	mode == #writeonly ifTrue:[^ self errorWriteOnly].
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	3628	hitEOF ifTrue:[self pastEnd. ^ false].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3629	lastErrorNumber notNil ifTrue:[^ self readError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3630	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3631	^ super peekFor:anObject
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3632	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3633
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3634	skipLine
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3635	"read the next line (characters up to newline) skip only;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3636	return nil if EOF reached, self otherwise.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3637	Not allowed in binary mode."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3638
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3639	%{ /* STACK:2000 */
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3640
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	3641	FILEPOINTER f;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3642	OBJ fp;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3643	int ret, _buffered;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3644	char c;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3645
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3646	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3647	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3648	&& (__INST(mode) != @symbol(writeonly))
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3649	&& (__INST(binary) != true)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3650	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3651	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3652	if (_buffered = (__INST(buffered) == true)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3653	__READING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3654	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3655	for (;;) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3656	__READBYTE__(ret, f, &c, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3657	if (ret > 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3658	if (c == '\n')
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3659	RETURN(self)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3660	} else
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3661	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3662	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3663	if (ret < 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3664	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3665	} else /* ret == 0 */ {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3666	__INST(hitEOF) = true;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3667	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3668	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3669	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	3670	hitEOF ifTrue:[^ self pastEnd].
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3671	lastErrorNumber notNil ifTrue:[self readError. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3672	filePointer isNil ifTrue:[self errorNotOpen. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3673	binary ifTrue:[self errorBinary. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3674	self errorWriteOnly
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3675	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3676
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3677	skipSeparators
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3678	"skip all whitespace; next will return next non-white-space character
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3679	or nil if endOfFile reached. Not allowed in binary mode.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3680	- reimplemented for speed"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3681
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	3682	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	3683	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3684	char c;
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3685	int ret, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3686	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3687
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3688	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3689	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3690	&& (__INST(mode) != @symbol(writeonly))
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3691	&& (__INST(binary) != true)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3692	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3693	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3694	_buffered = (__INST(buffered) == true);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3695	if (_buffered) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3696	__READING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3697	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3698
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3699	while (1) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3700	__READBYTE__(ret, f, &c, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3701	if (ret <= 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3702	if (ret < 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3703	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3704	} else /* ret == 0 */ {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3705	__INST(hitEOF) = true;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3706	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3707	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3708	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3709	switch (c) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3710	case ' ':
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3711	case '\t':
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3712	case '\n':
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3713	case '\r':
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3714	case '\b':
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3715	case '\f':
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3716	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3717
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3718	default:
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3719	__UNGETC__(c, f, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3720	RETURN ( __MKCHARACTER(c & 0xFF) );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3721	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3722	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3723	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3724	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	3725	hitEOF ifTrue:[^ self pastEnd].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3726	lastErrorNumber notNil ifTrue:[^ self readError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3727	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3728	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3729	^ self errorBinary.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3730	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3731
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3732	skipSeparatorsExceptCR
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3733	"skip all whitespace but no newlines;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3734	next will return next non-white-space character
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3735	or nil if endOfFile reached. Not allowed in binary mode.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3736	- reimplemented for speed"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3737
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	3738	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	3739	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3740	char c;
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3741	int ret, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3742	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3743
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3744	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3745	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3746	&& (__INST(mode) != @symbol(writeonly))
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3747	&& (__INST(binary) != true)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3748	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3749	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3750	_buffered = (__INST(buffered) == true);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3751	if (_buffered) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3752	__READING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3753	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3754	while (1) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3755	__READBYTE__(ret, f, &c, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3756	if (ret <= 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3757	if (ret < 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3758	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3759	} else /* ret == 0 */ {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3760	__INST(hitEOF) = true;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3761	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3762	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3763	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3764	switch (c) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3765	case ' ':
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3766	case '\t':
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3767	case '\b':
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3768	case '\f':
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3769	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3770
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3771	default:
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3772	__UNGETC__(c, f, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3773	RETURN ( __MKCHARACTER(c & 0xFF) );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3774	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3775	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3776	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3777	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	3778	hitEOF ifTrue:[^ self pastEnd].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3779	lastErrorNumber notNil ifTrue:[^ self readError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3780	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3781	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3782	^ self errorBinary.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3783	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3784
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3785	skipThrough:aCharacter
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3786	"skip all characters up-to and including aCharacter. Return the receiver if
671 53de87163ad5 spelling Claus Gittinger <cg@exept.de> parents: 668 diff changeset	3787	skip was successful, otherwise (i.e. if not found) return nil.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3788	The next read operation will return the character after aCharacter.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3789	The argument, aCharacter must be character, or integer when in binary mode.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3790	Only single byte characters are currently supported."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3791
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	3792	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	3793	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3794	REGISTER int cSearch;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3795	unsigned char c;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3796	int ret, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3797	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3798
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3799	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3800	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3801	&& (__INST(mode) != @symbol(writeonly))
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3802	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3803	if (__INST(binary) == true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3804	/* searched for object must be a smallInteger */
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3805	if (! __isSmallInteger(aCharacter)) goto badArgument;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3806	cSearch = __intVal(aCharacter);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3807	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3808	/* searched for object must be a character */
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3809	if (! __isCharacter(aCharacter)) goto badArgument;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3810	cSearch = __intVal(_characterVal(aCharacter));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3811	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3812	/* Q: should we just say: "not found" ? */
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3813	if ((cSearch < 0) \|\| (cSearch > 255)) goto badArgument;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3814
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3815	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3816	if (_buffered = (__INST(buffered) == true)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3817	__READING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3818	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3819
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3820	while (1) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3821	__READBYTE__(ret, f, &c, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3822	if (ret <= 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3823	if (ret < 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3824	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3825	} else /* ret == 0 */ {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3826	__INST(hitEOF) = true;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3827	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3828	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3829	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3830	if (c == cSearch) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3831	RETURN (self);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3832	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3833	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3834	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3835	badArgument: ;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3836	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	3837	hitEOF ifTrue:[^ self pastEnd].
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3838	lastErrorNumber notNil ifTrue:[self readError. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3839	filePointer isNil ifTrue:[self errorNotOpen. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3840	(mode == #writeonly) ifTrue:[self errorWriteOnly. ^ self].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3841	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3842	argument must be integer/character in binary mode,
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3843	character in text mode
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3844	"
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3845	self error:'invalid argument'.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3846
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3847	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3848	\|s\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3849	s := 'Makefile' asFilename readStream.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3850	s skipThrough:$=.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3851	s next:10
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3852	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3853	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3854
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3855	skipToAll:aString
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3856	"skip for the sequence given by the argument, aCollection;
1490 713852290c8b use skipThroughAll from superclass. Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	3857	return nil if not found, self otherwise.
713852290c8b use skipThroughAll from superclass. Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	3858	On a successful match, the next read will return characters of aString."
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3859
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3860	\|oldPos\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3861
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3862	oldPos := self position.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3863	(self skipThroughAll:aString) isNil ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3864	"
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3865	restore position
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3866	"
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3867	self position:oldPos.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3868	^ nil
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3869	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3870	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3871	position before match-string
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3872	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3873	self position:(self position - aString size).
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3874	^ self
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3875
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3876	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3877	\|s\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3878	s := 'Makefile' asFilename readStream.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3879	s skipToAll:'are'.
1490 713852290c8b use skipThroughAll from superclass. Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	3880	s next:10
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3881	"
1490 713852290c8b use skipThroughAll from superclass. Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	3882
713852290c8b use skipThroughAll from superclass. Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	3883	"Modified: 26.6.1996 / 09:22:05 / cg"
1 a27a279701f8 Initial revision claus parents: diff changeset	3884	! !
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3885
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3886	!ExternalStream methodsFor:'testing'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3887
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3888	atEnd
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3889	"return true, if position is at end"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3890
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	3891	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	3892	FILEPOINTER f;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3893	OBJ fp;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3894	char c;
2861 c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	3895	int ret, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3896
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3897	if (__INST(hitEOF) == true) {
2679 b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3898	RETURN (true);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3899	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3900
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3901	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3902
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3903	if ((fp = __INST(filePointer)) != nil) {
2679 b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3904	f = __FILEVal(fp);
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3905
2861 c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	3906	if (_buffered = (__INST(buffered) == true)) {
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	3907	__READING__(f);
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	3908	} else {
2679 b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3909	if (__INST(readAhead) != nil) {
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3910	RETURN (false);
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3911	}
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3912	}
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3913
2861 c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	3914	/*
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	3915	* read ahead ...
c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	3916	*/
2875 54c89acc73ce #atEnd must read interruptable Claus Gittinger <cg@exept.de> parents: 2874 diff changeset	3917	do {
54c89acc73ce #atEnd must read interruptable Claus Gittinger <cg@exept.de> parents: 2874 diff changeset	3918	__BEGIN_INTERRUPTABLE__
54c89acc73ce #atEnd must read interruptable Claus Gittinger <cg@exept.de> parents: 2874 diff changeset	3919	__READBYTE__(ret, f, &c, _buffered);
54c89acc73ce #atEnd must read interruptable Claus Gittinger <cg@exept.de> parents: 2874 diff changeset	3920	__END_INTERRUPTABLE__
54c89acc73ce #atEnd must read interruptable Claus Gittinger <cg@exept.de> parents: 2874 diff changeset	3921	} while ((ret < 0) && (errno == EINTR));
54c89acc73ce #atEnd must read interruptable Claus Gittinger <cg@exept.de> parents: 2874 diff changeset	3922
2679 b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3923	if (ret > 0) {
2861 c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	3924	__UNGETC__(c&0xff, f, _buffered);
2679 b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3925	RETURN (false);
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3926	}
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3927
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3928	if (ret == 0) {
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3929	__INST(hitEOF) = true;
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3930	RETURN (true);
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3931	}
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3932
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3933	/* ret < 0 */
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3934	__INST(lastErrorNumber) = __MKSMALLINT(errno);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3935	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3936	%}.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3937	lastErrorNumber notNil ifTrue:[^ self readError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3938	^ self errorNotOpen
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3939	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3940
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3941	canReadWithoutBlocking
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3942	"return true, if any data is available for reading (i.e.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3943	a read operation will not block the smalltalk process), false otherwise."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3944
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3945	\|fd\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3946
2986 c6957cf6128f Handle readAhead in #canReadWithoutBlocking Stefan Vogel <sv@exept.de> parents: 2963 diff changeset	3947	readAhead notNil ifTrue:[^ true].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3948	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3949	mode == #writeonly ifTrue:[^ self errorWriteOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3950
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3951	fd := self fileDescriptor.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3952	^ OperatingSystem readCheck:fd
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3953
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3954	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3955	\|pipe\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3956
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3957	pipe := PipeStream readingFrom:'(sleep 10; echo hello)'.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3958	pipe canReadWithoutBlocking ifTrue:[
2986 c6957cf6128f Handle readAhead in #canReadWithoutBlocking Stefan Vogel <sv@exept.de> parents: 2963 diff changeset	3959	Transcript showCR:'data available'
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3960	] ifFalse:[
2986 c6957cf6128f Handle readAhead in #canReadWithoutBlocking Stefan Vogel <sv@exept.de> parents: 2963 diff changeset	3961	Transcript showCR:'no data available'
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3962	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3963	pipe close
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3964	"
2986 c6957cf6128f Handle readAhead in #canReadWithoutBlocking Stefan Vogel <sv@exept.de> parents: 2963 diff changeset	3965
c6957cf6128f Handle readAhead in #canReadWithoutBlocking Stefan Vogel <sv@exept.de> parents: 2963 diff changeset	3966	"Modified: 25.9.1997 / 13:08:45 / stefan"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3967	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3968
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3969	canWriteWithoutBlocking
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3970	"return true, if data can be written into the stream
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3971	(i.e. a write operation will not block the smalltalk process)."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3972
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3973	\|fd\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3974
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3975	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3976	mode == #readonly ifTrue:[^ self errorReadOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3977
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3978	fd := self fileDescriptor.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3979	^ OperatingSystem writeCheck:fd
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3980	!
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3981
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3982	numAvailable
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3983	"return the number of bytes available for reading"
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3984
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3985	\|fd\|
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3986
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3987	filePointer isNil ifTrue:[^ self errorNotOpen].
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3988	mode == #writeonly ifTrue:[^ self errorWriteOnly].
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3989
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3990	fd := self fileDescriptor.
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3991	^ OperatingSystem numAvailableForReadOn:fd.
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3992
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3993	"/ self atEnd ifTrue:[^ 0].
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3994	self canReadWithoutBlocking ifTrue:[
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3995	^ 1
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3996	].
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3997	^ 0
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3998
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3999	"Created: / 4.2.1998 / 16:56:01 / cg"
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	4000	"Modified: / 4.2.1998 / 17:31:11 / cg"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4001	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4002
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4003	!ExternalStream methodsFor:'waiting for I/O'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4004
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4005	readWait
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4006	"suspend the current process, until the receiver
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4007	becomes ready for reading. If data is already available,
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4008	return immediate.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4009	The other threads are not affected by the wait."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4010
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4011	self readWaitWithTimeoutMs:nil
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4012	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4013
3016 42466b291fae more ST80 compatibility ca parents: 2999 diff changeset	4014	readWaitTimeoutMs:timeout
42466b291fae more ST80 compatibility ca parents: 2999 diff changeset	4015	"ST-80 compatibility"
42466b291fae more ST80 compatibility ca parents: 2999 diff changeset	4016	^ self readWaitWithTimeoutMs:timeout
42466b291fae more ST80 compatibility ca parents: 2999 diff changeset	4017	!
42466b291fae more ST80 compatibility ca parents: 2999 diff changeset	4018
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4019	readWaitWithTimeout:timeout
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4020	"suspend the current process, until the receiver
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4021	becomes ready for reading or a timeout (in seconds) expired.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4022	If data is already available, return immediate.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4023	Return true if a timeout occured (i.e. false, if data is available).
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4024	The other threads are not affected by the wait."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4025
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4026	^ self readWaitWithTimeoutMs:timeout * 1000
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4027	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4028
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4029	readWaitWithTimeoutMs:timeout
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4030	"suspend the current process, until the receiver
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4031	becomes ready for reading or a timeout (in milliseconds) expired.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4032	If data is already available, return immediate.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4033	Return true if a timeout occured (i.e. false, if data is available).
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4034	The other threads are not affected by the wait."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4035
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4036	\|fd inputSema hasData wasBlocked\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4037
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	4038	readAhead notNil ifTrue:[^ false].
71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	4039
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4040	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4041	mode == #writeonly ifTrue:[^ self errorWriteOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4042
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4043	fd := self fileDescriptor.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4044	(OperatingSystem readCheck:fd) ifTrue:[^ false].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4045
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4046	wasBlocked := OperatingSystem blockInterrupts.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4047	hasData := OperatingSystem readCheck:fd.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4048	hasData ifFalse:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4049	inputSema := Semaphore new name:'readWait'.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4050	[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4051	timeout notNil ifTrue:[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4052	Processor signal:inputSema afterMilliseconds:timeout
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4053	].
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4054	Processor signal:inputSema onInput:fd.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4055	Processor activeProcess state:#ioWait.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4056	inputSema wait.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4057	Processor disableSemaphore:inputSema.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4058	hasData := OperatingSystem readCheck:fd
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4059	] valueOnUnwindDo:[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4060	Processor disableSemaphore:inputSema.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4061	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4062	]
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4063	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4064	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4065	^ hasData not
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4066	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4067
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4068	writeWait
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4069	"suspend the current process, until the receiver
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4070	becomes ready for writing.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4071	Return immediate if the receiver is already ready.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4072	The other threads are not affected by the wait."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4073
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4074	self writeWaitWithTimeoutMs:nil
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4075	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4076
3016 42466b291fae more ST80 compatibility ca parents: 2999 diff changeset	4077	writeWaitTimeoutMs:timeout
42466b291fae more ST80 compatibility ca parents: 2999 diff changeset	4078	"ST-80 compatibility"
42466b291fae more ST80 compatibility ca parents: 2999 diff changeset	4079	^ self writeWaitWithTimeoutMs:timeout
42466b291fae more ST80 compatibility ca parents: 2999 diff changeset	4080	!
42466b291fae more ST80 compatibility ca parents: 2999 diff changeset	4081
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4082	writeWaitWithTimeout:timeout
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4083	"suspend the current process, until the receiver
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4084	becomes ready for writing or a timeout (in seconds) expired.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4085	Return true if a timeout occured (i.e. false, if data is available).
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4086	Return immediate if the receiver is already ready.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4087	The other threads are not affected by the wait."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4088
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4089	^ self writeWaitWithTimeoutMs:timeout * 1000
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4090	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4091
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4092	writeWaitWithTimeoutMs:timeout
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4093	"suspend the current process, until the receiver
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4094	becomes ready for writing or a timeout (in seconds) expired.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4095	Return true if a timeout occured (i.e. false, if data is available).
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4096	Return immediate if the receiver is already ready.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4097	The other threads are not affected by the wait."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4098
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4099	\|fd outputSema canWrite wasBlocked\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4100
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4101	filePointer isNil ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4102	^ self errorNotOpen
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4103	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4104	mode == #readonly ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4105	^ self errorReadOnly
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4106	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4107
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4108	fd := self fileDescriptor.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4109	(OperatingSystem writeCheck:fd) ifTrue:[^ false].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4110
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4111	wasBlocked := OperatingSystem blockInterrupts.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4112	canWrite := OperatingSystem writeCheck:fd.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4113	canWrite ifFalse:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4114	outputSema := Semaphore new name:'writeWait'.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4115	[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4116	timeout notNil ifTrue:[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4117	Processor signal:outputSema afterMilliseconds:timeout
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4118	].
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4119	Processor signal:outputSema onOutput:fd.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4120	Processor activeProcess state:#ioWait.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4121	outputSema wait.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4122	Processor disableSemaphore:outputSema.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4123	canWrite := OperatingSystem writeCheck:fd
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4124	] valueOnUnwindDo:[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4125	Processor disableSemaphore:outputSema.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4126	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4127	]
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4128	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4129	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4130	^ canWrite not
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4131	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4132
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4133	!ExternalStream methodsFor:'writing'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4134
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4135	cr
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4136	"append an end-of-line character (or CRLF if in crlf mode).
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4137	reimplemented for speed"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4138
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	4139	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	4140	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4141	int len, cnt, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4142	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4143	char *cp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4144
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4145	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4146	if (((fp = __INST(filePointer)) != nil)
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4147	&& (__INST(mode) != @symbol(readonly))
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4148	&& (__INST(binary) != true)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4149	) {
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4150	f = __FILEVal(fp);
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4151
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4152	if (_buffered = (__INST(buffered) == true)) {
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4153	__WRITING__(f)
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4154	}
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	4155	{
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	4156	OBJ mode = __INST(eolMode);
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	4157
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	4158	if (mode == @symbol(cr)) {
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	4159	cp = "\r"; len = 1;
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	4160	} else if (mode == @symbol(crlf)) {
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	4161	cp = "\r\n"; len = 2;
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	4162	} else {
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	4163	cp = "\n"; len = 1;
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	4164	}
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4165	}
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4166	__WRITEBYTES__(cnt, f, cp, len, _buffered);
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4167
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4168	if (cnt == len) {
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4169	if (__INST(position) != nil) {
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4170	__INST(position) = __MKSMALLINT(__intVal(__INST(position)) + len);
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4171	}
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4172	RETURN ( self );
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4173	}
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4174	__INST(lastErrorNumber) = __MKSMALLINT(errno);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4175	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4176	%}.
2326 01fa309e48d9 checkin from browser Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	4177	lastErrorNumber notNil ifTrue:[self writeError. ^ self].
01fa309e48d9 checkin from browser Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	4178	filePointer isNil ifTrue:[self errorNotOpen. ^ self].
01fa309e48d9 checkin from browser Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	4179	(mode == #readonly) ifTrue:[self errorReadOnly. ^ self].
01fa309e48d9 checkin from browser Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	4180	self errorBinary
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4181	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4182
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4183	flush
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4184	"write all buffered data - ignored if unbuffered"
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4185
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4186	%{
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4187	OBJ fp;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4188
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4189	__INST(lastErrorNumber) = nil;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4190	if ((fp = __INST(filePointer)) != nil) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4191	if (__INST(mode) != @symbol(readonly)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4192	if (__INST(buffered) == true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4193	__BEGIN_INTERRUPTABLE__
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	4194	FFLUSH( __FILEVal(fp) );
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4195	__END_INTERRUPTABLE__
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4196	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4197	}
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4198	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4199	%}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4200	!
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4201
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4202	nextPut:aCharacter
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4203	"write the argument, aCharacter - return nil if failed, self if ok.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4204	Only single-byte characters are currently supported"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4205
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	4206	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	4207	FILEPOINTER f;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4208	char c;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4209	int cnt, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4210	OBJ pos, fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4211
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4212	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4213	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4214	&& (__INST(mode) != @symbol(readonly))
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4215	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4216	if (__INST(binary) != true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4217	if (__isCharacter(aCharacter)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4218	c = __intVal(__characterVal(aCharacter)) & 0xFF;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4219	doWrite:
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4220	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4221
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4222
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4223	if (_buffered = (__INST(buffered) == true)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4224	__WRITING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4225	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4226	__WRITEBYTE__(cnt, f, &c, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4227
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4228	if (cnt == 1) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4229	pos = __INST(position);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4230	if (pos != nil) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4231	__INST(position) = __MKSMALLINT(__intVal(pos) + 1);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4232	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4233	RETURN ( self );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4234	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4235	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4236	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4237	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4238	if (__isSmallInteger(aCharacter)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4239	c = __intVal(aCharacter);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4240	goto doWrite;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4241	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4242	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4243	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4244	%}.
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4245	lastErrorNumber notNil ifTrue:[self writeError. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4246	filePointer isNil ifTrue:[self errorNotOpen. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4247	(mode == #readonly) ifTrue:[self errorReadOnly. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4248	binary ifFalse:[self argumentMustBeCharacter. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4249	self argumentMustBeInteger.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4250	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4251
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4252	nextPutAll:aCollection
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4253	"write all elements of the argument, aCollection.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4254	Reimplemented for speed when writing strings or byteArrays.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4255	For others, falls back to general method in superclass."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4256
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	4257	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	4258	FILEPOINTER f;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4259	int len, cnt;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4260	OBJ pos, fp;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4261	int _buffered;
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	4262	int o_offs;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4263
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4264	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4265
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4266	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4267	&& (__INST(mode) != @symbol(readonly))
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4268	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4269	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4270	if (_buffered = (__INST(buffered) == true)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4271	__WRITING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4272	}
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	4273
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4274	if (__isString(aCollection) \|\| __isSymbol(aCollection)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4275	len = __stringSize(aCollection);
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	4276	#ifdef BUGGY
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4277	__WRITEBYTES__(cnt, f, __stringVal(aCollection), len, _buffered);
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	4278	#else
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	4279	o_offs = (char )__stringVal(aCollection)-(char )__InstPtr(aCollection);
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	4280	__WRITEBYTES_OBJ__(cnt, f, aCollection, o_offs, len, _buffered);
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	4281	#endif
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4282	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4283	if (__INST(binary) == true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4284	int offs;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4285
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4286	if (__isByteArray(aCollection)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4287	offs = 0;
3221 21085ae8e1be eliminated some single-underscore macro refs (stringSize, arraySize ...) Claus Gittinger <cg@exept.de> parents: 3200 diff changeset	4288	len = __byteArraySize(aCollection);
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4289	} else if (__isBytes(aCollection)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4290	offs = __OBJS2BYTES__(__intVal(__ClassInstPtr(__qClass(aCollection))->c_ninstvars));
3221 21085ae8e1be eliminated some single-underscore macro refs (stringSize, arraySize ...) Claus Gittinger <cg@exept.de> parents: 3200 diff changeset	4291	len = __byteArraySize(aCollection) - offs;
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4292	} else
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4293	goto out;
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	4294	#ifdef BUGGY
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	4295	__WRITEBYTES__(cnt, f, __ByteArrayInstPtr(aCollection)->ba_element+offs, len, _buffered);
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	4296	#else
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	4297	o_offs = (char )(__ByteArrayInstPtr(aCollection)->ba_element) - (char )__InstPtr(aCollection);
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	4298	o_offs += offs;
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	4299	__WRITEBYTES_OBJ__(cnt, f, aCollection, o_offs, len, _buffered);
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	4300	#endif
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4301	} else
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4302	goto out;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4303	}
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	4304
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4305	if (cnt == len) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4306	pos = __INST(position);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4307	if (pos != nil) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4308	__INST(position) = __MKSMALLINT(__intVal(pos) + len);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4309	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4310	RETURN (self);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4311	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4312	__INST(lastErrorNumber) = __MKSMALLINT(errno);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4313	}
1478 aae07192b7d1 labels in empty statements need a semi Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	4314	out: ;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4315	%}.
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4316	lastErrorNumber notNil ifTrue:[self writeError. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4317	filePointer isNil ifTrue:[self errorNotOpen. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4318	(mode == #readonly) ifTrue:[self errorReadOnly. ^ self].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4319
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4320	^ super nextPutAll:aCollection
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4321	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4322
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4323	nextPutAll:aCollection startingAt:start to:stop
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4324	"write a range of elements of the argument, aCollection.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4325	Reimplemented for speed when writing strings or byteArrays.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4326	For others, falls back to general method in superclass."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4327
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	4328	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	4329	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4330	int offs, len, cnt, iStart, iStop, _buffered;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4331	OBJ fp, pos;
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	4332	int o_offs;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4333
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4334	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4335	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4336	&& (__INST(mode) != @symbol(readonly))
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4337	&& __bothSmallInteger(start, stop)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4338	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4339	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4340	if (_buffered = (__INST(buffered) == true)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4341	__WRITING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4342	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4343	iStart = __intVal(start);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4344	iStop = __intVal(stop);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4345	if ((iStart < 1) \|\| (iStop < iStart)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4346	RETURN(self);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4347	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4348	if (__isString(aCollection) \|\| __isSymbol(aCollection)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4349	len = __stringSize(aCollection);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4350	if (iStop > len) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4351	RETURN(self);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4352	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4353	if (iStop > len)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4354	iStop = len;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4355	len = iStop - iStart + 1;
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	4356	#ifdef BUGGY
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4357	__WRITEBYTES__(cnt, f, __stringVal(aCollection)+iStart-1, len, _buffered);
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	4358	#else
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	4359	o_offs = (char )__stringVal(aCollection)-(char )__InstPtr(aCollection);
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	4360	__WRITEBYTES_OBJ__(cnt, f, aCollection, o_offs+iStart-1, len, _buffered);
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	4361	#endif
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4362	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4363	if (__INST(binary) == true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4364	int offs;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4365
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4366	if (__isByteArray(aCollection)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4367	offs = 0;
3221 21085ae8e1be eliminated some single-underscore macro refs (stringSize, arraySize ...) Claus Gittinger <cg@exept.de> parents: 3200 diff changeset	4368	len = __byteArraySize(aCollection);
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4369	} else if (__isBytes(aCollection)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4370	offs = __OBJS2BYTES__(__intVal(__ClassInstPtr(__qClass(aCollection))->c_ninstvars));
3221 21085ae8e1be eliminated some single-underscore macro refs (stringSize, arraySize ...) Claus Gittinger <cg@exept.de> parents: 3200 diff changeset	4371	len = __byteArraySize(aCollection) - offs;
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4372	} else
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4373	goto out;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4374
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4375	if (iStop > len) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4376	RETURN(self);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4377	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4378	if (iStop > len)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4379	iStop = len;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4380	len = iStop - iStart + 1;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4381	offs += iStart - 1;
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	4382	#ifdef BUGGY
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4383	__WRITEBYTES__(cnt, f, __ByteArrayInstPtr(aCollection)->ba_element+offs, len, _buffered);
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	4384	#else
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	4385	o_offs = (char )(__ByteArrayInstPtr(aCollection)->ba_element)-(char )__InstPtr(aCollection);
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	4386	__WRITEBYTES_OBJ__(cnt, f, aCollection, o_offs+offs, len, _buffered);
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	4387	#endif
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4388	} else
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4389	goto out;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4390	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4391	if (cnt == len) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4392	pos = __INST(position);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4393	if (pos != nil) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4394	__INST(position) = __MKSMALLINT(__intVal(pos) + len);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4395	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4396	RETURN (self);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4397	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4398	__INST(lastErrorNumber) = __MKSMALLINT(errno);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4399	}
1478 aae07192b7d1 labels in empty statements need a semi Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	4400	out: ;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4401	%}.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4402	lastErrorNumber notNil ifTrue:[^ self writeError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4403	^ super nextPutAll:aCollection startingAt:start to:stop
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4404	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4405
2045 1ad17ca6520f fall back to super>>nextPutLine: if argument is not a string. Claus Gittinger <cg@exept.de> parents: 2044 diff changeset	4406	!ExternalStream class methodsFor:'documentation'!
730 62643519bf68 checkin from browser Claus Gittinger <cg@exept.de> parents: 711 diff changeset	4407
62643519bf68 checkin from browser Claus Gittinger <cg@exept.de> parents: 711 diff changeset	4408	version
3420 4dc6667afda9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3419 diff changeset	4409	^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.159 1998-05-06 11:49:51 cg Exp $'
730 62643519bf68 checkin from browser Claus Gittinger <cg@exept.de> parents: 711 diff changeset	4410	! !
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4411	ExternalStream initialize!

author	Claus Gittinger <cg@exept.de>
	Thu, 07 May 1998 20:02:53 +0200
changeset 3422	09c13ab58bb2
parent 3420	4dc6667afda9
child 3432	1228d4ba9518
permissions	-rw-r--r--