hg/stx-libbasic: ExtStream.st@291ec553ac33 (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
3474 1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	19	WriteMode AppendMode CreateReadWriteMode StreamIOErrorSignal'
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
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	69	#define __isFilePointer(x) (__Class(x) == ExternalStream__FilePointer)
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	70	#define __CHANGECLASS(o, x) (__qClass(o) = (x), o)
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	71	#define __MKFILEPOINTER(f) __CHANGECLASS(__MKEXTERNALADDRESS(f), ExternalStream__FilePointer)
3420 4dc6667afda9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3419 diff changeset	72	#else
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	73	#define __MKFILEPOINTER(f) __MKEXTERNALADDRESS(f)
3420 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))) { \
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	151	__INST(didWrite) = false; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 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))) { \
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	158	__INST(didWrite) = true; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 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) { \
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	169	ungetc((c), (f)); \
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	170	} else { \
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 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	{ \
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	178	OBJ rA = __INST(readAhead); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	179	if (rA != nil) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	180	*(buf) = __intVal(rA); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	181	__INST(readAhead) = nil; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	182	(ret) = 1; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	183	} else { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	184	for (;;) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	185	CLEAR_ERRNO; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	186	(ret) = READ(f, buf, 1); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	187	if ((ret) >= 0 \|\| errno != EINTR) \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	188	break; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	189	__HANDLE_INTERRUPTS__; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	190	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 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) { \
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	196	for (;;) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	197	CLEAR_ERRNO; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	198	(ret) = getc(f); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	199	if ((ret) >= 0) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	200	*(buf) = (ret); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	201	(ret) = 1; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	202	} else if (ferror(f)) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	203	if (errno == EINTR) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	204	__HANDLE_INTERRUPTS__; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	205	clearerr(f); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	206	continue; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	207	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	208	} else \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	209	(ret) = 0; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	210	break; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	211	} \
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	212	} else { \
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	213	OBJ rA = __INST(readAhead); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	214	if (rA != nil) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	215	*(buf) = __intVal(rA); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	216	__INST(readAhead) = nil; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	217	(ret) = 1; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	218	} else { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	219	for (;;) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	220	CLEAR_ERRNO; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	221	(ret) = read(fileno(f), buf, 1); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	222	if ((ret) >= 0 \|\| errno != EINTR) \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	223	break; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	224	__HANDLE_INTERRUPTS__; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	225	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 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	{ \
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	237	int __offs = 0; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	238	\
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	239	while (__offs < (cnt)) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	240	OBJ rA = __INST(readAhead); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	241	if (rA != nil) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	242	(buf)[__offs] = __intVal(rA); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	243	__INST(readAhead) = nil; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	244	(ret) = 1; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	245	} else { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	246	CLEAR_ERRNO; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	247	(ret) = READ(f, (buf)+__offs, (cnt)-__offs); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	248	if ((ret) <= 0) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	249	if ((ret) < 0 && errno == EINTR) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	250	__HANDLE_INTERRUPTS__; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	251	continue; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	252	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	253	break; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	254	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	255	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	256	__offs += (ret); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	257	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	258	if (__offs > 0) \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 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) { \
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	265	int __offs = 0; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	266	while (__offs < (cnt)) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	267	CLEAR_ERRNO; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	268	(ret) = getc(f); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	269	if ((ret) < 0) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	270	if (ferror(f)) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	271	if (errno == EINTR) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	272	__HANDLE_INTERRUPTS__; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	273	clearerr(f); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	274	continue; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	275	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	276	} else { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	277	(ret) = 0; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	278	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	279	break; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	280	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	281	(buf)[__offs++] = (ret); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	282	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	283	if (__offs > 0) \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 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 { \
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	286	int __offs = 0; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	287	int fd = fileno(f); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	288	\
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	289	while (__offs < (cnt)) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	290	OBJ rA = __INST(readAhead); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	291	if (rA != nil) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	292	(buf)[__offs] = __intVal(rA); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	293	__INST(readAhead) = nil; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	294	(ret) = 1; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	295	} else { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	296	CLEAR_ERRNO; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	297	(ret) = read(fd, (buf)+__offs, (cnt)-__offs); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	298	if ((ret) <= 0) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	299	if ((ret) < 0 && errno == EINTR) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	300	__HANDLE_INTERRUPTS__; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	301	continue; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	302	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	303	break; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	304	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	305	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	306	__offs += (ret); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	307	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	308	if (__offs > 0) \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 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	}
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	311
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	312	#define __READAVAILBYTES__(ret, f, buf, cnt, isBuffered) \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	313	{ \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	314	int __offs = 0; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	315	\
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	316	(ret) = 0; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	317	if (isBuffered) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	318	while (__offs < (cnt)) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	319	CLEAR_ERRNO; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	320	(ret) = getc(f); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	321	if ((ret) < 0) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	322	if (ferror(f)) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	323	if (errno == EINTR) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	324	__HANDLE_INTERRUPTS__; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	325	clearerr(f); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	326	continue; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	327	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	328	} else { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	329	(ret) = 0; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	330	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	331	break; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	332	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	333	(buf)[__offs++] = (ret); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	334	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	335	if (__offs > 0) \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	336	(ret) = __offs; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	337	} else { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	338	int fd = fileno(f); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	339	\
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	340	while (__offs < (cnt)) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	341	OBJ rA = __INST(readAhead); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	342	if (rA != nil) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	343	(buf)[__offs] = __intVal(rA); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	344	__INST(readAhead) = nil; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	345	(ret) = 1; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	346	__offs += (ret); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	347	continue; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	348	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	349	CLEAR_ERRNO; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	350	(ret) = read(fd, (buf)+__offs, (cnt)-__offs); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	351	if ((ret) < 0 && errno == EINTR) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	352	__HANDLE_INTERRUPTS__; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	353	continue; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	354	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	355	__offs += (ret); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	356	break; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	357	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	358	if (__offs > 0) \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	359	(ret) = __offs; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	360	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	361	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	362
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	363	#endif
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	364
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	365	/*
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	366	* 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	367	* (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	368	*/
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	369	#ifdef NO_STDIO
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	370	#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	371	{ \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	372	int __ooffs = obj_offs; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	373	int __offs = 0; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	374	char buf = (char )(obj); \
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	375	\
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	376	(ret) = 0; \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	377	{ \
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	378	while (__offs < (cnt)) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	379	OBJ rA = __INST(readAhead); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	380	if (rA != nil) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	381	(buf)[__ooffs+__offs] = __intVal(rA); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	382	__INST(readAhead) = nil; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	383	(ret) = 1; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	384	} else { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	385	CLEAR_ERRNO; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	386	(ret) = READ(f, (buf)+__ooffs+__offs, (cnt)-__offs); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	387	if ((ret) <= 0) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	388	if ((ret) < 0 && errno == EINTR) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	389	__HANDLE_INTERRUPTS__; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	390	/* refetch */ \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	391	buf = (char *)(obj); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	392	continue; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	393	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	394	break; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	395	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	396	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	397	__offs += (ret); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	398	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	399	if (__offs > 0) \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	400	(ret) = __offs; \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	401	} \
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	402	}
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	403	#else
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	404	#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	405	{ \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	406	int __ooffs = obj_offs; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	407	int __offs = 0; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	408	char buf = (char )(obj); \
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	409	\
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	410	(ret) = 0; \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	411	if (isBuffered) { \
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	412	while (__offs < (cnt)) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	413	CLEAR_ERRNO; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	414	(ret) = getc(f); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	415	if ((ret) < 0) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	416	if (ferror(f)) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	417	if (errno == EINTR) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	418	__HANDLE_INTERRUPTS__; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	419	clearerr(f); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	420	/* refetch */ \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	421	buf = (char *)(obj); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	422	continue; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	423	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	424	} else { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	425	(ret) = 0; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	426	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	427	break; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	428	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	429	(buf)[__ooffs+__offs] = (ret); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	430	__offs++; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	431	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	432	if (__offs > 0) \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	433	(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	434	} else { \
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	435	int fd = fileno(f); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	436	\
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	437	while (__offs < (cnt)) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	438	OBJ rA = __INST(readAhead); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	439	if (rA != nil) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	440	(buf)[__ooffs+__offs] = __intVal(rA); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	441	__INST(readAhead) = nil; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	442	(ret) = 1; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	443	} else { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	444	CLEAR_ERRNO; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	445	(ret) = read(fd, (buf)+__ooffs+__offs, (cnt)-__offs); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	446	if ((ret) <= 0) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	447	if ((ret) < 0 && errno == EINTR) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	448	__HANDLE_INTERRUPTS__; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	449	/* refetch */ \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	450	buf = (char *)(obj); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	451	continue; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	452	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	453	break; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	454	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	455	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	456	__offs += (ret); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	457	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	458	if (__offs > 0) \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	459	(ret) = __offs; \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	460	} \
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	461	}
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	462
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	463	#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	464	{ \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	465	int __ooffs = obj_offs; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	466	int __offs = 0; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	467	char buf = (char )(obj); \
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	468	\
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	469	(ret) = 0; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	470	if (isBuffered) { \
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	471	while (__offs < (cnt)) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	472	CLEAR_ERRNO; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	473	(ret) = getc(f); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	474	if ((ret) < 0) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	475	if (ferror(f)) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	476	if (errno == EINTR) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	477	__HANDLE_INTERRUPTS__; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	478	clearerr(f); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	479	/* refetch */ \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	480	buf = (char *)(obj); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	481	continue; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	482	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	483	} else { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	484	(ret) = 0; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	485	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	486	break; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	487	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	488	(buf)[__ooffs+__offs] = (ret); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	489	__offs++; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	490	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	491	if (__offs > 0) \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	492	(ret) = __offs; \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	493	} else { \
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	494	int fd = fileno(f); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	495	\
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	496	while (__offs < (cnt)) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	497	OBJ rA = __INST(readAhead); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	498	if (rA != nil) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	499	(buf)[__ooffs+__offs] = __intVal(rA); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	500	__INST(readAhead) = nil; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	501	(ret) = 1; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	502	__offs += (ret); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	503	continue; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	504	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	505	CLEAR_ERRNO; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	506	(ret) = read(fd, (buf)+__ooffs+__offs, (cnt)-__offs); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	507	if ((ret) < 0 && errno == EINTR) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	508	__HANDLE_INTERRUPTS__; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	509	/* refetch */ \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	510	buf = (char *)(obj); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	511	continue; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	512	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	513	__offs += (ret); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	514	break; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	515	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	516	if (__offs > 0) \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	517	(ret) = __offs; \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	518	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	519	}
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	520
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	521
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	522	#endif
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	523
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	524	#ifdef NO_STDIO
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	525	#define __WRITEBYTE__(ret, f, buf, isBuffered) \
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	526	for (;;) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	527	CLEAR_ERRNO; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	528	(ret) = WRITE(f, buf, 1); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	529	if ((ret) >= 0 \|\| errno != EINTR) \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	530	break; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	531	__HANDLE_INTERRUPTS__; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	532	}
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	533	#else
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	534	#define __WRITEBYTE__(ret, f, buf, isBuffered) \
71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	535	if (isBuffered) { \
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	536	for (;;) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	537	CLEAR_ERRNO; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	538	ret = putc(*(buf), f); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	539	if ((ret) >= 0) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	540	(ret) = 1; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	541	} else if (ferror(f)) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	542	if (errno == EINTR) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	543	__HANDLE_INTERRUPTS__; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	544	clearerr(f); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	545	continue; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	546	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	547	} else \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	548	(ret) = 0; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	549	break; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	550	} \
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	551	} else { \
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	552	for (;;) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	553	CLEAR_ERRNO; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	554	(ret) = write(fileno(f), buf, 1); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	555	if ((ret) >= 0 \|\| errno != EINTR) \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	556	break; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	557	__HANDLE_INTERRUPTS__; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	558	} \
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	559	}
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	560	#endif
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	561
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	562	/*
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	563	* 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	564	* (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	565	*/
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	566	#ifdef NO_STDIO
2961 a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	567	#define __WRITEBYTES__(ret, f, buf, cnt, isBuffered) \
a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	568	(ret) = 0; \
a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	569	{ \
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	570	int __offs = 0; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	571	while (__offs < (cnt)) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	572	CLEAR_ERRNO; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	573	ret = WRITE(f, (buf)+__offs, (cnt)-__offs); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	574	if (ret <= 0) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	575	if (ret < 0 && errno == EINTR) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	576	__HANDLE_INTERRUPTS__; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	577	continue; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	578	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	579	break; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	580	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	581	__offs += (ret); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	582	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	583	if (__offs > 0) \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	584	(ret) = __offs; \
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	585	}
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	586	#else
2961 a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	587	#define __WRITEBYTES__(ret, f, buf, cnt, isBuffered) \
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	if (isBuffered) { \
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	590	int __offs = 0; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	591	while (__offs < (cnt)) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	592	CLEAR_ERRNO; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	593	ret = fwrite((buf)+__offs, 1, (cnt)-__offs, f);\
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	594	if ((ret) <= 0) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	595	if (ferror(f)) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	596	if (errno == EINTR) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	597	__HANDLE_INTERRUPTS__; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	598	clearerr(f); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	599	continue; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	600	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	601	break; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	602	} else { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	603	(ret) = 0; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	604	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	605	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	606	__offs += (ret); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	607	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	608	if (__offs > 0) \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	609	(ret) = __offs; \
2961 a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	610	} else { \
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	611	int __offs = 0; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	612	while (__offs < (cnt)) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	613	CLEAR_ERRNO; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	614	ret = write(fileno(f), (buf)+__offs, (cnt)-__offs);\
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	615	if (ret <= 0) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	616	if (ret < 0 && errno == EINTR) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	617	__HANDLE_INTERRUPTS__; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	618	continue; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	619	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	620	break; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	621	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	622	__offs += (ret); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	623	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	624	if (__offs > 0) \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	625	(ret) = __offs; \
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	626	}
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	627	#endif
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	628
223 3075043790b8 immediateInterr & errno cleanup claus parents: 216 diff changeset	629	/*
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	630	* 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	631	* (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	632	*/
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	633	#ifdef NO_STDIO
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	634	#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	635	{ \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	636	int __ooffs = obj_offs; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	637	int __offs = 0; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	638	char buf = (char )(obj); \
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	639	\
2961 a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	640	(ret) = 0; \
a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	641	{ \
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	642	while (__offs < (cnt)) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	643	CLEAR_ERRNO; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	644	ret = WRITE(f, (buf)+__ooffs+__offs, (cnt)-__offs); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	645	if (ret <= 0) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	646	if (ret < 0 && errno == EINTR) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	647	__HANDLE_INTERRUPTS__; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	648	/* refetch */ \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	649	buf = (char *)(obj); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	650	continue; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	651	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	652	break; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	653	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	654	__offs += (ret); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	655	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	656	if (__offs > 0) \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	657	(ret) = __offs; \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	658	} \
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	659	}
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	660	#else
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	661	#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	662	{ \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	663	int __ooffs = obj_offs; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	664	int __offs = 0; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	665	char buf = (char )(obj); \
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	666	\
2961 a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	667	(ret) = 0; \
a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	668	if (isBuffered) { \
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	669	while (__offs < (cnt)) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	670	CLEAR_ERRNO; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	671	ret = fwrite((buf)+__ooffs+__offs, 1, (cnt)-__offs, f); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	672	if ((ret) <= 0) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	673	if (ferror(f)) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	674	if (errno == EINTR) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	675	__HANDLE_INTERRUPTS__; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	676	/* refetch */ \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	677	buf = (char *)(obj); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	678	clearerr(f); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	679	continue; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	680	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	681	break; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	682	} else { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	683	(ret) = 0; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	684	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	685	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	686	__offs += (ret); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	687	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	688	if (__offs > 0) \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	689	(ret) = __offs; \
2961 a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	690	} else { \
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	691	while (__offs < (cnt)) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	692	CLEAR_ERRNO; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	693	ret = write(fileno(f), (buf)+__ooffs+__offs, (cnt)-__offs); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	694	if (ret <= 0) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	695	if (ret < 0 && errno == EINTR) { \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	696	__HANDLE_INTERRUPTS__; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	697	/* refetch */ \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	698	buf = (char *)(obj); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	699	continue; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	700	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	701	break; \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	702	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	703	__offs += (ret); \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	704	} \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	705	if (__offs > 0) \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	706	(ret) = __offs; \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	707	} \
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	708	}
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	709	#endif
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	710
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	711	/*
223 3075043790b8 immediateInterr & errno cleanup claus parents: 216 diff changeset	712	* on some systems errno is a macro ... check for it here
3075043790b8 immediateInterr & errno cleanup claus parents: 216 diff changeset	713	*/
3075043790b8 immediateInterr & errno cleanup claus parents: 216 diff changeset	714	#ifndef errno
3075043790b8 immediateInterr & errno cleanup claus parents: 216 diff changeset	715	extern errno;
3075043790b8 immediateInterr & errno cleanup claus parents: 216 diff changeset	716	#endif
3075043790b8 immediateInterr & errno cleanup claus parents: 216 diff changeset	717
1 a27a279701f8 Initial revision claus parents: diff changeset	718	%}
188 454ed0ee733e EINTR problems claus parents: 159 diff changeset	719	! !
1 a27a279701f8 Initial revision claus parents: diff changeset	720
2045 1ad17ca6520f fall back to super>>nextPutLine: if argument is not a string. Claus Gittinger <cg@exept.de> parents: 2044 diff changeset	721	!ExternalStream class methodsFor:'documentation'!
22 847106305963 * empty log message * claus parents: 12 diff changeset	722
88 81dacba7a63a * empty log message * claus parents: 85 diff changeset	723	copyright
81dacba7a63a * empty log message * claus parents: 85 diff changeset	724	"
81dacba7a63a * empty log message * claus parents: 85 diff changeset	725	COPYRIGHT (c) 1988 by Claus Gittinger
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	726	All Rights Reserved
88 81dacba7a63a * empty log message * claus parents: 85 diff changeset	727
81dacba7a63a * empty log message * claus parents: 85 diff changeset	728	This software is furnished under a license and may be used
81dacba7a63a * empty log message * claus parents: 85 diff changeset	729	only in accordance with the terms of that license and with the
81dacba7a63a * empty log message * claus parents: 85 diff changeset	730	inclusion of the above copyright notice. This software may not
81dacba7a63a * empty log message * claus parents: 85 diff changeset	731	be provided or otherwise made available to, or used by, any
81dacba7a63a * empty log message * claus parents: 85 diff changeset	732	other person. No title to or ownership of the software is
81dacba7a63a * empty log message * claus parents: 85 diff changeset	733	hereby transferred.
81dacba7a63a * empty log message * claus parents: 85 diff changeset	734	"
81dacba7a63a * empty log message * claus parents: 85 diff changeset	735	!
81dacba7a63a * empty log message * claus parents: 85 diff changeset	736
22 847106305963 * empty log message * claus parents: 12 diff changeset	737	documentation
847106305963 * empty log message * claus parents: 12 diff changeset	738	"
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	739	ExternalStream defines protocol common to Streams which have a file-descriptor and
59faa75185ba * empty log message * claus parents: 54 diff changeset	740	represent some file or communicationChannel of the underlying OperatingSystem.
59faa75185ba * empty log message * claus parents: 54 diff changeset	741	ExternalStream is abstract; concrete classes are FileStream, PipeStream etc.
77 6c38ca59927f * empty log message * claus parents: 68 diff changeset	742
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	743	ExternalStreams can be in two modes: text- (the default) and binary-mode.
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	744	In text-mode, the elements read/written are characters;
59faa75185ba * empty log message * claus parents: 54 diff changeset	745	while in binary-mode the basic elements are bytes which read/write as SmallIntegers
59faa75185ba * empty log message * claus parents: 54 diff changeset	746	in the range 0..255.
22 847106305963 * empty log message * claus parents: 12 diff changeset	747
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	748	Also, the stream can be either in buffered or unbuffered mode. In buffered mode,
59faa75185ba * empty log message * claus parents: 54 diff changeset	749	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	750	is sent (in both modes).
22 847106305963 * empty log message * claus parents: 12 diff changeset	751
77 6c38ca59927f * empty log message * claus parents: 68 diff changeset	752	The underlying OperatingSystem streams may either be closed explicitely (sending a close)
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	753	or just forgotten - in this case, the garbage collector will eventually collect the
77 6c38ca59927f * empty log message * claus parents: 68 diff changeset	754	object AND a close will be performed automatically (but you will NOT know when this
6c38ca59927f * empty log message * claus parents: 68 diff changeset	755	happens - so it is recommended, that you close your files when no longer needed).
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	756	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	757	some crash) the data will not be in the file, if unclosed.
6c38ca59927f * empty log message * claus parents: 68 diff changeset	758	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	759	a noop in one of the superclasses).
22 847106305963 * empty log message * claus parents: 12 diff changeset	760
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	761	Most of the methods found here redefine inherited methods for better performance,
59faa75185ba * empty log message * claus parents: 54 diff changeset	762	since I/O from/to files should be fast.
22 847106305963 * empty log message * claus parents: 12 diff changeset	763
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	764	Recovering a snapshot:
1295 83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	765	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	766	reOpen in subclasses for more information.
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	767	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	768	reestablish the stream upon image restart (make someone dependent on ObjectMemory).
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	769	FileStreams are reopened and positioned to their offset they had at snapshot time.
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	770	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	771	if the contents changed in the meantime.
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	772	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	773
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	774	[Instance variables:]
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	775
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	776	filePointer <Integer> the unix FILE*; somehow mapped to an integer
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	777	(notice: not the fd)
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	778	on Windows: the fileHandle
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	779	mode <Symbol> #readwrite, #readonly or #writeonly
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	780	buffered <Boolean> true, if buffered (i.e. collects characters - does
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	781	not output immediately)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	782	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	783	eolMode <Symbol> one of nil, #cr or #crlf.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	784	determines how lines should be terminated.
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	785	nil -> newLine (as in Unix);
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	786	#crlf -> with cr-lf (as in MSDOS)
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	787	#cr -> with cr (as in VMS)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	788	hitEOF <Boolean> true, if EOF was reached
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	789
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	790	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	791	updated with next i/o operation)
1295 83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	792
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	793	[Class variables:]
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	794	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	795
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	796	StreamErrorSignal <Signal> parent of all stream errors (see Stream class)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	797	InvalidReadSignal <Signal> raised on read from writeonly stream
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	798	InvalidWriteSignal <Signal> raised on write to readonly stream
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	799	InvalidModeSignal <Signal> raised on text I/O with binary-stream
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	800	or binary I/O with text-stream
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	801	OpenErrorSignal <Signal> raised if open fails
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	802	StreamNotOpenSignal <Signal> raised on I/O with non-open stream
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	803
514c749165c3 * empty log message * claus parents: 108 diff changeset	804	Additional notes:
514c749165c3 * empty log message * claus parents: 108 diff changeset	805	This class is implemented using the underlying stdio-c library package, which
514c749165c3 * empty log message * claus parents: 108 diff changeset	806	has both advantages and disadvantages: since it is portable (posix defined), porting
514c749165c3 * empty log message * claus parents: 108 diff changeset	807	ST/X to non-Unix machines is simplified. The disadvantage is that the stdio library
514c749165c3 * empty log message * claus parents: 108 diff changeset	808	has big problems handling unbounded Streams, since the EOF handling in stdio is
514c749165c3 * empty log message * claus parents: 108 diff changeset	809	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	810	a complete rewrite for UnboundedStream ...
325 46bca6125b93 . claus parents: 308 diff changeset	811
188 454ed0ee733e EINTR problems claus parents: 159 diff changeset	812	Also, depending on the system, the stdio library behaves infriendly when signals
454ed0ee733e EINTR problems claus parents: 159 diff changeset	813	occur while reading (for example, timer interrupts) - on real unixes (i.e. BSD) the signal
454ed0ee733e EINTR problems claus parents: 159 diff changeset	814	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	815	an error and errno is set to EINTR.
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	816	Thats what the ugly code around all getc-calls is for ...
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	817	Since things get more and more ugly - we will rewrite ExternalStream
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	818	completely, to NOT use any stdio stuff (and do its buffering itself).
325 46bca6125b93 . claus parents: 308 diff changeset	819
46bca6125b93 . claus parents: 308 diff changeset	820	Notice that typical stdio's use a single errno global variable to return an error code,
46bca6125b93 . claus parents: 308 diff changeset	821	this was bad design in the stdio lib (right from the very beginning), since its much
46bca6125b93 . claus parents: 308 diff changeset	822	harder to deal with this in the presence of lightweight processes, where errno gets
46bca6125b93 . claus parents: 308 diff changeset	823	overwritten by an I/O operation done in another thread. (stdio should have been written
46bca6125b93 . claus parents: 308 diff changeset	824	to return errno as a negative number ...).
46bca6125b93 . claus parents: 308 diff changeset	825	To deal with this, the scheduler treats errno like a per-thread private variable,
46bca6125b93 . claus parents: 308 diff changeset	826	and saves/restores the errno setting when switching to another thread.
46bca6125b93 . claus parents: 308 diff changeset	827	(Notice that some thread packages do this also, but ST/X's thread implementation
46bca6125b93 . claus parents: 308 diff changeset	828	does not depend on those, but instead uses a portable private package).
46bca6125b93 . claus parents: 308 diff changeset	829
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	830	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	831	fseek whenever we are about to read after write and vice versa.
a8abff749575 * empty log message * claus parents: 213 diff changeset	832	Two macros (__READING__ and __WRITING__) have been defined to be used before every
a8abff749575 * empty log message * claus parents: 213 diff changeset	833	fread/fgetc and fwrite/putc respectively.
1295 83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	834
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	835	[author:]
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	836	Claus Gittinger
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	837	Stefan Vogel (many, many fixes ...)
1295 83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	838
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	839	[see also:]
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	840	FileStream Socket PipeStream
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	841	Filename OperatingSystem
22 847106305963 * empty log message * claus parents: 12 diff changeset	842	"
3255 eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	843	!
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	844
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	845	examples
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	846	"
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	847	open a file, read the contents and display it in a textView:
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	848
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	849	\|topView scrollPane textView fileStream text\|
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	850
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	851	topView := StandardSystemView new.
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	852	topView label:'contents of Makefile'.
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	853
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	854	scrollPane := HVScrollableView in:topView.
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	855	scrollPane origin:0.0@0.0 corner:1.0@1.0.
3255 eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	856
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	857	textView := EditTextView new.
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	858	scrollPane scrolledView:textView.
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	859
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	860	fileStream := 'Makefile' asFilename readStream.
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	861	text := fileStream upToEnd.
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	862	fileStream close.
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	863
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	864	textView contents:text.
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	865
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	866	topView open.
3255 eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	867
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	868
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	869
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	870	Notice, all of the above can also be done (simply) as:
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	871
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	872	EditTextView openOn:'Makefile'
3255 eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	873	"
22 847106305963 * empty log message * claus parents: 12 diff changeset	874	! !
847106305963 * empty log message * claus parents: 12 diff changeset	875
2045 1ad17ca6520f fall back to super>>nextPutLine: if argument is not a string. Claus Gittinger <cg@exept.de> parents: 2044 diff changeset	876	!ExternalStream class methodsFor:'initialization'!
1 a27a279701f8 Initial revision claus parents: diff changeset	877
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	878	initDefaultEOLMode
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	879	OperatingSystem isUNIXlike ifTrue:[
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	880	"/ unix EOL conventions
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	881	DefaultEOLMode := #nl
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	882	] ifFalse:[
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	883	OperatingSystem isVMSlike ifTrue:[
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	884	"/ vms EOL conventions
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	885	DefaultEOLMode := #cr
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	886	] ifFalse:[
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	887	"/ msdos EOL conventions
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	888	DefaultEOLMode := #crlf
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	889	]
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	890	]
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	891	!
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	initModeStrings
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	894	"initialize modeStrings which are passed down to the underlying
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	895	fopen/fdopen functions."
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	896
3132 037027ae20fd msdos MUST use binary mode in I/O Claus Gittinger <cg@exept.de> parents: 3044 diff changeset	897	OperatingSystem isMSDOSlike ifTrue:[
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	898	ReadMode := 'rb'.
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	899	ReadWriteMode := 'rb+'.
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	900	WriteMode := 'wb'.
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	901	AppendMode := 'ab+'.
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	902	CreateReadWriteMode := 'wb+'.
3132 037027ae20fd msdos MUST use binary mode in I/O Claus Gittinger <cg@exept.de> parents: 3044 diff changeset	903	] ifFalse:[
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	904	ReadMode := 'r'.
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	905	ReadWriteMode := 'r+'.
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	906	WriteMode := 'w'.
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	907	AppendMode := 'a+'.
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	908	CreateReadWriteMode := 'w+'.
3132 037027ae20fd msdos MUST use binary mode in I/O Claus Gittinger <cg@exept.de> parents: 3044 diff changeset	909	]
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	910	!
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	911
1 a27a279701f8 Initial revision claus parents: diff changeset	912	initialize
593 19d568779cf7 moved StreamErrorSignal into Stream; Claus Gittinger <cg@exept.de> parents: 583 diff changeset	913	OpenErrorSignal isNil ifTrue:[
3474 1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	914	OpenErrorSignal := StreamErrorSignal newSignalMayProceed:true.
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	915	OpenErrorSignal nameClass:self message:#openErrorSignal.
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	916	OpenErrorSignal notifierString:'open error'.
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	917
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	918	InvalidReadSignal := ReadErrorSignal newSignalMayProceed:false.
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	919	InvalidReadSignal nameClass:self message:#invalidReadSignal.
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	920	InvalidReadSignal notifierString:'read error'.
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	921
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	922	InvalidWriteSignal := WriteErrorSignal newSignalMayProceed:false.
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	923	InvalidWriteSignal nameClass:self message:#invalidWriteSignal.
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	924	InvalidWriteSignal notifierString:'write error'.
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	925
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	926	InvalidModeSignal := StreamErrorSignal newSignalMayProceed:false.
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	927	InvalidModeSignal nameClass:self message:#invalidModeSignal.
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	928	InvalidModeSignal notifierString:'binary/text mode mismatch'.
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	929
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	930	InvalidOperationSignal := StreamErrorSignal newSignalMayProceed:false.
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	931	InvalidOperationSignal nameClass:self message:#invalidOperationSignal.
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	932	InvalidOperationSignal notifierString:'unsupported file operation'.
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	933
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	934	StreamNotOpenSignal := StreamErrorSignal newSignalMayProceed:false.
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	935	StreamNotOpenSignal nameClass:self message:#streamNotOpenSignal.
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	936	StreamNotOpenSignal notifierString:'stream is not open'.
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	937
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	938	StreamIOErrorSignal := StreamErrorSignal newSignalMayProceed:false.
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	939	StreamIOErrorSignal nameClass:self message:#streamIOErrorSignal.
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	940	StreamIOErrorSignal notifierString:'I/O error'.
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	941	].
514c749165c3 * empty log message * claus parents: 108 diff changeset	942
31 75f2b9f78be2 * empty log message * claus parents: 25 diff changeset	943	Lobby isNil ifTrue:[
3474 1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	944	Lobby := Registry new.
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	945
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	946	"want to get informed when returning from snapshot"
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	947	ObjectMemory addDependent:self
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	948	].
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	949	self initDefaultEOLMode.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	950	self initModeStrings.
3474 1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	951
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	952	"Modified: / 21.5.1998 / 16:33:53 / cg"
1 a27a279701f8 Initial revision claus parents: diff changeset	953	!
a27a279701f8 Initial revision claus parents: diff changeset	954
a27a279701f8 Initial revision claus parents: diff changeset	955	reOpenFiles
a27a279701f8 Initial revision claus parents: diff changeset	956	"reopen all files (if possible) after a snapShot load"
a27a279701f8 Initial revision claus parents: diff changeset	957
301 35e40a6fc72b * empty log message * claus parents: 269 diff changeset	958	Lobby do:[:aFileStream \|
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	959	aFileStream reOpen
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	960	].
1 a27a279701f8 Initial revision claus parents: diff changeset	961	!
a27a279701f8 Initial revision claus parents: diff changeset	962
1469 570ef7f8667b checkin from browser Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	963	update:something with:aParameter from:changedObject
1 a27a279701f8 Initial revision claus parents: diff changeset	964	"have to reopen files when returning from snapshot"
a27a279701f8 Initial revision claus parents: diff changeset	965
a27a279701f8 Initial revision claus parents: diff changeset	966	something == #returnFromSnapshot ifTrue:[
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	967	self reOpenFiles.
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	968	self initDefaultEOLMode
1 a27a279701f8 Initial revision claus parents: diff changeset	969	]
1469 570ef7f8667b checkin from browser Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	970
570ef7f8667b checkin from browser Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	971	"Created: 15.6.1996 / 15:19:59 / cg"
1 a27a279701f8 Initial revision claus parents: diff changeset	972	! !
a27a279701f8 Initial revision claus parents: diff changeset	973
2045 1ad17ca6520f fall back to super>>nextPutLine: if argument is not a string. Claus Gittinger <cg@exept.de> parents: 2044 diff changeset	974	!ExternalStream class methodsFor:'instance creation'!
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	975
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	976	forFileDescriptor:aFileDescriptor mode:modeString
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	977	"given a fileDescriptor, create an ExternalStream object
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	978	to operate on this fd.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	979	The mode-argument is passed to the fdopen call.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	980	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	981	primitive code, or to wrap pipe-fds into externalStreams."
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	982
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	983	\|newStream\|
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	newStream := self basicNew.
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	986	newStream text; buffered:true; eolMode:DefaultEOLMode; clearEOF.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	987	^ newStream
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	988	connectTo:aFileDescriptor
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	989	withMode:modeString
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	990
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	991	"
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	992	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	993
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	994	\|s\|
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	995
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	996	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	997	s next.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	998	"
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	999
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1000	"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	1001	"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	1002	!
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1003
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1004	forReadWriteToFileDescriptor:aFileDescriptor
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1005	"given a fileDescriptor, create an ExternalStream object
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1006	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	1007	as returned by user primitive code, or to wrap pipe-
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1008	filedescriptors into externalStreams."
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1009
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1010	^ self forFileDescriptor:aFileDescriptor mode:ReadWriteMode
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1011
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1012	"
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1013	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	1014
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1015	\|s\|
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1016
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1017	s := ExternalStream forReadWriteToFileDescriptor:15.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1018	s next.
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
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1021	"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	1022	"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	1023	!
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1024
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1025	forReadingFromFileDescriptor:aFileDescriptor
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1026	"given a fileDescriptor, create an ExternalStream object
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1027	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	1028	as returned by user primitive code, or to wrap pipe-
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1029	filedescriptors into externalStreams."
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1030
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1031	^ self forFileDescriptor:aFileDescriptor mode:ReadMode
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1032
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1033	"
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1034	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	1035
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1036	\|s\|
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	s := ExternalStream forReadingFromFileDescriptor:15.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1039	s next.
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	"
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1043	\|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	1044
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1045	'create OS pipe ...'.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1046
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1047	pipe := OperatingSystem makePipe.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1048	readFd := pipe at:1.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1049	writeFd := pipe at:2.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1050
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1051	'connect Smalltalk streams ...'.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1052
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1053	rs := ExternalStream forReadingFromFileDescriptor:readFd.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1054	ws := ExternalStream forWritingToFileDescriptor:writeFd.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1055
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1056	'read ...'.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1057	[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1058	1 to:10 do:[:i \|
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1059	Transcript showCR:rs nextLine
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1060	].
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1061	rs close.
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1062	] forkAt:7.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1063
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1064	'write ...'.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1065	[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1066	1 to:10 do:[:i \|
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1067	ws nextPutAll:'hello world '; nextPutAll:i printString; cr
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1068	].
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1069	ws close.
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1070	] fork.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1071
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1072	"
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	"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	1075	"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	1076	!
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1077
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1078	forWritingToFileDescriptor:aFileDescriptor
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1079	"given a fileDescriptor, create an ExternalStream object
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1080	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	1081	as returned by user primitive code, or to wrap pipe-
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1082	filedescriptors into externalStreams."
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1083
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1084	^ self forFileDescriptor:aFileDescriptor mode:WriteMode
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1085
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1086	"
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1087	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	1088
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1089	\|s\|
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1090
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1091	s := ExternalStream forWritingToFileDescriptor:15.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1092	s binary.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1093	s nextPut:1.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1094	"
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1095
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1096	"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	1097	"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	1098	!
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1099
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1100	makePipe
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1101	"return an array with two streams - the first one for reading,
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1102	the second for writing.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1103	This is the higher level equivalent of OperatingSystem>>makePipe
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1104	(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	1105
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1106	\|pipe rs ws\|
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1107
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1108	pipe := OperatingSystem makePipe.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1109
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1110	pipe notNil ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1111	rs := self forReadingFromFileDescriptor:(pipe at:1).
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1112	ws := self forWritingToFileDescriptor:(pipe at:2).
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1113	^ 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	1114	].
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1115	^ nil
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1116
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1117	"
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1118	\|pipe rs ws\|
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1119
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1120	pipe := ExternalStream makePipe.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1121	rs := pipe at:1.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1122	ws := pipe at:2.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1123
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1124	'read ...'.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1125	[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1126	1 to:10 do:[:i \|
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1127	Transcript showCR:rs nextLine
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1128	].
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1129	rs close.
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1130	] forkAt:7.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1131
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1132	'write ...'.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1133	[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1134	1 to:10 do:[:i \|
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1135	ws nextPutAll:'hello world '; nextPutAll:i printString; cr
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1136	].
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1137	ws close.
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1138	] fork.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1139	"
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1140
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1141	"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	1142	!
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1143
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1144	new
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1145	\|newStream\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1146
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1147	newStream := self basicNew.
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1148	newStream text; buffered:true; eolMode:DefaultEOLMode; clearEOF.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1149	^ newStream
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1150	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1151
2045 1ad17ca6520f fall back to super>>nextPutLine: if argument is not a string. Claus Gittinger <cg@exept.de> parents: 2044 diff changeset	1152	!ExternalStream class methodsFor:'Signal constants'!
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1153
1522 1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	1154	inaccessibleSignal
1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	1155	"ST-80 compatibility: return openErrorSignal"
1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	1156
1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	1157	^ self openErrorSignal
1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	1158
1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	1159	"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	1160	!
1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	1161
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1162	invalidModeSignal
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1163	"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	1164	or binary-I/O with a text stream"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1165
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1166	^ InvalidModeSignal
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1167	!
514c749165c3 * empty log message * claus parents: 108 diff changeset	1168
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1169	invalidOperationSignal
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1170	"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	1171	I/O operation is attempted"
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1172
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1173	^ InvalidOperationSignal
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1174	!
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1175
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1176	invalidReadSignal
514c749165c3 * empty log message * claus parents: 108 diff changeset	1177	"return the signal raised when reading from writeonly streams"
514c749165c3 * empty log message * claus parents: 108 diff changeset	1178
514c749165c3 * empty log message * claus parents: 108 diff changeset	1179	^ InvalidReadSignal
514c749165c3 * empty log message * claus parents: 108 diff changeset	1180	!
514c749165c3 * empty log message * claus parents: 108 diff changeset	1181
514c749165c3 * empty log message * claus parents: 108 diff changeset	1182	invalidWriteSignal
514c749165c3 * empty log message * claus parents: 108 diff changeset	1183	"return the signal raised when writing to readonly streams"
514c749165c3 * empty log message * claus parents: 108 diff changeset	1184
514c749165c3 * empty log message * claus parents: 108 diff changeset	1185	^ InvalidWriteSignal
514c749165c3 * empty log message * claus parents: 108 diff changeset	1186	!
514c749165c3 * empty log message * claus parents: 108 diff changeset	1187
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1188	openErrorSignal
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1189	"return the signal raised when a file open failed"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1190
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1191	^ OpenErrorSignal
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1192	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1193
3474 1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	1194	streamIOErrorSignal
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	1195	"return the signal raised when an I/O error occurs.
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	1196	(for example, a device-IO-error, or reading an NFS-dir,
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	1197	which is no longer available and has been mounted soft)"
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	1198
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	1199	^ StreamIOErrorSignal
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	1200
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	1201	"Created: / 21.5.1998 / 16:32:55 / cg"
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	1202	!
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	1203
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1204	streamNotOpenSignal
514c749165c3 * empty log message * claus parents: 108 diff changeset	1205	"return the signal raised on I/O with closed streams"
514c749165c3 * empty log message * claus parents: 108 diff changeset	1206
514c749165c3 * empty log message * claus parents: 108 diff changeset	1207	^ StreamNotOpenSignal
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1208	! !
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1209
2045 1ad17ca6520f fall back to super>>nextPutLine: if argument is not a string. Claus Gittinger <cg@exept.de> parents: 2044 diff changeset	1210	!ExternalStream class methodsFor:'error handling'!
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	1211
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1212	lastErrorNumber
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1213	"return the errno of the last error"
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	1214
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1215	^ LastErrorNumber
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1216
514c749165c3 * empty log message * claus parents: 108 diff changeset	1217	"
514c749165c3 * empty log message * claus parents: 108 diff changeset	1218	ExternalStream lastErrorNumber
514c749165c3 * empty log message * claus parents: 108 diff changeset	1219	"
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	1220	!
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1221
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1222	lastErrorString
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1223	"return a message string describing the last error"
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1224
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1225	^ OperatingSystem errorTextForNumber:LastErrorNumber
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1226
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1227	"
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1228	ExternalStream lastErrorString
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1229	"
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1230	! !
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1231
3044 a0bbac91639b * empty log message * Claus Gittinger <cg@exept.de> parents: 3029 diff changeset	1232	!ExternalStream methodsFor:'Squeak compatibility'!
a0bbac91639b * empty log message * Claus Gittinger <cg@exept.de> parents: 3029 diff changeset	1233
a0bbac91639b * empty log message * Claus Gittinger <cg@exept.de> parents: 3029 diff changeset	1234	readOnly
a0bbac91639b * empty log message * Claus Gittinger <cg@exept.de> parents: 3029 diff changeset	1235	"Squeak compatibility: make the stream readOnly"
a0bbac91639b * empty log message * Claus Gittinger <cg@exept.de> parents: 3029 diff changeset	1236
a0bbac91639b * empty log message * Claus Gittinger <cg@exept.de> parents: 3029 diff changeset	1237	mode := #readonly
a0bbac91639b * empty log message * Claus Gittinger <cg@exept.de> parents: 3029 diff changeset	1238
a0bbac91639b * empty log message * Claus Gittinger <cg@exept.de> parents: 3029 diff changeset	1239	"Modified: 20.10.1997 / 19:23:04 / cg"
a0bbac91639b * empty log message * Claus Gittinger <cg@exept.de> parents: 3029 diff changeset	1240	"Created: 20.10.1997 / 19:23:19 / cg"
a0bbac91639b * empty log message * Claus Gittinger <cg@exept.de> parents: 3029 diff changeset	1241	! !
a0bbac91639b * empty log message * Claus Gittinger <cg@exept.de> parents: 3029 diff changeset	1242
1 a27a279701f8 Initial revision claus parents: diff changeset	1243	!ExternalStream methodsFor:'accessing'!
a27a279701f8 Initial revision claus parents: diff changeset	1244
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1245	binary
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1246	"switch to binary mode - default is text"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1247
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1248	binary := true
1 a27a279701f8 Initial revision claus parents: diff changeset	1249	!
a27a279701f8 Initial revision claus parents: diff changeset	1250
a27a279701f8 Initial revision claus parents: diff changeset	1251	buffered:aBoolean
10 4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	1252	"turn buffering on or off - default is on"
1 a27a279701f8 Initial revision claus parents: diff changeset	1253
10 4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	1254	buffered := aBoolean
1 a27a279701f8 Initial revision claus parents: diff changeset	1255	!
a27a279701f8 Initial revision claus parents: diff changeset	1256
a27a279701f8 Initial revision claus parents: diff changeset	1257	contents
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1258	"return the contents of the file from the current position up-to
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1259	the end. If the stream is in binary mode, a ByteArray containing
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1260	the byte values is returned.
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1261	In text-mode, a collection of strings, each representing one line,
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1262	is returned."
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1263
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1264	\|text l chunks sizes chunk byteCount cnt bytes offset\|
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1265
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1266	binary ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1267	"adding to a ByteArray produces quadratic time-space
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1268	behavior - therefore we allocate chunks, and concatenate them
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1269	at the end."
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1270
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1271	chunks := OrderedCollection new.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1272	sizes := OrderedCollection new.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1273	byteCount := 0.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1274	[self atEnd] whileFalse:[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1275	chunk := ByteArray uninitializedNew:4096.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1276	cnt := self nextBytes:(chunk size) into:chunk.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1277	cnt notNil ifTrue:[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1278	chunks add:chunk.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1279	sizes add:cnt.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1280	byteCount := byteCount + cnt
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1281	]
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1282	].
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1283
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1284	"now, create one big ByteArray"
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1285	bytes := ByteArray uninitializedNew:byteCount.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1286	offset := 1.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1287	1 to:chunks size do:[:index \|
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1288	chunk := chunks at:index.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1289	cnt := sizes at:index.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1290	bytes replaceFrom:offset to:(offset + cnt - 1) with:chunk.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1291	offset := offset + cnt
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1292	].
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1293	^ bytes
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1294	].
1 a27a279701f8 Initial revision claus parents: diff changeset	1295
244 9faa2da0650a Text <-> StringCollection claus parents: 223 diff changeset	1296	text := StringCollection new.
1 a27a279701f8 Initial revision claus parents: diff changeset	1297	[self atEnd] whileFalse:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1298	l := self nextLine.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1299	l isNil ifTrue:[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1300	^ text
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1301	].
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1302	text add:l
1 a27a279701f8 Initial revision claus parents: diff changeset	1303	].
a27a279701f8 Initial revision claus parents: diff changeset	1304	^ text
a27a279701f8 Initial revision claus parents: diff changeset	1305	!
a27a279701f8 Initial revision claus parents: diff changeset	1306
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1307	contentsOfEntireFile
1522 1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	1308	"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	1309
1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	1310	^ self contents asString.
1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	1311
1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	1312	"Modified: 3.7.1996 / 13:22:16 / stefan"
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1313	!
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1314
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1315	contentsSpecies
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1316	"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	1317	(such as upTo)"
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1318
514c749165c3 * empty log message * claus parents: 108 diff changeset	1319	binary ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1320	^ ByteArray
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1321	].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1322	^ String
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1323	!
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1324
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1325	eolMode:aSymbolOrNil
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1326	"specify how end-of-line (EOL) is to be marked.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1327	The argument may be one of:
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1328	#crlf -> add a CR-NL, as in MSDOS
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1329	#cr -> add a CR, as in VMS
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1330	#nl -> add a NL, as in Unix
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1331	anyOther -> like #nl
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1332	"
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1333
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1334	eolMode := aSymbolOrNil
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1335	!
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1336
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1337	fileDescriptor
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1338	"return the fileDescriptor of the receiver -
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1339	notice: this one returns the underlying OSs fileDescriptor -
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1340	this may not be available on all platforms (i.e. non unix systems)."
1 a27a279701f8 Initial revision claus parents: diff changeset	1341
a27a279701f8 Initial revision claus parents: diff changeset	1342	%{ /* NOCONTEXT */
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1343	#ifdef WIN32
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1344	RETURN (nil);
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1345	#else
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1346	FILEPOINTER f;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1347	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1348
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1349	if ((fp = __INST(filePointer)) != nil) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1350	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	1351	RETURN ( __MKINT(fileno(f)) );
1 a27a279701f8 Initial revision claus parents: diff changeset	1352	}
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1353	#endif
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	1354	%}.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1355	^ self errorNotOpen
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1356	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1357
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1358	filePointer
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1359	"return the filePointer of the receiver -
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1360	notice: for portability stdio is used; this means you will get
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1361	a FILE * - not a fileDescriptor.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1362	(what you really get is a corresponding integer).
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1363	You cannot do much with the returned value
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1364	- except passing it to a primitive, for example."
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	^ filePointer
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1367	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1368
3016 42466b291fae more ST80 compatibility ca parents: 2999 diff changeset	1369	lineEndTransparent
42466b291fae more ST80 compatibility ca parents: 2999 diff changeset	1370	eolMode := #cr
42466b291fae more ST80 compatibility ca parents: 2999 diff changeset	1371	!
42466b291fae more ST80 compatibility ca parents: 2999 diff changeset	1372
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1373	readonly
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1374	"set access mode to readonly"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1375
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1376	mode := #readonly
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
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1379	readwrite
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1380	"set access mode to readwrite"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1381
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1382	mode := #readwrite
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1383	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1384
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1385	text
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1386	"switch to text mode - default is text"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1387
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1388	binary := false
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1389	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1390
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1391	useCRLF:aBoolean
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1392	"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	1393	This method is provided for backward compatibility - see #eolMode:
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1394	which offers another choice."
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1395
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1396	aBoolean ifTrue:[
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1397	eolMode := #crlf
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1398	] ifFalse:[
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1399	eolMode := #nl
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1400	].
1 a27a279701f8 Initial revision claus parents: diff changeset	1401	!
a27a279701f8 Initial revision claus parents: diff changeset	1402
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1403	writeonly
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1404	"set access mode to writeonly"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1405
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1406	mode := #writeonly
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1407	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1408
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1409	!ExternalStream methodsFor:'error handling'!
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	argumentMustBeCharacter
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 argument must be a character"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1415
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1416	^ self error:'argument must be a character'
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1417	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1418
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1419	argumentMustBeInteger
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1420	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1421
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1422	"report an error, that the argument must be an integer"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1423
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1424	^ self error:'argument must be an integer'
77 6c38ca59927f * empty log message * claus parents: 68 diff changeset	1425	!
6c38ca59927f * empty log message * claus parents: 68 diff changeset	1426
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1427	argumentMustBeString
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1428	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1429
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1430	"report an error, that the argument must be a string"
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	^ self error:'argument must be a string'
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1433	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1434
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1435	errorBinary
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1436	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1437
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1438	"report an error, that the stream is in binary mode"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1439
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1440	^ self invalidModeSignal
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1441	raiseRequestWith:self
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1442	errorString:(self class name , ' is in binary mode')
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1443	in:thisContext sender
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1444	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1445
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1446	errorNotBinary
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1447	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1448
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1449	"report an error, that the stream is not in binary mode"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1450
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1451	^ self invalidModeSignal
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1452	raiseRequestWith:self
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1453	errorString:(self class name , ' is not in binary mode')
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1454	in:thisContext sender
1 a27a279701f8 Initial revision claus parents: diff changeset	1455	!
a27a279701f8 Initial revision claus parents: diff changeset	1456
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1457	errorNotBuffered
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1458	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1459
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1460	"report an error, that the stream is not in buffered mode"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1461
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1462	^ StreamErrorSignal
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1463	raiseRequestWith:self
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1464	errorString:(self class name , ' is unbuffered - operation not allowed')
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1465	in:thisContext sender
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1466	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1467
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1468	errorNotOpen
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1469	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1470
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1471	"report an error, that the stream has not been opened"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1472
3467 54ccb6f7d886 oops - streamNotOpenSignal Claus Gittinger <cg@exept.de> parents: 3456 diff changeset	1473	^ StreamNotOpenSignal
54ccb6f7d886 oops - streamNotOpenSignal Claus Gittinger <cg@exept.de> parents: 3456 diff changeset	1474	raiseRequestWith:self
54ccb6f7d886 oops - streamNotOpenSignal Claus Gittinger <cg@exept.de> parents: 3456 diff changeset	1475	errorString:(self class name , ' not open')
54ccb6f7d886 oops - streamNotOpenSignal Claus Gittinger <cg@exept.de> parents: 3456 diff changeset	1476	in:thisContext sender
54ccb6f7d886 oops - streamNotOpenSignal Claus Gittinger <cg@exept.de> parents: 3456 diff changeset	1477
54ccb6f7d886 oops - streamNotOpenSignal Claus Gittinger <cg@exept.de> parents: 3456 diff changeset	1478	"Modified: / 19.5.1998 / 22:07:52 / cg"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1479	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1480
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1481	errorOpen
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 stream is already opened"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1485
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1486	^ self openErrorSignal
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1487	raiseRequestWith:self
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1488	errorString:(self class name , ' is already open')
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1489	in:thisContext sender
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1490	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1491
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1492	errorReadOnly
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1493	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1494
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1495	"report an error, that the stream is a readOnly stream"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1496
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1497	^ self invalidWriteSignal
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1498	raiseRequestWith:self
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1499	errorString:(self class name , ' is readonly')
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1500	in:thisContext sender
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1501	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1502
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1503	errorUnsupportedOperation
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1504	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1505
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1506	"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	1507
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1508	^ self invalidOperationSignal
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1509	raiseRequestWith:self
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1510	errorString:'unsupported operation'
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1511	in:thisContext sender
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1512	!
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1513
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1514	errorWriteOnly
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1515	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1516
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1517	"report an error, that the stream is a writeOnly stream"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1518
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1519	^ self invalidReadSignal
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1520	raiseRequestWith:self
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1521	errorString:(self class name , ' is writeonly')
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1522	in:thisContext sender
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1523	!
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1524
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1525	ioError
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1526	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1527
3474 1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	1528	"report an error, that some I/O error occured.
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	1529	(for example, a device-IO-error, or reading an NFS-dir,
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	1530	which is no longer available and has been mounted soft)"
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	1531
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	1532	^ StreamIOErrorSignal
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	1533	raiseRequestWith:self
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	1534	errorString:('I/O error: ' , self lastErrorString)
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	1535	in:thisContext sender
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	1536
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	1537	"Modified: / 21.5.1998 / 16:33:13 / cg"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1538	!
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	lastErrorNumber
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1541	"return the last error"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1542
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1543	^ lastErrorNumber
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1544	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1545
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1546	lastErrorString
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1547	"return a message string describing the last error"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1548
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1549	(lastErrorNumber isNil or:[lastErrorNumber == 0]) ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1550	^ 'I/O error'
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1551	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1552	^ OperatingSystem errorTextForNumber:lastErrorNumber
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1553	!
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1554
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1555	openError
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1556	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1557
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1558	"report an error, that the open failed"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1559
3235 cc254b307159 FileStream redefines #openErrorSignal. Stefan Vogel <sv@exept.de> parents: 3221 diff changeset	1560	^ self class openErrorSignal
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1561	raiseRequestWith:self
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1562	errorString:('error on open: ' , self lastErrorString)
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1563	in:thisContext sender
3235 cc254b307159 FileStream redefines #openErrorSignal. Stefan Vogel <sv@exept.de> parents: 3221 diff changeset	1564
cc254b307159 FileStream redefines #openErrorSignal. Stefan Vogel <sv@exept.de> parents: 3221 diff changeset	1565	"Modified: / 28.1.1998 / 14:37:42 / stefan"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1566	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1567
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1568	readError
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1569	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1570
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1571	"report an error, that some read error occured"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1572
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1573	^ ReadErrorSignal
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1574	raiseRequestWith:self
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1575	errorString:('read error: ' , self lastErrorString)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1576	in:thisContext sender
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1577	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1578
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1579	writeError
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1580	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1581
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1582	"report an error, that some write error occured"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1583
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1584	^ WriteErrorSignal
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1585	raiseRequestWith:self
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1586	errorString:('write error: ' , self lastErrorString)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1587	in:thisContext sender
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1588	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1589
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1590	!ExternalStream methodsFor:'instance release'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1591
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1592	closeFile
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1593	"low level close - may be redefined in subclasses"
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1594
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	1595	%{
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	1596	OBJ fp;
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1597
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1598	if ((fp = __INST(filePointer)) != nil) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1599	__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	1600	#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	1601	CloseHandle(__HANDLEVal(fp));
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1602	#else
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1603	__BEGIN_INTERRUPTABLE__
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1604	fclose(__FILEVal(fp));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1605	__END_INTERRUPTABLE__
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1606	#endif
10 4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	1607	}
4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	1608	%}
4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	1609	!
4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	1610
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1611	disposed
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1612	"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	1613
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1614	self closeFile
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1615	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1616
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1617	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	1618	"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	1619	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	1620	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	1621
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1622	%{ /* NOCONTEXT */
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1623
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1624	FILEPOINTER f;
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1625	OBJ fp;
2765 a56668774ad7 more alpha64 fixes Claus Gittinger <cg@exept.de> parents: 2764 diff changeset	1626	FILE *fdopen();
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1627
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1628	if (__isSmallInteger(anInteger) &&
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1629	__isString(openMode) &&
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1630	(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	1631	) {
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1632	__PROTECT__(self);
3420 4dc6667afda9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3419 diff changeset	1633	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	1634	__UNPROTECT__(self);
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1635	__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	1636	RETURN (self);
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1637	}
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1638	%}.
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1639	^ self primitiveFailed
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1640	!
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1641
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1642	setFilePointer:something
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1643	"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	1644	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	1645	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	1646
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1647	filePointer := something
1 a27a279701f8 Initial revision claus parents: diff changeset	1648	!
a27a279701f8 Initial revision claus parents: diff changeset	1649
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1650	shallowCopyForFinalization
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1651	"return a copy for finalization-registration;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1652	since all we need at finalization time is the fileDescriptor,
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1653	a cheaper copy is possible."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1654
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1655	^ self class basicNew setFilePointer:filePointer
1 a27a279701f8 Initial revision claus parents: diff changeset	1656	!
a27a279701f8 Initial revision claus parents: diff changeset	1657
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1658	shutDown
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1659	"close the stream - added for protocol compatibility with PipeStream.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1660	see comment there"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1661
1642 91c6860f1c9d when shutting down, also tell the Lobby Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	1662	filePointer isNil ifTrue:[^ self].
91c6860f1c9d when shutting down, also tell the Lobby Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	1663	Lobby unregister:self.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1664	self closeFile
1642 91c6860f1c9d when shutting down, also tell the Lobby Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	1665
91c6860f1c9d when shutting down, also tell the Lobby Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	1666	"Modified: 30.8.1996 / 00:39:21 / cg"
1 a27a279701f8 Initial revision claus parents: diff changeset	1667	! !
a27a279701f8 Initial revision claus parents: diff changeset	1668
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1669	!ExternalStream methodsFor:'line reading/writing'!
1 a27a279701f8 Initial revision claus parents: diff changeset	1670
a27a279701f8 Initial revision claus parents: diff changeset	1671	nextLine
a27a279701f8 Initial revision claus parents: diff changeset	1672	"read the next line (characters up to newline).
a27a279701f8 Initial revision claus parents: diff changeset	1673	Return a string containing those characters excluding the newline.
a27a279701f8 Initial revision claus parents: diff changeset	1674	If the previous-to-last character is a cr, this is also removed,
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	1675	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	1676	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	1677
71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	1678	\|line\|
971 eb70f5674303 max lineLength (in nextLine) increased to 16k Claus Gittinger <cg@exept.de> parents: 933 diff changeset	1679
3029 aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1680	%{ /* STACK:34000 */
1 a27a279701f8 Initial revision claus parents: diff changeset	1681
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1682	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1683	int len, ret;
3029 aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1684	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	1685	char rslt, nextPtr, *limit;
22 847106305963 * empty log message * claus parents: 12 diff changeset	1686	int fd, ch;
1068 92fdcccf12a3 alles MIST - zurueck zu 1.89 und NOCONTEXT entfernt Claus Gittinger <cg@exept.de> parents: 1067 diff changeset	1687	int _buffered;
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	1688	OBJ fp;
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	1689	int lineTooLong = 0;
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1690	int cutOff = 0;
1 a27a279701f8 Initial revision claus parents: diff changeset	1691
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1692	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1693	if (((fp = __INST(filePointer)) != nil)
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1694	&& (__INST(mode) != @symbol(writeonly))
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1695	&& (__INST(binary) != true)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1696	) {
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1697	f = __FILEVal(fp);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1698	buffer[0] = '\0';
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1699
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1700	_buffered = (__INST(buffered) == true);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1701	if (_buffered) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1702	__READING__(f);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1703	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1704
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1705	rslt = nextPtr = buffer;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1706	limit = buffer + sizeof(buffer) - 2;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1707
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1708	for (;;) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1709	__READBYTE__(ret, f, nextPtr, _buffered);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1710	if (ret <= 0) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1711	if (nextPtr == buffer)
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1712	rslt = NULL;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1713	if (ret == 0) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1714	__INST(hitEOF) = true;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1715	break;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1716	} else {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1717	__INST(lastErrorNumber) = __MKSMALLINT(errno);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1718	goto err;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1719	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1720	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1721
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1722	if (*nextPtr == '\n') {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1723	cutOff = 1;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1724	*nextPtr = '\0';
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1725	break;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1726	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1727	if (*nextPtr == '\r') {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1728	char peekChar;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1729
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1730	/*
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1731	* peek ahead for a newLine ...
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1732	*/
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1733	__READBYTE__(ret, f, &peekChar, _buffered);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1734	if (ret <= 0) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1735	cutOff = 1;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1736	*nextPtr = '\0';
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1737	if (ret == 0) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1738	__INST(hitEOF) = true;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1739	break;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1740	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1741	__INST(lastErrorNumber) = __MKSMALLINT(errno);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1742	goto err;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1743	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1744
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1745	if (peekChar == '\n') {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1746	cutOff = 2;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1747	*nextPtr = '\0';
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1748	break;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1749	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1750
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1751	__UNGETC__(peekChar, f, _buffered);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1752
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1753	cutOff = 1;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1754	*nextPtr = '\0';
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1755	break;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1756	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1757
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1758	nextPtr++;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1759	if (nextPtr >= limit) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1760	*nextPtr = '\0';
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1761	lineTooLong = 1;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1762	if (@global(InfoPrinting) == true) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1763	fprintf(stderr, "ExtStream [warning]: line truncated in nextLine\n");
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1764	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1765	break;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1766	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1767	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1768
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1769	if (rslt != NULL) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1770	len = nextPtr-buffer;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1771
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1772	if (__INST(position) != nil) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1773	int __p;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1774
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1775	__p = __intVal(__INST(position)) + len + cutOff;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1776	__INST(position) = __MKSMALLINT(__p);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1777	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1778	/* remove any EOL character */
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1779	if (len != 0) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1780	if (buffer[len-1] == '\n') {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1781	buffer[--len] = '\0';
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1782	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1783	if ((len != 0) && (buffer[len-1] == '\r')) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1784	buffer[--len] = '\0';
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1785	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1786	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1787	line = __MKSTRING_L(buffer, len);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1788	if (! lineTooLong) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1789	RETURN ( line );
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1790	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1791	}
1 a27a279701f8 Initial revision claus parents: diff changeset	1792	}
1478 aae07192b7d1 labels in empty statements need a semi Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	1793	err: ;
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1794	%}.
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	1795	line notNil ifTrue:[
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1796	"/ the line as read is longer than 32k characters (boy - what a line)
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1797	"/ The exception could be handled by reading more and returning the
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1798	"/ concatenation in your exception handler (the receiver and the partial
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1799	"/ line are passed as parameter)
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1800
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1801	^ ReadErrorSignal
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1802	raiseRequestWith:(Array with:self with:line)
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1803	errorString:('line too long read error')
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	1804	].
71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	1805
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	1806	hitEOF ifTrue:[^ self pastEnd].
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1807	lastErrorNumber notNil ifTrue:[^ self readError].
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1808	filePointer isNil ifTrue:[^ self errorNotOpen].
1 a27a279701f8 Initial revision claus parents: diff changeset	1809	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	1810	^ self errorBinary
1 a27a279701f8 Initial revision claus parents: diff changeset	1811	!
a27a279701f8 Initial revision claus parents: diff changeset	1812
a27a279701f8 Initial revision claus parents: diff changeset	1813	nextPutLine:aString
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1814	"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	1815	(LF, CR or CRLF - depending in the setting of eolMode)"
1 a27a279701f8 Initial revision claus parents: diff changeset	1816
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	1817	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1818	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1819	int len, cnt, len1, _buffered;
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	1820	OBJ pos, fp;
537 dc4dad8a5ddd many ExtStream rewrites - has to be reevaluated in all platforms Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1821	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	1822	int o_offs;
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;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1825	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1826	&& (__INST(mode) != @symbol(readonly))
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1827	&& (__INST(binary) != true)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1828	&& __isString(aString)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1829	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1830	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1831	len = __stringSize(aString);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1832
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1833	if (_buffered = (__INST(buffered) == true)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1834	__WRITING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1835	}
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1836	#ifdef BUGGY
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1837	__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	1838	#else
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1839	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	1840	__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	1841	#endif
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1842	if (cnt == len) {
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1843	OBJ mode = __INST(eolMode);
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1844
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1845	len1 = len;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1846
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1847	if (mode == @symbol(cr)) {
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1848	cp = "\r"; len = 1;
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1849	} else if (mode == @symbol(crlf)) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1850	cp = "\r\n"; len = 2;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1851	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1852	cp = "\n"; len = 1;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1853	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1854	__WRITEBYTES__(cnt, f, cp, len, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1855
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1856	if (cnt > 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1857	pos = __INST(position);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1858	if (pos != nil) {
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1859	int __p;
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1860
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1861	__p = __intVal(pos) + len1 + cnt;
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1862	__INST(position) = __MKSMALLINT(__p);
2264 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	RETURN ( self );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1865	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1866	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1867	__INST(lastErrorNumber) = __MKSMALLINT(errno);
1 a27a279701f8 Initial revision claus parents: diff changeset	1868	}
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1869	%}.
2045 1ad17ca6520f fall back to super>>nextPutLine: if argument is not a string. Claus Gittinger <cg@exept.de> parents: 2044 diff changeset	1870	super nextPutLine:aString.
1 a27a279701f8 Initial revision claus parents: diff changeset	1871	!
a27a279701f8 Initial revision claus parents: diff changeset	1872
a27a279701f8 Initial revision claus parents: diff changeset	1873	nextPutLinesFrom:aStream upToLineStartingWith:aStringOrNil
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	1874	"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	1875	and append all lines to self.
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1876	Can be used to copy/create large files or copy from a pipe/socket.
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	1877
22 847106305963 * empty log message * claus parents: 12 diff changeset	1878	If aStringOrNil is nil or not matched, copy preceeds to the end.
847106305963 * empty log message * claus parents: 12 diff changeset	1879	(this allows for example to read a Socket and transfer the data quickly
847106305963 * empty log message * claus parents: 12 diff changeset	1880	into a file - without creating zillions of temporary strings)"
1 a27a279701f8 Initial revision claus parents: 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	\|srcFilePointer readError line\|
1 a27a279701f8 Initial revision claus parents: diff changeset	1883
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	1884	(mode == #readonly) ifTrue:[self errorReadOnly. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	1885	filePointer isNil ifTrue:[self errorNotOpen. ^ self].
1 a27a279701f8 Initial revision claus parents: diff changeset	1886	srcFilePointer := aStream filePointer.
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	1887	srcFilePointer isNil ifTrue:[aStream errorNotOpen. ^ self].
12 8e03bd717355 * empty log message * claus parents: 10 diff changeset	1888
8e03bd717355 * empty log message * claus parents: 10 diff changeset	1889	%{ /* STACK:2000 */
22 847106305963 * empty log message * claus parents: 12 diff changeset	1890
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1891	#ifndef NO_STDIO
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1892	FILEPOINTER dst;
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1893	FILEPOINTER src;
1 a27a279701f8 Initial revision claus parents: diff changeset	1894	char *matchString;
a27a279701f8 Initial revision claus parents: diff changeset	1895	int matchLen = 0;
12 8e03bd717355 * empty log message * claus parents: 10 diff changeset	1896	char buffer[1024];
1 a27a279701f8 Initial revision claus parents: diff changeset	1897
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1898	__INST(lastErrorNumber) = nil;
249 810798c5c2e5 . claus parents: 244 diff changeset	1899	if (__isSmallInteger(srcFilePointer)) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1900	if ((aStringOrNil == nil) \|\| __isString(aStringOrNil)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1901	if (aStringOrNil != nil) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1902	matchString = (char *) __stringVal(aStringOrNil);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1903	matchLen = __stringSize(aStringOrNil);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1904	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1905	dst = __FILEVal(__INST(filePointer));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1906	src = __FILEVal(srcFilePointer);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1907	__BEGIN_INTERRUPTABLE__
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1908	errno = 0;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1909
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1910	__WRITING__(dst)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1911
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1912	for (;;) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1913	if (fgets(buffer, sizeof(buffer)-1, src) == NULL) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1914	if (ferror(src)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1915	readError = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1916	__END_INTERRUPTABLE__
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1917	goto err;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1918	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1919	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1920	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1921	if (fputs(buffer, dst) == EOF) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1922	if (ferror(dst)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1923	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1924	__END_INTERRUPTABLE__
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1925	goto err;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1926	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1927	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1928	}
12 8e03bd717355 * empty log message * claus parents: 10 diff changeset	1929	#ifndef OLD
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1930	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	1931	FFLUSH(dst);
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1932	}
12 8e03bd717355 * empty log message * claus parents: 10 diff changeset	1933	#endif
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1934	if (matchLen) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1935	if (strncmp(matchString, buffer, matchLen) == 0)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1936	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1937	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1938	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1939	__END_INTERRUPTABLE__
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1940	__INST(position) = nil;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1941	RETURN (self);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1942	}
1 a27a279701f8 Initial revision claus parents: diff changeset	1943	}
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1944	err: ;
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1945	#endif /* ! NO_STDIO */
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1946	%}.
514c749165c3 * empty log message * claus parents: 108 diff changeset	1947	readError ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1948	aStream setLastErrorNumber:readError.
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	1949	aStream readError.
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	1950	^ self
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1951	].
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	1952	lastErrorNumber notNil ifTrue:[self writeError. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	1953	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	1954
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1955	"
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1956	argument error or unimplemented; try it linewise
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1957	"
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1958	[aStream atEnd] whileFalse:[
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1959	line := aStream nextLine.
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1960	line isNil ifTrue:[
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1961	^ self.
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1962	].
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1963	self nextPutLine:line.
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1964	(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	1965	^ self
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1966	]
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1967	].
1 a27a279701f8 Initial revision claus parents: diff changeset	1968	!
a27a279701f8 Initial revision claus parents: diff changeset	1969
a27a279701f8 Initial revision claus parents: diff changeset	1970	peekForLineStartingWith:aString
a27a279701f8 Initial revision claus parents: diff changeset	1971	"read ahead for next line starting with aString;
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1972	return the line-string if found, or nil if EOF is encountered.
514c749165c3 * empty log message * claus parents: 108 diff changeset	1973	If matched, not advance position behond that line
514c749165c3 * empty log message * claus parents: 108 diff changeset	1974	i.e. nextLine will read the matched line.
514c749165c3 * empty log message * claus parents: 108 diff changeset	1975	If not matched, reposition to original position for firther reading."
1 a27a279701f8 Initial revision claus parents: diff changeset	1976
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1977	\|firstPos lastPos line\|
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1978
1 a27a279701f8 Initial revision claus parents: diff changeset	1979	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
a27a279701f8 Initial revision claus parents: diff changeset	1980	filePointer isNil ifTrue:[^ self errorNotOpen].
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1981	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	1982	buffered ifFalse:[^ self errorNotBuffered].
12 8e03bd717355 * empty log message * claus parents: 10 diff changeset	1983
8e03bd717355 * empty log message * claus parents: 10 diff changeset	1984	%{ /* STACK: 2000 */
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1985	#ifndef NO_STDIO
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1986
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1987	FILEPOINTER f;
1 a27a279701f8 Initial revision claus parents: diff changeset	1988	int l;
12 8e03bd717355 * empty log message * claus parents: 10 diff changeset	1989	char buffer[1024];
1 a27a279701f8 Initial revision claus parents: diff changeset	1990	char *cp;
a27a279701f8 Initial revision claus parents: diff changeset	1991	char *matchString;
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1992	int gotFirst = 0;
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1993	#ifdef __VMS__
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1994	fpos_t firstpos, lastpos;
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1995	# define FTELL(__f__, __pos__) fgetpos(__f__, &(__pos__))
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1996	# define FSEEK(__f__, __pos__) fsetpos(__f__, &(__pos__))
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1997	#else
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1998	long firstpos, lastpos;
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	1999	# define FTELL(__f__, __pos__) __pos__ = ftell(__f__)
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2000	# define FSEEK(__f__, __pos__) fseek(__f__, __pos__, SEEK_SET)
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2001	#endif
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2002
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2003	__INST(lastErrorNumber) = nil;
54 06dbdeeed4f9 * empty log message * claus parents: 44 diff changeset	2004	if (__isString(aString)) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2005	matchString = (char *) __stringVal(aString);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2006	l = __stringSize(aString);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2007
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2008	f = __FILEVal(__INST(filePointer));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2009	__READING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2010
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2011	for (;;) {
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2012	FTELL(f, lastpos);
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2013	if (!gotFirst) {
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2014	firstpos = lastpos;
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2015	gotFirst = 1;
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2016	}
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2017
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2018	__BEGIN_INTERRUPTABLE__
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2019	do {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2020	cp = fgets(buffer, sizeof(buffer)-1, f);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2021	} while ((cp == NULL) && ferror(f) && (errno == EINTR) && (clearerr(f), 1));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2022	buffer[sizeof(buffer)-1] = '\0';
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2023	__END_INTERRUPTABLE__
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2024
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2025	if (cp == NULL) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2026	if (ferror(f)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2027	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2028	goto err;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2029	} else {
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2030	FSEEK(f, firstpos);
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2031	RETURN (nil);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2032	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2033	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2034	if (strncmp(cp, matchString, l) == 0) {
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2035	FSEEK(f, lastpos);
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2036	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2037	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2038	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2039	/* remove EOL character */
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2040	cp = buffer;
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2041	while (cp && (cp != '\n') && (*cp != '\r')) cp++;
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2042	*cp = '\0';
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2043	RETURN ( __MKSTRING(buffer) );
1 a27a279701f8 Initial revision claus parents: diff changeset	2044	}
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	2045	err: ;
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2046
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2047	# undef FTELL
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2048	# undef FSEEK
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2049
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2050	#endif
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	2051	%}.
514c749165c3 * empty log message * claus parents: 108 diff changeset	2052	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	2053
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2054	"/ 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	2055
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2056	firstPos := self position.
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2057	[self atEnd] whileFalse:[
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2058	lastPos := self position.
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2059	line := self nextLine.
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2060	line isNil ifTrue:[
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2061	self position:firstPos.
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2062	^ nil
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2063	].
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2064	(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	2065	self position:lastPos.
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2066	^ line
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2067	]
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2068	].
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2069	self position:firstPos.
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2070	^ nil
1 a27a279701f8 Initial revision claus parents: diff changeset	2071	!
a27a279701f8 Initial revision claus parents: diff changeset	2072
a27a279701f8 Initial revision claus parents: diff changeset	2073	peekForLineStartingWithAny:aCollectionOfStrings
a27a279701f8 Initial revision claus parents: diff changeset	2074	"read ahead for next line starting with any of aCollectionOfStrings;
a27a279701f8 Initial revision claus parents: diff changeset	2075	return the index in aCollection if found, nil otherwise..
a27a279701f8 Initial revision claus parents: diff changeset	2076	If no match, do not change position; otherwise advance right before the
a27a279701f8 Initial revision claus parents: diff changeset	2077	matched line so that nextLine will return this line."
a27a279701f8 Initial revision claus parents: diff changeset	2078
a27a279701f8 Initial revision claus parents: diff changeset	2079	\|line startPos linePos index\|
a27a279701f8 Initial revision claus parents: diff changeset	2080
a27a279701f8 Initial revision claus parents: diff changeset	2081	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
a27a279701f8 Initial revision claus parents: diff changeset	2082	filePointer isNil ifTrue:[^ self errorNotOpen].
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	2083	binary ifTrue:[^ self errorBinary].
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	2084
1 a27a279701f8 Initial revision claus parents: diff changeset	2085	startPos := self position.
a27a279701f8 Initial revision claus parents: diff changeset	2086	[self atEnd] whileFalse:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2087	linePos := self position.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2088	line := self nextLine.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2089	line notNil ifTrue:[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2090	index := 1.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2091	aCollectionOfStrings do:[:prefix \|
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2092	(line startsWith:prefix) ifTrue:[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2093	self position:linePos.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2094	^ index
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2095	].
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2096	index := index + 1
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2097	]
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2098	]
1 a27a279701f8 Initial revision claus parents: diff changeset	2099	].
a27a279701f8 Initial revision claus parents: diff changeset	2100	self position:startPos.
a27a279701f8 Initial revision claus parents: diff changeset	2101	^ nil
a27a279701f8 Initial revision claus parents: diff changeset	2102	! !
a27a279701f8 Initial revision claus parents: diff changeset	2103
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2104	!ExternalStream methodsFor:'misc functions'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2105
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2106	async:aBoolean
779 0e41a665038a commentary Claus Gittinger <cg@exept.de> parents: 730 diff changeset	2107	"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	2108	the receiver will trigger an ioInterrupt.
779 0e41a665038a commentary Claus Gittinger <cg@exept.de> parents: 730 diff changeset	2109	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	2110	Notice:
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2111	not every OS supports this
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2112	- check with OS>>supportsIOInterrupts before using"
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	2113
0c73b48551ac * empty log message * claus parents: 88 diff changeset	2114	\|fd\|
0c73b48551ac * empty log message * claus parents: 88 diff changeset	2115
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	2116	filePointer isNil ifTrue:[^ self errorNotOpen].
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2117
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2118	OperatingSystem supportsIOInterrupts ifFalse:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2119	^ self errorUnsupportedOperation
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2120	].
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2121
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	2122	fd := self fileDescriptor.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2123	aBoolean ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2124	^ OperatingSystem enableIOInterruptsOn:fd
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2125	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2126	^ OperatingSystem disableIOInterruptsOn:fd
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2127
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2128	"Modified: 11.1.1997 / 17:50:21 / cg"
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	2129	!
0c73b48551ac * empty log message * claus parents: 88 diff changeset	2130
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2131	backStep
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2132	"step back one element -
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2133	redefined, since position is redefined here"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2134
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2135	self position:(self position - 1)
362 4131e87e79ec . claus parents: 360 diff changeset	2136	!
4131e87e79ec . claus parents: 360 diff changeset	2137
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2138	blocking:aBoolean
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2139	"set/clear the blocking attribute - if set (which is the default)
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2140	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	2141	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	2142	nil.
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2143	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	2144	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	2145	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	2146	methods, in order to avoid other (pastEnd) exceptions."
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	2147
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	2148	filePointer isNil ifTrue:[^ self errorNotOpen].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2149	^ 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	2150
3174 668414a73de9 Typo in comment Stefan Vogel <sv@exept.de> parents: 3132 diff changeset	2151	"Modified: / 11.1.1997 / 17:48:01 / cg"
668414a73de9 Typo in comment Stefan Vogel <sv@exept.de> parents: 3132 diff changeset	2152	"Modified: / 15.1.1998 / 11:49:48 / stefan"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2153	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2154
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2155	close
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2156	"close the stream - tell operating system"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2157
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2158	filePointer isNil ifTrue:[^ self].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2159	Lobby unregister:self.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2160	self closeFile.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2161	filePointer := nil
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2162	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2163
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2164	create
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2165	"create the stream
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2166	- this must be redefined in subclass"
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	^ self subclassResponsibility
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2169	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2170
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2171	ioctl:ioctlNumber
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2172	"to provide a simple ioctl facility - an ioctl is performed
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2173	on the underlying file; no arguments are passed."
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	^ self ioctl:ioctlNumber with:nil
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2176	!
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2177
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2178	ioctl:ioctlNumber with:arg
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2179	"to provide a simple ioctl facility - an ioctl is performed
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2180	on the underlying file; the argument is passed as argument.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2181	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	2182	- for example, to control proprietrary I/O devices.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2183
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2184	Since the type of the argument depends on the ioctl being
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2185	performed, different arg types are allowed here.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2186	If the argument is nil, an ioctl without argument is performed.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2187	If the argument is an integral number, its directly passed;
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2188	if its a kind of ByteArray (ByteArray, String or Structure),
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2189	or external data (ExternalBytes or ExternalAddress),
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2190	a pointer to the data is passed.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2191	This allows performing most ioctls
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2192	- however, it might be tricky to setup the buffer.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2193	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	2194
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	2195	%{
2896 be30640b9012 VMS stuff Claus Gittinger <cg@exept.de> parents: 2875 diff changeset	2196	#if !defined(MSDOS_LIKE)
be30640b9012 VMS stuff Claus Gittinger <cg@exept.de> parents: 2875 diff changeset	2197	# 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	2198	FILEPOINTER f;
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2199	int ret, ioNum;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2200	OBJ fp;
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2201	INT ioArg;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2202
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2203	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2204	if ((fp = __INST(filePointer)) != nil) {
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2205	if (__isSmallInteger(ioctlNumber)
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2206	&& (__isSmallInteger(arg)
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2207	\|\| (arg == nil)
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2208	\|\| __isBytes(arg)
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2209	\|\| __isExternalBytes(arg)
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2210	\|\| __isExternalAddress(arg))) {
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2211	f = __FILEVal(fp);
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2212	ioNum = __intVal(ioctlNumber);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2213
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2214	__BEGIN_INTERRUPTABLE__
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2215	do {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2216	errno = 0;
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2217	if (arg == nil) {
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2218	ioArg = 0;
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2219	} else if (__isSmallInteger(arg)) {
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2220	ioArg = __intVal(arg);
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2221	} else if (__isExternalBytes(arg)) {
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2222	ioArg = (INT)(__externalBytesAddress(arg));
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2223	} else if (__isExternalAddress(arg)) {
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2224	ioArg = (INT)(__externalAddressVal(arg));
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2225	} else {
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2226	ioArg = (INT)(__ByteArrayInstPtr(arg)->ba_element);
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2227	}
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2228	ret = ioctl(fileno(f), ioNum, ioArg);
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2229	} while ((ret < 0) && (errno == EINTR));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2230	__END_INTERRUPTABLE__
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2231
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2232	if (ret >= 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2233	RETURN ( __MKSMALLINT(ret) );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2234	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2235	__INST(position) = nil;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2236	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2237	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2238	}
2896 be30640b9012 VMS stuff Claus Gittinger <cg@exept.de> parents: 2875 diff changeset	2239	# endif
791 b1c153b1c719 WIN32 has no ioctl Claus Gittinger <cg@exept.de> parents: 779 diff changeset	2240	#endif
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2241	%}.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2242	lastErrorNumber notNil ifTrue:[^ self ioError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2243	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2244	"
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2245	argument is not an integer
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2246	"
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2247	(ioctlNumber isMemberOf:SmallInteger) ifFalse:[^ self primitiveFailed].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2248	"
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2249	the system does not support ioctl (MSDOS or VMS)
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2250	"
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2251	^ self errorUnsupportedOperation
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	open
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2255	"open the stream
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2256	- this must be redefined in subclass"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2257
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2258	^ self subclassResponsibility
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2259	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2260
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2261	position
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2262	"return the position
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2263	- this must be redefined in subclass"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2264
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2265	^ self subclassResponsibility
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2266	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2267
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2268	position:anInteger
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2269	"set the position
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2270	- this must be redefined in subclass"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2271
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2272	^ self subclassResponsibility
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2273	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2274
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2275	reset
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2276	"set the read position to the beginning of the collection"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2277
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2278	self position:"0" 1
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2279	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2280
1044 c2fb3818e097 ExtSTream>>next: did not work correct if interrupted. Stefan Vogel <sv@exept.de> parents: 971 diff changeset	2281	setToEnd
c2fb3818e097 ExtSTream>>next: did not work correct if interrupted. Stefan Vogel <sv@exept.de> parents: 971 diff changeset	2282	"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	2283
c2fb3818e097 ExtSTream>>next: did not work correct if interrupted. Stefan Vogel <sv@exept.de> parents: 971 diff changeset	2284	^ self subclassResponsibility
c2fb3818e097 ExtSTream>>next: did not work correct if interrupted. Stefan Vogel <sv@exept.de> parents: 971 diff changeset	2285	!
c2fb3818e097 ExtSTream>>next: did not work correct if interrupted. Stefan Vogel <sv@exept.de> parents: 971 diff changeset	2286
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2287	truncateTo:newSize
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2288	"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	2289	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	2290
1068 92fdcccf12a3 alles MIST - zurueck zu 1.89 und NOCONTEXT entfernt Claus Gittinger <cg@exept.de> parents: 1067 diff changeset	2291	%{
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2292	#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	2293	FILEPOINTER f;
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2294	OBJ fp;
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2295
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2296	if (((fp = __INST(filePointer)) != nil)
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2297	&& (__INST(mode) != @symbol(readonly))) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2298	if (__isSmallInteger(newSize)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2299	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2300
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2301	if (__INST(buffered) == true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2302	__READING__(f)
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2303	FFLUSH(f);
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2304	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	2305	}
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2306	ftruncate(fileno(f), __intVal(newSize));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2307	RETURN (self);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2308	}
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2309	}
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2310	#endif
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2311	%}.
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	2312	filePointer isNil ifTrue:[self errorNotOpen. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	2313	(mode == #readonly) ifTrue:[self errorReadOnly. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	2314	self errorUnsupportedOperation
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2315
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2316	"
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2317	\|s\|
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2318
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2319	s := 'test' asFilename writeStream.
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2320	s next:1000 put:$a.
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2321	s truncateTo:100.
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2322	s close.
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2323
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2324	('test' asFilename fileSize) printNL
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2325	"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2326	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2327
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2328	!ExternalStream methodsFor:'non homogenous reading'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2329
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2330	nextAvailableBytes:count into:anObject startingAt:start
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2331	"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	2332	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	2333	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	2334
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2335	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	2336	is raised if the connection is broken.
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	Notice, that in contrast to other methods,
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2339	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	2340	Thus allowing read of partial blocks.
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2341
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2342	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	2343	(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	2344	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	2345	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	2346
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2347	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	2348	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	2349	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	2350
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2351	%{
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2352	FILEPOINTER f;
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2353	int cnt, offs, ret, _buffered;
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2354	int objSize, nInstVars, nInstBytes;
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2355	char *cp;
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2356	char *extPtr;
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2357	OBJ pos, fp, oClass;
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2358	int o_offs;
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2359
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2360	__INST(lastErrorNumber) = nil;
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2361	if (((fp = __INST(filePointer)) != nil)
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2362	&& (__INST(mode) != @symbol(writeonly))
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2363	&& __bothSmallInteger(count, start)
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2364	) {
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2365	f = __FILEVal(fp);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2366
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2367	cnt = __intVal(count);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2368	offs = __intVal(start) - 1;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2369
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2370	oClass = __Class(anObject);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2371	if (oClass == ExternalBytes) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2372	OBJ sz;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2373
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2374	nInstBytes = 0;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2375	extPtr = (char *)(__externalBytesAddress(anObject));
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2376	sz = __externalBytesSize(anObject);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2377	if (__isSmallInteger(sz)) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2378	objSize = __intVal(sz);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2379	} else {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2380	objSize = 0; /* unknown */
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2381	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2382	} else {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2383	switch (__intVal(__ClassInstPtr(oClass)->c_flags) & ARRAYMASK) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2384	case BYTEARRAY:
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2385	case WORDARRAY:
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2386	case LONGARRAY:
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2387	case SWORDARRAY:
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2388	case SLONGARRAY:
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2389	case FLOATARRAY:
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2390	case DOUBLEARRAY:
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2391	break;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2392	default:
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2393	goto bad;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2394	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2395	extPtr = (char *)0;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2396	nInstVars = __intVal(__ClassInstPtr(oClass)->c_ninstvars);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2397	nInstBytes = OHDR_SIZE + __OBJS2BYTES__(nInstVars);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2398	objSize = __Size(anObject) - nInstBytes;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2399	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2400
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2401	if ((offs >= 0) && (cnt >= 0) && (objSize >= (cnt + offs))) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2402	_buffered = (__INST(buffered) == true);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2403	if (_buffered) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2404	__READING__(f);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2405	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2406
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2407	if (extPtr) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2408	__READAVAILBYTES__(ret, f, extPtr+offs, cnt, _buffered);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2409	} else {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2410	/*
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2411	* on interrupt, anObject may be moved to another location.
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2412	* So we pass (char *)__InstPtr(anObject) + nInstBytes + offs to the macro __READ_BYTES__,
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2413	* to get a new address.
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2414	*/
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2415	offs += nInstBytes;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2416	__READAVAILBYTES_OBJ__(ret, f, anObject, offs, cnt, _buffered);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2417	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2418	if (ret > 0) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2419	pos = __INST(position);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2420	if (pos != nil) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2421	__INST(position) = __MKSMALLINT(__intVal(pos) + ret);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2422	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2423	RETURN (__MKSMALLINT(ret));
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2424	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2425	if (ret == 0) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2426	__INST(hitEOF) = true;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2427	} else /* ret < 0 */ {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2428	__INST(position) = nil;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2429	__INST(lastErrorNumber) = __MKSMALLINT(errno);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2430	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2431	}
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2432	}
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2433	bad: ;
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2434	%}.
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2435	(hitEOF and:[self pastEnd isNil]) ifTrue:[^ 0].
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2436	lastErrorNumber notNil ifTrue:[^ self readError].
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2437	filePointer isNil ifTrue:[^ self errorNotOpen].
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2438	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2439	"
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2440	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	2441	"
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2442	^ self primitiveFailed
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2443	!
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2444
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2445	nextByte
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2446	"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	2447	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	2448	bytes binary value as an integer in 0..255."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2449
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	2450	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2451	FILEPOINTER f;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2452	unsigned char byte;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2453	int ret, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2454	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2455
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2456	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2457	if (((fp = __INST(filePointer)) != nil)
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2458	&& (__INST(mode) != @symbol(writeonly))) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2459	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2460
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2461	_buffered = (__INST(buffered) == true);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2462	if (_buffered) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2463	__READING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2464	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2465	__READBYTE__(ret, f, &byte, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2466	if (ret > 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2467	if (__INST(position) != nil)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2468	__INST(position) = __MKSMALLINT(__intVal(__INST(position)) + 1);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2469	RETURN (__MKSMALLINT(byte));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2470	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2471
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2472	if (ret == 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2473	__INST(hitEOF) = true;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2474	} else /* ret < 0 */ {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2475	__INST(position) = nil;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2476	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2477	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2478	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2479	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	2480	hitEOF ifTrue:[^ self pastEnd].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2481	lastErrorNumber notNil ifTrue:[^ self readError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2482	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2483	^ self errorWriteOnly
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2484	!
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	nextBytes:count into:anObject startingAt:start
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2487	"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	2488	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	2489	If the receiver is some socket/pipe-like stream, an exception
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2490	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	2491
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2492	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	2493	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	2494	to only read whats there.
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2495
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2496	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	2497	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	2498	Thus allowing read of partial blocks.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2499
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2500	The object must have non-pointer indexed instvars
3432 1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2501	(i.e. it must be a ByteArray, String, Float- or DoubleArray),
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2502	or an externalBytes object (with known size).
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2503	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	2504	fastest possible physical I/O (since no new objects are allocated).
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2505
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2506	Use with care - non object oriented I/O.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2507	Warning: in general, you cannot use this method to pass data from other
3432 1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2508	architectures (unless you prepared the buffer with care),
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2509	since it does not care for byte order or float representation."
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2510
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 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;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2513	int cnt, offs, ret, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2514	int objSize, nInstVars, nInstBytes;
3432 1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2515	char *extPtr;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2516	OBJ pos, fp, oClass;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2517
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2518	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2519	if (((fp = __INST(filePointer)) != nil)
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2520	&& (__INST(mode) != @symbol(writeonly))
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2521	&& __bothSmallInteger(count, start)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2522	) {
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2523	f = __FILEVal(fp);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2524
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2525	cnt = __intVal(count);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2526	offs = __intVal(start) - 1;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2527
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2528	oClass = __Class(anObject);
3432 1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2529	if (oClass == ExternalBytes) {
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2530	OBJ sz;
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2531
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2532	nInstBytes = 0;
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2533	extPtr = (char *)(__externalBytesAddress(anObject));
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2534	sz = __externalBytesSize(anObject);
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2535	if (__isSmallInteger(sz)) {
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2536	objSize = __intVal(sz);
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2537	} else {
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2538	objSize = 0; /* unknown */
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2539	}
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2540	} else {
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2541	switch (__intVal(__ClassInstPtr(oClass)->c_flags) & ARRAYMASK) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2542	case BYTEARRAY:
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2543	case WORDARRAY:
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2544	case LONGARRAY:
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2545	case SWORDARRAY:
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2546	case SLONGARRAY:
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2547	case FLOATARRAY:
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2548	case DOUBLEARRAY:
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2549	break;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2550	default:
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2551	goto bad;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2552	}
3432 1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2553	extPtr = (char *)0;
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2554	nInstVars = __intVal(__ClassInstPtr(oClass)->c_ninstvars);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2555	nInstBytes = OHDR_SIZE + __OBJS2BYTES__(nInstVars);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2556	objSize = __Size(anObject) - nInstBytes;
3432 1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2557	}
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2558	if ((offs >= 0) && (cnt >= 0) && (objSize >= (cnt + offs))) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2559	_buffered = (__INST(buffered) == true);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2560	if (_buffered) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2561	__READING__(f);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2562	}
2861 c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2563
3432 1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2564	if (extPtr) {
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2565	__READBYTES__(ret, f, extPtr+offs, cnt, _buffered);
3432 1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2566	} else {
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2567	/*
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2568	* on interrupt, anObject may be moved to another location.
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2569	* So we pass anObject, and the offset to the __READBYTES_OBJ__ macro.
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2570	*/
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2571	offs += nInstBytes;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2572	__READBYTES_OBJ__(ret, f, anObject, offs, cnt, _buffered);
3432 1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2573	}
2861 c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2574
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2575	if (ret > 0) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2576	pos = __INST(position);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2577	if (pos != nil) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2578	__INST(position) = __MKSMALLINT(__intVal(pos) + ret);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2579	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2580	RETURN (__MKSMALLINT(ret));
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2581	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2582	if (ret == 0) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2583	__INST(hitEOF) = true;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2584	} else /* ret < 0 */ {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2585	__INST(position) = nil;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2586	__INST(lastErrorNumber) = __MKSMALLINT(errno);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2587	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2588	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2589	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2590	bad: ;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2591	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	2592	(hitEOF and:[self pastEnd isNil]) ifTrue:[^ 0].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2593	lastErrorNumber notNil ifTrue:[^ self readError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2594	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2595	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
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	count not integer or arg not bit-like (String, ByteArray etc)
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2598	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2599	^ self primitiveFailed
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	2600	!
0c73b48551ac * empty log message * claus parents: 88 diff changeset	2601
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2602	nextLong
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2603	"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	2604	The returned value may be a LargeInteger.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2605	(msb-first for compatibility with other smalltalks)"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2606
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2607	^ self nextUnsignedLongMSB:true
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2608	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2609
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2610	nextLongMSB:msbFlag
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2611	"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	2612	which may be a LargeInteger.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2613	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	2614	otherwise least-significant byte comes first.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2615	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	2616	Works in both binary and text modes."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2617
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	2618	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2619	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2620
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2621	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2622	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2623	&& (__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	2624	) {
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2625	FILEPOINTER f;
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2626	int ret;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2627	int value;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2628	char buffer[4];
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2629
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2630	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2631	__READBYTES__(ret, f, buffer, 4, __INST(buffered) == true);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2632
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2633	if (ret == 4) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2634	if (__INST(position) != nil) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2635	__INST(position) = __MKSMALLINT(__intVal(__INST(position)) + 4);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2636	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2637	if (msbFlag == true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2638	value = (buffer[0] & 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[2] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2641	value = (value << 8) \| (buffer[3] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2642	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2643	value = (buffer[3] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2644	value = (value << 8) \| (buffer[2] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2645	value = (value << 8) \| (buffer[1] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2646	value = (value << 8) \| (buffer[0] & 0xFF);
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 ((value >= _MIN_INT) && (value <= _MAX_INT)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2649	RETURN ( __MKSMALLINT(value));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2650	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2651	RETURN ( __MKLARGEINT(value) );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2652	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2653
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2654	if (ret < 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2655	__INST(position) = nil;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2656	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2657	} else /* ret == 0 */ {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2658	__INST(hitEOF) = true;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2659	}
612 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	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	2662	hitEOF ifTrue:[^ self pastEnd].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2663	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2664	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2665	^ self readError.
1079 d47cd86b487b Make methods signal-proof. Stefan Vogel <sv@exept.de> parents: 1068 diff changeset	2666
362 4131e87e79ec . claus parents: 360 diff changeset	2667	!
4131e87e79ec . claus parents: 360 diff changeset	2668
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2669	nextShortMSB:msbFlag
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2670	"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	2671	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	2672	otherwise least-significant byte comes first.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2673	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	2674	Works in both binary and text modes."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2675
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	2676	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2677	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2678
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2679	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2680	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2681	&& (__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	2682	) {
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2683	FILEPOINTER f;
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2684	int ret;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2685	short value;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2686	char buffer[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	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2689	__READBYTES__(ret, f, buffer, 2, __INST(buffered) == true);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2690
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2691	if (ret == 2) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2692	if (__INST(position) != nil) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2693	__INST(position) = __MKSMALLINT(__intVal(__INST(position)) + 2);
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	if (msbFlag == true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2696	value = ((buffer[0] & 0xFF) << 8) \| (buffer[1] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2697	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2698	value = ((buffer[1] & 0xFF) << 8) \| (buffer[0] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2699	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2700	RETURN (__MKSMALLINT(value));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2701	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2702
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2703	if (ret < 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2704	__INST(position) = nil;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2705	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2706	} else /* ret == 0 */ {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2707	__INST(hitEOF) = true;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2708	}
612 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	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	2711	hitEOF ifTrue:[^ self pastEnd].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2712	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2713	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2714	^ self readError.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2715	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2716
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2717	nextUnsignedLongMSB:msbFlag
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2718	"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	2719	a LargeInteger.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2720	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	2721	least-significant byte comes first.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2722	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	2723	Works in both binary and text modes."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2724
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	2725	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2726	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2727
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2728	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2729	if (((fp = __INST(filePointer)) != nil)
3456 0cdf451360b9 oops - nextUnsignedLong:MSB: on alpha. Claus Gittinger <cg@exept.de> parents: 3445 diff changeset	2730	&& (__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	2731	) {
3456 0cdf451360b9 oops - nextUnsignedLong:MSB: on alpha. Claus Gittinger <cg@exept.de> parents: 3445 diff changeset	2732	FILEPOINTER f;
0cdf451360b9 oops - nextUnsignedLong:MSB: on alpha. Claus Gittinger <cg@exept.de> parents: 3445 diff changeset	2733	int ret;
0cdf451360b9 oops - nextUnsignedLong:MSB: on alpha. Claus Gittinger <cg@exept.de> parents: 3445 diff changeset	2734	unsigned INT value;
0cdf451360b9 oops - nextUnsignedLong:MSB: on alpha. Claus Gittinger <cg@exept.de> parents: 3445 diff changeset	2735	unsigned char buffer[4];
0cdf451360b9 oops - nextUnsignedLong:MSB: on alpha. Claus Gittinger <cg@exept.de> parents: 3445 diff changeset	2736
0cdf451360b9 oops - nextUnsignedLong:MSB: on alpha. Claus Gittinger <cg@exept.de> parents: 3445 diff changeset	2737	f = __FILEVal(fp);
0cdf451360b9 oops - nextUnsignedLong:MSB: on alpha. Claus Gittinger <cg@exept.de> parents: 3445 diff changeset	2738	__READBYTES__(ret, f, buffer, 4, __INST(buffered) == true);
0cdf451360b9 oops - nextUnsignedLong:MSB: on alpha. Claus Gittinger <cg@exept.de> parents: 3445 diff changeset	2739
0cdf451360b9 oops - nextUnsignedLong:MSB: on alpha. Claus Gittinger <cg@exept.de> parents: 3445 diff changeset	2740	if (ret == 4) {
0cdf451360b9 oops - nextUnsignedLong:MSB: on alpha. Claus Gittinger <cg@exept.de> parents: 3445 diff changeset	2741	if (__INST(position) != nil) {
0cdf451360b9 oops - nextUnsignedLong:MSB: on alpha. Claus Gittinger <cg@exept.de> parents: 3445 diff changeset	2742	__INST(position) = __MKSMALLINT(__intVal(__INST(position)) + 4);
0cdf451360b9 oops - nextUnsignedLong:MSB: on alpha. Claus Gittinger <cg@exept.de> parents: 3445 diff changeset	2743	}
0cdf451360b9 oops - nextUnsignedLong:MSB: on alpha. Claus Gittinger <cg@exept.de> parents: 3445 diff changeset	2744	if (msbFlag == true) {
0cdf451360b9 oops - nextUnsignedLong:MSB: on alpha. Claus Gittinger <cg@exept.de> parents: 3445 diff changeset	2745	value = (buffer[0] & 0xFF);
0cdf451360b9 oops - nextUnsignedLong:MSB: on alpha. Claus Gittinger <cg@exept.de> parents: 3445 diff changeset	2746	value = (value << 8) \| (buffer[1] & 0xFF);
0cdf451360b9 oops - nextUnsignedLong:MSB: on alpha. Claus Gittinger <cg@exept.de> parents: 3445 diff changeset	2747	value = (value << 8) \| (buffer[2] & 0xFF);
0cdf451360b9 oops - nextUnsignedLong:MSB: on alpha. Claus Gittinger <cg@exept.de> parents: 3445 diff changeset	2748	value = (value << 8) \| (buffer[3] & 0xFF);
0cdf451360b9 oops - nextUnsignedLong:MSB: on alpha. Claus Gittinger <cg@exept.de> parents: 3445 diff changeset	2749	} else {
0cdf451360b9 oops - nextUnsignedLong:MSB: on alpha. Claus Gittinger <cg@exept.de> parents: 3445 diff changeset	2750	value = (buffer[3] & 0xFF);
0cdf451360b9 oops - nextUnsignedLong:MSB: on alpha. Claus Gittinger <cg@exept.de> parents: 3445 diff changeset	2751	value = (value << 8) \| (buffer[2] & 0xFF);
0cdf451360b9 oops - nextUnsignedLong:MSB: on alpha. Claus Gittinger <cg@exept.de> parents: 3445 diff changeset	2752	value = (value << 8) \| (buffer[1] & 0xFF);
0cdf451360b9 oops - nextUnsignedLong:MSB: on alpha. Claus Gittinger <cg@exept.de> parents: 3445 diff changeset	2753	value = (value << 8) \| (buffer[0] & 0xFF);
0cdf451360b9 oops - nextUnsignedLong:MSB: on alpha. Claus Gittinger <cg@exept.de> parents: 3445 diff changeset	2754	}
0cdf451360b9 oops - nextUnsignedLong:MSB: on alpha. Claus Gittinger <cg@exept.de> parents: 3445 diff changeset	2755	#ifdef alpha64
0cdf451360b9 oops - nextUnsignedLong:MSB: on alpha. Claus Gittinger <cg@exept.de> parents: 3445 diff changeset	2756	value &= 0xFFFFFFFF;
0cdf451360b9 oops - nextUnsignedLong:MSB: on alpha. Claus Gittinger <cg@exept.de> parents: 3445 diff changeset	2757	#endif
0cdf451360b9 oops - nextUnsignedLong:MSB: on alpha. Claus Gittinger <cg@exept.de> parents: 3445 diff changeset	2758	if (value <= _MAX_INT) {
0cdf451360b9 oops - nextUnsignedLong:MSB: on alpha. Claus Gittinger <cg@exept.de> parents: 3445 diff changeset	2759	RETURN ( __MKSMALLINT(value));
0cdf451360b9 oops - nextUnsignedLong:MSB: on alpha. Claus Gittinger <cg@exept.de> parents: 3445 diff changeset	2760	}
0cdf451360b9 oops - nextUnsignedLong:MSB: on alpha. Claus Gittinger <cg@exept.de> parents: 3445 diff changeset	2761	RETURN ( __MKULARGEINT(value) );
0cdf451360b9 oops - nextUnsignedLong:MSB: on alpha. Claus Gittinger <cg@exept.de> parents: 3445 diff changeset	2762	}
0cdf451360b9 oops - nextUnsignedLong:MSB: on alpha. Claus Gittinger <cg@exept.de> parents: 3445 diff changeset	2763
0cdf451360b9 oops - nextUnsignedLong:MSB: on alpha. Claus Gittinger <cg@exept.de> parents: 3445 diff changeset	2764	if (ret < 0) {
0cdf451360b9 oops - nextUnsignedLong:MSB: on alpha. Claus Gittinger <cg@exept.de> parents: 3445 diff changeset	2765	__INST(position) = nil;
0cdf451360b9 oops - nextUnsignedLong:MSB: on alpha. Claus Gittinger <cg@exept.de> parents: 3445 diff changeset	2766	__INST(lastErrorNumber) = __MKSMALLINT(errno);
0cdf451360b9 oops - nextUnsignedLong:MSB: on alpha. Claus Gittinger <cg@exept.de> parents: 3445 diff changeset	2767	} else /* ret == 0 */ {
0cdf451360b9 oops - nextUnsignedLong:MSB: on alpha. Claus Gittinger <cg@exept.de> parents: 3445 diff changeset	2768	__INST(hitEOF) = true;
0cdf451360b9 oops - nextUnsignedLong:MSB: on alpha. Claus Gittinger <cg@exept.de> parents: 3445 diff changeset	2769	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2770	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2771	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	2772	hitEOF ifTrue:[^ self pastEnd].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2773	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2774	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2775	^ self readError.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2776	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2777
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2778	nextUnsignedShortMSB:msbFlag
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2779	"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	2780	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	2781	otherwise least-significant byte comes first.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2782	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	2783	Works in both binary and text modes."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2784
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	2785	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2786	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2787
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2788	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2789	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2790	&& (__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	2791	) {
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2792	FILEPOINTER f;
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2793	int ret;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2794	unsigned int value;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2795	char buffer[2];
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2796
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2797	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2798	__READBYTES__(ret, f, buffer, 2, __INST(buffered) == true);
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	if (ret == 2) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2801	if (__INST(position) != nil) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2802	__INST(position) = __MKSMALLINT(__intVal(__INST(position)) + 2);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2803	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2804	if (msbFlag == true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2805	value = ((buffer[0] & 0xFF) << 8) \| (buffer[1] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2806	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2807	value = ((buffer[1] & 0xFF) << 8) \| (buffer[0] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2808	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2809	RETURN (__MKSMALLINT(value));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2810	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2811
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2812	if (ret < 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2813	__INST(position) = nil;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2814	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2815	} else /* ret == 0 */ {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2816	__INST(hitEOF) = true;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2817	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2818	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2819	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	2820	hitEOF ifTrue:[^ self pastEnd].
612 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 == #writeonly) ifTrue:[^ self errorWriteOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2823	^ self readError.
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	nextWord
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2827	"in text-mode:
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2828	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	2829	return a string containing those characters.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2830	in binary-mode:
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2831	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	2832	unsigned Integer (for compatibility with other smalltalks)"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2833
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2834	binary ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2835	^ self nextUnsignedShortMSB:true
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	2836	].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2837	^ self nextAlphaNumericWord
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2838	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2839
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2840	!ExternalStream methodsFor:'non homogenous writing'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2841
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2842	nextPutByte:aByteValue
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2843	"write a byte.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2844	Works in both binary and text modes."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2845
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	2846	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2847	FILEPOINTER f;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2848	char c;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2849	OBJ pos, fp;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2850	int cnt, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2851
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2852	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2853	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2854	&& (__INST(mode) != @symbol(readonly))
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2855	&& __isSmallInteger(aByteValue)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2856
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2857	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2858	c = __intVal(aByteValue);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2859	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2860	if (_buffered = (__INST(buffered) == true)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2861	__WRITING__(f)
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	__WRITEBYTE__(cnt, f, &c, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2864	if (cnt == 1) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2865	pos = __INST(position);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2866	if (pos != nil)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2867	__INST(position) = __MKSMALLINT(__intVal(pos) + 1);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2868	RETURN (self);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2869	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2870	__INST(lastErrorNumber) = __MKSMALLINT(errno);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2871	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2872	%}.
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	2873	filePointer isNil ifTrue:[self errorNotOpen. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	2874	(mode == #readonly) ifTrue:[self errorReadOnly. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	2875	self writeError.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2876	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2877
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2878	nextPutBytes:count from:anObject startingAt:start
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2879	"write count bytes from an object starting at index start.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2880	return the number of bytes written - which could be 0.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2881	The object must have non-pointer indexed instvars
3432 1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2882	(i.e. be a ByteArray, String, Float- or DoubleArray),
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2883	or an externalBytes object (with known size).
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2884
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2885	Use with care - non object oriented i/o.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2886	Warning: in general, you cannot use this method to pass data to other
3432 1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2887	architectures (unless you prepared the buffer with care),
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2888	since it does not care for byte order or float representation."
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2889
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	2890	%{
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, len, offs, ret;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2893	int objSize, nInstVars, nInstBytes, _buffered;
3432 1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2894	char *extPtr;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2895	OBJ oClass, pos, fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2896
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2897	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2898	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2899	&& (__INST(mode) != @symbol(readonly))
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2900	&& __bothSmallInteger(count, start)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2901	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2902	len = __intVal(count);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2903	offs = __intVal(start) - 1;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2904	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2905
3432 1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2906	oClass = __Class(anObject);
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2907	if (oClass == ExternalBytes) {
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2908	OBJ sz;
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2909
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2910	nInstBytes = 0;
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2911	extPtr = (char *)__externalBytesAddress(anObject);
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2912	sz = __externalBytesSize(anObject);
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2913	if (__isSmallInteger(sz)) {
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2914	objSize = __intVal(sz);
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2915	} else {
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2916	objSize = 0; /* unknown */
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2917	}
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2918	} else {
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2919	switch (__intVal(__ClassInstPtr(oClass)->c_flags) & ARRAYMASK) {
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2920	case BYTEARRAY:
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2921	case WORDARRAY:
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2922	case LONGARRAY:
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2923	case SWORDARRAY:
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2924	case SLONGARRAY:
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2925	case FLOATARRAY:
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2926	case DOUBLEARRAY:
3432 1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2927	break;
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2928	default:
3432 1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2929	goto bad;
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2930	}
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2931	extPtr = (char *)0;
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2932	nInstVars = __intVal(__ClassInstPtr(oClass)->c_ninstvars);
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2933	nInstBytes = OHDR_SIZE + __OBJS2BYTES__(nInstVars);
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2934	objSize = __Size(anObject) - nInstBytes;
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2935	}
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2936	if ( (offs >= 0) && (len >= 0) && (objSize >= (len + offs)) ) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2937	if (_buffered = (__INST(buffered) == true)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2938	__WRITING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2939	}
3432 1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2940
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2941	if (extPtr) {
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2942	__WRITEBYTES__(cnt, f, extPtr+offs, len, _buffered);
3432 1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2943	} else {
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2944	/*
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2945	* on interrupt, anObject may be moved to another location.
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2946	* So we pass anObject, and the offset to the __WRITEBYTES_OBJ__ macro.
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2947	*/
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2948	offs += nInstBytes;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2949	__WRITEBYTES_OBJ__(cnt, f, anObject, offs, len, _buffered);
3432 1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2950	}
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2951
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2952	if (cnt >= 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2953	pos = __INST(position);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2954	if (pos != nil)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2955	__INST(position) = __MKSMALLINT(__intVal(pos) + cnt);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2956	RETURN ( __MKSMALLINT(cnt) );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2957	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2958	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2959	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2960	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2961	bad: ;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2962	%}.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2963	lastErrorNumber notNil ifTrue:[^ self writeError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2964	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2965	(mode == #readonly) ifTrue:[^ self errorReadOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2966	^ self primitiveFailed
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2967	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2968
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2969	nextPutLong:aNumber MSB:msbFlag
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2970	"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	2971	true, data is written most-significant byte first; otherwise least
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2972	first.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2973	Works in both binary and text modes."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2974
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	2975	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2976	int num;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2977	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	2978	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2979	int cnt, _buffered;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2980	OBJ fp, pos;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2981
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2982	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2983	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2984	&& (__INST(mode) != @symbol(readonly))
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2985	&& __isSmallInteger(aNumber)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2986	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2987	num = __intVal(aNumber);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2988	if (msbFlag == true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2989	bytes[0] = (num >> 24) & 0xFF;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2990	bytes[1] = (num >> 16) & 0xFF;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2991	bytes[2] = (num >> 8) & 0xFF;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2992	bytes[3] = num & 0xFF;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2993	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2994	bytes[3] = (num >> 24) & 0xFF;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2995	bytes[2] = (num >> 16) & 0xFF;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2996	bytes[1] = (num >> 8) & 0xFF;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2997	bytes[0] = num & 0xFF;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2998	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2999
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3000	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3001	if (_buffered = (__INST(buffered) == true)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3002	__WRITING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3003	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3004	__WRITEBYTES__(cnt, f, bytes, 4, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3005
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3006	if (cnt == 4) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3007	if ((pos = __INST(position)) != nil) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3008	__INST(position) = __MKSMALLINT(__intVal(pos) + 4);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3009	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3010	RETURN ( self );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3011	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3012	__INST(lastErrorNumber) = __MKSMALLINT(errno);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3013	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3014	%}.
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3015	filePointer isNil ifTrue:[self errorNotOpen. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3016	(mode == #readonly) ifTrue:[self errorReadOnly. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3017	lastErrorNumber notNil ifTrue:[self writeError. ^ self].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3018
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3019	aNumber isInteger ifTrue:[
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3020	^ super nextPutLong:aNumber MSB:msbFlag
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	3021	].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3022	self argumentMustBeInteger
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3023	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3024
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3025	nextPutShort:aNumber MSB:msbFlag
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3026	"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	3027	true, data is written most-significant byte first; otherwise least
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3028	first.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3029	Works in both binary and text modes."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3030
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	3031	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3032	int num;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3033	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	3034	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3035	int cnt, _buffered;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3036	OBJ fp, pos;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3037
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3038	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3039	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3040	&& (__INST(mode) != @symbol(readonly))
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3041	&& __isSmallInteger(aNumber)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3042	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3043	num = __intVal(aNumber);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3044	if (msbFlag == true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3045	bytes[0] = (num >> 8) & 0xFF;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3046	bytes[1] = num & 0xFF;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3047	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3048	bytes[1] = (num >> 8) & 0xFF;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3049	bytes[0] = num & 0xFF;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3050	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3051
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3052	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3053	if (_buffered = (__INST(buffered) == true)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3054	__WRITING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3055	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3056	__WRITEBYTES__(cnt, f, bytes, 2, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3057
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3058	if (cnt == 2) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3059	if ((pos = __INST(position)) != nil) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3060	__INST(position) = __MKSMALLINT(__intVal(pos) + 2);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3061	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3062	RETURN ( self );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3063	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3064	__INST(lastErrorNumber) = __MKSMALLINT(errno);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3065	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3066	%}.
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3067	lastErrorNumber notNil ifTrue:[^ self writeError. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3068	filePointer isNil ifTrue:[self errorNotOpen. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3069	(mode == #readonly) ifTrue:[self errorReadOnly. ^ self].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3070	self argumentMustBeInteger
10 4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	3071	! !
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3072
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3073	!ExternalStream methodsFor:'private'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3074
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3075	clearEOF
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3076	hitEOF := false
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3077	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3078
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	3079	connectTo:aFileDescriptor withMode:openmode
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	3080	"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	3081	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	3082	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	3083	a Stream object.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	3084	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	3085	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	3086
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	3087	\|retVal\|
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	3088
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	3089	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	3090	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	3091	FILEPOINTER f;
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	3092	OBJ fp;
2765 a56668774ad7 more alpha64 fixes Claus Gittinger <cg@exept.de> parents: 2764 diff changeset	3093	FILE *fdopen();
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	3094
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	3095	if (__isSmallInteger(aFileDescriptor)
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	3096	&& (__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	3097	f = (FILEPOINTER) fdopen(__intVal(aFileDescriptor), (char *)__stringVal(openmode));
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3098	if (f == NULL) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3099	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3100	__INST(position) = nil;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3101	} else {
3420 4dc6667afda9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3419 diff changeset	3102	__INST(filePointer) = fp = __MKFILEPOINTER(f); __STORE(self, fp);
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3103	__INST(position) = __MKSMALLINT(1);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3104	retVal = self;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3105	}
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	3106	}
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	3107	%}.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	3108	retVal notNil ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3109	buffered := true. "default is buffered"
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3110	Lobby register:self
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	3111	].
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	3112	lastErrorNumber notNil ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3113	"
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3114	the open failed for some reason ...
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3115	"
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3116	^ self openError
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	3117	].
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	3118	^ retVal
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	3119	!
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	3120
2963 17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	3121	open:aPath withMode:mode
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	3122	"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	3123	variable. Careful: this does not care for any other state."
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	3124
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	3125	\|ok\|
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	3126
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	3127	ok := false.
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	3128	%{
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	3129	FILE *f;
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	3130	OBJ fp;
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	3131
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	3132	if (__isString(aPath)) {
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3133	__BEGIN_INTERRUPTABLE__
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3134	do {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3135	f = fopen((char ) __stringVal(aPath), (char ) __stringVal(mode));
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3136	} while ((f == NULL) && (errno == EINTR));
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3137	__END_INTERRUPTABLE__
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3138	if (f == NULL) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3139	__INST(lastErrorNumber) = __MKSMALLINT(errno);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3140	} else {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3141	__INST(filePointer) = fp = __MKFILEPOINTER(f); __STORE(self, fp);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3142	ok = true;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3143	}
2963 17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	3144	}
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	3145	%}.
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	3146	ok ifFalse:[
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3147	"
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3148	the open failed for some reason ...
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3149	"
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3150	^ self openError
2963 17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	3151	].
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	3152	Lobby register:self.
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	3153	!
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	3154
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3155	reOpen
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3156	"sent after snapin to reopen streams.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3157	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	3158
2134 246a3bdab8b4 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 2120 diff changeset	3159	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	3160	filePointer := nil.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3161	Lobby unregister:self.
2134 246a3bdab8b4 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 2120 diff changeset	3162
246a3bdab8b4 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 2120 diff changeset	3163	"Modified: 10.1.1997 / 17:50:44 / cg"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3164	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3165
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3166	setLastError:aNumber
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3167	lastErrorNumber := aNumber
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3168	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3169
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3170	!ExternalStream methodsFor:'queries'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3171
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3172	isBinary
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3173	"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	3174	The default when created is false."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3175
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3176	^ binary
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3177	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3178
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3179	isExternalStream
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3180	"return true, if the receiver is some kind of externalStream;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3181	true is returned here - the method redefined from Object."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3182
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3183	^ true
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3184	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3185
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3186	isReadable
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3187	"return true, if this stream can be read from"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3188
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3189	^ (mode ~~ #writeonly)
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3190	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3191
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3192	isWritable
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3193	"return true, if this stream can be written to"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3194
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3195	^ (mode ~~ #readonly)
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
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3198	!ExternalStream methodsFor:'reading'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3199
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3200	next
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3201	"return the next element; advance read position.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3202	In binary mode, an integer is returned, otherwise a character.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3203	If there are no more elements, nil is returned."
1 a27a279701f8 Initial revision claus parents: diff changeset	3204
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	3205	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	3206	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3207	int ret, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3208	OBJ pos, fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3209	unsigned char ch;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3210
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3211	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3212	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3213	&& (__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	3214	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3215	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3216
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3217	_buffered = (__INST(buffered) == true);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3218	if (_buffered) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3219	__READING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3220	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3221	__READBYTE__(ret, f, &ch, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3222
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3223	if (ret > 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3224	pos = __INST(position);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3225	if (__isSmallInteger(pos)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3226	__INST(position) = __MKSMALLINT(__intVal(pos) + 1);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3227	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3228	__INST(position) = nil;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3229	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3230	if (__INST(binary) == true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3231	RETURN ( __MKSMALLINT(ch) );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3232	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3233	RETURN ( __MKCHARACTER(ch) );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3234	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3235
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3236	__INST(position) = nil;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3237	if (ret < 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3238	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3239	} else /* ret == 0 */ {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3240	__INST(hitEOF) = true;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3241	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3242	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3243	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	3244	hitEOF ifTrue:[^ self pastEnd].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3245	lastErrorNumber notNil ifTrue:[^ self readError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3246	filePointer isNil ifTrue:[^ self errorNotOpen].
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3247	^ self errorWriteOnly
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3248	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3249
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3250	next:count
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3251	"return the next count elements of the stream as a collection.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3252	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	3253
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	3254	\|coll nRead\|
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3255
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3256	binary ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3257	coll := ByteArray uninitializedNew:count
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3258	] ifFalse:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3259	coll := String new:count
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3260	].
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	3261	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	3262
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	3263	"/ for readStream protocol compatibility,
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	3264	"/ we must raise an exception here.
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	3265
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	3266	nRead < count ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3267	^ self pastEnd
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	3268	].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3269	^ coll
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	3270
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	3271	"Modified: 11.1.1997 / 17:44:17 / cg"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3272	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3273
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3274	peek
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3275	"return the element to be read next without advancing read position.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3276	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	3277	If there are no more elements, nil is returned."
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3278
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	3279	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	3280	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3281	unsigned char c;
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3282	int ret, _buffered;
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	3283	OBJ fp;
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	3284
3029 aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3285	if (__INST(readAhead) != nil) {
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3286	RETURN (__INST(readAhead));
3029 aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3287	}
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3288
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3289	__INST(lastErrorNumber) = nil;
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3290
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3291	if (((fp = __INST(filePointer)) != nil)
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3292	&& (__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	3293	) {
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3294	f = __FILEVal(fp);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3295	_buffered = (__INST(buffered) == true);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3296	if (_buffered) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3297	__READING__(f)
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3298	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3299	__READBYTE__(ret, f, &c, _buffered);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3300
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3301	if (ret > 0) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3302	__UNGETC__(c, f, _buffered);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3303
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3304	if (__INST(binary) == true) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3305	RETURN ( __MKSMALLINT(c) );
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3306	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3307	RETURN ( __MKCHARACTER(c) );
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3308	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3309	if (ret < 0) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3310	__INST(lastErrorNumber) = __MKSMALLINT(errno);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3311	} else /* ret == 0 */ {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3312	__INST(hitEOF) = true;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3313	}
1 a27a279701f8 Initial revision claus parents: diff changeset	3314	}
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	3315	%}.
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3316	hitEOF ifTrue:[^ self pastEnd].
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	3317	lastErrorNumber notNil ifTrue:[^ self readError].
1 a27a279701f8 Initial revision claus parents: diff changeset	3318	filePointer isNil ifTrue:[^ self errorNotOpen].
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	3319	^ self errorWriteOnly
1295 83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	3320	!
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	3321
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	3322	upToEnd
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	3323	"return a collection of the elements up-to the end.
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	3324	Return nil if the stream-end is reached before."
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	3325
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	3326	\|answerStream ch\|
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	3327
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	3328	answerStream := WriteStream on:(self contentsSpecies new).
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	3329	[self atEnd] whileFalse:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3330	ch := self next.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3331	ch notNil ifTrue:[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3332	answerStream nextPut:ch
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3333	]
1295 83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	3334	].
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	3335	^ answerStream contents
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	3336
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	3337	"Created: 25.4.1996 / 14:40:31 / cg"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3338	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3339
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3340	!ExternalStream methodsFor:'reimplemented for speed'!
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	3341
514c749165c3 * empty log message * claus parents: 108 diff changeset	3342	nextAlphaNumericWord
379 5b5a130ccd09 revision added claus parents: 372 diff changeset	3343	"read the next word (i.e. up to non letter-or-digit) after first
5b5a130ccd09 revision added claus parents: 372 diff changeset	3344	skipping any whiteSpace.
5b5a130ccd09 revision added claus parents: 372 diff changeset	3345	Return a string containing those characters.
5b5a130ccd09 revision added claus parents: 372 diff changeset	3346	There is a limit of 1023 characters in the word - if longer,
5b5a130ccd09 revision added claus parents: 372 diff changeset	3347	it is truncated."
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	3348
514c749165c3 * empty log message * claus parents: 108 diff changeset	3349	%{ /* STACK: 2000 */
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	3350	FILEPOINTER f;
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	3351	int len;
514c749165c3 * empty log message * claus parents: 108 diff changeset	3352	char buffer[1024];
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3353	unsigned char ch;
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	3354	int cnt = 0;
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3355	int ret, _buffered;
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	3356	OBJ fp;
a8abff749575 * empty log message * claus parents: 213 diff changeset	3357
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3358	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	3359	&& (__INST(mode) != @symbol(writeonly))
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3360	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3361	f = __FILEVal(fp);
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3362	_buffered = (__INST(buffered) == true);
71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3363	if (_buffered) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3364	__READING__(f)
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3365	}
2045 1ad17ca6520f fall back to super>>nextPutLine: if argument is not a string. Claus Gittinger <cg@exept.de> parents: 2044 diff changeset	3366
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3367	/*
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3368	* skip whiteSpace first ...
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3369	*/
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3370	do {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3371	__READBYTE__(ret, f, &ch, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3372	if (ret > 0)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3373	cnt++;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3374	else
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3375	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3376	} while (
379 5b5a130ccd09 revision added claus parents: 372 diff changeset	3377	#ifndef NON_ASCII
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3378	(ch < ' ') \|\|
379 5b5a130ccd09 revision added claus parents: 372 diff changeset	3379	#endif
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3380	(ch == ' ' ) \|\| (ch == '\t') \|\| (ch == '\r')
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3381	\|\| (ch == '\n') \|\| (ch == 0x0b));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3382
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3383	len = 0;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3384	while (ret > 0 &&
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3385	(((ch >= 'a') && (ch <= 'z')) \|\|
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3386	((ch >= 'A') && (ch <= 'Z')) \|\|
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3387	((ch >= '0') && (ch <= '9')))
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3388	) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3389	buffer[len++] = ch;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3390	if (len >= (sizeof(buffer)-1)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3391	/* emergency */
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3392	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3393	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3394	__READBYTE__(ret, f, &ch, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3395	if (ret > 0)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3396	cnt++;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3397	else
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3398	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3399	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3400
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3401	if (ret <= 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3402	if (ret < 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3403	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3404	goto err;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3405	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3406	else if (ret == 0)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3407	__INST(hitEOF) = true;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3408	} else {
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3409	__UNGETC__(ch, f, _buffered);
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3410	cnt--;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3411	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3412
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3413	if (__INST(position) != nil) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3414	__INST(position) = __MKSMALLINT(__intVal(__INST(position)) + cnt);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3415	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3416	if (len != 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3417	buffer[len] = '\0';
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3418	RETURN ( __MKSTRING_L(buffer, len) );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3419	}
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	3420	}
514c749165c3 * empty log message * claus parents: 108 diff changeset	3421	err: ;
514c749165c3 * empty log message * claus parents: 108 diff changeset	3422	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	3423	hitEOF ifTrue:[^ self pastEnd].
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	3424	lastErrorNumber notNil ifTrue:[^ self readError].
514c749165c3 * empty log message * claus parents: 108 diff changeset	3425	filePointer isNil ifTrue:[^ self errorNotOpen].
514c749165c3 * empty log message * claus parents: 108 diff changeset	3426	^ self errorWriteOnly
1 a27a279701f8 Initial revision claus parents: diff changeset	3427	!
a27a279701f8 Initial revision claus parents: diff changeset	3428
a27a279701f8 Initial revision claus parents: diff changeset	3429	nextChunk
a27a279701f8 Initial revision claus parents: diff changeset	3430	"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	3431	exclamation mark. Within the chunk, exclamation marks have to be doubled -
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	3432	except within primitive code (this exception was added to make it easier
a8abff749575 * empty log message * claus parents: 213 diff changeset	3433	to edit primitive code with external editors). This means, that other
a8abff749575 * empty log message * claus parents: 213 diff changeset	3434	Smalltalks cannot always read chunks containing primitive code - but that
a8abff749575 * empty log message * claus parents: 213 diff changeset	3435	doesnt really matter, since C-primitives are an ST/X feature anyway.
a8abff749575 * empty log message * claus parents: 213 diff changeset	3436	Reimplemented here for more speed."
a8abff749575 * empty log message * claus parents: 213 diff changeset	3437
665 429936f8e6e7 fixed nextChunk; it was not reentrant due to freeing of the static Claus Gittinger <cg@exept.de> parents: 612 diff changeset	3438	\|retVal outOfMemory buffer\|
1 a27a279701f8 Initial revision claus parents: diff changeset	3439
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	3440	filePointer isNil ifTrue:[^ self errorNotOpen].
514c749165c3 * empty log message * claus parents: 108 diff changeset	3441	binary ifTrue:[^ self errorBinary].
514c749165c3 * empty log message * claus parents: 108 diff changeset	3442	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	3443
2854 3c8bf66e4e7d give nextChunk a bit more stack Claus Gittinger <cg@exept.de> parents: 2766 diff changeset	3444	%{ /* 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	3445	/*
429936f8e6e7 fixed nextChunk; it was not reentrant due to freeing of the static Claus Gittinger <cg@exept.de> parents: 612 diff changeset	3446	* 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	3447	* 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	3448	* 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	3449	* 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	3450	*/
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	3451	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3452	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	3453	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	3454	int ret;
1823 51ffb7231437 type casts Claus Gittinger <cg@exept.de> parents: 1688 diff changeset	3455	unsigned char bufferPtr = (unsigned char )0;
2874 020627074c9e oops - nextChunk could access invalid memory due Claus Gittinger <cg@exept.de> parents: 2861 diff changeset	3456	unsigned char fastBuffer[8000];
1 a27a279701f8 Initial revision claus parents: diff changeset	3457	REGISTER int index;
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3458	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	3459	int atBeginOfLine = 1, inPrimitive = 0;
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3460	int haveCR = 0, haveNL = 0;
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	3461
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3462	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3463	f = __FILEVal(__INST(filePointer));
668 73165201a9da nextChunk: %{ is only recognized if at begin-of-line Claus Gittinger <cg@exept.de> parents: 665 diff changeset	3464
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3465	_buffered = (__INST(buffered) == true);
71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3466	if (_buffered) {
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3467	__READING__(f)
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3468	}
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	3469
1 a27a279701f8 Initial revision claus parents: diff changeset	3470	/*
a27a279701f8 Initial revision claus parents: diff changeset	3471	* skip spaces
a27a279701f8 Initial revision claus parents: diff changeset	3472	*/
673 2c3a4a536cd1 oops - handling of exclas within primitives was wrong Claus Gittinger <cg@exept.de> parents: 671 diff changeset	3473	c = '\n';
1 a27a279701f8 Initial revision claus parents: diff changeset	3474	while (! done) {
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3475	lastC = c;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3476	__READBYTE__(ret, f, &c, _buffered);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3477	if (ret <= 0) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3478	goto err;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3479	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3480	nread++;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3481	atBeginOfLine = 0;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3482	switch (c) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3483	case '\n':
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3484	case ' ':
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3485	case '\t':
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3486	case '\r':
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3487	case '\b':
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3488	case '\014':
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3489	break;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3490
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3491	default:
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3492	atBeginOfLine = (lastC == '\n');
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3493	done = 1;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3494	break;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3495	}
1 a27a279701f8 Initial revision claus parents: diff changeset	3496	}
a27a279701f8 Initial revision claus parents: diff changeset	3497
a27a279701f8 Initial revision claus parents: diff changeset	3498	/*
a27a279701f8 Initial revision claus parents: diff changeset	3499	* read chunk into a buffer
a27a279701f8 Initial revision claus parents: diff changeset	3500	*/
665 429936f8e6e7 fixed nextChunk; it was not reentrant due to freeing of the static Claus Gittinger <cg@exept.de> parents: 612 diff changeset	3501	bufferPtr = fastBuffer; fastFlag = 1;
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	3502	currSize = sizeof(fastBuffer);
362 4131e87e79ec . claus parents: 360 diff changeset	3503
1 a27a279701f8 Initial revision claus parents: diff changeset	3504	index = 0;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3505	for (;;) {
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3506	__READBYTE__(ret, f, &peekC, _buffered);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3507	if ((c == '%') && atBeginOfLine && ret > 0) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3508	if (peekC == '{') {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3509	inPrimitive = 1;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3510	} else if (peekC == '}') {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3511	inPrimitive = 0;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3512	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3513	} else if (c == '!' && !inPrimitive) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3514	if (ret > 0 && peekC == '!') {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3515	/*
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3516	* convert double-! to a single !
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3517	*/
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3518	__READBYTE__(ret, f, &peekC, _buffered);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3519	if (ret > 0)
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3520	nread++;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3521	} else {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3522	/*
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3523	* End of chunk, push back lookahead character
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3524	* and leave loop.
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3525	*/
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3526	if (ret > 0) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3527	__UNGETC__(peekC, f, _buffered);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3528	} else
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3529	ret = 1;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3530	break;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3531	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3532	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3533
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3534	/*
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3535	* do we have to resize the buffer ?
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3536	*/
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3537	if ((index+2) >= currSize) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3538	OBJ newBuffer;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3539	unsigned char *nbp;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3540
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3541	newBuffer = __MKEMPTYSTRING(currSize * 2);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3542	if (!fastFlag) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3543	/*
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3544	* refetch - buffer could be moved by GC
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3545	*/
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3546	bufferPtr = __stringVal(buffer);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3547	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3548	if (newBuffer == nil) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3549	/*
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3550	* mhmh - chunk seems to be very big ....
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3551	*/
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3552	outOfMemory = true;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3553	goto err;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3554	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3555	nbp = __stringVal(newBuffer);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3556	bcopy(bufferPtr, nbp, index);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3557	bufferPtr = nbp;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3558	bufferPtr[index] = '\0';
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3559	buffer = newBuffer;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3560	fastFlag = 0;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3561	currSize = currSize * 2;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3562	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3563
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3564	if (!fastFlag) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3565	/*
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3566	* old buffer may have moved (interrupt while reading)
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3567	* - refetch pointer
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3568	*/
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3569	bufferPtr = __stringVal(buffer);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3570	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3571
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3572	/*
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3573	* filter out cr-nl; make it nl
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3574	*/
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3575	if (c == '\n') {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3576	haveNL = 1;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3577	if (index > 0) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3578	if (bufferPtr[index-1] == '\r') {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3579	index--;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3580	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3581	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3582	} else {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3583	if (c == '\r') {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3584	haveCR = 1;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3585	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3586	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3587	bufferPtr[index++] = c;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3588	if (ret <= 0) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3589	if (ret == 0)
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3590	break; /* End of chunk reached */
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3591	goto err;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3592	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3593	nread++;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3594	atBeginOfLine = (c == '\n');
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3595	c = peekC;
1 a27a279701f8 Initial revision claus parents: diff changeset	3596	}
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	3597
1 a27a279701f8 Initial revision claus parents: diff changeset	3598	/*
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3599	* care for CR-limited files.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3600	* Replace CR's by NL's
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3601	*/
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3602	if (!haveNL && haveCR) {
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3603	int i;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3604
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3605	for (i=index-1; i>=0; i--) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3606	if (bufferPtr[i] == '\r') {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3607	bufferPtr[i] = '\n';
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3608	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3609	}
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3610	}
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3611
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3612	/*
1 a27a279701f8 Initial revision claus parents: diff changeset	3613	* 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	3614	* 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	3615	* 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	3616	* fast (C) buffer or from real (ST) buffer.
1 a27a279701f8 Initial revision claus parents: diff changeset	3617	*/
665 429936f8e6e7 fixed nextChunk; it was not reentrant due to freeing of the static Claus Gittinger <cg@exept.de> parents: 612 diff changeset	3618	if (fastFlag) {
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3619	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	3620	} else {
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3621	retVal = __MKSTRING_ST_L(buffer, index);
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	3622	}
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3623
1478 aae07192b7d1 labels in empty statements need a semi Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	3624	err: ;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3625	if (ret <= 0) {
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3626	if (ret == 0)
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3627	__INST(hitEOF) = true;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3628	else /* ret < 0 */
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3629	__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	3630	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3631	if (__INST(position) != nil) {
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3632	__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	3633	}
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	3634	%}.
370 20f04d9b371b . claus parents: 369 diff changeset	3635	retVal isNil ifTrue:[
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3636	"/
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3637	"/ arrive here with retVal==nil either on error or premature EOF
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3638	"/ or if running out of malloc-memory
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3639	"/
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3640	hitEOF ifTrue:[^ self pastEnd].
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3641	lastErrorNumber notNil ifTrue:[^ self readError].
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3642	outOfMemory == true ifTrue:[
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3643	"
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3644	buffer memory allocation failed.
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3645	When we arrive here, there was no memory available for the
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3646	chunk. (seems to be too big of a chunk ...)
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3647	Bad luck - you should increase the ulimit and/or swap space on your machine.
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3648	"
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3649	^ ObjectMemory allocationFailureSignal raise.
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3650	]
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	3651	].
1 a27a279701f8 Initial revision claus parents: diff changeset	3652	^ retVal
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3653	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3654
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3655	nextMatchFor:anObject
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3656	"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	3657	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	3658	the element after anObject.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3659	Only single byte characters are currently supported."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3660
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	3661	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	3662	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3663	int ret, peekValue;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3664	char c;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3665	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3666
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3667	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3668	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3669	&& (__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	3670	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3671	if ((__INST(binary) == true) && __isSmallInteger(anObject)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3672	peekValue = __intVal(anObject) & 0xFF;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3673	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3674	if ((__INST(binary) != true) && __isCharacter(anObject)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3675	peekValue = __intVal(_characterVal(anObject)) & 0xFF;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3676	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3677	peekValue = -1;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3678	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3679	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3680
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3681	if (peekValue >= 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3682	int _buffered;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3683
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3684	__INST(position) = nil;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3685	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3686
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3687	if (_buffered = (__INST(buffered) == true)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3688	__READING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3689	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3690
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3691	for (;;) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3692	__READBYTE__(ret, f, &c, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3693	if (ret <= 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3694	if (ret < 0)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3695	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3696	else
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3697	__INST(hitEOF) = true;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3698	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3699	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3700	if (c == peekValue) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3701	RETURN (anObject);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3702	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3703	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3704	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3705	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3706	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	3707	hitEOF ifTrue:[^ self pastEnd].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3708	lastErrorNumber notNil ifTrue:[^ self readError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3709	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3710	^ super nextMatchFor:anObject
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3711	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3712
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3713	peekFor:anObject
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3714	"return true and move past next element, if next == something.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3715	Otherwise, stay and return false. False is also returned
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3716	when EOF is encountered.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3717	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	3718	text mode; only single byte characters are currently supported."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3719
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	3720	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	3721	FILEPOINTER f;
3029 aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3722	unsigned char c;
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3723	int ret, peekValue, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3724	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3725
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3726	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3727	if (((fp = __INST(filePointer)) != nil)
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3728	&& (__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	3729	) {
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3730	if (__INST(binary) == true) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3731	if (__isSmallInteger(anObject)) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3732	peekValue = __intVal(anObject) & 0xFF;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3733	} else {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3734	goto bad;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3735	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3736	} else {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3737	if (__isCharacter(anObject)) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3738	peekValue = __intVal(_characterVal(anObject)) & 0xFF;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3739	} else {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3740	goto bad;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3741	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3742	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3743
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3744	f = __FILEVal(fp);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3745
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3746	_buffered = (__INST(buffered) == true);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3747	if (_buffered) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3748	__READING__(f)
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3749	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3750	__READBYTE__(ret, f, &c, _buffered);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3751	if (ret > 0) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3752	if (c == peekValue) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3753	OBJ pos;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3754
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3755	if ((pos = __INST(position)) != nil) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3756	__INST(position) = __MKSMALLINT(__intVal(pos) + 1);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3757	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3758	RETURN (true);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3759	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3760	__UNGETC__(c, f, _buffered);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3761	RETURN (false);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3762	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3763	if (ret < 0) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3764	__INST(lastErrorNumber) = __MKSMALLINT(errno);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3765	} else /* ret == 0 */
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3766	__INST(hitEOF) = true;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3767	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3768	bad: ;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3769	%}.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3770	mode == #writeonly ifTrue:[^ self errorWriteOnly].
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	3771	hitEOF ifTrue:[self pastEnd. ^ false].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3772	lastErrorNumber notNil ifTrue:[^ self readError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3773	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3774	^ super peekFor:anObject
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3775	!
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	skipLine
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3778	"read the next line (characters up to newline) skip only;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3779	return nil if EOF reached, self otherwise.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3780	Not allowed in binary mode."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3781
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3782	%{ /* STACK:2000 */
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3783
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	3784	FILEPOINTER f;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3785	OBJ fp;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3786	int ret, _buffered;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3787	char c;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3788
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3789	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3790	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3791	&& (__INST(mode) != @symbol(writeonly))
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3792	&& (__INST(binary) != true)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3793	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3794	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3795	if (_buffered = (__INST(buffered) == true)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3796	__READING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3797	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3798	for (;;) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3799	__READBYTE__(ret, f, &c, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3800	if (ret > 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3801	if (c == '\n')
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3802	RETURN(self)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3803	} else
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3804	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3805	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3806	if (ret < 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3807	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3808	} else /* ret == 0 */ {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3809	__INST(hitEOF) = true;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3810	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3811	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3812	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	3813	hitEOF ifTrue:[^ self pastEnd].
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3814	lastErrorNumber notNil ifTrue:[self readError. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3815	filePointer isNil ifTrue:[self errorNotOpen. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3816	binary ifTrue:[self errorBinary. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3817	self errorWriteOnly
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3818	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3819
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3820	skipSeparators
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3821	"skip all whitespace; next will return next non-white-space character
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3822	or nil if endOfFile reached. Not allowed in binary mode.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3823	- reimplemented for speed"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3824
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	3825	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	3826	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3827	char c;
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3828	int ret, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3829	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3830
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3831	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3832	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3833	&& (__INST(mode) != @symbol(writeonly))
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3834	&& (__INST(binary) != true)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3835	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3836	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3837	_buffered = (__INST(buffered) == true);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3838	if (_buffered) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3839	__READING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3840	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3841
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3842	while (1) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3843	__READBYTE__(ret, f, &c, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3844	if (ret <= 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3845	if (ret < 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3846	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3847	} else /* ret == 0 */ {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3848	__INST(hitEOF) = true;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3849	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3850	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3851	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3852	switch (c) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3853	case ' ':
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3854	case '\t':
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3855	case '\n':
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3856	case '\r':
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3857	case '\b':
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3858	case '\f':
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3859	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3860
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3861	default:
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3862	__UNGETC__(c, f, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3863	RETURN ( __MKCHARACTER(c & 0xFF) );
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	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3866	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3867	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	3868	hitEOF ifTrue:[^ self pastEnd].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3869	lastErrorNumber notNil ifTrue:[^ self readError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3870	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3871	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3872	^ self errorBinary.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3873	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3874
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3875	skipSeparatorsExceptCR
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3876	"skip all whitespace but no newlines;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3877	next will return next non-white-space character
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3878	or nil if endOfFile reached. Not allowed in binary mode.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3879	- reimplemented for speed"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3880
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	3881	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	3882	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3883	char c;
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3884	int ret, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3885	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3886
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3887	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3888	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3889	&& (__INST(mode) != @symbol(writeonly))
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3890	&& (__INST(binary) != true)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3891	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3892	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3893	_buffered = (__INST(buffered) == true);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3894	if (_buffered) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3895	__READING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3896	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3897	while (1) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3898	__READBYTE__(ret, f, &c, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3899	if (ret <= 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3900	if (ret < 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3901	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3902	} else /* ret == 0 */ {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3903	__INST(hitEOF) = true;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3904	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3905	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3906	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3907	switch (c) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3908	case ' ':
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3909	case '\t':
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3910	case '\b':
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3911	case '\f':
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3912	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3913
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3914	default:
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3915	__UNGETC__(c, f, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3916	RETURN ( __MKCHARACTER(c & 0xFF) );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3917	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3918	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3919	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3920	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	3921	hitEOF ifTrue:[^ self pastEnd].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3922	lastErrorNumber notNil ifTrue:[^ self readError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3923	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3924	(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	3925	^ self errorBinary.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3926	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3927
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3928	skipThrough:aCharacter
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3929	"skip all characters up-to and including aCharacter. Return the receiver if
671 53de87163ad5 spelling Claus Gittinger <cg@exept.de> parents: 668 diff changeset	3930	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	3931	The next read operation will return the character after aCharacter.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3932	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	3933	Only single byte characters are currently supported."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3934
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	3935	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	3936	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3937	REGISTER int cSearch;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3938	unsigned char c;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3939	int ret, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3940	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3941
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3942	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3943	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3944	&& (__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	3945	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3946	if (__INST(binary) == true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3947	/* searched for object must be a smallInteger */
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3948	if (! __isSmallInteger(aCharacter)) goto badArgument;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3949	cSearch = __intVal(aCharacter);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3950	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3951	/* searched for object must be a character */
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3952	if (! __isCharacter(aCharacter)) goto badArgument;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3953	cSearch = __intVal(_characterVal(aCharacter));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3954	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3955	/* Q: should we just say: "not found" ? */
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3956	if ((cSearch < 0) \|\| (cSearch > 255)) goto badArgument;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3957
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3958	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3959	if (_buffered = (__INST(buffered) == true)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3960	__READING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3961	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3962
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3963	while (1) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3964	__READBYTE__(ret, f, &c, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3965	if (ret <= 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3966	if (ret < 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3967	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3968	} else /* ret == 0 */ {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3969	__INST(hitEOF) = true;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3970	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3971	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3972	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3973	if (c == cSearch) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3974	RETURN (self);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3975	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3976	}
612 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	badArgument: ;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3979	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	3980	hitEOF ifTrue:[^ self pastEnd].
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3981	lastErrorNumber notNil ifTrue:[self readError. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3982	filePointer isNil ifTrue:[self errorNotOpen. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3983	(mode == #writeonly) ifTrue:[self errorWriteOnly. ^ self].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3984	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3985	argument must be integer/character in binary mode,
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3986	character in text mode
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3987	"
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3988	self error:'invalid argument'.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3989
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3990	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3991	\|s\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3992	s := 'Makefile' asFilename readStream.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3993	s skipThrough:$=.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3994	s next:10
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3995	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3996	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3997
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3998	skipToAll:aString
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3999	"skip for the sequence given by the argument, aCollection;
1490 713852290c8b use skipThroughAll from superclass. Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	4000	return nil if not found, self otherwise.
713852290c8b use skipThroughAll from superclass. Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	4001	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	4002
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4003	\|oldPos\|
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	oldPos := self position.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4006	(self skipThroughAll:aString) isNil ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4007	"
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4008	restore position
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4009	"
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4010	self position:oldPos.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4011	^ nil
612 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	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4014	position before match-string
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4015	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4016	self position:(self position - aString size).
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4017	^ self
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4018
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4019	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4020	\|s\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4021	s := 'Makefile' asFilename readStream.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4022	s skipToAll:'are'.
1490 713852290c8b use skipThroughAll from superclass. Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	4023	s next:10
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4024	"
1490 713852290c8b use skipThroughAll from superclass. Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	4025
713852290c8b use skipThroughAll from superclass. Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	4026	"Modified: 26.6.1996 / 09:22:05 / cg"
1 a27a279701f8 Initial revision claus parents: diff changeset	4027	! !
612 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	!ExternalStream methodsFor:'testing'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4030
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4031	atEnd
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4032	"return true, if position is at end"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4033
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	4034	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	4035	FILEPOINTER f;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4036	OBJ fp;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4037	char c;
2861 c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	4038	int ret, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4039
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4040	if (__INST(hitEOF) == true) {
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4041	RETURN (true);
612 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
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4044	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4045
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4046	if ((fp = __INST(filePointer)) != nil) {
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4047	f = __FILEVal(fp);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4048
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4049	if (_buffered = (__INST(buffered) == true)) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4050	__READING__(f);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4051	} else {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4052	if (__INST(readAhead) != nil) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4053	RETURN (false);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4054	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4055	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4056
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4057	/*
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4058	* read ahead ...
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4059	*/
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4060	do {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4061	__BEGIN_INTERRUPTABLE__
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4062	__READBYTE__(ret, f, &c, _buffered);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4063	__END_INTERRUPTABLE__
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4064	} while ((ret < 0) && (errno == EINTR));
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4065
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4066	if (ret > 0) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4067	__UNGETC__(c&0xff, f, _buffered);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4068	RETURN (false);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4069	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4070
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4071	if (ret == 0) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4072	__INST(hitEOF) = true;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4073	RETURN (true);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4074	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4075
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4076	/* ret < 0 */
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4077	__INST(lastErrorNumber) = __MKSMALLINT(errno);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4078	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4079	%}.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4080	lastErrorNumber notNil ifTrue:[^ self readError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4081	^ self errorNotOpen
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4082	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4083
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4084	canReadWithoutBlocking
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4085	"return true, if any data is available for reading (i.e.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4086	a read operation will not block the smalltalk process), false otherwise."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4087
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4088	\|fd\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4089
2986 c6957cf6128f Handle readAhead in #canReadWithoutBlocking Stefan Vogel <sv@exept.de> parents: 2963 diff changeset	4090	readAhead notNil ifTrue:[^ true].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4091	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4092	mode == #writeonly ifTrue:[^ self errorWriteOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4093
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4094	fd := self fileDescriptor.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4095	^ OperatingSystem readCheck:fd
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4096
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4097	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4098	\|pipe\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4099
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4100	pipe := PipeStream readingFrom:'(sleep 10; echo hello)'.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4101	pipe canReadWithoutBlocking ifTrue:[
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4102	Transcript showCR:'data available'
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4103	] ifFalse:[
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4104	Transcript showCR:'no data available'
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4105	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4106	pipe close
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4107	"
2986 c6957cf6128f Handle readAhead in #canReadWithoutBlocking Stefan Vogel <sv@exept.de> parents: 2963 diff changeset	4108
c6957cf6128f Handle readAhead in #canReadWithoutBlocking Stefan Vogel <sv@exept.de> parents: 2963 diff changeset	4109	"Modified: 25.9.1997 / 13:08:45 / stefan"
612 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
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4112	canWriteWithoutBlocking
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4113	"return true, if data can be written into the stream
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4114	(i.e. a write operation will not block the smalltalk process)."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4115
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4116	\|fd\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4117
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4118	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4119	mode == #readonly ifTrue:[^ self errorReadOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4120
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4121	fd := self fileDescriptor.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4122	^ OperatingSystem writeCheck:fd
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	4123	!
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	4124
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	4125	numAvailable
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	4126	"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	4127
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	4128	\|fd\|
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	4129
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	4130	filePointer isNil ifTrue:[^ self errorNotOpen].
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	4131	mode == #writeonly ifTrue:[^ self errorWriteOnly].
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	4132
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	4133	fd := self fileDescriptor.
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	4134	^ OperatingSystem numAvailableForReadOn:fd.
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	4135
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	4136	"/ self atEnd ifTrue:[^ 0].
3432 1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	4137	"/ self canReadWithoutBlocking ifTrue:[
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	4138	"/ ^ 1
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	4139	"/ ].
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	4140	"/ ^ 0
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	4141
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	4142	"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	4143	"Modified: / 4.2.1998 / 17:31:11 / cg"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4144	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4145
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4146	!ExternalStream methodsFor:'waiting for I/O'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4147
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4148	readWait
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4149	"suspend the current process, until the receiver
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4150	becomes ready for reading. If data is already available,
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4151	return immediate.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4152	The other threads are not affected by the wait."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4153
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4154	self readWaitWithTimeoutMs:nil
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4155	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4156
3016 42466b291fae more ST80 compatibility ca parents: 2999 diff changeset	4157	readWaitTimeoutMs:timeout
42466b291fae more ST80 compatibility ca parents: 2999 diff changeset	4158	"ST-80 compatibility"
42466b291fae more ST80 compatibility ca parents: 2999 diff changeset	4159	^ self readWaitWithTimeoutMs:timeout
42466b291fae more ST80 compatibility ca parents: 2999 diff changeset	4160	!
42466b291fae more ST80 compatibility ca parents: 2999 diff changeset	4161
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4162	readWaitWithTimeout:timeout
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4163	"suspend the current process, until the receiver
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4164	becomes ready for reading or a timeout (in seconds) expired.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4165	If data is already available, return immediate.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4166	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	4167	The other threads are not affected by the wait."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4168
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4169	^ self readWaitWithTimeoutMs:timeout * 1000
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4170	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4171
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4172	readWaitWithTimeoutMs:timeout
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4173	"suspend the current process, until the receiver
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4174	becomes ready for reading or a timeout (in milliseconds) expired.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4175	If data is already available, return immediate.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4176	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	4177	The other threads are not affected by the wait."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4178
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4179	\|fd inputSema hasData wasBlocked\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4180
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	4181	readAhead notNil ifTrue:[^ false].
71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	4182
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4183	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4184	mode == #writeonly ifTrue:[^ self errorWriteOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4185
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4186	fd := self fileDescriptor.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4187	(OperatingSystem readCheck:fd) ifTrue:[^ false].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4188
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4189	wasBlocked := OperatingSystem blockInterrupts.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4190	hasData := OperatingSystem readCheck:fd.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4191	hasData ifFalse:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4192	inputSema := Semaphore new name:'readWait'.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4193	[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4194	timeout notNil ifTrue:[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4195	Processor signal:inputSema afterMilliseconds:timeout
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	Processor signal:inputSema onInput:fd.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4198	Processor activeProcess state:#ioWait.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4199	inputSema wait.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4200	Processor disableSemaphore:inputSema.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4201	hasData := OperatingSystem readCheck:fd
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4202	] valueOnUnwindDo:[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4203	Processor disableSemaphore:inputSema.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4204	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4205	]
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4206	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4207	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4208	^ hasData not
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4209	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4210
3490 6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4211	readWriteWait
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4212	"suspend the current process, until the receiver
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4213	becomes ready for writing or reading.
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4214	Return immediate if the receiver is already ready.
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4215	The other threads are not affected by the wait.
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4216	This is actually only used with sockets, to wait for a connect to
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4217	be finished."
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4218
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4219	self readWriteWaitWithTimeoutMs:nil
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4220	!
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4221
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4222	readWriteWaitWithTimeoutMs:timeout
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4223	"suspend the current process, until the receiver
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4224	becomes ready for reading or writing or a timeout (in seconds) expired.
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4225	Return true if a timeout occured (i.e. false, if data is available).
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4226	Return immediate if the receiver is already ready.
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4227	The other threads are not affected by the wait.
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4228	This is actually only used with sockets, to wait for a connect to
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4229	be finished."
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4230
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4231	\|fd sema canread canReadWrite wasBlocked\|
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4232
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4233	filePointer isNil ifTrue:[
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4234	^ self errorNotOpen
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4235	].
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4236
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4237	fd := self fileDescriptor.
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4238	(OperatingSystem readWriteCheck:fd) ifTrue:[^ false].
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4239
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4240	wasBlocked := OperatingSystem blockInterrupts.
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4241	canReadWrite := OperatingSystem readWriteCheck:fd.
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4242	canReadWrite ifFalse:[
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4243	sema := Semaphore new name:'readWriteWait'.
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4244	[
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4245	timeout notNil ifTrue:[
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4246	Processor signal:sema afterMilliseconds:timeout
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4247	].
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4248	Processor signal:sema onOutput:fd.
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4249	Processor signal:sema onInput:fd.
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4250	Processor activeProcess state:#ioWait.
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4251	sema wait.
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4252	Processor disableSemaphore:sema.
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4253	canReadWrite := OperatingSystem readWriteCheck:fd
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4254	] valueOnUnwindDo:[
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4255	Processor disableSemaphore:sema.
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4256	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4257	]
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4258	].
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4259	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4260	^ canReadWrite not
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4261	!
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4262
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4263	writeWait
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4264	"suspend the current process, until the receiver
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4265	becomes ready for writing.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4266	Return immediate if the receiver is already ready.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4267	The other threads are not affected by the wait."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4268
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4269	self writeWaitWithTimeoutMs:nil
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4270	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4271
3016 42466b291fae more ST80 compatibility ca parents: 2999 diff changeset	4272	writeWaitTimeoutMs:timeout
42466b291fae more ST80 compatibility ca parents: 2999 diff changeset	4273	"ST-80 compatibility"
42466b291fae more ST80 compatibility ca parents: 2999 diff changeset	4274	^ self writeWaitWithTimeoutMs:timeout
42466b291fae more ST80 compatibility ca parents: 2999 diff changeset	4275	!
42466b291fae more ST80 compatibility ca parents: 2999 diff changeset	4276
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4277	writeWaitWithTimeout:timeout
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4278	"suspend the current process, until the receiver
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4279	becomes ready for writing or a timeout (in seconds) expired.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4280	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	4281	Return immediate if the receiver is already ready.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4282	The other threads are not affected by the wait."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4283
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4284	^ self writeWaitWithTimeoutMs:timeout * 1000
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4285	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4286
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4287	writeWaitWithTimeoutMs:timeout
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4288	"suspend the current process, until the receiver
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4289	becomes ready for writing or a timeout (in seconds) expired.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4290	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	4291	Return immediate if the receiver is already ready.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4292	The other threads are not affected by the wait."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4293
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4294	\|fd outputSema canWrite wasBlocked\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4295
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4296	filePointer isNil ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4297	^ self errorNotOpen
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4298	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4299	mode == #readonly ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4300	^ self errorReadOnly
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4301	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4302
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4303	fd := self fileDescriptor.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4304	(OperatingSystem writeCheck:fd) ifTrue:[^ false].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4305
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4306	wasBlocked := OperatingSystem blockInterrupts.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4307	canWrite := OperatingSystem writeCheck:fd.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4308	canWrite ifFalse:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4309	outputSema := Semaphore new name:'writeWait'.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4310	[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4311	timeout notNil ifTrue:[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4312	Processor signal:outputSema afterMilliseconds:timeout
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4313	].
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4314	Processor signal:outputSema onOutput:fd.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4315	Processor activeProcess state:#ioWait.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4316	outputSema wait.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4317	Processor disableSemaphore:outputSema.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4318	canWrite := OperatingSystem writeCheck:fd
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4319	] valueOnUnwindDo:[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4320	Processor disableSemaphore:outputSema.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4321	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4322	]
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4323	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4324	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4325	^ canWrite not
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4326	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4327
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4328	!ExternalStream methodsFor:'writing'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4329
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4330	cr
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4331	"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	4332	reimplemented for speed"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4333
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	4334	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	4335	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4336	int len, cnt, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4337	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4338	char *cp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4339
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4340	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4341	if (((fp = __INST(filePointer)) != nil)
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4342	&& (__INST(mode) != @symbol(readonly))
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4343	&& (__INST(binary) != true)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4344	) {
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4345	f = __FILEVal(fp);
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4346
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4347	if (_buffered = (__INST(buffered) == true)) {
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4348	__WRITING__(f)
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4349	}
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	4350	{
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	4351	OBJ mode = __INST(eolMode);
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	4352
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	4353	if (mode == @symbol(cr)) {
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4354	cp = "\r"; len = 1;
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	4355	} else if (mode == @symbol(crlf)) {
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4356	cp = "\r\n"; len = 2;
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	4357	} else {
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4358	cp = "\n"; len = 1;
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	4359	}
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4360	}
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4361	__WRITEBYTES__(cnt, f, cp, len, _buffered);
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4362
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4363	if (cnt == len) {
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4364	if (__INST(position) != nil) {
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4365	__INST(position) = __MKSMALLINT(__intVal(__INST(position)) + len);
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4366	}
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4367	RETURN ( self );
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4368	}
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4369	__INST(lastErrorNumber) = __MKSMALLINT(errno);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4370	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4371	%}.
2326 01fa309e48d9 checkin from browser Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	4372	lastErrorNumber notNil ifTrue:[self writeError. ^ self].
01fa309e48d9 checkin from browser Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	4373	filePointer isNil ifTrue:[self errorNotOpen. ^ self].
01fa309e48d9 checkin from browser Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	4374	(mode == #readonly) ifTrue:[self errorReadOnly. ^ self].
01fa309e48d9 checkin from browser Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	4375	self errorBinary
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4376	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4377
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4378	flush
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4379	"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	4380
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4381	%{
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4382	OBJ fp;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4383
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4384	__INST(lastErrorNumber) = nil;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4385	if ((fp = __INST(filePointer)) != nil) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4386	if (__INST(mode) != @symbol(readonly)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4387	if (__INST(buffered) == true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4388	__BEGIN_INTERRUPTABLE__
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	4389	FFLUSH( __FILEVal(fp) );
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4390	__END_INTERRUPTABLE__
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4391	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4392	}
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4393	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4394	%}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4395	!
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4396
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4397	nextPut:aCharacter
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4398	"write the argument, aCharacter - return nil if failed, self if ok.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4399	Only single-byte characters are currently supported"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4400
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	4401	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	4402	FILEPOINTER f;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4403	char c;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4404	int cnt, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4405	OBJ pos, fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4406
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4407	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4408	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4409	&& (__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	4410	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4411	if (__INST(binary) != true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4412	if (__isCharacter(aCharacter)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4413	c = __intVal(__characterVal(aCharacter)) & 0xFF;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4414	doWrite:
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4415	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4416
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4417
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4418	if (_buffered = (__INST(buffered) == true)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4419	__WRITING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4420	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4421	__WRITEBYTE__(cnt, f, &c, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4422
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4423	if (cnt == 1) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4424	pos = __INST(position);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4425	if (pos != nil) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4426	__INST(position) = __MKSMALLINT(__intVal(pos) + 1);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4427	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4428	RETURN ( self );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4429	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4430	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4431	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4432	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4433	if (__isSmallInteger(aCharacter)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4434	c = __intVal(aCharacter);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4435	goto doWrite;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4436	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4437	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4438	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4439	%}.
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4440	lastErrorNumber notNil ifTrue:[self writeError. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4441	filePointer isNil ifTrue:[self errorNotOpen. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4442	(mode == #readonly) ifTrue:[self errorReadOnly. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4443	binary ifFalse:[self argumentMustBeCharacter. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4444	self argumentMustBeInteger.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4445	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4446
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4447	nextPutAll:aCollection
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4448	"write all elements of the argument, aCollection.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4449	Reimplemented for speed when writing strings or byteArrays.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4450	For others, falls back to general method in superclass."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4451
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	4452	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	4453	FILEPOINTER f;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4454	int len, cnt;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4455	OBJ pos, fp;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4456	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	4457	int o_offs;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4458
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4459	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4460
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4461	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4462	&& (__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	4463	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4464	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4465	if (_buffered = (__INST(buffered) == true)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4466	__WRITING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4467	}
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	4468
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4469	if (__isString(aCollection) \|\| __isSymbol(aCollection)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4470	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	4471	#ifdef BUGGY
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4472	__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	4473	#else
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	4474	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	4475	__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	4476	#endif
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4477	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4478	if (__INST(binary) == true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4479	int offs;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4480
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4481	if (__isByteArray(aCollection)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4482	offs = 0;
3221 21085ae8e1be eliminated some single-underscore macro refs (stringSize, arraySize ...) Claus Gittinger <cg@exept.de> parents: 3200 diff changeset	4483	len = __byteArraySize(aCollection);
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4484	} else if (__isBytes(aCollection)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4485	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	4486	len = __byteArraySize(aCollection) - offs;
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4487	} else
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4488	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	4489	#ifdef BUGGY
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	4490	__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	4491	#else
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	4492	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	4493	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	4494	__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	4495	#endif
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4496	} else
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4497	goto out;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4498	}
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	4499
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4500	if (cnt == len) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4501	pos = __INST(position);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4502	if (pos != nil) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4503	__INST(position) = __MKSMALLINT(__intVal(pos) + len);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4504	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4505	RETURN (self);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4506	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4507	__INST(lastErrorNumber) = __MKSMALLINT(errno);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4508	}
1478 aae07192b7d1 labels in empty statements need a semi Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	4509	out: ;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4510	%}.
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4511	lastErrorNumber notNil ifTrue:[self writeError. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4512	filePointer isNil ifTrue:[self errorNotOpen. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4513	(mode == #readonly) ifTrue:[self errorReadOnly. ^ self].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4514
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4515	^ super nextPutAll:aCollection
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4516	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4517
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4518	nextPutAll:aCollection startingAt:start to:stop
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4519	"write a range of elements of the argument, aCollection.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4520	Reimplemented for speed when writing strings or byteArrays.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4521	For others, falls back to general method in superclass."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4522
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	4523	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	4524	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4525	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	4526	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	4527	int o_offs;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4528
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4529	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4530	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4531	&& (__INST(mode) != @symbol(readonly))
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4532	&& __bothSmallInteger(start, stop)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4533	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4534	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4535	if (_buffered = (__INST(buffered) == true)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4536	__WRITING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4537	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4538	iStart = __intVal(start);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4539	iStop = __intVal(stop);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4540	if ((iStart < 1) \|\| (iStop < iStart)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4541	RETURN(self);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4542	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4543	if (__isString(aCollection) \|\| __isSymbol(aCollection)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4544	len = __stringSize(aCollection);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4545	if (iStop > len) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4546	RETURN(self);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4547	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4548	if (iStop > len)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4549	iStop = len;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4550	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	4551	#ifdef BUGGY
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4552	__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	4553	#else
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	4554	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	4555	__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	4556	#endif
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4557	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4558	if (__INST(binary) == true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4559	int offs;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4560
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4561	if (__isByteArray(aCollection)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4562	offs = 0;
3221 21085ae8e1be eliminated some single-underscore macro refs (stringSize, arraySize ...) Claus Gittinger <cg@exept.de> parents: 3200 diff changeset	4563	len = __byteArraySize(aCollection);
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4564	} else if (__isBytes(aCollection)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4565	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	4566	len = __byteArraySize(aCollection) - offs;
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4567	} else
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4568	goto out;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4569
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4570	if (iStop > len) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4571	RETURN(self);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4572	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4573	if (iStop > len)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4574	iStop = len;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4575	len = iStop - iStart + 1;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4576	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	4577	#ifdef BUGGY
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4578	__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	4579	#else
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	4580	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	4581	__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	4582	#endif
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4583	} else
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4584	goto out;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4585	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4586	if (cnt == len) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4587	pos = __INST(position);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4588	if (pos != nil) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4589	__INST(position) = __MKSMALLINT(__intVal(pos) + len);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4590	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4591	RETURN (self);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4592	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4593	__INST(lastErrorNumber) = __MKSMALLINT(errno);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4594	}
1478 aae07192b7d1 labels in empty statements need a semi Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	4595	out: ;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4596	%}.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4597	lastErrorNumber notNil ifTrue:[^ self writeError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4598	^ super nextPutAll:aCollection startingAt:start to:stop
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4599	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4600
2045 1ad17ca6520f fall back to super>>nextPutLine: if argument is not a string. Claus Gittinger <cg@exept.de> parents: 2044 diff changeset	4601	!ExternalStream class methodsFor:'documentation'!
730 62643519bf68 checkin from browser Claus Gittinger <cg@exept.de> parents: 711 diff changeset	4602
62643519bf68 checkin from browser Claus Gittinger <cg@exept.de> parents: 711 diff changeset	4603	version
3490 6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4604	^ '$Header: /cvs/stx/stx/libbasic/Attic/ExtStream.st,v 1.165 1998-05-28 13:21:19 cg Exp $'
730 62643519bf68 checkin from browser Claus Gittinger <cg@exept.de> parents: 711 diff changeset	4605	! !
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4606	ExternalStream initialize!

author	Claus Gittinger <cg@exept.de>
	Sun, 07 Jun 1998 02:08:56 +0200
changeset 3522	291ec553ac33
parent 3490	6a87c2b37fd4
child 3535	03890e8be43d
permissions	-rw-r--r--