hg/stx-libbasic: ExternalStream.st@72a61dc595ad (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
1 a27a279701f8 Initial revision claus parents: diff changeset	27	#include <stdio.h>
437 a005e97d261e . claus parents: 436 diff changeset	28	#define _STDIO_H_INCLUDED_
a005e97d261e . claus parents: 436 diff changeset	29
3956 51f1a9a4d63f changes for egcs (stdio uses __new / utsname) Claus Gittinger <cg@exept.de> parents: 3949 diff changeset	30
2903 e64704e86cce various VMS changes Claus Gittinger <cg@exept.de> parents: 2896 diff changeset	31	#ifndef NO_FCNTL_H
e64704e86cce various VMS changes Claus Gittinger <cg@exept.de> parents: 2896 diff changeset	32	# include <fcntl.h>
e64704e86cce various VMS changes Claus Gittinger <cg@exept.de> parents: 2896 diff changeset	33	# define _FCNTL_H_INCLUDED_
e64704e86cce various VMS changes Claus Gittinger <cg@exept.de> parents: 2896 diff changeset	34	#endif
437 a005e97d261e . claus parents: 436 diff changeset	35
10 4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	36	#include <errno.h>
437 a005e97d261e . claus parents: 436 diff changeset	37	#define _ERRNO_H_INCLUDED_
42 e33491f6f260 * empty log message * claus parents: 38 diff changeset	38
1141 8ea1b43f7034 * empty log message * Claus Gittinger <cg@exept.de> parents: 1138 diff changeset	39	#ifdef LINUX
8ea1b43f7034 * empty log message * Claus Gittinger <cg@exept.de> parents: 1138 diff changeset	40	/* use inline string macros */
8ea1b43f7034 * empty log message * Claus Gittinger <cg@exept.de> parents: 1138 diff changeset	41	# define __STRINGDEFS__
8ea1b43f7034 * empty log message * Claus Gittinger <cg@exept.de> parents: 1138 diff changeset	42	# include <linuxIntern.h>
8ea1b43f7034 * empty log message * Claus Gittinger <cg@exept.de> parents: 1138 diff changeset	43	#endif
8ea1b43f7034 * empty log message * Claus Gittinger <cg@exept.de> parents: 1138 diff changeset	44
42 e33491f6f260 * empty log message * claus parents: 38 diff changeset	45	#ifdef hpux
e33491f6f260 * empty log message * claus parents: 38 diff changeset	46	# define fileno(f) ((f->__fileH << 8) \| (f->__fileL))
e33491f6f260 * empty log message * claus parents: 38 diff changeset	47	#endif
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	48
933 2eebae059045 oops - when truncating buffered streams, we must flush & seek first (stdio trouble) Claus Gittinger <cg@exept.de> parents: 932 diff changeset	49	#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	50	# 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	51	#endif
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_CUR
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_CUR 1
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_END
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_END 2
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
4093 1821420b41d4 * empty log message * Claus Gittinger <cg@exept.de> parents: 4092 diff changeset	59	#if defined(__VMS__) \|\| defined(sparc)
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	60	# define CLEAR_ERRNO errno = 0;
2961 a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	61	#else
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	62	# define CLEAR_ERRNO /* nothing */
2961 a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	63	#endif
a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	64
3420 4dc6667afda9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3419 diff changeset	65	#ifdef LATER
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	66	#define __isFilePointer(x) (__Class(x) == ExternalStream__FilePointer)
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	67	#define __CHANGECLASS(o, x) (__qClass(o) = (x), o)
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	68	#define __MKFILEPOINTER(f) __CHANGECLASS(__MKEXTERNALADDRESS(f), ExternalStream__FilePointer)
3420 4dc6667afda9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3419 diff changeset	69	#else
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	70	#define __MKFILEPOINTER(f) __MKEXTERNALADDRESS(f)
3420 4dc6667afda9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3419 diff changeset	71	#endif
4dc6667afda9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3419 diff changeset	72
4092 fee552eb3418 removed win32 stuff Claus Gittinger <cg@exept.de> parents: 3980 diff changeset	73	#define STDIO_NEEDS_FSEEK
fee552eb3418 removed win32 stuff Claus Gittinger <cg@exept.de> parents: 3980 diff changeset	74	#define FILEPOINTER FILE *
fee552eb3418 removed win32 stuff Claus Gittinger <cg@exept.de> parents: 3980 diff changeset	75	#define READ(f, cp, n) read(f, cp, n)
fee552eb3418 removed win32 stuff Claus Gittinger <cg@exept.de> parents: 3980 diff changeset	76	#define WRITE(f, cp, n) write(f, cp, n)
fee552eb3418 removed win32 stuff Claus Gittinger <cg@exept.de> parents: 3980 diff changeset	77	#define FFLUSH(fp) fflush(fp)
fee552eb3418 removed win32 stuff Claus Gittinger <cg@exept.de> parents: 3980 diff changeset	78	#define FILENO(f) fileno(f)
3681 55dc17d40aab fixed nextAvail Claus Gittinger <cg@exept.de> parents: 3674 diff changeset	79
3682 6de8ac1d3e88 oops Claus Gittinger <cg@exept.de> parents: 3681 diff changeset	80	#ifdef DEBUGGING
4092 fee552eb3418 removed win32 stuff Claus Gittinger <cg@exept.de> parents: 3980 diff changeset	81	extern char __survStartPtr, __survEndPtr;
3682 6de8ac1d3e88 oops Claus Gittinger <cg@exept.de> parents: 3681 diff changeset	82	# define DEBUGBUFFER(buf) \
3681 55dc17d40aab fixed nextAvail Claus Gittinger <cg@exept.de> parents: 3674 diff changeset	83	if (((char *)(buf) >= __survStartPtr) \
55dc17d40aab fixed nextAvail Claus Gittinger <cg@exept.de> parents: 3674 diff changeset	84	&& ((char *)(buf) < __survEndPtr)) { \
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	85	__fatal0("read into survivor\n"); \
3681 55dc17d40aab fixed nextAvail Claus Gittinger <cg@exept.de> parents: 3674 diff changeset	86	}
55dc17d40aab fixed nextAvail Claus Gittinger <cg@exept.de> parents: 3674 diff changeset	87
3682 6de8ac1d3e88 oops Claus Gittinger <cg@exept.de> parents: 3681 diff changeset	88	#else
6de8ac1d3e88 oops Claus Gittinger <cg@exept.de> parents: 3681 diff changeset	89	# define DEBUGBUFFER(buf) /* nothing */
6de8ac1d3e88 oops Claus Gittinger <cg@exept.de> parents: 3681 diff changeset	90	#endif
6de8ac1d3e88 oops Claus Gittinger <cg@exept.de> parents: 3681 diff changeset	91
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	92	/*
a8abff749575 * empty log message * claus parents: 213 diff changeset	93	* stdio library requires an fseek before reading whenever a file
a8abff749575 * empty log message * claus parents: 213 diff changeset	94	* is open for read/write and the last operation was a write.
a8abff749575 * empty log message * claus parents: 213 diff changeset	95	* (also vice-versa).
a8abff749575 * empty log message * claus parents: 213 diff changeset	96	* All code should use the following macro before doing reads:
a8abff749575 * empty log message * claus parents: 213 diff changeset	97	*/
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	98	#ifdef STDIO_NEEDS_FSEEK
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	99	# 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	100	#else
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	101	# 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	102	#endif
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	103
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	104	#define __READING__(f) \
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	105	if ((__INST(didWrite) != false) \
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	106	&& (__INST(mode) == @symbol(readwrite))) { \
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	107	__INST(didWrite) = false; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	108	OPT_FSEEK(f, 0L, SEEK_CUR); /* needed in stdio */ \
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	109	}
a8abff749575 * empty log message * claus parents: 213 diff changeset	110
a8abff749575 * empty log message * claus parents: 213 diff changeset	111	#define __WRITING__(f) \
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	112	if ((__INST(didWrite) != true) \
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	113	&& (__INST(mode) == @symbol(readwrite))) { \
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	114	__INST(didWrite) = true; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	115	OPT_FSEEK(f, 0L, SEEK_CUR); /* needed in stdio */ \
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	116	}
a8abff749575 * empty log message * claus parents: 213 diff changeset	117
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	118
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	119	#ifdef NO_STDIO
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	120	#define __UNGETC__(c, f, isBuffered) \
2963 17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	121	__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	122	#else
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	123	#define __UNGETC__(c, f, isBuffered) \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	124	if (isBuffered) { \
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	125	ungetc((c), (f)); \
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	126	} else { \
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	127	__INST(readAhead) = __MKSMALLINT((c)); \
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	128	}
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	129	#endif
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	130
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	131	#ifdef NO_STDIO
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	132	#define __READBYTE__(ret, f, buf, isBuffered) \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	133	{ \
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	134	OBJ rA = __INST(readAhead); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	135	if (rA != nil) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	136	*(buf) = __intVal(rA); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	137	DEBUGBUFFER(buf); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	138	__INST(readAhead) = nil; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	139	(ret) = 1; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	140	} else { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	141	for (;;) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	142	CLEAR_ERRNO; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	143	(ret) = READ(f, buf, 1); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	144	DEBUGBUFFER(buf); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	145	if ((ret) >= 0 \|\| errno != EINTR) \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	146	break; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	147	__HANDLE_INTERRUPTS__; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	148	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	149	} \
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	150	}
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	151	#else
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	152	#define __READBYTE__(ret, f, buf, isBuffered) \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	153	if (isBuffered) { \
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	154	for (;;) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	155	CLEAR_ERRNO; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	156	(ret) = getc(f); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	157	if ((ret) >= 0) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	158	DEBUGBUFFER(buf); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	159	*(buf) = (ret); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	160	(ret) = 1; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	161	} else if (ferror(f)) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	162	if (errno == EINTR) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	163	__HANDLE_INTERRUPTS__; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	164	clearerr(f); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	165	continue; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	166	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	167	} else \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	168	(ret) = 0; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	169	break; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	170	} \
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	171	} else { \
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	172	OBJ rA = __INST(readAhead); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	173	if (rA != nil) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	174	*(buf) = __intVal(rA); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	175	DEBUGBUFFER(buf); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	176	__INST(readAhead) = nil; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	177	(ret) = 1; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	178	} else { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	179	for (;;) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	180	CLEAR_ERRNO; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	181	(ret) = read(fileno(f), buf, 1); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	182	DEBUGBUFFER(buf); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	183	if ((ret) >= 0 \|\| errno != EINTR) \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	184	break; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	185	__HANDLE_INTERRUPTS__; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	186	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	187	} \
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	188	}
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	189	#endif
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	190
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	191	/*
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	192	* 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	193	* (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	194	*/
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	195	#ifdef NO_STDIO
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	196	#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	197	{ \
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	198	int __offs = 0; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	199	\
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	200	while (__offs < (cnt)) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	201	OBJ rA = __INST(readAhead); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	202	if (rA != nil) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	203	(buf)[__offs] = __intVal(rA); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	204	DEBUGBUFFER(buf); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	205	__INST(readAhead) = nil; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	206	(ret) = 1; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	207	} else { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	208	CLEAR_ERRNO; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	209	(ret) = READ(f, (buf)+__offs, (cnt)-__offs); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	210	DEBUGBUFFER(buf); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	211	if ((ret) <= 0) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	212	if ((ret) < 0 && errno == EINTR) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	213	__HANDLE_INTERRUPTS__; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	214	continue; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	215	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	216	break; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	217	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	218	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	219	__offs += (ret); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	220	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	221	if (__offs > 0) \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	222	(ret) = __offs; \
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	223	}
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	224	#else
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	225	#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	226	(ret) = 0; \
71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	227	if (isBuffered) { \
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	228	int __offs = 0; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	229	while (__offs < (cnt)) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	230	CLEAR_ERRNO; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	231	(ret) = getc(f); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	232	if ((ret) < 0) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	233	if (ferror(f)) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	234	if (errno == EINTR) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	235	__HANDLE_INTERRUPTS__; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	236	clearerr(f); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	237	continue; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	238	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	239	} else { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	240	(ret) = 0; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	241	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	242	break; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	243	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	244	DEBUGBUFFER(buf); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	245	(buf)[__offs++] = (ret); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	246	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	247	if (__offs > 0) \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	248	(ret) = __offs; \
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	249	} else { \
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	250	int __offs = 0; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	251	int fd = fileno(f); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	252	\
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	253	while (__offs < (cnt)) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	254	OBJ rA = __INST(readAhead); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	255	if (rA != nil) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	256	DEBUGBUFFER(buf); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	257	(buf)[__offs] = __intVal(rA); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	258	__INST(readAhead) = nil; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	259	(ret) = 1; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	260	} else { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	261	CLEAR_ERRNO; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	262	(ret) = read(fd, (buf)+__offs, (cnt)-__offs); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	263	DEBUGBUFFER(buf); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	264	if ((ret) <= 0) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	265	if ((ret) < 0 && errno == EINTR) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	266	__HANDLE_INTERRUPTS__; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	267	continue; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	268	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	269	break; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	270	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	271	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	272	__offs += (ret); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	273	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	274	if (__offs > 0) \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	275	(ret) = __offs; \
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	276	}
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	277
3554 320cbfef9382 made nextAvail really unblocking Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	278	#if defined(F_GETFL) && defined(F_SETFL) && defined(FNDELAY)
320cbfef9382 made nextAvail really unblocking Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	279	# define GETFLAGS(fd) \
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	280	fcntl(fd, F_GETFL, 0);
3554 320cbfef9382 made nextAvail really unblocking Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	281
320cbfef9382 made nextAvail really unblocking Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	282	# define SETFLAGS(fd, flags) \
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	283	fcntl(fd, F_SETFL, flags)
3554 320cbfef9382 made nextAvail really unblocking Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	284
320cbfef9382 made nextAvail really unblocking Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	285	# define SETNONBLOCKING(fd) \
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	286	{ \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	287	int flags; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	288	flags = fcntl(fd, F_GETFL, 0); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	289	if (flags >= 0) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	290	fcntl(fd, F_SETFL, flags \| FNDELAY); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	291	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	292	}
3554 320cbfef9382 made nextAvail really unblocking Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	293	#else
320cbfef9382 made nextAvail really unblocking Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	294	# define GETFLAGS(fd) 0
320cbfef9382 made nextAvail really unblocking Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	295	# define SETFLAGS(fd, flags) /* nothing */
320cbfef9382 made nextAvail really unblocking Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	296	# define SETNONBLOCKING(fd) /* nothing */
320cbfef9382 made nextAvail really unblocking Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	297	#endif
320cbfef9382 made nextAvail really unblocking Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	298
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	299	#define __READAVAILBYTES__(ret, f, buf, cnt, isBuffered) \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	300	{ \
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	301	int __offs = 0; \
3681 55dc17d40aab fixed nextAvail Claus Gittinger <cg@exept.de> parents: 3674 diff changeset	302	int oldFlags; \
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	303	\
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	304	(ret) = 0; \
3681 55dc17d40aab fixed nextAvail Claus Gittinger <cg@exept.de> parents: 3674 diff changeset	305	oldFlags = GETFLAGS(fileno(f)); \
55dc17d40aab fixed nextAvail Claus Gittinger <cg@exept.de> parents: 3674 diff changeset	306	SETNONBLOCKING(fileno(f)); \
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	307	if (isBuffered) { \
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	308	while (__offs < (cnt)) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	309	CLEAR_ERRNO; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	310	(ret) = getc(f); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	311	if ((ret) < 0) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	312	if (ferror(f)) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	313	if (errno == EINTR) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	314	(ret) = 0; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	315	clearerr(f); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	316	break; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	317	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	318	} else { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	319	(ret) = 0; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	320	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	321	break; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	322	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	323	(buf)[__offs++] = (ret); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	324	DEBUGBUFFER(buf); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	325	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	326	if (__offs > 0) \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	327	(ret) = __offs; \
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	328	} else { \
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	329	int fd = fileno(f); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	330	\
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	331	while (__offs < (cnt)) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	332	OBJ rA = __INST(readAhead); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	333	if (rA != nil) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	334	(buf)[__offs] = __intVal(rA); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	335	DEBUGBUFFER(buf); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	336	__INST(readAhead) = nil; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	337	(ret) = 1; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	338	__offs += (ret); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	339	continue; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	340	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	341	CLEAR_ERRNO; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	342	(ret) = read(fd, (buf)+__offs, (cnt)-__offs); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	343	DEBUGBUFFER(buf); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	344	if ((ret) < 0) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	345	if (errno == EINTR) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	346	(ret) = 0; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	347	break; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	348	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	349	break; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	350	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	351	__offs += (ret); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	352	break; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	353	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	354	if (__offs > 0) \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	355	(ret) = __offs; \
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	356	} \
3681 55dc17d40aab fixed nextAvail Claus Gittinger <cg@exept.de> parents: 3674 diff changeset	357	SETFLAGS(fileno(f), oldFlags); \
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	358	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	359
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	360	#endif
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	361
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	362	/*
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	363	* 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	364	* (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	365	*/
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	366	#ifdef NO_STDIO
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	367	#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	368	{ \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	369	int __ooffs = obj_offs; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	370	int __offs = 0; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	371	char buf = (char )(obj); \
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	372	\
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	373	(ret) = 0; \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	374	{ \
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	375	while (__offs < (cnt)) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	376	OBJ rA = __INST(readAhead); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	377	if (rA != nil) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	378	(buf)[__ooffs+__offs] = __intVal(rA); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	379	DEBUGBUFFER(buf); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	380	__INST(readAhead) = nil; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	381	(ret) = 1; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	382	} else { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	383	CLEAR_ERRNO; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	384	(ret) = READ(f, (buf)+__ooffs+__offs, (cnt)-__offs); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	385	DEBUGBUFFER(buf); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	386	if ((ret) <= 0) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	387	if ((ret) < 0 && errno == EINTR) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	388	__HANDLE_INTERRUPTS__; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	389	/* refetch */ \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	390	buf = (char *)(obj); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	391	continue; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	392	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	393	break; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	394	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	395	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	396	__offs += (ret); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	397	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	398	if (__offs > 0) \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	399	(ret) = __offs; \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	400	} \
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	401	}
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	402	#else
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	403	#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	404	{ \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	405	int __ooffs = obj_offs; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	406	int __offs = 0; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	407	char buf = (char )(obj); \
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	408	\
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	409	(ret) = 0; \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	410	if (isBuffered) { \
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	411	while (__offs < (cnt)) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	412	CLEAR_ERRNO; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	413	(ret) = getc(f); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	414	if ((ret) < 0) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	415	if (ferror(f)) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	416	if (errno == EINTR) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	417	__HANDLE_INTERRUPTS__; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	418	clearerr(f); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	419	/* refetch */ \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	420	buf = (char *)(obj); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	421	DEBUGBUFFER(buf); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	422	continue; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	423	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	424	} else { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	425	(ret) = 0; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	426	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	427	break; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	428	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	429	(buf)[__ooffs+__offs] = (ret); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	430	DEBUGBUFFER(buf); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	431	__offs++; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	432	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	433	if (__offs > 0) \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	434	(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	435	} else { \
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	436	int fd = fileno(f); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	437	\
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	438	while (__offs < (cnt)) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	439	OBJ rA = __INST(readAhead); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	440	if (rA != nil) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	441	(buf)[__ooffs+__offs] = __intVal(rA); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	442	DEBUGBUFFER(buf); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	443	__INST(readAhead) = nil; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	444	(ret) = 1; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	445	} else { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	446	CLEAR_ERRNO; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	447	(ret) = read(fd, (buf)+__ooffs+__offs, (cnt)-__offs); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	448	DEBUGBUFFER(buf); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	449	if ((ret) <= 0) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	450	if ((ret) < 0 && errno == EINTR) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	451	__HANDLE_INTERRUPTS__; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	452	/* refetch */ \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	453	buf = (char *)(obj); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	454	continue; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	455	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	456	break; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	457	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	458	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	459	__offs += (ret); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	460	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	461	if (__offs > 0) \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	462	(ret) = __offs; \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	463	} \
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	464	}
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	465
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	466	#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	467	{ \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	468	int __ooffs = obj_offs; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	469	int __offs = 0; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	470	char buf = (char )(obj); \
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	471	\
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	472	(ret) = 0; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	473	if (isBuffered) { \
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	474	while (__offs < (cnt)) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	475	CLEAR_ERRNO; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	476	(ret) = getc(f); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	477	if ((ret) < 0) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	478	if (ferror(f)) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	479	if (errno == EINTR) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	480	clearerr(f); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	481	/* refetch */ \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	482	buf = (char *)(obj); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	483	(ret) = 0; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	484	break; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	485	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	486	} else { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	487	(ret) = 0; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	488	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	489	break; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	490	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	491	(buf)[__ooffs+__offs] = (ret); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	492	DEBUGBUFFER(buf); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	493	__offs++; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	494	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	495	if (__offs > 0) \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	496	(ret) = __offs; \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	497	} else { \
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	498	int fd = fileno(f); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	499	\
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	500	while (__offs < (cnt)) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	501	OBJ rA = __INST(readAhead); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	502	if (rA != nil) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	503	(buf)[__ooffs+__offs] = __intVal(rA); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	504	DEBUGBUFFER(buf); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	505	__INST(readAhead) = nil; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	506	(ret) = 1; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	507	__offs += (ret); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	508	continue; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	509	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	510	CLEAR_ERRNO; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	511	(ret) = read(fd, (buf)+__ooffs+__offs, (cnt)-__offs); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	512	DEBUGBUFFER(buf); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	513	if ((ret) < 0 && errno == EINTR) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	514	/* refetch */ \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	515	(ret) = 0; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	516	buf = (char *)(obj); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	517	break; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	518	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	519	__offs += (ret); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	520	break; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	521	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	522	if (__offs > 0) \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	523	(ret) = __offs; \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	524	} \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	525	}
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	526
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	527
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	528	#endif
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	529
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	530	#ifdef NO_STDIO
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	531	#define __WRITEBYTE__(ret, f, buf, isBuffered) \
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	532	for (;;) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	533	CLEAR_ERRNO; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	534	(ret) = WRITE(f, buf, 1); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	535	if ((ret) >= 0 \|\| errno != EINTR) \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	536	break; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	537	__HANDLE_INTERRUPTS__; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	538	}
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	539	#else
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	540	#define __WRITEBYTE__(ret, f, buf, isBuffered) \
71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	541	if (isBuffered) { \
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	542	for (;;) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	543	CLEAR_ERRNO; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	544	ret = putc(*(buf), f); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	545	if ((ret) >= 0) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	546	(ret) = 1; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	547	} else if (ferror(f)) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	548	if (errno == EINTR) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	549	__HANDLE_INTERRUPTS__; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	550	clearerr(f); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	551	continue; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	552	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	553	} else \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	554	(ret) = 0; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	555	break; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	556	} \
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	557	} else { \
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	558	for (;;) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	559	CLEAR_ERRNO; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	560	(ret) = write(fileno(f), buf, 1); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	561	if ((ret) >= 0 \|\| errno != EINTR) \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	562	break; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	563	__HANDLE_INTERRUPTS__; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	564	} \
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 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	#endif
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	567
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	568	/*
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	569	* 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	570	* (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	571	*/
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	572	#ifdef NO_STDIO
2961 a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	573	#define __WRITEBYTES__(ret, f, buf, cnt, isBuffered) \
a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	574	(ret) = 0; \
a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	575	{ \
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	576	int __offs = 0; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	577	while (__offs < (cnt)) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	578	CLEAR_ERRNO; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	579	ret = WRITE(f, (buf)+__offs, (cnt)-__offs); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	580	if (ret <= 0) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	581	if (ret < 0 && errno == EINTR) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	582	__HANDLE_INTERRUPTS__; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	583	continue; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	584	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	585	break; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	586	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	587	__offs += (ret); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	588	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	589	if (__offs > 0) \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	590	(ret) = __offs; \
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	591	}
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	592	#else
2961 a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	593	#define __WRITEBYTES__(ret, f, buf, cnt, isBuffered) \
a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	594	(ret) = 0; \
a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	595	if (isBuffered) { \
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	596	int __offs = 0; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	597	while (__offs < (cnt)) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	598	CLEAR_ERRNO; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	599	ret = fwrite((buf)+__offs, 1, (cnt)-__offs, f);\
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	600	if ((ret) <= 0) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	601	if (ferror(f)) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	602	if (errno == EINTR) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	603	__HANDLE_INTERRUPTS__; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	604	clearerr(f); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	605	continue; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	606	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	607	break; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	608	} else { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	609	(ret) = 0; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	610	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	611	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	612	__offs += (ret); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	613	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	614	if (__offs > 0) \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	615	(ret) = __offs; \
2961 a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	616	} else { \
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	617	int __offs = 0; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	618	while (__offs < (cnt)) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	619	CLEAR_ERRNO; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	620	ret = write(fileno(f), (buf)+__offs, (cnt)-__offs);\
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	621	if (ret <= 0) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	622	if (ret < 0 && errno == EINTR) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	623	__HANDLE_INTERRUPTS__; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	624	continue; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	625	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	626	break; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	627	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	628	__offs += (ret); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	629	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	630	if (__offs > 0) \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	631	(ret) = __offs; \
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 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	#endif
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	634
223 3075043790b8 immediateInterr & errno cleanup claus parents: 216 diff changeset	635	/*
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	636	* 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	637	* (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	638	*/
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	639	#ifdef NO_STDIO
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	640	#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	641	{ \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	642	int __ooffs = obj_offs; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	643	int __offs = 0; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	644	char buf = (char )(obj); \
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	645	\
2961 a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	646	(ret) = 0; \
a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	647	{ \
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	648	while (__offs < (cnt)) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	649	CLEAR_ERRNO; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	650	ret = WRITE(f, (buf)+__ooffs+__offs, (cnt)-__offs); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	651	if (ret <= 0) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	652	if (ret < 0 && errno == EINTR) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	653	__HANDLE_INTERRUPTS__; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	654	/* refetch */ \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	655	buf = (char *)(obj); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	656	continue; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	657	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	658	break; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	659	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	660	__offs += (ret); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	661	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	662	if (__offs > 0) \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	663	(ret) = __offs; \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	664	} \
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	665	}
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	666	#else
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	667	#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	668	{ \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	669	int __ooffs = obj_offs; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	670	int __offs = 0; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	671	char buf = (char )(obj); \
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	672	\
2961 a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	673	(ret) = 0; \
a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	674	if (isBuffered) { \
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	675	while (__offs < (cnt)) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	676	CLEAR_ERRNO; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	677	ret = fwrite((buf)+__ooffs+__offs, 1, (cnt)-__offs, f); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	678	if ((ret) <= 0) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	679	if (ferror(f)) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	680	if (errno == EINTR) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	681	__HANDLE_INTERRUPTS__; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	682	/* refetch */ \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	683	buf = (char *)(obj); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	684	clearerr(f); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	685	continue; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	686	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	687	break; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	688	} else { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	689	(ret) = 0; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	690	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	691	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	692	__offs += (ret); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	693	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	694	if (__offs > 0) \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	695	(ret) = __offs; \
2961 a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	696	} else { \
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	697	while (__offs < (cnt)) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	698	CLEAR_ERRNO; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	699	ret = write(fileno(f), (buf)+__ooffs+__offs, (cnt)-__offs); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	700	if (ret <= 0) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	701	if (ret < 0 && errno == EINTR) { \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	702	__HANDLE_INTERRUPTS__; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	703	/* refetch */ \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	704	buf = (char *)(obj); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	705	continue; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	706	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	707	break; \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	708	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	709	__offs += (ret); \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	710	} \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	711	if (__offs > 0) \
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	712	(ret) = __offs; \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	713	} \
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	714	}
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	715	#endif
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	716
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	717	/*
223 3075043790b8 immediateInterr & errno cleanup claus parents: 216 diff changeset	718	* on some systems errno is a macro ... check for it here
3075043790b8 immediateInterr & errno cleanup claus parents: 216 diff changeset	719	*/
3075043790b8 immediateInterr & errno cleanup claus parents: 216 diff changeset	720	#ifndef errno
3075043790b8 immediateInterr & errno cleanup claus parents: 216 diff changeset	721	extern errno;
3075043790b8 immediateInterr & errno cleanup claus parents: 216 diff changeset	722	#endif
3075043790b8 immediateInterr & errno cleanup claus parents: 216 diff changeset	723
1 a27a279701f8 Initial revision claus parents: diff changeset	724	%}
188 454ed0ee733e EINTR problems claus parents: 159 diff changeset	725	! !
1 a27a279701f8 Initial revision claus parents: diff changeset	726
2045 1ad17ca6520f fall back to super>>nextPutLine: if argument is not a string. Claus Gittinger <cg@exept.de> parents: 2044 diff changeset	727	!ExternalStream class methodsFor:'documentation'!
22 847106305963 * empty log message * claus parents: 12 diff changeset	728
88 81dacba7a63a * empty log message * claus parents: 85 diff changeset	729	copyright
81dacba7a63a * empty log message * claus parents: 85 diff changeset	730	"
81dacba7a63a * empty log message * claus parents: 85 diff changeset	731	COPYRIGHT (c) 1988 by Claus Gittinger
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	732	All Rights Reserved
88 81dacba7a63a * empty log message * claus parents: 85 diff changeset	733
81dacba7a63a * empty log message * claus parents: 85 diff changeset	734	This software is furnished under a license and may be used
81dacba7a63a * empty log message * claus parents: 85 diff changeset	735	only in accordance with the terms of that license and with the
81dacba7a63a * empty log message * claus parents: 85 diff changeset	736	inclusion of the above copyright notice. This software may not
81dacba7a63a * empty log message * claus parents: 85 diff changeset	737	be provided or otherwise made available to, or used by, any
81dacba7a63a * empty log message * claus parents: 85 diff changeset	738	other person. No title to or ownership of the software is
81dacba7a63a * empty log message * claus parents: 85 diff changeset	739	hereby transferred.
81dacba7a63a * empty log message * claus parents: 85 diff changeset	740	"
81dacba7a63a * empty log message * claus parents: 85 diff changeset	741	!
81dacba7a63a * empty log message * claus parents: 85 diff changeset	742
22 847106305963 * empty log message * claus parents: 12 diff changeset	743	documentation
847106305963 * empty log message * claus parents: 12 diff changeset	744	"
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	745	ExternalStream defines protocol common to Streams which have a file-descriptor and
59faa75185ba * empty log message * claus parents: 54 diff changeset	746	represent some file or communicationChannel of the underlying OperatingSystem.
59faa75185ba * empty log message * claus parents: 54 diff changeset	747	ExternalStream is abstract; concrete classes are FileStream, PipeStream etc.
77 6c38ca59927f * empty log message * claus parents: 68 diff changeset	748
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	749	ExternalStreams can be in two modes: text- (the default) and binary-mode.
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	750	In text-mode, the elements read/written are characters;
59faa75185ba * empty log message * claus parents: 54 diff changeset	751	while in binary-mode the basic elements are bytes which read/write as SmallIntegers
59faa75185ba * empty log message * claus parents: 54 diff changeset	752	in the range 0..255.
22 847106305963 * empty log message * claus parents: 12 diff changeset	753
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	754	Also, the stream can be either in buffered or unbuffered mode. In buffered mode,
59faa75185ba * empty log message * claus parents: 54 diff changeset	755	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	756	is sent (in both modes).
22 847106305963 * empty log message * claus parents: 12 diff changeset	757
77 6c38ca59927f * empty log message * claus parents: 68 diff changeset	758	The underlying OperatingSystem streams may either be closed explicitely (sending a close)
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	759	or just forgotten - in this case, the garbage collector will eventually collect the
77 6c38ca59927f * empty log message * claus parents: 68 diff changeset	760	object AND a close will be performed automatically (but you will NOT know when this
6c38ca59927f * empty log message * claus parents: 68 diff changeset	761	happens - so it is recommended, that you close your files when no longer needed).
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	762	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	763	some crash) the data will not be in the file, if unclosed.
6c38ca59927f * empty log message * claus parents: 68 diff changeset	764	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	765	a noop in one of the superclasses).
22 847106305963 * empty log message * claus parents: 12 diff changeset	766
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	767	Most of the methods found here redefine inherited methods for better performance,
59faa75185ba * empty log message * claus parents: 54 diff changeset	768	since I/O from/to files should be fast.
22 847106305963 * empty log message * claus parents: 12 diff changeset	769
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	770	Recovering a snapshot:
1295 83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	771	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	772	reOpen in subclasses for more information.
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	773	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	774	reestablish the stream upon image restart (make someone dependent on ObjectMemory).
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	775	FileStreams are reopened and positioned to their offset they had at snapshot time.
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	776	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	777	if the contents changed in the meantime.
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	778	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	779
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	780	[Instance variables:]
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	781
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	782	filePointer <Integer> the unix FILE*; somehow mapped to an integer
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	783	(notice: not the fd)
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	784	on Windows: the fileHandle
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	785	mode <Symbol> #readwrite, #readonly or #writeonly
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	786	buffered <Boolean> true, if buffered (i.e. collects characters - does
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	787	not output immediately)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	788	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	789	eolMode <Symbol> one of nil, #cr or #crlf.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	790	determines how lines should be terminated.
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	791	nil -> newLine (as in Unix);
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	792	#crlf -> with cr-lf (as in MSDOS)
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	793	#cr -> with cr (as in VMS)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	794	hitEOF <Boolean> true, if EOF was reached
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	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	797	updated with next i/o operation)
1295 83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	798
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	799	[Class variables:]
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	800	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	801
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	802	StreamErrorSignal <Signal> parent of all stream errors (see Stream class)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	803	InvalidReadSignal <Signal> raised on read from writeonly stream
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	804	InvalidWriteSignal <Signal> raised on write to readonly stream
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	805	InvalidModeSignal <Signal> raised on text I/O with binary-stream
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	806	or binary I/O with text-stream
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	807	OpenErrorSignal <Signal> raised if open fails
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	808	StreamNotOpenSignal <Signal> raised on I/O with non-open stream
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	809
514c749165c3 * empty log message * claus parents: 108 diff changeset	810	Additional notes:
514c749165c3 * empty log message * claus parents: 108 diff changeset	811	This class is implemented using the underlying stdio-c library package, which
514c749165c3 * empty log message * claus parents: 108 diff changeset	812	has both advantages and disadvantages: since it is portable (posix defined), porting
514c749165c3 * empty log message * claus parents: 108 diff changeset	813	ST/X to non-Unix machines is simplified. The disadvantage is that the stdio library
514c749165c3 * empty log message * claus parents: 108 diff changeset	814	has big problems handling unbounded Streams, since the EOF handling in stdio is
514c749165c3 * empty log message * claus parents: 108 diff changeset	815	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	816	a complete rewrite for UnboundedStream ...
325 46bca6125b93 . claus parents: 308 diff changeset	817
188 454ed0ee733e EINTR problems claus parents: 159 diff changeset	818	Also, depending on the system, the stdio library behaves infriendly when signals
454ed0ee733e EINTR problems claus parents: 159 diff changeset	819	occur while reading (for example, timer interrupts) - on real unixes (i.e. BSD) the signal
454ed0ee733e EINTR problems claus parents: 159 diff changeset	820	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	821	an error and errno is set to EINTR.
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	822	Thats what the ugly code around all getc-calls is for ...
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	823	Since things get more and more ugly - we will rewrite ExternalStream
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	824	completely, to NOT use any stdio stuff (and do its buffering itself).
325 46bca6125b93 . claus parents: 308 diff changeset	825
46bca6125b93 . claus parents: 308 diff changeset	826	Notice that typical stdio's use a single errno global variable to return an error code,
46bca6125b93 . claus parents: 308 diff changeset	827	this was bad design in the stdio lib (right from the very beginning), since its much
46bca6125b93 . claus parents: 308 diff changeset	828	harder to deal with this in the presence of lightweight processes, where errno gets
46bca6125b93 . claus parents: 308 diff changeset	829	overwritten by an I/O operation done in another thread. (stdio should have been written
46bca6125b93 . claus parents: 308 diff changeset	830	to return errno as a negative number ...).
46bca6125b93 . claus parents: 308 diff changeset	831	To deal with this, the scheduler treats errno like a per-thread private variable,
46bca6125b93 . claus parents: 308 diff changeset	832	and saves/restores the errno setting when switching to another thread.
46bca6125b93 . claus parents: 308 diff changeset	833	(Notice that some thread packages do this also, but ST/X's thread implementation
46bca6125b93 . claus parents: 308 diff changeset	834	does not depend on those, but instead uses a portable private package).
46bca6125b93 . claus parents: 308 diff changeset	835
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	836	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	837	fseek whenever we are about to read after write and vice versa.
a8abff749575 * empty log message * claus parents: 213 diff changeset	838	Two macros (__READING__ and __WRITING__) have been defined to be used before every
a8abff749575 * empty log message * claus parents: 213 diff changeset	839	fread/fgetc and fwrite/putc respectively.
1295 83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	840
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	841	[author:]
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	842	Claus Gittinger
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	843	Stefan Vogel (many, many fixes ...)
1295 83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	844
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	845	[see also:]
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	846	FileStream Socket PipeStream
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	847	Filename OperatingSystem
22 847106305963 * empty log message * claus parents: 12 diff changeset	848	"
3255 eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	849	!
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	850
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	851	examples
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	852	"
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	853	open a file, read the contents and display it in a textView:
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	854
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	855	\|topView scrollPane textView fileStream text\|
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	856
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	857	topView := StandardSystemView new.
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	858	topView label:'contents of Makefile'.
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	scrollPane := HVScrollableView in:topView.
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	861	scrollPane origin:0.0@0.0 corner:1.0@1.0.
3255 eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	862
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	863	textView := EditTextView new.
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	864	scrollPane scrolledView:textView.
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	fileStream := 'Makefile' asFilename readStream.
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	867	text := fileStream upToEnd.
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	868	fileStream close.
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	869
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	870	textView contents:text.
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	871
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	872	topView open.
3255 eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	873
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	874
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	875
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	876	Notice, all of the above can also be done (simply) as:
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	877
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	878	EditTextView openOn:'Makefile'
3255 eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	879	"
22 847106305963 * empty log message * claus parents: 12 diff changeset	880	! !
847106305963 * empty log message * claus parents: 12 diff changeset	881
2045 1ad17ca6520f fall back to super>>nextPutLine: if argument is not a string. Claus Gittinger <cg@exept.de> parents: 2044 diff changeset	882	!ExternalStream class methodsFor:'initialization'!
1 a27a279701f8 Initial revision claus parents: diff changeset	883
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	884	initDefaultEOLMode
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	885	OperatingSystem isUNIXlike ifTrue:[
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	886	"/ unix EOL conventions
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	887	DefaultEOLMode := #nl
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	888	] ifFalse:[
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	889	OperatingSystem isVMSlike ifTrue:[
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	890	"/ vms EOL conventions
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	891	DefaultEOLMode := #cr
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	892	] ifFalse:[
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	893	"/ msdos EOL conventions
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	894	DefaultEOLMode := #crlf
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	895	]
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	896	]
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	897	!
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	898
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	899	initModeStrings
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	900	"initialize modeStrings which are passed down to the underlying
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	901	fopen/fdopen functions."
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	902
3132 037027ae20fd msdos MUST use binary mode in I/O Claus Gittinger <cg@exept.de> parents: 3044 diff changeset	903	OperatingSystem isMSDOSlike ifTrue:[
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	904	ReadMode := 'rb'.
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	905	ReadWriteMode := 'rb+'.
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	906	WriteMode := 'wb'.
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	907	AppendMode := 'ab+'.
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	908	CreateReadWriteMode := 'wb+'.
3132 037027ae20fd msdos MUST use binary mode in I/O Claus Gittinger <cg@exept.de> parents: 3044 diff changeset	909	] ifFalse:[
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	910	ReadMode := 'r'.
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	911	ReadWriteMode := 'r+'.
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	912	WriteMode := 'w'.
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	913	AppendMode := 'a+'.
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	914	CreateReadWriteMode := 'w+'.
3132 037027ae20fd msdos MUST use binary mode in I/O Claus Gittinger <cg@exept.de> parents: 3044 diff changeset	915	]
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	916	!
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	917
1 a27a279701f8 Initial revision claus parents: diff changeset	918	initialize
593 19d568779cf7 moved StreamErrorSignal into Stream; Claus Gittinger <cg@exept.de> parents: 583 diff changeset	919	OpenErrorSignal isNil ifTrue:[
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	920	OpenErrorSignal := StreamErrorSignal newSignalMayProceed:true.
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	921	OpenErrorSignal nameClass:self message:#openErrorSignal.
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	922	OpenErrorSignal notifierString:'open error'.
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	923
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	924	InvalidReadSignal := ReadErrorSignal newSignalMayProceed:false.
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	925	InvalidReadSignal nameClass:self message:#invalidReadSignal.
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	926	InvalidReadSignal notifierString:'read error'.
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	927
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	928	InvalidWriteSignal := WriteErrorSignal newSignalMayProceed:false.
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	929	InvalidWriteSignal nameClass:self message:#invalidWriteSignal.
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	930	InvalidWriteSignal notifierString:'write error'.
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	931
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	932	InvalidModeSignal := StreamErrorSignal newSignalMayProceed:false.
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	933	InvalidModeSignal nameClass:self message:#invalidModeSignal.
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	934	InvalidModeSignal notifierString:'binary/text mode mismatch'.
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	935
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	936	InvalidOperationSignal := StreamErrorSignal newSignalMayProceed:false.
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	937	InvalidOperationSignal nameClass:self message:#invalidOperationSignal.
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	938	InvalidOperationSignal notifierString:'unsupported file operation'.
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	939
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	940	StreamNotOpenSignal := StreamErrorSignal newSignalMayProceed:false.
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	941	StreamNotOpenSignal nameClass:self message:#streamNotOpenSignal.
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	942	StreamNotOpenSignal notifierString:'stream is not open'.
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	943
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	944	StreamIOErrorSignal := StreamErrorSignal newSignalMayProceed:false.
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	945	StreamIOErrorSignal nameClass:self message:#streamIOErrorSignal.
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	946	StreamIOErrorSignal notifierString:'I/O error'.
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	947	].
514c749165c3 * empty log message * claus parents: 108 diff changeset	948
31 75f2b9f78be2 * empty log message * claus parents: 25 diff changeset	949	Lobby isNil ifTrue:[
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	950	Lobby := Registry new.
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	951
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	952	"want to get informed when returning from snapshot"
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	953	ObjectMemory addDependent:self
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	954	].
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	955	self initDefaultEOLMode.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	956	self initModeStrings.
3474 1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	957
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	958	"Modified: / 21.5.1998 / 16:33:53 / cg"
1 a27a279701f8 Initial revision claus parents: diff changeset	959	!
a27a279701f8 Initial revision claus parents: diff changeset	960
a27a279701f8 Initial revision claus parents: diff changeset	961	reOpenFiles
4108 8c4a45bc70eb perform reOpen of streams earlier (before doing the view-reinit) Claus Gittinger <cg@exept.de> parents: 4093 diff changeset	962	"reopen all files (if possible) after a snapShot load.
8c4a45bc70eb perform reOpen of streams earlier (before doing the view-reinit) Claus Gittinger <cg@exept.de> parents: 4093 diff changeset	963	This is invoked via the #earlyRestart change notification."
1 a27a279701f8 Initial revision claus parents: diff changeset	964
301 35e40a6fc72b * empty log message * claus parents: 269 diff changeset	965	Lobby do:[:aFileStream \|
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	966	aFileStream reOpen
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	967	].
1 a27a279701f8 Initial revision claus parents: diff changeset	968	!
a27a279701f8 Initial revision claus parents: diff changeset	969
1469 570ef7f8667b checkin from browser Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	970	update:something with:aParameter from:changedObject
1 a27a279701f8 Initial revision claus parents: diff changeset	971	"have to reopen files when returning from snapshot"
a27a279701f8 Initial revision claus parents: diff changeset	972
4108 8c4a45bc70eb perform reOpen of streams earlier (before doing the view-reinit) Claus Gittinger <cg@exept.de> parents: 4093 diff changeset	973	something == #earlyRestart ifTrue:[
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	974	self reOpenFiles.
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	975	self initDefaultEOLMode
1 a27a279701f8 Initial revision claus parents: diff changeset	976	]
1469 570ef7f8667b checkin from browser Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	977
570ef7f8667b checkin from browser Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	978	"Created: 15.6.1996 / 15:19:59 / cg"
1 a27a279701f8 Initial revision claus parents: diff changeset	979	! !
a27a279701f8 Initial revision claus parents: diff changeset	980
2045 1ad17ca6520f fall back to super>>nextPutLine: if argument is not a string. Claus Gittinger <cg@exept.de> parents: 2044 diff changeset	981	!ExternalStream class methodsFor:'instance creation'!
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	982
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	983	forFileDescriptor:aFileDescriptor mode:modeString
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	984	"given a fileDescriptor, create an ExternalStream object
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	985	to operate on this fd.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	986	The mode-argument is passed to the fdopen call.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	987	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	988	primitive code, or to wrap pipe-fds into externalStreams."
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	989
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	990	\|newStream\|
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	991
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	992	newStream := self basicNew.
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	993	newStream text; buffered:true; eolMode:DefaultEOLMode; clearEOF.
3535 03890e8be43d added #makePTYPair Claus Gittinger <cg@exept.de> parents: 3490 diff changeset	994	^ newStream connectTo:aFileDescriptor withMode:modeString
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	995
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	996	"
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	997	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	998
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	999	\|s\|
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1000
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1001	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	1002	s next.
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
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1005	"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	1006	"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	1007	!
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1008
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1009	forReadWriteToFileDescriptor:aFileDescriptor
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1010	"given a fileDescriptor, create an ExternalStream object
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1011	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	1012	as returned by user primitive code, or to wrap pipe-
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1013	filedescriptors into externalStreams."
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1014
3535 03890e8be43d added #makePTYPair Claus Gittinger <cg@exept.de> parents: 3490 diff changeset	1015	^ (self forFileDescriptor:aFileDescriptor mode:ReadWriteMode) readwrite
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1016
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1017	"
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1018	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	1019
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1020	\|s\|
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1021
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1022	s := ExternalStream forReadWriteToFileDescriptor:15.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1023	s next.
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
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1026	"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	1027	"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	1028	!
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1029
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1030	forReadingFromFileDescriptor:aFileDescriptor
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1031	"given a fileDescriptor, create an ExternalStream object
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1032	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	1033	as returned by user primitive code, or to wrap pipe-
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1034	filedescriptors into externalStreams."
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1035
3535 03890e8be43d added #makePTYPair Claus Gittinger <cg@exept.de> parents: 3490 diff changeset	1036	^ (self forFileDescriptor:aFileDescriptor mode:ReadMode) readonly
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1037
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1038	"
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1039	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	1040
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1041	\|s\|
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	s := ExternalStream forReadingFromFileDescriptor:15.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1044	s next.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1045	"
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	"
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1048	\|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	1049
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1050	'create OS pipe ...'.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1051
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1052	pipe := OperatingSystem makePipe.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1053	readFd := pipe at:1.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1054	writeFd := pipe at:2.
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	'connect Smalltalk streams ...'.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1057
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1058	rs := ExternalStream forReadingFromFileDescriptor:readFd.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1059	ws := ExternalStream forWritingToFileDescriptor:writeFd.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1060
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1061	'read ...'.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1062	[
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1063	1 to:10 do:[:i \|
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1064	Transcript showCR:rs nextLine
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1065	].
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1066	rs close.
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1067	] forkAt:7.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1068
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1069	'write ...'.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1070	[
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1071	1 to:10 do:[:i \|
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1072	ws nextPutAll:'hello world '; nextPutAll:i printString; cr
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1073	].
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1074	ws close.
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1075	] fork.
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
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1079	"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	1080	"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	1081	!
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1082
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1083	forWritingToFileDescriptor:aFileDescriptor
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1084	"given a fileDescriptor, create an ExternalStream object
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1085	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	1086	as returned by user primitive code, or to wrap pipe-
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1087	filedescriptors into externalStreams."
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1088
3535 03890e8be43d added #makePTYPair Claus Gittinger <cg@exept.de> parents: 3490 diff changeset	1089	^ (self forFileDescriptor:aFileDescriptor mode:WriteMode) writeonly
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1090
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1091	"
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1092	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	1093
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1094	\|s\|
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	s := ExternalStream forWritingToFileDescriptor:15.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1097	s binary.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1098	s nextPut:1.
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
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1101	"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	1102	"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	1103	!
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1104
3535 03890e8be43d added #makePTYPair Claus Gittinger <cg@exept.de> parents: 3490 diff changeset	1105	makePTYPair
03890e8be43d added #makePTYPair Claus Gittinger <cg@exept.de> parents: 3490 diff changeset	1106	"return an array with two streams - the first one is the master,
03890e8be43d added #makePTYPair Claus Gittinger <cg@exept.de> parents: 3490 diff changeset	1107	the second the slave of a ptym/ptys pair.
03890e8be43d added #makePTYPair Claus Gittinger <cg@exept.de> parents: 3490 diff changeset	1108	This is much like a bidirectional pipe, but allows signals &
03890e8be43d added #makePTYPair Claus Gittinger <cg@exept.de> parents: 3490 diff changeset	1109	control chars to be passed through the connection.
03890e8be43d added #makePTYPair Claus Gittinger <cg@exept.de> parents: 3490 diff changeset	1110	This is needed to execute a shell in a view.
03890e8be43d added #makePTYPair Claus Gittinger <cg@exept.de> parents: 3490 diff changeset	1111	This is the higher level equivalent of OperatingSystem>>makePTYPair
03890e8be43d added #makePTYPair Claus Gittinger <cg@exept.de> parents: 3490 diff changeset	1112	(which returns an array of file-descriptors)."
03890e8be43d added #makePTYPair Claus Gittinger <cg@exept.de> parents: 3490 diff changeset	1113
03890e8be43d added #makePTYPair Claus Gittinger <cg@exept.de> parents: 3490 diff changeset	1114	\|ptyPair m s\|
03890e8be43d added #makePTYPair Claus Gittinger <cg@exept.de> parents: 3490 diff changeset	1115
03890e8be43d added #makePTYPair Claus Gittinger <cg@exept.de> parents: 3490 diff changeset	1116	ptyPair := OperatingSystem makePTYPair.
03890e8be43d added #makePTYPair Claus Gittinger <cg@exept.de> parents: 3490 diff changeset	1117	ptyPair notNil ifTrue:[
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1118	m := self forReadWriteToFileDescriptor:(ptyPair at:1).
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1119	s := self forReadWriteToFileDescriptor:(ptyPair at:2).
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1120	ptyPair at:1 put:m.
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1121	ptyPair at:2 put:s.
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1122	^ ptyPair
3535 03890e8be43d added #makePTYPair Claus Gittinger <cg@exept.de> parents: 3490 diff changeset	1123	].
03890e8be43d added #makePTYPair Claus Gittinger <cg@exept.de> parents: 3490 diff changeset	1124	^ nil
03890e8be43d added #makePTYPair Claus Gittinger <cg@exept.de> parents: 3490 diff changeset	1125
03890e8be43d added #makePTYPair Claus Gittinger <cg@exept.de> parents: 3490 diff changeset	1126	"
03890e8be43d added #makePTYPair Claus Gittinger <cg@exept.de> parents: 3490 diff changeset	1127	ExternalStream makePTYPair.
03890e8be43d added #makePTYPair Claus Gittinger <cg@exept.de> parents: 3490 diff changeset	1128	"
03890e8be43d added #makePTYPair Claus Gittinger <cg@exept.de> parents: 3490 diff changeset	1129
03890e8be43d added #makePTYPair Claus Gittinger <cg@exept.de> parents: 3490 diff changeset	1130	"Modified: 29.2.1996 / 18:28:36 / cg"
03890e8be43d added #makePTYPair Claus Gittinger <cg@exept.de> parents: 3490 diff changeset	1131	!
03890e8be43d added #makePTYPair Claus Gittinger <cg@exept.de> parents: 3490 diff changeset	1132
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1133	makePipe
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1134	"return an array with two streams - the first one for reading,
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1135	the second for writing.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1136	This is the higher level equivalent of OperatingSystem>>makePipe
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1137	(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	1138
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1139	\|pipe rs ws\|
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	pipe := OperatingSystem makePipe.
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	pipe notNil ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1144	rs := self forReadingFromFileDescriptor:(pipe at:1).
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1145	ws := self forWritingToFileDescriptor:(pipe at:2).
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1146	^ 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	1147	].
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1148	^ nil
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1149
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1150	"
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1151	\|pipe rs ws\|
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1152
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1153	pipe := ExternalStream makePipe.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1154	rs := pipe at:1.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1155	ws := pipe at:2.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1156
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1157	'read ...'.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1158	[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1159	1 to:10 do:[:i \|
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1160	Transcript showCR:rs nextLine
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1161	].
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1162	rs close.
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1163	] forkAt:7.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1164
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1165	'write ...'.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1166	[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1167	1 to:10 do:[:i \|
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1168	ws nextPutAll:'hello world '; nextPutAll:i printString; cr
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1169	].
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1170	ws close.
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1171	] fork.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1172	"
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1173
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1174	"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	1175	!
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1176
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1177	new
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1178	\|newStream\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1179
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1180	newStream := self basicNew.
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1181	newStream text; buffered:true; eolMode:DefaultEOLMode; clearEOF.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1182	^ newStream
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1183	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1184
2045 1ad17ca6520f fall back to super>>nextPutLine: if argument is not a string. Claus Gittinger <cg@exept.de> parents: 2044 diff changeset	1185	!ExternalStream class methodsFor:'Signal constants'!
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1186
1522 1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	1187	inaccessibleSignal
1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	1188	"ST-80 compatibility: return openErrorSignal"
1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	1189
1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	1190	^ self openErrorSignal
1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	1191
1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	1192	"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	1193	!
1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	1194
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1195	invalidModeSignal
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1196	"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	1197	or binary-I/O with a text stream"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1198
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1199	^ InvalidModeSignal
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1200	!
514c749165c3 * empty log message * claus parents: 108 diff changeset	1201
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1202	invalidOperationSignal
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1203	"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	1204	I/O operation is attempted"
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1205
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1206	^ InvalidOperationSignal
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1207	!
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1208
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1209	invalidReadSignal
514c749165c3 * empty log message * claus parents: 108 diff changeset	1210	"return the signal raised when reading from writeonly streams"
514c749165c3 * empty log message * claus parents: 108 diff changeset	1211
514c749165c3 * empty log message * claus parents: 108 diff changeset	1212	^ InvalidReadSignal
514c749165c3 * empty log message * claus parents: 108 diff changeset	1213	!
514c749165c3 * empty log message * claus parents: 108 diff changeset	1214
514c749165c3 * empty log message * claus parents: 108 diff changeset	1215	invalidWriteSignal
514c749165c3 * empty log message * claus parents: 108 diff changeset	1216	"return the signal raised when writing to readonly streams"
514c749165c3 * empty log message * claus parents: 108 diff changeset	1217
514c749165c3 * empty log message * claus parents: 108 diff changeset	1218	^ InvalidWriteSignal
514c749165c3 * empty log message * claus parents: 108 diff changeset	1219	!
514c749165c3 * empty log message * claus parents: 108 diff changeset	1220
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1221	openErrorSignal
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1222	"return the signal raised when a file open failed"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1223
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1224	^ OpenErrorSignal
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1225	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1226
3474 1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	1227	streamIOErrorSignal
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	1228	"return the signal raised when an I/O error occurs.
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	1229	(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	1230	which is no longer available and has been mounted soft)"
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	1231
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	1232	^ StreamIOErrorSignal
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	1233
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	1234	"Created: / 21.5.1998 / 16:32:55 / cg"
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	1235	!
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	1236
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1237	streamNotOpenSignal
514c749165c3 * empty log message * claus parents: 108 diff changeset	1238	"return the signal raised on I/O with closed streams"
514c749165c3 * empty log message * claus parents: 108 diff changeset	1239
514c749165c3 * empty log message * claus parents: 108 diff changeset	1240	^ StreamNotOpenSignal
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1241	! !
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1242
2045 1ad17ca6520f fall back to super>>nextPutLine: if argument is not a string. Claus Gittinger <cg@exept.de> parents: 2044 diff changeset	1243	!ExternalStream class methodsFor:'error handling'!
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	1244
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1245	lastErrorNumber
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1246	"return the errno of the last error"
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	1247
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1248	^ LastErrorNumber
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1249
514c749165c3 * empty log message * claus parents: 108 diff changeset	1250	"
514c749165c3 * empty log message * claus parents: 108 diff changeset	1251	ExternalStream lastErrorNumber
514c749165c3 * empty log message * claus parents: 108 diff changeset	1252	"
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	1253	!
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1254
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1255	lastErrorString
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1256	"return a message string describing the last error"
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1257
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1258	^ OperatingSystem errorTextForNumber:LastErrorNumber
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1259
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1260	"
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1261	ExternalStream lastErrorString
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1262	"
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1263	! !
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1264
3939 52e4ebbde474 oops - missing signal accessors Claus Gittinger <cg@exept.de> parents: 3938 diff changeset	1265	!ExternalStream methodsFor:'Signal constants'!
52e4ebbde474 oops - missing signal accessors Claus Gittinger <cg@exept.de> parents: 3938 diff changeset	1266
52e4ebbde474 oops - missing signal accessors Claus Gittinger <cg@exept.de> parents: 3938 diff changeset	1267	invalidReadSignal
52e4ebbde474 oops - missing signal accessors Claus Gittinger <cg@exept.de> parents: 3938 diff changeset	1268	^ self class invalidReadSignal
52e4ebbde474 oops - missing signal accessors Claus Gittinger <cg@exept.de> parents: 3938 diff changeset	1269
52e4ebbde474 oops - missing signal accessors Claus Gittinger <cg@exept.de> parents: 3938 diff changeset	1270	"Created: / 3.12.1998 / 15:12:06 / cg"
52e4ebbde474 oops - missing signal accessors Claus Gittinger <cg@exept.de> parents: 3938 diff changeset	1271	!
52e4ebbde474 oops - missing signal accessors Claus Gittinger <cg@exept.de> parents: 3938 diff changeset	1272
52e4ebbde474 oops - missing signal accessors Claus Gittinger <cg@exept.de> parents: 3938 diff changeset	1273	invalidWriteSignal
52e4ebbde474 oops - missing signal accessors Claus Gittinger <cg@exept.de> parents: 3938 diff changeset	1274	^ self class invalidWriteSignal
52e4ebbde474 oops - missing signal accessors Claus Gittinger <cg@exept.de> parents: 3938 diff changeset	1275
52e4ebbde474 oops - missing signal accessors Claus Gittinger <cg@exept.de> parents: 3938 diff changeset	1276	"Created: / 3.12.1998 / 15:12:10 / cg"
52e4ebbde474 oops - missing signal accessors Claus Gittinger <cg@exept.de> parents: 3938 diff changeset	1277	! !
52e4ebbde474 oops - missing signal accessors Claus Gittinger <cg@exept.de> parents: 3938 diff changeset	1278
3044 a0bbac91639b * empty log message * Claus Gittinger <cg@exept.de> parents: 3029 diff changeset	1279	!ExternalStream methodsFor:'Squeak compatibility'!
a0bbac91639b * empty log message * Claus Gittinger <cg@exept.de> parents: 3029 diff changeset	1280
3872 cab901645d2a added #nextInto: and #readInto: for Squeak compatibility. Claus Gittinger <cg@exept.de> parents: 3863 diff changeset	1281	nextInto:aByteArrayOrString
cab901645d2a added #nextInto: and #readInto: for Squeak compatibility. Claus Gittinger <cg@exept.de> parents: 3863 diff changeset	1282	"read elements into the argument, whose size determines the amount
cab901645d2a added #nextInto: and #readInto: for Squeak compatibility. Claus Gittinger <cg@exept.de> parents: 3863 diff changeset	1283	of bytes to read. If not enough elements could be read, return
cab901645d2a added #nextInto: and #readInto: for Squeak compatibility. Claus Gittinger <cg@exept.de> parents: 3863 diff changeset	1284	a copy of the argument; otherwise, return the filled argument."
cab901645d2a added #nextInto: and #readInto: for Squeak compatibility. Claus Gittinger <cg@exept.de> parents: 3863 diff changeset	1285
cab901645d2a added #nextInto: and #readInto: for Squeak compatibility. Claus Gittinger <cg@exept.de> parents: 3863 diff changeset	1286	\|n nWanted\|
cab901645d2a added #nextInto: and #readInto: for Squeak compatibility. Claus Gittinger <cg@exept.de> parents: 3863 diff changeset	1287
4368 d69568f9ad95 squeak compatibility fixes Claus Gittinger <cg@exept.de> parents: 4161 diff changeset	1288	nWanted := aByteArrayOrString byteSize.
3872 cab901645d2a added #nextInto: and #readInto: for Squeak compatibility. Claus Gittinger <cg@exept.de> parents: 3863 diff changeset	1289	n := self nextAvailableBytes:nWanted into:aByteArrayOrString startingAt:1.
cab901645d2a added #nextInto: and #readInto: for Squeak compatibility. Claus Gittinger <cg@exept.de> parents: 3863 diff changeset	1290	n == nWanted ifTrue:[^ aByteArrayOrString].
cab901645d2a added #nextInto: and #readInto: for Squeak compatibility. Claus Gittinger <cg@exept.de> parents: 3863 diff changeset	1291	^ aByteArrayOrString copyTo:n
cab901645d2a added #nextInto: and #readInto: for Squeak compatibility. Claus Gittinger <cg@exept.de> parents: 3863 diff changeset	1292
cab901645d2a added #nextInto: and #readInto: for Squeak compatibility. Claus Gittinger <cg@exept.de> parents: 3863 diff changeset	1293	!
cab901645d2a added #nextInto: and #readInto: for Squeak compatibility. Claus Gittinger <cg@exept.de> parents: 3863 diff changeset	1294
4368 d69568f9ad95 squeak compatibility fixes Claus Gittinger <cg@exept.de> parents: 4161 diff changeset	1295	readInto:aContainer startingAt:index count:nElements
d69568f9ad95 squeak compatibility fixes Claus Gittinger <cg@exept.de> parents: 4161 diff changeset	1296	"same as #nextBytes:into:startingAt: for ByteArrays;
d69568f9ad95 squeak compatibility fixes Claus Gittinger <cg@exept.de> parents: 4161 diff changeset	1297	for LongArrays, nelements longs are read.
3872 cab901645d2a added #nextInto: and #readInto: for Squeak compatibility. Claus Gittinger <cg@exept.de> parents: 3863 diff changeset	1298	Squeak compatibility."
cab901645d2a added #nextInto: and #readInto: for Squeak compatibility. Claus Gittinger <cg@exept.de> parents: 3863 diff changeset	1299
4368 d69568f9ad95 squeak compatibility fixes Claus Gittinger <cg@exept.de> parents: 4161 diff changeset	1300	\|elementSize n\|
d69568f9ad95 squeak compatibility fixes Claus Gittinger <cg@exept.de> parents: 4161 diff changeset	1301
d69568f9ad95 squeak compatibility fixes Claus Gittinger <cg@exept.de> parents: 4161 diff changeset	1302	elementSize := aContainer class elementByteSize.
d69568f9ad95 squeak compatibility fixes Claus Gittinger <cg@exept.de> parents: 4161 diff changeset	1303	n := self nextBytes:nElements*elementSize into:aContainer startingAt:1.
d69568f9ad95 squeak compatibility fixes Claus Gittinger <cg@exept.de> parents: 4161 diff changeset	1304	^ n // elementSize
3872 cab901645d2a added #nextInto: and #readInto: for Squeak compatibility. Claus Gittinger <cg@exept.de> parents: 3863 diff changeset	1305
cab901645d2a added #nextInto: and #readInto: for Squeak compatibility. Claus Gittinger <cg@exept.de> parents: 3863 diff changeset	1306	!
cab901645d2a added #nextInto: and #readInto: for Squeak compatibility. Claus Gittinger <cg@exept.de> parents: 3863 diff changeset	1307
3044 a0bbac91639b * empty log message * Claus Gittinger <cg@exept.de> parents: 3029 diff changeset	1308	readOnly
a0bbac91639b * empty log message * Claus Gittinger <cg@exept.de> parents: 3029 diff changeset	1309	"Squeak compatibility: make the stream readOnly"
a0bbac91639b * empty log message * Claus Gittinger <cg@exept.de> parents: 3029 diff changeset	1310
a0bbac91639b * empty log message * Claus Gittinger <cg@exept.de> parents: 3029 diff changeset	1311	mode := #readonly
a0bbac91639b * empty log message * Claus Gittinger <cg@exept.de> parents: 3029 diff changeset	1312
a0bbac91639b * empty log message * Claus Gittinger <cg@exept.de> parents: 3029 diff changeset	1313	"Modified: 20.10.1997 / 19:23:04 / cg"
a0bbac91639b * empty log message * Claus Gittinger <cg@exept.de> parents: 3029 diff changeset	1314	"Created: 20.10.1997 / 19:23:19 / cg"
a0bbac91639b * empty log message * Claus Gittinger <cg@exept.de> parents: 3029 diff changeset	1315	! !
a0bbac91639b * empty log message * Claus Gittinger <cg@exept.de> parents: 3029 diff changeset	1316
1 a27a279701f8 Initial revision claus parents: diff changeset	1317	!ExternalStream methodsFor:'accessing'!
a27a279701f8 Initial revision claus parents: diff changeset	1318
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1319	binary
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1320	"switch to binary mode - default is text"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1321
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1322	binary := true
1 a27a279701f8 Initial revision claus parents: diff changeset	1323	!
a27a279701f8 Initial revision claus parents: diff changeset	1324
a27a279701f8 Initial revision claus parents: diff changeset	1325	buffered:aBoolean
10 4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	1326	"turn buffering on or off - default is on"
1 a27a279701f8 Initial revision claus parents: diff changeset	1327
10 4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	1328	buffered := aBoolean
1 a27a279701f8 Initial revision claus parents: diff changeset	1329	!
a27a279701f8 Initial revision claus parents: diff changeset	1330
a27a279701f8 Initial revision claus parents: diff changeset	1331	contents
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1332	"return the contents of the file from the current position up-to
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1333	the end. If the stream is in binary mode, a ByteArray containing
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1334	the byte values is returned.
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1335	In text-mode, a collection of strings, each representing one line,
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1336	is returned."
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1337
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1338	\|text l chunks sizes chunk byteCount cnt bytes offset\|
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1339
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1340	binary ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1341	"adding to a ByteArray produces quadratic time-space
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1342	behavior - therefore we allocate chunks, and concatenate them
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1343	at the end."
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1344
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1345	chunks := OrderedCollection new.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1346	sizes := OrderedCollection new.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1347	byteCount := 0.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1348	[self atEnd] whileFalse:[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1349	chunk := ByteArray uninitializedNew:4096.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1350	cnt := self nextBytes:(chunk size) into:chunk.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1351	cnt notNil ifTrue:[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1352	chunks add:chunk.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1353	sizes add:cnt.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1354	byteCount := byteCount + cnt
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1355	]
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1356	].
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1357
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1358	"now, create one big ByteArray"
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1359	bytes := ByteArray uninitializedNew:byteCount.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1360	offset := 1.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1361	1 to:chunks size do:[:index \|
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1362	chunk := chunks at:index.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1363	cnt := sizes at:index.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1364	bytes replaceFrom:offset to:(offset + cnt - 1) with:chunk.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1365	offset := offset + cnt
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1366	].
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1367	^ bytes
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1368	].
1 a27a279701f8 Initial revision claus parents: diff changeset	1369
244 9faa2da0650a Text <-> StringCollection claus parents: 223 diff changeset	1370	text := StringCollection new.
1 a27a279701f8 Initial revision claus parents: diff changeset	1371	[self atEnd] whileFalse:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1372	l := self nextLine.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1373	l isNil ifTrue:[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1374	^ text
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1375	].
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1376	text add:l
1 a27a279701f8 Initial revision claus parents: diff changeset	1377	].
a27a279701f8 Initial revision claus parents: diff changeset	1378	^ text
a27a279701f8 Initial revision claus parents: diff changeset	1379	!
a27a279701f8 Initial revision claus parents: diff changeset	1380
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1381	contentsOfEntireFile
3938 4e7d1880336b oops - #contentsOfEntireFile must return a byteArray if in binaryMode. Claus Gittinger <cg@exept.de> parents: 3906 diff changeset	1382	"ST-80 compatibility: return contents as a String (or byteArray, if in binary mode).
3876 a680b41a014c comment Claus Gittinger <cg@exept.de> parents: 3872 diff changeset	1383	See also #contents, which returns the lines as stringCollection for text files."
1522 1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	1384
3938 4e7d1880336b oops - #contentsOfEntireFile must return a byteArray if in binaryMode. Claus Gittinger <cg@exept.de> parents: 3906 diff changeset	1385	\|data\|
4e7d1880336b oops - #contentsOfEntireFile must return a byteArray if in binaryMode. Claus Gittinger <cg@exept.de> parents: 3906 diff changeset	1386
4e7d1880336b oops - #contentsOfEntireFile must return a byteArray if in binaryMode. Claus Gittinger <cg@exept.de> parents: 3906 diff changeset	1387	data := self contents.
4e7d1880336b oops - #contentsOfEntireFile must return a byteArray if in binaryMode. Claus Gittinger <cg@exept.de> parents: 3906 diff changeset	1388	binary ifFalse:[
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1389	^ data asString.
3938 4e7d1880336b oops - #contentsOfEntireFile must return a byteArray if in binaryMode. Claus Gittinger <cg@exept.de> parents: 3906 diff changeset	1390	].
4e7d1880336b oops - #contentsOfEntireFile must return a byteArray if in binaryMode. Claus Gittinger <cg@exept.de> parents: 3906 diff changeset	1391	^ data
1522 1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	1392
3876 a680b41a014c comment Claus Gittinger <cg@exept.de> parents: 3872 diff changeset	1393	"Modified: / 3.7.1996 / 13:22:16 / stefan"
3938 4e7d1880336b oops - #contentsOfEntireFile must return a byteArray if in binaryMode. Claus Gittinger <cg@exept.de> parents: 3906 diff changeset	1394	"Modified: / 27.11.1998 / 16:29:43 / cg"
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1395	!
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1396
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1397	contentsSpecies
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1398	"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	1399	(such as upTo)"
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1400
514c749165c3 * empty log message * claus parents: 108 diff changeset	1401	binary ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1402	^ ByteArray
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1403	].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1404	^ String
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1405	!
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1406
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1407	eolMode:aSymbolOrNil
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1408	"specify how end-of-line (EOL) is to be marked.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1409	The argument may be one of:
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1410	#crlf -> add a CR-NL, as in MSDOS
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1411	#cr -> add a CR, as in VMS
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1412	#nl -> add a NL, as in Unix
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1413	anyOther -> like #nl
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1414	"
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1415
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1416	eolMode := aSymbolOrNil
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1417	!
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1418
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1419	fileDescriptor
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1420	"return the fileDescriptor of the receiver -
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1421	notice: this one returns the underlying OSs fileDescriptor -
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1422	this may not be available on all platforms (i.e. non unix systems)."
1 a27a279701f8 Initial revision claus parents: diff changeset	1423
3971 aad506cdc5d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3956 diff changeset	1424	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1425	FILEPOINTER f;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1426	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1427
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1428	if ((fp = __INST(filePointer)) != nil) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1429	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	1430	RETURN ( __MKINT(fileno(f)) );
1 a27a279701f8 Initial revision claus parents: diff changeset	1431	}
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	1432	%}.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1433	^ self errorNotOpen
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
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1436	filePointer
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1437	"return the filePointer of the receiver -
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1438	notice: for portability stdio is used; this means you will get
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1439	a FILE * - not a fileDescriptor.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1440	(what you really get is a corresponding integer).
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1441	You cannot do much with the returned value
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1442	- except passing it to a primitive, for example."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1443
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1444	^ filePointer
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
3016 42466b291fae more ST80 compatibility ca parents: 2999 diff changeset	1447	lineEndTransparent
42466b291fae more ST80 compatibility ca parents: 2999 diff changeset	1448	eolMode := #cr
42466b291fae more ST80 compatibility ca parents: 2999 diff changeset	1449	!
42466b291fae more ST80 compatibility ca parents: 2999 diff changeset	1450
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1451	readonly
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1452	"set access mode to readonly"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1453
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1454	mode := #readonly
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1455	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1456
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1457	readwrite
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1458	"set access mode to readwrite"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1459
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1460	mode := #readwrite
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
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1463	text
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1464	"switch to text mode - default is text"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1465
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1466	binary := false
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
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1469	useCRLF:aBoolean
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1470	"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	1471	This method is provided for backward compatibility - see #eolMode:
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1472	which offers another choice."
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1473
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1474	aBoolean ifTrue:[
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1475	eolMode := #crlf
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1476	] ifFalse:[
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1477	eolMode := #nl
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1478	].
1 a27a279701f8 Initial revision claus parents: diff changeset	1479	!
a27a279701f8 Initial revision claus parents: diff changeset	1480
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1481	writeonly
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1482	"set access mode to writeonly"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1483
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1484	mode := #writeonly
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1485	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1486
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1487	!ExternalStream methodsFor:'error handling'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1488
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1489	argumentMustBeCharacter
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1490	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1491
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1492	"report an error, that the argument must be a character"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1493
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1494	^ self error:'argument must be a character'
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1495	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1496
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1497	argumentMustBeInteger
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1498	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1499
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1500	"report an error, that the argument must be an integer"
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	^ self error:'argument must be an integer'
77 6c38ca59927f * empty log message * claus parents: 68 diff changeset	1503	!
6c38ca59927f * empty log message * claus parents: 68 diff changeset	1504
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1505	argumentMustBeString
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1506	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1507
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1508	"report an error, that the argument must be a string"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1509
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1510	^ self error:'argument must be a string'
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1511	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1512
4526 a42dc8e09586 errorOpen renamed to errorAlreadyOpen Claus Gittinger <cg@exept.de> parents: 4468 diff changeset	1513	errorAlreadyOpen
a42dc8e09586 errorOpen renamed to errorAlreadyOpen Claus Gittinger <cg@exept.de> parents: 4468 diff changeset	1514	"{ Pragma: +optSpace }"
a42dc8e09586 errorOpen renamed to errorAlreadyOpen Claus Gittinger <cg@exept.de> parents: 4468 diff changeset	1515
a42dc8e09586 errorOpen renamed to errorAlreadyOpen Claus Gittinger <cg@exept.de> parents: 4468 diff changeset	1516	"report an error, that the stream is already opened"
a42dc8e09586 errorOpen renamed to errorAlreadyOpen Claus Gittinger <cg@exept.de> parents: 4468 diff changeset	1517
a42dc8e09586 errorOpen renamed to errorAlreadyOpen Claus Gittinger <cg@exept.de> parents: 4468 diff changeset	1518	^ self class openErrorSignal
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	1519	raiseRequestWith:self
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	1520	errorString:(self class name , ' is already open')
4526 a42dc8e09586 errorOpen renamed to errorAlreadyOpen Claus Gittinger <cg@exept.de> parents: 4468 diff changeset	1521
a42dc8e09586 errorOpen renamed to errorAlreadyOpen Claus Gittinger <cg@exept.de> parents: 4468 diff changeset	1522	"Modified: / 8.5.1999 / 20:12:30 / cg"
a42dc8e09586 errorOpen renamed to errorAlreadyOpen Claus Gittinger <cg@exept.de> parents: 4468 diff changeset	1523	!
a42dc8e09586 errorOpen renamed to errorAlreadyOpen Claus Gittinger <cg@exept.de> parents: 4468 diff changeset	1524
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1525	errorBinary
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
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1528	"report an error, that the stream is in binary mode"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1529
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1530	^ self invalidModeSignal
4627 b8b606196835 Do not raise non-proceedable errors proceedable. Stefan Vogel <sv@exept.de> parents: 4602 diff changeset	1531	raiseWith:self
b8b606196835 Do not raise non-proceedable errors proceedable. Stefan Vogel <sv@exept.de> parents: 4602 diff changeset	1532	errorString:(self class name , ' is in binary mode')
b8b606196835 Do not raise non-proceedable errors proceedable. Stefan Vogel <sv@exept.de> parents: 4602 diff changeset	1533	"/ in:thisContext sender
4161 3f2758cfeff5 raise errors in thisContext (not in sender context) Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	1534
3f2758cfeff5 raise errors in thisContext (not in sender context) Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	1535	"Modified: / 8.5.1999 / 20:12:43 / cg"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1536	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1537
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1538	errorNotBinary
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1539	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1540
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1541	"report an error, that the stream is not in binary mode"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1542
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1543	^ self invalidModeSignal
4627 b8b606196835 Do not raise non-proceedable errors proceedable. Stefan Vogel <sv@exept.de> parents: 4602 diff changeset	1544	raiseWith:self
b8b606196835 Do not raise non-proceedable errors proceedable. Stefan Vogel <sv@exept.de> parents: 4602 diff changeset	1545	errorString:(self class name , ' is not in binary mode')
b8b606196835 Do not raise non-proceedable errors proceedable. Stefan Vogel <sv@exept.de> parents: 4602 diff changeset	1546	"/ in:thisContext sender
4161 3f2758cfeff5 raise errors in thisContext (not in sender context) Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	1547
3f2758cfeff5 raise errors in thisContext (not in sender context) Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	1548	"Modified: / 8.5.1999 / 20:12:40 / cg"
1 a27a279701f8 Initial revision claus parents: diff changeset	1549	!
a27a279701f8 Initial revision claus parents: diff changeset	1550
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1551	errorNotBuffered
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1552	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1553
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1554	"report an error, that the stream is not in buffered mode"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1555
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1556	^ StreamErrorSignal
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	1557	raiseRequestWith:self
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	1558	errorString:(self class name , ' is unbuffered - operation not allowed')
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	1559	"/ in:thisContext sender
4161 3f2758cfeff5 raise errors in thisContext (not in sender context) Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	1560
3f2758cfeff5 raise errors in thisContext (not in sender context) Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	1561	"Modified: / 8.5.1999 / 20:12:36 / cg"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1562	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1563
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1564	errorNotOpen
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1565	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1566
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1567	"report an error, that the stream has not been opened"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1568
3467 54ccb6f7d886 oops - streamNotOpenSignal Claus Gittinger <cg@exept.de> parents: 3456 diff changeset	1569	^ StreamNotOpenSignal
4627 b8b606196835 Do not raise non-proceedable errors proceedable. Stefan Vogel <sv@exept.de> parents: 4602 diff changeset	1570	raiseWith:self
b8b606196835 Do not raise non-proceedable errors proceedable. Stefan Vogel <sv@exept.de> parents: 4602 diff changeset	1571	errorString:(self class name , ' not open')
b8b606196835 Do not raise non-proceedable errors proceedable. Stefan Vogel <sv@exept.de> parents: 4602 diff changeset	1572	"/ in:thisContext sender
4161 3f2758cfeff5 raise errors in thisContext (not in sender context) Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	1573
3f2758cfeff5 raise errors in thisContext (not in sender context) Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	1574	"Modified: / 8.5.1999 / 20:12:33 / cg"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1575	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1576
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1577	errorReadOnly
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1578	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1579
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1580	"report an error, that the stream is a readOnly stream"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1581
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1582	^ self invalidWriteSignal
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	1583	raiseWith:self
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	1584	errorString:(self class name , ' is readonly')
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	1585	"/ in:thisContext sender
4161 3f2758cfeff5 raise errors in thisContext (not in sender context) Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	1586
4468 8c67b4f973d8 raise vs. raiseRequest Claus Gittinger <cg@exept.de> parents: 4456 diff changeset	1587	"Modified: / 30.7.1999 / 17:08:19 / cg"
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
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1590	errorUnsupportedOperation
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1591	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1592
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1593	"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	1594
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1595	^ self invalidOperationSignal
4627 b8b606196835 Do not raise non-proceedable errors proceedable. Stefan Vogel <sv@exept.de> parents: 4602 diff changeset	1596	raiseWith:self
b8b606196835 Do not raise non-proceedable errors proceedable. Stefan Vogel <sv@exept.de> parents: 4602 diff changeset	1597	errorString:'unsupported operation'
b8b606196835 Do not raise non-proceedable errors proceedable. Stefan Vogel <sv@exept.de> parents: 4602 diff changeset	1598	"/ in:thisContext sender
4161 3f2758cfeff5 raise errors in thisContext (not in sender context) Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	1599
3f2758cfeff5 raise errors in thisContext (not in sender context) Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	1600	"Modified: / 8.5.1999 / 20:12:24 / cg"
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1601	!
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1602
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1603	errorWriteOnly
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1604	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1605
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1606	"report an error, that the stream is a writeOnly stream"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1607
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1608	^ self invalidReadSignal
4627 b8b606196835 Do not raise non-proceedable errors proceedable. Stefan Vogel <sv@exept.de> parents: 4602 diff changeset	1609	raiseWith:self
b8b606196835 Do not raise non-proceedable errors proceedable. Stefan Vogel <sv@exept.de> parents: 4602 diff changeset	1610	errorString:(self class name , ' is writeonly')
b8b606196835 Do not raise non-proceedable errors proceedable. Stefan Vogel <sv@exept.de> parents: 4602 diff changeset	1611	"/ in:thisContext sender
4161 3f2758cfeff5 raise errors in thisContext (not in sender context) Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	1612
3f2758cfeff5 raise errors in thisContext (not in sender context) Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	1613	"Modified: / 8.5.1999 / 20:12:20 / cg"
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1614	!
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1615
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1616	ioError
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1617	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1618
3474 1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	1619	"report an error, that some I/O error occured.
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	1620	(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	1621	which is no longer available and has been mounted soft)"
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	1622
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	1623	^ StreamIOErrorSignal
4627 b8b606196835 Do not raise non-proceedable errors proceedable. Stefan Vogel <sv@exept.de> parents: 4602 diff changeset	1624	raiseWith:self
b8b606196835 Do not raise non-proceedable errors proceedable. Stefan Vogel <sv@exept.de> parents: 4602 diff changeset	1625	errorString:('I/O error: ' , self lastErrorString)
b8b606196835 Do not raise non-proceedable errors proceedable. Stefan Vogel <sv@exept.de> parents: 4602 diff changeset	1626	"/ in:thisContext sender
4161 3f2758cfeff5 raise errors in thisContext (not in sender context) Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	1627
3f2758cfeff5 raise errors in thisContext (not in sender context) Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	1628	"Modified: / 8.5.1999 / 20:12:16 / cg"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1629	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1630
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1631	lastErrorNumber
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1632	"return the last error"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1633
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1634	^ lastErrorNumber
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1635	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1636
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1637	lastErrorString
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1638	"return a message string describing the last error"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1639
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1640	(lastErrorNumber isNil or:[lastErrorNumber == 0]) ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1641	^ 'I/O error'
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1642	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1643	^ OperatingSystem errorTextForNumber:lastErrorNumber
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1644	!
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1645
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1646	openError
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1647	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1648
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1649	"report an error, that the open failed"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1650
3235 cc254b307159 FileStream redefines #openErrorSignal. Stefan Vogel <sv@exept.de> parents: 3221 diff changeset	1651	^ self class openErrorSignal
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	1652	raiseRequestWith:self
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	1653	errorString:('error on open: ' , self lastErrorString)
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	1654	"/ in:thisContext sender
3235 cc254b307159 FileStream redefines #openErrorSignal. Stefan Vogel <sv@exept.de> parents: 3221 diff changeset	1655
cc254b307159 FileStream redefines #openErrorSignal. Stefan Vogel <sv@exept.de> parents: 3221 diff changeset	1656	"Modified: / 28.1.1998 / 14:37:42 / stefan"
4161 3f2758cfeff5 raise errors in thisContext (not in sender context) Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	1657	"Modified: / 8.5.1999 / 20:12:12 / cg"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1658	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1659
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1660	readError
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1661	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1662
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1663	"report an error, that some read error occured"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1664
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1665	^ ReadErrorSignal
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	1666	raiseRequestWith:self
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	1667	errorString:('read error: ' , self lastErrorString)
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	1668	"/ in:thisContext sender
4161 3f2758cfeff5 raise errors in thisContext (not in sender context) Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	1669
3f2758cfeff5 raise errors in thisContext (not in sender context) Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	1670	"Modified: / 8.5.1999 / 20:12:00 / cg"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1671	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1672
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1673	writeError
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1674	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1675
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1676	"report an error, that some write error occured"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1677
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1678	^ WriteErrorSignal
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	1679	raiseRequestWith:self
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	1680	errorString:('write error: ' , self lastErrorString)
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	1681	"/ in:thisContext sender
4161 3f2758cfeff5 raise errors in thisContext (not in sender context) Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	1682
3f2758cfeff5 raise errors in thisContext (not in sender context) Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	1683	"Modified: / 8.5.1999 / 20:12:09 / cg"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1684	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1685
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1686	!ExternalStream methodsFor:'instance release'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1687
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1688	closeFile
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1689	"low level close - may be redefined in subclasses"
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1690
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	1691	%{
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	1692	OBJ fp;
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1693
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1694	if ((fp = __INST(filePointer)) != nil) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1695	__INST(filePointer) = nil;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1696	__BEGIN_INTERRUPTABLE__
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1697	fclose(__FILEVal(fp));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1698	__END_INTERRUPTABLE__
10 4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	1699	}
4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	1700	%}
4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	1701	!
4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	1702
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1703	disposed
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1704	"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	1705
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1706	self closeFile
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1707	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1708
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1709	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	1710	"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	1711	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	1712	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	1713
3681 55dc17d40aab fixed nextAvail Claus Gittinger <cg@exept.de> parents: 3674 diff changeset	1714	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1715	FILEPOINTER f;
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1716	OBJ fp;
2765 a56668774ad7 more alpha64 fixes Claus Gittinger <cg@exept.de> parents: 2764 diff changeset	1717	FILE *fdopen();
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1718
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1719	if (__isSmallInteger(anInteger) &&
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1720	__isString(openMode) &&
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1721	(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	1722	) {
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1723	__PROTECT__(self);
3420 4dc6667afda9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3419 diff changeset	1724	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	1725	__UNPROTECT__(self);
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1726	__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	1727	RETURN (self);
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1728	}
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1729	%}.
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1730	^ self primitiveFailed
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1731	!
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1732
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1733	setFilePointer:something
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1734	"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	1735	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	1736	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	1737
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1738	filePointer := something
1 a27a279701f8 Initial revision claus parents: diff changeset	1739	!
a27a279701f8 Initial revision claus parents: diff changeset	1740
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1741	shallowCopyForFinalization
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1742	"return a copy for finalization-registration;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1743	since all we need at finalization time is the fileDescriptor,
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1744	a cheaper copy is possible."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1745
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1746	^ self class basicNew setFilePointer:filePointer
1 a27a279701f8 Initial revision claus parents: diff changeset	1747	!
a27a279701f8 Initial revision claus parents: diff changeset	1748
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1749	shutDown
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1750	"close the stream - added for protocol compatibility with PipeStream.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1751	see comment there"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1752
3949 904575569fb4 * empty log message * Claus Gittinger <cg@exept.de> parents: 3939 diff changeset	1753	self isOpen ifTrue:[
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1754	Lobby unregister:self.
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1755	self closeFile
3949 904575569fb4 * empty log message * Claus Gittinger <cg@exept.de> parents: 3939 diff changeset	1756	]
1642 91c6860f1c9d when shutting down, also tell the Lobby Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	1757
91c6860f1c9d when shutting down, also tell the Lobby Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	1758	"Modified: 30.8.1996 / 00:39:21 / cg"
1 a27a279701f8 Initial revision claus parents: diff changeset	1759	! !
a27a279701f8 Initial revision claus parents: diff changeset	1760
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1761	!ExternalStream methodsFor:'line reading/writing'!
1 a27a279701f8 Initial revision claus parents: diff changeset	1762
a27a279701f8 Initial revision claus parents: diff changeset	1763	nextLine
a27a279701f8 Initial revision claus parents: diff changeset	1764	"read the next line (characters up to newline).
a27a279701f8 Initial revision claus parents: diff changeset	1765	Return a string containing those characters excluding the newline.
a27a279701f8 Initial revision claus parents: diff changeset	1766	If the previous-to-last character is a cr, this is also removed,
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	1767	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	1768	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	1769
71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	1770	\|line\|
971 eb70f5674303 max lineLength (in nextLine) increased to 16k Claus Gittinger <cg@exept.de> parents: 933 diff changeset	1771
3029 aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1772	%{ /* STACK:34000 */
1 a27a279701f8 Initial revision claus parents: diff changeset	1773
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1774	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1775	int len, ret;
3029 aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	1776	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	1777	char rslt, nextPtr, *limit;
22 847106305963 * empty log message * claus parents: 12 diff changeset	1778	int fd, ch;
1068 92fdcccf12a3 alles MIST - zurueck zu 1.89 und NOCONTEXT entfernt Claus Gittinger <cg@exept.de> parents: 1067 diff changeset	1779	int _buffered;
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	1780	OBJ fp;
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	1781	int lineTooLong = 0;
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1782	int cutOff = 0;
1 a27a279701f8 Initial revision claus parents: diff changeset	1783
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1784	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1785	if (((fp = __INST(filePointer)) != nil)
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1786	&& (__INST(mode) != @symbol(writeonly))
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1787	&& (__INST(binary) != true)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1788	) {
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1789	f = __FILEVal(fp);
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1790	buffer[0] = '\0';
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1791
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1792	_buffered = (__INST(buffered) == true);
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1793	if (_buffered) {
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1794	__READING__(f);
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1795	}
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1796
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1797	rslt = nextPtr = buffer;
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1798	limit = buffer + sizeof(buffer) - 2;
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1799
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1800	for (;;) {
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1801	__READBYTE__(ret, f, nextPtr, _buffered);
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1802	if (ret <= 0) {
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1803	if (nextPtr == buffer)
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1804	rslt = NULL;
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1805	if (ret == 0) {
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1806	__INST(hitEOF) = true;
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1807	break;
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1808	} else {
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1809	__INST(lastErrorNumber) = __MKSMALLINT(errno);
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1810	goto err;
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1811	}
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1812	}
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1813
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1814	if (*nextPtr == '\n') {
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1815	cutOff = 1;
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1816	*nextPtr = '\0';
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1817	break;
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1818	}
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1819	if (*nextPtr == '\r') {
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1820	char peekChar;
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1821
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1822	/*
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1823	* peek ahead for a newLine ...
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1824	*/
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1825	__READBYTE__(ret, f, &peekChar, _buffered);
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1826	if (ret <= 0) {
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1827	cutOff = 1;
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1828	*nextPtr = '\0';
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1829	if (ret == 0) {
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1830	__INST(hitEOF) = true;
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1831	break;
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1832	}
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1833	__INST(lastErrorNumber) = __MKSMALLINT(errno);
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1834	goto err;
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1835	}
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1836
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1837	if (peekChar == '\n') {
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1838	cutOff = 2;
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1839	*nextPtr = '\0';
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1840	break;
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1841	}
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1842
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1843	__UNGETC__(peekChar, f, _buffered);
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1844
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1845	cutOff = 1;
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1846	*nextPtr = '\0';
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1847	break;
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1848	}
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1849
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1850	nextPtr++;
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1851	if (nextPtr >= limit) {
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1852	*nextPtr = '\0';
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1853	lineTooLong = 1;
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1854	if (@global(InfoPrinting) == true) {
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1855	fprintf(stderr, "ExtStream [warning]: line truncated in nextLine\n");
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1856	}
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1857	break;
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1858	}
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1859	}
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1860
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1861	if (rslt != NULL) {
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1862	len = nextPtr-buffer;
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1863
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1864	if (__INST(position) != nil) {
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1865	int __p;
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1866
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1867	__p = __intVal(__INST(position)) + len + cutOff;
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1868	__INST(position) = __MKSMALLINT(__p);
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1869	}
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1870	/* remove any EOL character */
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1871	if (len != 0) {
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1872	if (buffer[len-1] == '\n') {
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1873	buffer[--len] = '\0';
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1874	}
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1875	if ((len != 0) && (buffer[len-1] == '\r')) {
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1876	buffer[--len] = '\0';
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1877	}
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1878	}
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1879	line = __MKSTRING_L(buffer, len);
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1880	if (! lineTooLong) {
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1881	RETURN ( line );
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1882	}
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1883	}
1 a27a279701f8 Initial revision claus parents: diff changeset	1884	}
1478 aae07192b7d1 labels in empty statements need a semi Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	1885	err: ;
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1886	%}.
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	1887	line notNil ifTrue:[
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1888	"/ the line as read is longer than 32k characters (boy - what a line)
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1889	"/ The exception could be handled by reading more and returning the
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1890	"/ concatenation in your exception handler (the receiver and the partial
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1891	"/ line are passed as parameter)
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	1892
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	1893	LineTooLongErrorSignal isHandled ifTrue:[
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	1894	^ LineTooLongErrorSignal
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	1895	raiseRequestWith:(Array with:self with:line)
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	1896	errorString:('line too long read error')
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	1897	].
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	1898	^ line , self nextLine
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	1899	].
71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	1900
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	1901	hitEOF ifTrue:[^ self pastEnd].
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1902	lastErrorNumber notNil ifTrue:[^ self readError].
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1903	filePointer isNil ifTrue:[^ self errorNotOpen].
1 a27a279701f8 Initial revision claus parents: diff changeset	1904	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	1905	^ self errorBinary
1 a27a279701f8 Initial revision claus parents: diff changeset	1906	!
a27a279701f8 Initial revision claus parents: diff changeset	1907
a27a279701f8 Initial revision claus parents: diff changeset	1908	nextPutLine:aString
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1909	"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	1910	(LF, CR or CRLF - depending in the setting of eolMode)"
1 a27a279701f8 Initial revision claus parents: diff changeset	1911
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	1912	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1913	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1914	int len, cnt, len1, _buffered;
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	1915	OBJ pos, fp;
537 dc4dad8a5ddd many ExtStream rewrites - has to be reevaluated in all platforms Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1916	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	1917	int o_offs;
1 a27a279701f8 Initial revision claus parents: diff changeset	1918
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1919	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1920	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1921	&& (__INST(mode) != @symbol(readonly))
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1922	&& (__INST(binary) != true)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1923	&& __isString(aString)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1924	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1925	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1926	len = __stringSize(aString);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1927
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1928	if (_buffered = (__INST(buffered) == true)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1929	__WRITING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1930	}
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1931	#ifdef BUGGY
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1932	__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	1933	#else
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1934	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	1935	__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	1936	#endif
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1937	if (cnt == len) {
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1938	OBJ mode = __INST(eolMode);
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1939
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1940	len1 = len;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1941
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1942	if (mode == @symbol(cr)) {
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1943	cp = "\r"; len = 1;
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1944	} else if (mode == @symbol(crlf)) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1945	cp = "\r\n"; len = 2;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1946	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1947	cp = "\n"; len = 1;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1948	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1949	__WRITEBYTES__(cnt, f, cp, len, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1950
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1951	if (cnt > 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1952	pos = __INST(position);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1953	if (pos != nil) {
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1954	int __p;
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1955
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1956	__p = __intVal(pos) + len1 + cnt;
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1957	__INST(position) = __MKSMALLINT(__p);
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1958	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1959	RETURN ( self );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1960	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1961	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1962	__INST(lastErrorNumber) = __MKSMALLINT(errno);
1 a27a279701f8 Initial revision claus parents: diff changeset	1963	}
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1964	%}.
2045 1ad17ca6520f fall back to super>>nextPutLine: if argument is not a string. Claus Gittinger <cg@exept.de> parents: 2044 diff changeset	1965	super nextPutLine:aString.
1 a27a279701f8 Initial revision claus parents: diff changeset	1966	!
a27a279701f8 Initial revision claus parents: diff changeset	1967
a27a279701f8 Initial revision claus parents: diff changeset	1968	nextPutLinesFrom:aStream upToLineStartingWith:aStringOrNil
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	1969	"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	1970	and append all lines to self.
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1971	Can be used to copy/create large files or copy from a pipe/socket.
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	1972
22 847106305963 * empty log message * claus parents: 12 diff changeset	1973	If aStringOrNil is nil or not matched, copy preceeds to the end.
847106305963 * empty log message * claus parents: 12 diff changeset	1974	(this allows for example to read a Socket and transfer the data quickly
847106305963 * empty log message * claus parents: 12 diff changeset	1975	into a file - without creating zillions of temporary strings)"
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	\|srcFilePointer readError line\|
1 a27a279701f8 Initial revision claus parents: diff changeset	1978
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	1979	(mode == #readonly) ifTrue:[self errorReadOnly. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	1980	filePointer isNil ifTrue:[self errorNotOpen. ^ self].
1 a27a279701f8 Initial revision claus parents: diff changeset	1981	srcFilePointer := aStream filePointer.
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	1982	srcFilePointer isNil ifTrue:[aStream errorNotOpen. ^ self].
12 8e03bd717355 * empty log message * claus parents: 10 diff changeset	1983
8e03bd717355 * empty log message * claus parents: 10 diff changeset	1984	%{ /* STACK:2000 */
22 847106305963 * empty log message * claus parents: 12 diff changeset	1985
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1986	#ifndef NO_STDIO
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1987	FILEPOINTER dst;
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1988	FILEPOINTER src;
1 a27a279701f8 Initial revision claus parents: diff changeset	1989	char *matchString;
a27a279701f8 Initial revision claus parents: diff changeset	1990	int matchLen = 0;
12 8e03bd717355 * empty log message * claus parents: 10 diff changeset	1991	char buffer[1024];
1 a27a279701f8 Initial revision claus parents: diff changeset	1992
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1993	__INST(lastErrorNumber) = nil;
249 810798c5c2e5 . claus parents: 244 diff changeset	1994	if (__isSmallInteger(srcFilePointer)) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1995	if ((aStringOrNil == nil) \|\| __isString(aStringOrNil)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1996	if (aStringOrNil != nil) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1997	matchString = (char *) __stringVal(aStringOrNil);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1998	matchLen = __stringSize(aStringOrNil);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1999	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2000	dst = __FILEVal(__INST(filePointer));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2001	src = __FILEVal(srcFilePointer);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2002	__BEGIN_INTERRUPTABLE__
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2003	errno = 0;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2004
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2005	__WRITING__(dst)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2006
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2007	for (;;) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2008	if (fgets(buffer, sizeof(buffer)-1, src) == NULL) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2009	if (ferror(src)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2010	readError = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2011	__END_INTERRUPTABLE__
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2012	goto err;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2013	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2014	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2015	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2016	if (fputs(buffer, dst) == EOF) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2017	if (ferror(dst)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2018	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2019	__END_INTERRUPTABLE__
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2020	goto err;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2021	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2022	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2023	}
12 8e03bd717355 * empty log message * claus parents: 10 diff changeset	2024	#ifndef OLD
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2025	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	2026	FFLUSH(dst);
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2027	}
12 8e03bd717355 * empty log message * claus parents: 10 diff changeset	2028	#endif
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2029	if (matchLen) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2030	if (strncmp(matchString, buffer, matchLen) == 0)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2031	break;
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	__END_INTERRUPTABLE__
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2035	__INST(position) = nil;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2036	RETURN (self);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2037	}
1 a27a279701f8 Initial revision claus parents: diff changeset	2038	}
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	2039	err: ;
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2040	#endif /* ! NO_STDIO */
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	2041	%}.
514c749165c3 * empty log message * claus parents: 108 diff changeset	2042	readError ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2043	aStream setLastErrorNumber:readError.
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	2044	aStream readError.
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	2045	^ self
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	2046	].
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	2047	lastErrorNumber notNil ifTrue:[self writeError. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	2048	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	2049
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	2050	"
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2051	argument error or unimplemented; try it linewise
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	2052	"
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2053	[aStream atEnd] whileFalse:[
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2054	line := aStream nextLine.
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2055	line isNil ifTrue:[
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2056	^ self.
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2057	].
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2058	self nextPutLine:line.
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2059	(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	2060	^ self
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2061	]
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2062	].
1 a27a279701f8 Initial revision claus parents: diff changeset	2063	!
a27a279701f8 Initial revision claus parents: diff changeset	2064
a27a279701f8 Initial revision claus parents: diff changeset	2065	peekForLineStartingWith:aString
a27a279701f8 Initial revision claus parents: diff changeset	2066	"read ahead for next line starting with aString;
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	2067	return the line-string if found, or nil if EOF is encountered.
514c749165c3 * empty log message * claus parents: 108 diff changeset	2068	If matched, not advance position behond that line
514c749165c3 * empty log message * claus parents: 108 diff changeset	2069	i.e. nextLine will read the matched line.
514c749165c3 * empty log message * claus parents: 108 diff changeset	2070	If not matched, reposition to original position for firther reading."
1 a27a279701f8 Initial revision claus parents: diff changeset	2071
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2072	\|firstPos lastPos line\|
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2073
1 a27a279701f8 Initial revision claus parents: diff changeset	2074	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
a27a279701f8 Initial revision claus parents: diff changeset	2075	filePointer isNil ifTrue:[^ self errorNotOpen].
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	2076	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	2077	buffered ifFalse:[^ self errorNotBuffered].
12 8e03bd717355 * empty log message * claus parents: 10 diff changeset	2078
8e03bd717355 * empty log message * claus parents: 10 diff changeset	2079	%{ /* STACK: 2000 */
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2080	#ifndef NO_STDIO
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2081
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2082	FILEPOINTER f;
1 a27a279701f8 Initial revision claus parents: diff changeset	2083	int l;
12 8e03bd717355 * empty log message * claus parents: 10 diff changeset	2084	char buffer[1024];
1 a27a279701f8 Initial revision claus parents: diff changeset	2085	char *cp;
a27a279701f8 Initial revision claus parents: diff changeset	2086	char *matchString;
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2087	int gotFirst = 0;
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2088	#ifdef __VMS__
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2089	fpos_t firstpos, lastpos;
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2090	# define FTELL(__f__, __pos__) fgetpos(__f__, &(__pos__))
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2091	# define FSEEK(__f__, __pos__) fsetpos(__f__, &(__pos__))
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2092	#else
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2093	long firstpos, lastpos;
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2094	# define FTELL(__f__, __pos__) __pos__ = ftell(__f__)
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2095	# define FSEEK(__f__, __pos__) fseek(__f__, __pos__, SEEK_SET)
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2096	#endif
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2097
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2098	__INST(lastErrorNumber) = nil;
54 06dbdeeed4f9 * empty log message * claus parents: 44 diff changeset	2099	if (__isString(aString)) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2100	matchString = (char *) __stringVal(aString);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2101	l = __stringSize(aString);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2102
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2103	f = __FILEVal(__INST(filePointer));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2104	__READING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2105
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2106	for (;;) {
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2107	FTELL(f, lastpos);
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2108	if (!gotFirst) {
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2109	firstpos = lastpos;
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2110	gotFirst = 1;
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2111	}
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2112
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2113	__BEGIN_INTERRUPTABLE__
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2114	do {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2115	cp = fgets(buffer, sizeof(buffer)-1, f);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2116	} while ((cp == NULL) && ferror(f) && (errno == EINTR) && (clearerr(f), 1));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2117	buffer[sizeof(buffer)-1] = '\0';
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2118	__END_INTERRUPTABLE__
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2119
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2120	if (cp == NULL) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2121	if (ferror(f)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2122	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2123	goto err;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2124	} else {
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2125	FSEEK(f, firstpos);
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2126	RETURN (nil);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2127	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2128	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2129	if (strncmp(cp, matchString, l) == 0) {
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2130	FSEEK(f, lastpos);
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2131	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2132	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2133	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2134	/* remove EOL character */
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2135	cp = buffer;
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2136	while (cp && (cp != '\n') && (*cp != '\r')) cp++;
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2137	*cp = '\0';
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2138	RETURN ( __MKSTRING(buffer) );
1 a27a279701f8 Initial revision claus parents: diff changeset	2139	}
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	2140	err: ;
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2141
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2142	# undef FTELL
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2143	# undef FSEEK
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2144
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2145	#endif
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	2146	%}.
514c749165c3 * empty log message * claus parents: 108 diff changeset	2147	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	2148
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2149	"/ 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	2150
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2151	firstPos := self position.
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2152	[self atEnd] whileFalse:[
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2153	lastPos := self position.
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2154	line := self nextLine.
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2155	line isNil ifTrue:[
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2156	self position:firstPos.
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2157	^ nil
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2158	].
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2159	(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	2160	self position:lastPos.
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2161	^ line
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2162	]
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2163	].
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2164	self position:firstPos.
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2165	^ nil
1 a27a279701f8 Initial revision claus parents: diff changeset	2166	!
a27a279701f8 Initial revision claus parents: diff changeset	2167
a27a279701f8 Initial revision claus parents: diff changeset	2168	peekForLineStartingWithAny:aCollectionOfStrings
a27a279701f8 Initial revision claus parents: diff changeset	2169	"read ahead for next line starting with any of aCollectionOfStrings;
a27a279701f8 Initial revision claus parents: diff changeset	2170	return the index in aCollection if found, nil otherwise..
a27a279701f8 Initial revision claus parents: diff changeset	2171	If no match, do not change position; otherwise advance right before the
a27a279701f8 Initial revision claus parents: diff changeset	2172	matched line so that nextLine will return this line."
a27a279701f8 Initial revision claus parents: diff changeset	2173
a27a279701f8 Initial revision claus parents: diff changeset	2174	\|line startPos linePos index\|
a27a279701f8 Initial revision claus parents: diff changeset	2175
a27a279701f8 Initial revision claus parents: diff changeset	2176	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
a27a279701f8 Initial revision claus parents: diff changeset	2177	filePointer isNil ifTrue:[^ self errorNotOpen].
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	2178	binary ifTrue:[^ self errorBinary].
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	2179
1 a27a279701f8 Initial revision claus parents: diff changeset	2180	startPos := self position.
a27a279701f8 Initial revision claus parents: diff changeset	2181	[self atEnd] whileFalse:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2182	linePos := self position.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2183	line := self nextLine.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2184	line notNil ifTrue:[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2185	index := 1.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2186	aCollectionOfStrings do:[:prefix \|
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2187	(line startsWith:prefix) ifTrue:[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2188	self position:linePos.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2189	^ index
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2190	].
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2191	index := index + 1
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2192	]
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2193	]
1 a27a279701f8 Initial revision claus parents: diff changeset	2194	].
a27a279701f8 Initial revision claus parents: diff changeset	2195	self position:startPos.
a27a279701f8 Initial revision claus parents: diff changeset	2196	^ nil
a27a279701f8 Initial revision claus parents: diff changeset	2197	! !
a27a279701f8 Initial revision claus parents: diff changeset	2198
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2199	!ExternalStream methodsFor:'misc functions'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2200
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2201	async:aBoolean
779 0e41a665038a commentary Claus Gittinger <cg@exept.de> parents: 730 diff changeset	2202	"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	2203	the receiver will trigger an ioInterrupt.
779 0e41a665038a commentary Claus Gittinger <cg@exept.de> parents: 730 diff changeset	2204	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	2205	Notice:
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2206	not every OS supports this
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2207	- check with OS>>supportsIOInterrupts before using"
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	2208
0c73b48551ac * empty log message * claus parents: 88 diff changeset	2209	\|fd\|
0c73b48551ac * empty log message * claus parents: 88 diff changeset	2210
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	2211	filePointer isNil ifTrue:[^ self errorNotOpen].
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2212
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2213	OperatingSystem supportsIOInterrupts ifFalse:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2214	^ self errorUnsupportedOperation
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2215	].
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2216
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	2217	fd := self fileDescriptor.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2218	aBoolean ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2219	^ OperatingSystem enableIOInterruptsOn:fd
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2220	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2221	^ OperatingSystem disableIOInterruptsOn:fd
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2222
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2223	"Modified: 11.1.1997 / 17:50:21 / cg"
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	2224	!
0c73b48551ac * empty log message * claus parents: 88 diff changeset	2225
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2226	backStep
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2227	"step back one element -
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2228	redefined, since position is redefined here"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2229
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2230	self position:(self position - 1)
362 4131e87e79ec . claus parents: 360 diff changeset	2231	!
4131e87e79ec . claus parents: 360 diff changeset	2232
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2233	blocking:aBoolean
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2234	"set/clear the blocking attribute - if set (which is the default)
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2235	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	2236	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	2237	nil.
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2238	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	2239	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	2240	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	2241	methods, in order to avoid other (pastEnd) exceptions."
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	2242
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	2243	filePointer isNil ifTrue:[^ self errorNotOpen].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2244	^ 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	2245
3174 668414a73de9 Typo in comment Stefan Vogel <sv@exept.de> parents: 3132 diff changeset	2246	"Modified: / 11.1.1997 / 17:48:01 / cg"
668414a73de9 Typo in comment Stefan Vogel <sv@exept.de> parents: 3132 diff changeset	2247	"Modified: / 15.1.1998 / 11:49:48 / stefan"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2248	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2249
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2250	close
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2251	"close the stream - tell operating system"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2252
3949 904575569fb4 * empty log message * Claus Gittinger <cg@exept.de> parents: 3939 diff changeset	2253	self isOpen ifTrue:[
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2254	Lobby unregister:self.
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2255	self closeFile.
3949 904575569fb4 * empty log message * Claus Gittinger <cg@exept.de> parents: 3939 diff changeset	2256	]
612 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
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2259	create
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2260	"create the stream
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2261	- this must be redefined in subclass"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2262
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2263	^ self subclassResponsibility
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
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2266	ioctl:ioctlNumber
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2267	"to provide a simple ioctl facility - an ioctl is performed
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2268	on the underlying file; no arguments are passed."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2269
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2270	^ self ioctl:ioctlNumber with:nil
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2271	!
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2272
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2273	ioctl:ioctlNumber with:arg
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2274	"to provide a simple ioctl facility - an ioctl is performed
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2275	on the underlying file; the argument is passed as argument.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2276	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	2277	- for example, to control proprietrary I/O devices.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2278
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2279	Since the type of the argument depends on the ioctl being
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2280	performed, different arg types are allowed here.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2281	If the argument is nil, an ioctl without argument is performed.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2282	If the argument is an integral number, its directly passed;
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2283	if its a kind of ByteArray (ByteArray, String or Structure),
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2284	or external data (ExternalBytes or ExternalAddress),
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2285	a pointer to the data is passed.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2286	This allows performing most ioctls
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2287	- however, it might be tricky to setup the buffer.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2288	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	2289
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	2290	%{
2896 be30640b9012 VMS stuff Claus Gittinger <cg@exept.de> parents: 2875 diff changeset	2291	#if !defined(MSDOS_LIKE)
be30640b9012 VMS stuff Claus Gittinger <cg@exept.de> parents: 2875 diff changeset	2292	# 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	2293	FILEPOINTER f;
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2294	int ret, ioNum;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2295	OBJ fp;
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2296	INT ioArg;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2297
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2298	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2299	if ((fp = __INST(filePointer)) != nil) {
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2300	if (__isSmallInteger(ioctlNumber)
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2301	&& (__isSmallInteger(arg)
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2302	\|\| (arg == nil)
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2303	\|\| __isBytes(arg)
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2304	\|\| __isExternalBytes(arg)
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2305	\|\| __isExternalAddress(arg))) {
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2306	f = __FILEVal(fp);
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2307	ioNum = __intVal(ioctlNumber);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2308
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2309	__BEGIN_INTERRUPTABLE__
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2310	do {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2311	errno = 0;
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2312	if (arg == nil) {
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2313	ioArg = 0;
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2314	} else if (__isSmallInteger(arg)) {
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2315	ioArg = __intVal(arg);
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2316	} else if (__isExternalBytes(arg)) {
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2317	ioArg = (INT)(__externalBytesAddress(arg));
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2318	} else if (__isExternalAddress(arg)) {
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2319	ioArg = (INT)(__externalAddressVal(arg));
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2320	} else {
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2321	ioArg = (INT)(__ByteArrayInstPtr(arg)->ba_element);
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2322	}
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2323	ret = ioctl(fileno(f), ioNum, ioArg);
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2324	} while ((ret < 0) && (errno == EINTR));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2325	__END_INTERRUPTABLE__
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2326
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2327	if (ret >= 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2328	RETURN ( __MKSMALLINT(ret) );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2329	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2330	__INST(position) = nil;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2331	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2332	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2333	}
2896 be30640b9012 VMS stuff Claus Gittinger <cg@exept.de> parents: 2875 diff changeset	2334	# endif
791 b1c153b1c719 WIN32 has no ioctl Claus Gittinger <cg@exept.de> parents: 779 diff changeset	2335	#endif
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2336	%}.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2337	lastErrorNumber notNil ifTrue:[^ self ioError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2338	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2339	"
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2340	argument is not an integer
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2341	"
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2342	(ioctlNumber isMemberOf:SmallInteger) ifFalse:[^ self primitiveFailed].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2343	"
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2344	the system does not support ioctl (MSDOS or VMS)
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2345	"
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2346	^ self errorUnsupportedOperation
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2347	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2348
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2349	open
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2350	"open the stream
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2351	- this must be redefined in subclass"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2352
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2353	^ self subclassResponsibility
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2354	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2355
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2356	position
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2357	"return the position
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2358	- this must be redefined in subclass"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2359
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2360	^ self subclassResponsibility
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2361	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2362
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2363	position:anInteger
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2364	"set the position
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2365	- this must be redefined in subclass"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2366
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2367	^ self subclassResponsibility
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2368	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2369
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2370	reset
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2371	"set the read position to the beginning of the collection"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2372
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2373	self position:"0" 1
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2374	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2375
1044 c2fb3818e097 ExtSTream>>next: did not work correct if interrupted. Stefan Vogel <sv@exept.de> parents: 971 diff changeset	2376	setToEnd
c2fb3818e097 ExtSTream>>next: did not work correct if interrupted. Stefan Vogel <sv@exept.de> parents: 971 diff changeset	2377	"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	2378
c2fb3818e097 ExtSTream>>next: did not work correct if interrupted. Stefan Vogel <sv@exept.de> parents: 971 diff changeset	2379	^ self subclassResponsibility
c2fb3818e097 ExtSTream>>next: did not work correct if interrupted. Stefan Vogel <sv@exept.de> parents: 971 diff changeset	2380	!
c2fb3818e097 ExtSTream>>next: did not work correct if interrupted. Stefan Vogel <sv@exept.de> parents: 971 diff changeset	2381
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2382	truncateTo:newSize
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2383	"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	2384	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	2385
1068 92fdcccf12a3 alles MIST - zurueck zu 1.89 und NOCONTEXT entfernt Claus Gittinger <cg@exept.de> parents: 1067 diff changeset	2386	%{
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2387	#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	2388	FILEPOINTER f;
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2389	OBJ fp;
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2390
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2391	if (((fp = __INST(filePointer)) != nil)
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2392	&& (__INST(mode) != @symbol(readonly))) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2393	if (__isSmallInteger(newSize)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2394	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2395
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2396	if (__INST(buffered) == true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2397	__READING__(f)
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2398	FFLUSH(f);
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2399	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	2400	}
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2401	ftruncate(fileno(f), __intVal(newSize));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2402	RETURN (self);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2403	}
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2404	}
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2405	#endif
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2406	%}.
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	2407	filePointer isNil ifTrue:[self errorNotOpen. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	2408	(mode == #readonly) ifTrue:[self errorReadOnly. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	2409	self errorUnsupportedOperation
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2410
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2411	"
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2412	\|s\|
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2413
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2414	s := 'test' asFilename writeStream.
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2415	s next:1000 put:$a.
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2416	s truncateTo:100.
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2417	s close.
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2418
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2419	('test' asFilename fileSize) printNL
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2420	"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2421	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2422
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2423	!ExternalStream methodsFor:'non homogenous reading'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2424
3674 c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	2425	nextAvailable:count
c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	2426	"return the next count elements of the stream as aCollection.
c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	2427	If the stream reaches the end before count elements have been read,
c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	2428	return what is available. (i.e. a shorter collection).
c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	2429	The type of collection is specified in #contentsSpecies."
c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	2430
3956 51f1a9a4d63f changes for egcs (stdio uses __new / utsname) Claus Gittinger <cg@exept.de> parents: 3949 diff changeset	2431	\|buffer n\|
3674 c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	2432
c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	2433	binary ifTrue:[
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2434	buffer := ByteArray new:count
3674 c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	2435	] ifFalse:[
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2436	buffer := String new:count
3674 c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	2437	].
c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	2438	n := self nextAvailableBytes:count into:buffer startingAt:1.
c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	2439	n == 0 ifTrue:[^ nil].
c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	2440
c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	2441	n ~~ count ifTrue:[
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2442	^ buffer copyTo:n
3674 c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	2443	].
c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	2444	^ buffer.
c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	2445
c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	2446	"
c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	2447	(ReadStream on:#(1 2 3 4 5)) nextAvailable:3
c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	2448	(ReadStream on:#(1 2 3 4 5)) nextAvailable:10
c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	2449	(ReadStream on:'hello') nextAvailable:3
c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	2450	(ReadStream on:'hello') nextAvailable:10
c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	2451	"
c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	2452
c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	2453	"Modified: / 16.6.1998 / 15:52:41 / cg"
c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	2454
c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	2455	!
c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	2456
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2457	nextAvailableBytes:count into:anObject startingAt:start
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2458	"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	2459	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	2460	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	2461
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2462	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	2463	is raised if the connection is broken.
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2464
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2465	Notice, that in contrast to other methods,
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2466	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	2467	Thus allowing read of partial blocks.
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2468
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2469	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	2470	(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	2471	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	2472	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	2473
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2474	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	2475	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	2476	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	2477
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2478	%{
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2479	FILEPOINTER f;
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2480	int cnt, offs, ret, _buffered;
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2481	int objSize, nInstVars, nInstBytes;
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2482	char *cp;
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2483	char *extPtr;
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2484	OBJ pos, fp, oClass;
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2485	int o_offs;
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2486
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2487	__INST(lastErrorNumber) = nil;
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2488	if (((fp = __INST(filePointer)) != nil)
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2489	&& (__INST(mode) != @symbol(writeonly))
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2490	&& __bothSmallInteger(count, start)
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2491	) {
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2492	f = __FILEVal(fp);
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2493
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2494	cnt = __intVal(count);
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2495	offs = __intVal(start) - 1;
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2496
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2497	oClass = __Class(anObject);
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2498	if (oClass == ExternalBytes) {
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2499	OBJ sz;
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2500
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2501	nInstBytes = 0;
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2502	extPtr = (char *)(__externalBytesAddress(anObject));
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2503	sz = __externalBytesSize(anObject);
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2504	if (__isSmallInteger(sz)) {
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2505	objSize = __intVal(sz);
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2506	} else {
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2507	objSize = 0; /* unknown */
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2508	}
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2509	} else {
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2510	switch (__intVal(__ClassInstPtr(oClass)->c_flags) & ARRAYMASK) {
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2511	case BYTEARRAY:
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2512	case WORDARRAY:
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2513	case LONGARRAY:
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2514	case SWORDARRAY:
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2515	case SLONGARRAY:
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2516	case FLOATARRAY:
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2517	case DOUBLEARRAY:
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2518	break;
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2519	default:
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2520	goto bad;
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2521	}
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2522	extPtr = (char *)0;
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2523	nInstVars = __intVal(__ClassInstPtr(oClass)->c_ninstvars);
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2524	nInstBytes = OHDR_SIZE + __OBJS2BYTES__(nInstVars);
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2525	objSize = __Size(anObject) - nInstBytes;
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2526	}
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2527
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2528	if ((offs >= 0) && (cnt >= 0) && (objSize >= (cnt + offs))) {
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2529	_buffered = (__INST(buffered) == true);
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2530	if (_buffered) {
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2531	__READING__(f);
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2532	}
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2533
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2534	if (extPtr) {
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2535	__READAVAILBYTES__(ret, f, extPtr+offs, cnt, _buffered);
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2536	} else {
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2537	/*
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2538	* on interrupt, anObject may be moved to another location.
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2539	* So we pass (char *)__InstPtr(anObject) + nInstBytes + offs to the macro __READ_BYTES__,
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2540	* to get a new address.
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2541	*/
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2542	offs += nInstBytes;
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2543	__READAVAILBYTES_OBJ__(ret, f, anObject, offs, cnt, _buffered);
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2544	}
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2545	if (ret > 0) {
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2546	pos = __INST(position);
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2547	if (pos != nil) {
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2548	__INST(position) = __MKSMALLINT(__intVal(pos) + ret);
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2549	}
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2550	RETURN (__MKSMALLINT(ret));
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2551	}
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2552	if (ret == 0) {
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2553	__INST(hitEOF) = true;
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2554	} else /* ret < 0 */ {
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2555	__INST(position) = nil;
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2556	__INST(lastErrorNumber) = __MKSMALLINT(errno);
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2557	}
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	2558	}
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2559	}
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2560	bad: ;
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2561	%}.
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2562	(hitEOF and:[self pastEnd isNil]) ifTrue:[^ 0].
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2563	lastErrorNumber notNil ifTrue:[^ self readError].
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2564	filePointer isNil ifTrue:[^ self errorNotOpen].
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2565	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2566	"
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2567	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	2568	"
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2569	^ self primitiveFailed
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2570	!
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2571
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2572	nextByte
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2573	"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	2574	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	2575	bytes binary value as an integer in 0..255."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2576
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	2577	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2578	FILEPOINTER f;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2579	unsigned char byte;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2580	int ret, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2581	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2582
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2583	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2584	if (((fp = __INST(filePointer)) != nil)
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2585	&& (__INST(mode) != @symbol(writeonly))) {
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2586	f = __FILEVal(fp);
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2587
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2588	_buffered = (__INST(buffered) == true);
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2589	if (_buffered) {
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2590	__READING__(f)
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2591	}
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2592	__READBYTE__(ret, f, &byte, _buffered);
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2593	if (ret > 0) {
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2594	OBJ pos;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2595
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2596	if ((pos = __INST(position)) != nil) {
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2597	__INST(position) = __MKSMALLINT(__intVal(pos) + 1);
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2598	}
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2599	RETURN (__MKSMALLINT(byte));
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2600	}
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2601
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2602	if (ret == 0) {
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2603	__INST(hitEOF) = true;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2604	} else /* ret < 0 */ {
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2605	__INST(position) = nil;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2606	__INST(lastErrorNumber) = __MKSMALLINT(errno);
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2607	}
612 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	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	2610	hitEOF ifTrue:[^ self pastEnd].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2611	lastErrorNumber notNil ifTrue:[^ self readError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2612	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2613	^ self errorWriteOnly
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2614	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2615
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2616	nextBytes:count into:anObject startingAt:start
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2617	"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	2618	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	2619	If the receiver is some socket/pipe-like stream, an exception
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2620	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	2621
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2622	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	2623	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	2624	to only read whats there.
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	2625
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2626	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	2627	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	2628	Thus allowing read of partial blocks.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2629
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2630	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	2631	(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	2632	or an externalBytes object (with known size).
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2633	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	2634	fastest possible physical I/O (since no new objects are allocated).
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2635
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2636	Use with care - non object oriented I/O.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2637	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	2638	architectures (unless you prepared the buffer with care),
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2639	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	2640
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2641	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2642	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2643	int cnt, offs, ret, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2644	int objSize, nInstVars, nInstBytes;
3432 1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2645	char *extPtr;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2646	OBJ pos, fp, oClass;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2647
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2648	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2649	if (((fp = __INST(filePointer)) != nil)
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2650	&& (__INST(mode) != @symbol(writeonly))
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2651	&& __bothSmallInteger(count, start)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2652	) {
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2653	f = __FILEVal(fp);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2654
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2655	cnt = __intVal(count);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2656	offs = __intVal(start) - 1;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2657
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2658	oClass = __Class(anObject);
3432 1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2659	if (oClass == ExternalBytes) {
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2660	OBJ sz;
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2661
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2662	nInstBytes = 0;
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2663	extPtr = (char *)(__externalBytesAddress(anObject));
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2664	sz = __externalBytesSize(anObject);
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2665	if (__isSmallInteger(sz)) {
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2666	objSize = __intVal(sz);
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2667	} else {
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2668	objSize = 0; /* unknown */
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2669	}
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2670	} else {
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2671	switch (__intVal(__ClassInstPtr(oClass)->c_flags) & ARRAYMASK) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2672	case BYTEARRAY:
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2673	case WORDARRAY:
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2674	case LONGARRAY:
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2675	case SWORDARRAY:
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2676	case SLONGARRAY:
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2677	case FLOATARRAY:
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2678	case DOUBLEARRAY:
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2679	break;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2680	default:
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2681	goto bad;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2682	}
3432 1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2683	extPtr = (char *)0;
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2684	nInstVars = __intVal(__ClassInstPtr(oClass)->c_ninstvars);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2685	nInstBytes = OHDR_SIZE + __OBJS2BYTES__(nInstVars);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2686	objSize = __Size(anObject) - nInstBytes;
3432 1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2687	}
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2688	if ((offs >= 0) && (cnt >= 0) && (objSize >= (cnt + offs))) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2689	_buffered = (__INST(buffered) == true);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2690	if (_buffered) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2691	__READING__(f);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2692	}
2861 c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2693
3432 1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2694	if (extPtr) {
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2695	__READBYTES__(ret, f, extPtr+offs, cnt, _buffered);
3432 1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	2696	} else {
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2697	/*
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2698	* on interrupt, anObject may be moved to another location.
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2699	* 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	2700	*/
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2701	offs += nInstBytes;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2702	__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	2703	}
2861 c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	2704
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2705	if (ret > 0) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2706	pos = __INST(position);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2707	if (pos != nil) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2708	__INST(position) = __MKSMALLINT(__intVal(pos) + ret);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2709	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2710	RETURN (__MKSMALLINT(ret));
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2711	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2712	if (ret == 0) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2713	__INST(hitEOF) = true;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2714	} else /* ret < 0 */ {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2715	__INST(position) = nil;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2716	__INST(lastErrorNumber) = __MKSMALLINT(errno);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2717	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	2718	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2719	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2720	bad: ;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2721	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	2722	(hitEOF and:[self pastEnd isNil]) ifTrue:[^ 0].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2723	lastErrorNumber notNil ifTrue:[^ self readError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2724	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2725	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2726	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2727	count not integer or arg not bit-like (String, ByteArray etc)
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2728	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2729	^ self primitiveFailed
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	2730	!
0c73b48551ac * empty log message * claus parents: 88 diff changeset	2731
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2732	nextLong
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2733	"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	2734	The returned value may be a LargeInteger.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2735	(msb-first for compatibility with other smalltalks)"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2736
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2737	^ self nextUnsignedLongMSB:true
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2738	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2739
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2740	nextLongMSB:msbFlag
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2741	"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	2742	which may be a LargeInteger.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2743	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	2744	otherwise least-significant byte comes first.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2745	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	2746	Works in both binary and text modes."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2747
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	2748	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2749	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2750
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2751	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2752	if (((fp = __INST(filePointer)) != nil)
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2753	&& (__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	2754	) {
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2755	FILEPOINTER f;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2756	int ret, _buffered;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2757	int value;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2758	union {
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2759	unsigned char buffer[4];
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2760	int intVal;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2761	} u;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2762
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2763	f = __FILEVal(fp);
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2764	_buffered = (__INST(buffered) == true);
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2765	if (_buffered) {
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2766	__READING__(f)
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2767	}
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2768	__READBYTES__(ret, f, u.buffer, 4, _buffered);
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2769
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2770	if (ret == 4) {
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2771	OBJ pos;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2772
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2773	if ((pos = __INST(position)) != nil) {
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2774	__INST(position) = __MKSMALLINT(__intVal(pos) + 4);
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2775	}
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2776	if (msbFlag == true) {
4383 7a5abc09fb39 slightly tuned nextXXXLongMSB: and nextUnsignedXXXMSB: Claus Gittinger <cg@exept.de> parents: 4368 diff changeset	2777	#if defined(__MSBFIRST)
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2778	value = u.intVal;
4383 7a5abc09fb39 slightly tuned nextXXXLongMSB: and nextUnsignedXXXMSB: Claus Gittinger <cg@exept.de> parents: 4368 diff changeset	2779	#else
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2780	value = (u.buffer[0] & 0xFF);
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2781	value = (value << 8) \| (u.buffer[1] & 0xFF);
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2782	value = (value << 8) \| (u.buffer[2] & 0xFF);
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2783	value = (value << 8) \| (u.buffer[3] & 0xFF);
4383 7a5abc09fb39 slightly tuned nextXXXLongMSB: and nextUnsignedXXXMSB: Claus Gittinger <cg@exept.de> parents: 4368 diff changeset	2784	#endif
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2785	} else {
4383 7a5abc09fb39 slightly tuned nextXXXLongMSB: and nextUnsignedXXXMSB: Claus Gittinger <cg@exept.de> parents: 4368 diff changeset	2786	#if defined(__LSBFIRST)
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2787	value = u.intVal;
4383 7a5abc09fb39 slightly tuned nextXXXLongMSB: and nextUnsignedXXXMSB: Claus Gittinger <cg@exept.de> parents: 4368 diff changeset	2788	#else
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2789	value = (u.buffer[3] & 0xFF);
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2790	value = (value << 8) \| (u.buffer[2] & 0xFF);
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2791	value = (value << 8) \| (u.buffer[1] & 0xFF);
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2792	value = (value << 8) \| (u.buffer[0] & 0xFF);
4383 7a5abc09fb39 slightly tuned nextXXXLongMSB: and nextUnsignedXXXMSB: Claus Gittinger <cg@exept.de> parents: 4368 diff changeset	2793	#endif
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2794	}
4383 7a5abc09fb39 slightly tuned nextXXXLongMSB: and nextUnsignedXXXMSB: Claus Gittinger <cg@exept.de> parents: 4368 diff changeset	2795	#ifdef alpha64
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2796	RETURN ( __MKSMALLINT(value));
4383 7a5abc09fb39 slightly tuned nextXXXLongMSB: and nextUnsignedXXXMSB: Claus Gittinger <cg@exept.de> parents: 4368 diff changeset	2797	#else
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2798	if ((value >= _MIN_INT) && (value <= _MAX_INT)) {
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2799	RETURN ( __MKSMALLINT(value));
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2800	}
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2801	RETURN ( __MKLARGEINT(value) );
4383 7a5abc09fb39 slightly tuned nextXXXLongMSB: and nextUnsignedXXXMSB: Claus Gittinger <cg@exept.de> parents: 4368 diff changeset	2802	#endif
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2803	}
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2804
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2805	if (ret < 0) {
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2806	__INST(position) = nil;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2807	__INST(lastErrorNumber) = __MKSMALLINT(errno);
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2808	} else /* ret == 0 */ {
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2809	__INST(hitEOF) = true;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2810	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2811	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2812	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	2813	hitEOF ifTrue:[^ self pastEnd].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2814	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2815	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2816	^ self readError.
1079 d47cd86b487b Make methods signal-proof. Stefan Vogel <sv@exept.de> parents: 1068 diff changeset	2817
362 4131e87e79ec . claus parents: 360 diff changeset	2818	!
4131e87e79ec . claus parents: 360 diff changeset	2819
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2820	nextShortMSB:msbFlag
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2821	"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	2822	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	2823	otherwise least-significant byte comes first.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2824	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	2825	Works in both binary and text modes."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2826
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	2827	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2828	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2829
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2830	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2831	if (((fp = __INST(filePointer)) != nil)
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2832	&& (__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	2833	) {
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2834	FILEPOINTER f;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2835	int ret, _buffered;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2836	short value;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2837	union {
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2838	unsigned char buffer[2];
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2839	short shortVal;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2840	} u;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2841
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2842	f = __FILEVal(fp);
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2843	_buffered = (__INST(buffered) == true);
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2844	if (_buffered) {
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2845	__READING__(f)
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2846	}
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2847	__READBYTES__(ret, f, u.buffer, 2, _buffered);
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2848
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2849	if (ret == 2) {
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2850	OBJ pos;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2851
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2852	if ((pos = __INST(position)) != nil) {
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2853	__INST(position) = __MKSMALLINT(__intVal(pos) + 2);
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2854	}
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2855	if (msbFlag == true) {
4383 7a5abc09fb39 slightly tuned nextXXXLongMSB: and nextUnsignedXXXMSB: Claus Gittinger <cg@exept.de> parents: 4368 diff changeset	2856	#if defined(__MSBFIRST)
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2857	value = u.shortVal;
4383 7a5abc09fb39 slightly tuned nextXXXLongMSB: and nextUnsignedXXXMSB: Claus Gittinger <cg@exept.de> parents: 4368 diff changeset	2858	#else
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2859	value = ((u.buffer[0] & 0xFF) << 8) \| (u.buffer[1] & 0xFF);
4383 7a5abc09fb39 slightly tuned nextXXXLongMSB: and nextUnsignedXXXMSB: Claus Gittinger <cg@exept.de> parents: 4368 diff changeset	2860	#endif
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2861	} else {
4383 7a5abc09fb39 slightly tuned nextXXXLongMSB: and nextUnsignedXXXMSB: Claus Gittinger <cg@exept.de> parents: 4368 diff changeset	2862	#if defined(__LSBFIRST)
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2863	value = u.shortVal;
4383 7a5abc09fb39 slightly tuned nextXXXLongMSB: and nextUnsignedXXXMSB: Claus Gittinger <cg@exept.de> parents: 4368 diff changeset	2864	#else
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2865	value = ((u.buffer[1] & 0xFF) << 8) \| (u.buffer[0] & 0xFF);
4383 7a5abc09fb39 slightly tuned nextXXXLongMSB: and nextUnsignedXXXMSB: Claus Gittinger <cg@exept.de> parents: 4368 diff changeset	2866	#endif
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2867	}
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2868	RETURN (__MKSMALLINT(value));
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2869	}
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2870
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2871	if (ret < 0) {
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2872	__INST(position) = nil;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2873	__INST(lastErrorNumber) = __MKSMALLINT(errno);
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2874	} else /* ret == 0 */ {
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2875	__INST(hitEOF) = true;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2876	}
612 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	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	2879	hitEOF ifTrue:[^ self pastEnd].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2880	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2881	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2882	^ self readError.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2883	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2884
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2885	nextUnsignedLongMSB:msbFlag
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2886	"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	2887	a LargeInteger.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2888	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	2889	least-significant byte comes first.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2890	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	2891	Works in both binary and text modes."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2892
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	2893	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2894	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2895
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2896	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2897	if (((fp = __INST(filePointer)) != nil)
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2898	&& (__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	2899	) {
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2900	FILEPOINTER f;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2901	int ret, _buffered;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2902	unsigned INT value;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2903	union {
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2904	unsigned char buffer[4];
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2905	unsigned int intVal;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2906	} u;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2907
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2908	f = __FILEVal(fp);
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2909	_buffered = (__INST(buffered) == true);
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2910	if (_buffered) {
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2911	__READING__(f)
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2912	}
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2913	__READBYTES__(ret, f, u.buffer, 4, _buffered);
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2914
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2915	if (ret == 4) {
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2916	OBJ pos;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2917
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2918	if ((pos = __INST(position)) != nil) {
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2919	__INST(position) = __MKSMALLINT(__intVal(pos) + 4);
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2920	}
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2921	if (msbFlag == true) {
4383 7a5abc09fb39 slightly tuned nextXXXLongMSB: and nextUnsignedXXXMSB: Claus Gittinger <cg@exept.de> parents: 4368 diff changeset	2922	#if defined(__MSBFIRST)
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2923	value = u.intVal;
4383 7a5abc09fb39 slightly tuned nextXXXLongMSB: and nextUnsignedXXXMSB: Claus Gittinger <cg@exept.de> parents: 4368 diff changeset	2924	#else
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2925	value = u.buffer[0];
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2926	value = (value << 8) \| u.buffer[1];
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2927	value = (value << 8) \| u.buffer[2];
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2928	value = (value << 8) \| u.buffer[3];
4383 7a5abc09fb39 slightly tuned nextXXXLongMSB: and nextUnsignedXXXMSB: Claus Gittinger <cg@exept.de> parents: 4368 diff changeset	2929	#endif
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2930	} else {
4383 7a5abc09fb39 slightly tuned nextXXXLongMSB: and nextUnsignedXXXMSB: Claus Gittinger <cg@exept.de> parents: 4368 diff changeset	2931	#if defined(__LSBFIRST)
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2932	value = u.intVal;
4383 7a5abc09fb39 slightly tuned nextXXXLongMSB: and nextUnsignedXXXMSB: Claus Gittinger <cg@exept.de> parents: 4368 diff changeset	2933	#else
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2934	value = u.buffer[3];
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2935	value = (value << 8) \| u.buffer[2];
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2936	value = (value << 8) \| u.buffer[1];
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2937	value = (value << 8) \| u.buffer[0];
4383 7a5abc09fb39 slightly tuned nextXXXLongMSB: and nextUnsignedXXXMSB: Claus Gittinger <cg@exept.de> parents: 4368 diff changeset	2938	#endif
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2939	}
3456 0cdf451360b9 oops - nextUnsignedLong:MSB: on alpha. Claus Gittinger <cg@exept.de> parents: 3445 diff changeset	2940	#ifdef alpha64
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2941	value &= 0xFFFFFFFF;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2942	RETURN (__MKSMALLINT(value));
4383 7a5abc09fb39 slightly tuned nextXXXLongMSB: and nextUnsignedXXXMSB: Claus Gittinger <cg@exept.de> parents: 4368 diff changeset	2943	#else
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2944	if (value <= _MAX_INT) {
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2945	RETURN (__MKSMALLINT(value));
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2946	}
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2947	RETURN (__MKULARGEINT(value) );
3456 0cdf451360b9 oops - nextUnsignedLong:MSB: on alpha. Claus Gittinger <cg@exept.de> parents: 3445 diff changeset	2948	#endif
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2949	}
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2950
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2951	if (ret < 0) {
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2952	__INST(position) = nil;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2953	__INST(lastErrorNumber) = __MKSMALLINT(errno);
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2954	} else /* ret == 0 */ {
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2955	__INST(hitEOF) = true;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2956	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2957	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2958	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	2959	hitEOF ifTrue:[^ self pastEnd].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2960	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2961	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2962	^ self readError.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2963	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2964
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2965	nextUnsignedShortMSB:msbFlag
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2966	"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	2967	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	2968	otherwise least-significant byte comes first.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2969	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	2970	Works in both binary and text modes."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2971
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	2972	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2973	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2974
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2975	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2976	if (((fp = __INST(filePointer)) != nil)
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2977	&& (__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	2978	) {
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2979	FILEPOINTER f;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2980	int ret, _buffered;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2981	unsigned int value;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2982	union {
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2983	unsigned char buffer[2];
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2984	unsigned short shortVal;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2985	} u;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2986
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2987	f = __FILEVal(fp);
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2988	_buffered = (__INST(buffered) == true);
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2989	if (_buffered) {
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2990	__READING__(f)
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2991	}
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2992	__READBYTES__(ret, f, u.buffer, 2, _buffered);
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2993
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2994	if (ret == 2) {
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2995	OBJ pos;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2996
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2997	if ((pos = __INST(position)) != nil) {
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2998	__INST(position) = __MKSMALLINT(__intVal(pos) + 2);
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	2999	}
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3000	if (msbFlag == true) {
4383 7a5abc09fb39 slightly tuned nextXXXLongMSB: and nextUnsignedXXXMSB: Claus Gittinger <cg@exept.de> parents: 4368 diff changeset	3001	#if defined(__MSBFIRST)
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3002	value = u.shortVal;
4383 7a5abc09fb39 slightly tuned nextXXXLongMSB: and nextUnsignedXXXMSB: Claus Gittinger <cg@exept.de> parents: 4368 diff changeset	3003	#else
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3004	value = (u.buffer[0] << 8) \| u.buffer[1];
4383 7a5abc09fb39 slightly tuned nextXXXLongMSB: and nextUnsignedXXXMSB: Claus Gittinger <cg@exept.de> parents: 4368 diff changeset	3005	#endif
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3006	} else {
4383 7a5abc09fb39 slightly tuned nextXXXLongMSB: and nextUnsignedXXXMSB: Claus Gittinger <cg@exept.de> parents: 4368 diff changeset	3007	#if defined(__LSBFIRST)
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3008	value = u.shortVal;
4383 7a5abc09fb39 slightly tuned nextXXXLongMSB: and nextUnsignedXXXMSB: Claus Gittinger <cg@exept.de> parents: 4368 diff changeset	3009	#else
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3010	value = (u.buffer[1] << 8) \| u.buffer[0];
4383 7a5abc09fb39 slightly tuned nextXXXLongMSB: and nextUnsignedXXXMSB: Claus Gittinger <cg@exept.de> parents: 4368 diff changeset	3011	#endif
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3012	}
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3013	RETURN (__MKSMALLINT(value));
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3014	}
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3015
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3016	if (ret < 0) {
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3017	__INST(position) = nil;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3018	__INST(lastErrorNumber) = __MKSMALLINT(errno);
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3019	} else /* ret == 0 */ {
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3020	__INST(hitEOF) = true;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3021	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3022	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3023	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	3024	hitEOF ifTrue:[^ self pastEnd].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3025	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3026	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3027	^ self readError.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3028	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3029
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3030	nextWord
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3031	"in text-mode:
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3032	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	3033	return a string containing those characters.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3034	in binary-mode:
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3035	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	3036	unsigned Integer (for compatibility with other smalltalks)"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3037
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3038	binary ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3039	^ self nextUnsignedShortMSB:true
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	3040	].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3041	^ self nextAlphaNumericWord
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3042	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3043
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3044	!ExternalStream methodsFor:'non homogenous writing'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3045
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3046	nextPutByte:aByteValue
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3047	"write a byte.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3048	Works in both binary and text modes."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3049
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	3050	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	3051	FILEPOINTER f;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3052	char c;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3053	OBJ pos, fp;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3054	int cnt, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3055
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3056	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3057	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3058	&& (__INST(mode) != @symbol(readonly))
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3059	&& __isSmallInteger(aByteValue)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3060
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3061	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3062	c = __intVal(aByteValue);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3063	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3064	if (_buffered = (__INST(buffered) == true)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3065	__WRITING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3066	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3067	__WRITEBYTE__(cnt, f, &c, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3068	if (cnt == 1) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3069	pos = __INST(position);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3070	if (pos != nil)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3071	__INST(position) = __MKSMALLINT(__intVal(pos) + 1);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3072	RETURN (self);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3073	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3074	__INST(lastErrorNumber) = __MKSMALLINT(errno);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3075	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3076	%}.
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3077	filePointer isNil ifTrue:[self errorNotOpen. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3078	(mode == #readonly) ifTrue:[self errorReadOnly. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3079	self writeError.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3080	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3081
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3082	nextPutBytes:count from:anObject startingAt:start
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3083	"write count bytes from an object starting at index start.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3084	return the number of bytes written - which could be 0.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3085	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	3086	(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	3087	or an externalBytes object (with known size).
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	3088
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3089	Use with care - non object oriented i/o.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3090	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	3091	architectures (unless you prepared the buffer with care),
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	3092	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	3093
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	3094	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	3095	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3096	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	3097	int objSize, nInstVars, nInstBytes, _buffered;
3432 1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	3098	char *extPtr;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3099	OBJ oClass, pos, fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3100
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3101	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3102	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3103	&& (__INST(mode) != @symbol(readonly))
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3104	&& __bothSmallInteger(count, start)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3105	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3106	len = __intVal(count);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3107	offs = __intVal(start) - 1;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3108	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3109
3432 1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	3110	oClass = __Class(anObject);
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	3111	if (oClass == ExternalBytes) {
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	3112	OBJ sz;
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	3113
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	3114	nInstBytes = 0;
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	3115	extPtr = (char *)__externalBytesAddress(anObject);
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	3116	sz = __externalBytesSize(anObject);
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	3117	if (__isSmallInteger(sz)) {
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	3118	objSize = __intVal(sz);
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	3119	} else {
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	3120	objSize = 0; /* unknown */
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	3121	}
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	3122	} else {
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	3123	switch (__intVal(__ClassInstPtr(oClass)->c_flags) & ARRAYMASK) {
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3124	case BYTEARRAY:
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3125	case WORDARRAY:
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3126	case LONGARRAY:
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3127	case SWORDARRAY:
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3128	case SLONGARRAY:
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3129	case FLOATARRAY:
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3130	case DOUBLEARRAY:
3432 1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	3131	break;
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3132	default:
3432 1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	3133	goto bad;
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	3134	}
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	3135	extPtr = (char *)0;
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	3136	nInstVars = __intVal(__ClassInstPtr(oClass)->c_ninstvars);
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	3137	nInstBytes = OHDR_SIZE + __OBJS2BYTES__(nInstVars);
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	3138	objSize = __Size(anObject) - nInstBytes;
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	3139	}
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3140	if ( (offs >= 0) && (len >= 0) && (objSize >= (len + offs)) ) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3141	if (_buffered = (__INST(buffered) == true)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3142	__WRITING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3143	}
3432 1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	3144
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	3145	if (extPtr) {
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3146	__WRITEBYTES__(cnt, f, extPtr+offs, len, _buffered);
3432 1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	3147	} else {
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3148	/*
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3149	* on interrupt, anObject may be moved to another location.
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3150	* 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	3151	*/
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3152	offs += nInstBytes;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3153	__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	3154	}
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	3155
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3156	if (cnt >= 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3157	pos = __INST(position);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3158	if (pos != nil)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3159	__INST(position) = __MKSMALLINT(__intVal(pos) + cnt);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3160	RETURN ( __MKSMALLINT(cnt) );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3161	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3162	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3163	}
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	bad: ;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3166	%}.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3167	lastErrorNumber notNil ifTrue:[^ self writeError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3168	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3169	(mode == #readonly) ifTrue:[^ self errorReadOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3170	^ self primitiveFailed
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
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3173	nextPutLong:aNumber MSB:msbFlag
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3174	"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	3175	true, data is written most-significant byte first; otherwise least
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3176	first.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3177	Works in both binary and text modes."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3178
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	3179	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3180	int num;
4384 f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	3181	union {
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3182	char bytes[4];
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3183	int intVal;
4384 f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	3184	} u;
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	3185	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3186	int cnt, _buffered;
4384 f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	3187	OBJ fp;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3188
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3189	__INST(lastErrorNumber) = nil;
4384 f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	3190	if (__isSmallInteger(aNumber)) {
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3191	num = __intVal(aNumber);
4384 f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	3192	} else {
f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	3193	#ifdef alpha64
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3194	goto badArg;
4384 f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	3195	#else
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3196	num = __longIntVal(aNumber);
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3197	if (num == 0) {
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3198	num = __signedLongIntVal(aNumber);
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3199	if (num == 0) {
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3200	/* bad arg or out-of-range integer
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3201	* (handled by the fallBack code)
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3202	*/
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3203	goto badArg;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3204	}
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3205	}
4384 f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	3206	#endif
f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	3207	}
f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	3208
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3209	if (((fp = __INST(filePointer)) != nil)
4384 f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	3210	&& (__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	3211	) {
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3212	if (msbFlag == true) {
4384 f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	3213	#if defined(__MSBFIRST)
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3214	u.intVal = num;
4384 f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	3215	#else
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3216	u.bytes[0] = (num >> 24) & 0xFF;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3217	u.bytes[1] = (num >> 16) & 0xFF;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3218	u.bytes[2] = (num >> 8) & 0xFF;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3219	u.bytes[3] = num & 0xFF;
4384 f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	3220	#endif
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3221	} else {
4384 f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	3222	#if defined(__LSBFIRST)
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3223	u.intVal = num;
4384 f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	3224	#else
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3225	u.bytes[3] = (num >> 24) & 0xFF;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3226	u.bytes[2] = (num >> 16) & 0xFF;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3227	u.bytes[1] = (num >> 8) & 0xFF;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3228	u.bytes[0] = num & 0xFF;
4384 f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	3229	#endif
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3230	}
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3231
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3232	f = __FILEVal(fp);
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3233	if (_buffered = (__INST(buffered) == true)) {
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3234	__WRITING__(f)
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3235	}
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3236	__WRITEBYTES__(cnt, f, u.bytes, 4, _buffered);
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3237
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3238	if (cnt == 4) {
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3239	OBJ pos;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3240
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3241	if ((pos = __INST(position)) != nil) {
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3242	__INST(position) = __MKSMALLINT(__intVal(pos) + 4);
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3243	}
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3244	RETURN ( self );
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3245	}
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3246	__INST(lastErrorNumber) = __MKSMALLINT(errno);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3247	}
4384 f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	3248	badArg: ;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3249	%}.
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3250	filePointer isNil ifTrue:[self errorNotOpen. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3251	(mode == #readonly) ifTrue:[self errorReadOnly. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3252	lastErrorNumber notNil ifTrue:[self writeError. ^ self].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3253
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3254	aNumber isInteger ifTrue:[
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3255	^ super nextPutLong:aNumber MSB:msbFlag
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	3256	].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3257	self argumentMustBeInteger
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3258	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3259
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3260	nextPutShort:aNumber MSB:msbFlag
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3261	"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	3262	true, data is written most-significant byte first; otherwise least
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3263	first.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3264	Works in both binary and text modes."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3265
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	3266	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3267	int num;
4384 f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	3268	union {
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3269	char bytes[2];
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3270	short shortVal;
4384 f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	3271	} u;
f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	3272
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	3273	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3274	int cnt, _buffered;
4384 f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	3275	OBJ fp;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3276
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3277	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3278	if (((fp = __INST(filePointer)) != nil)
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3279	&& (__INST(mode) != @symbol(readonly))
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3280	&& __isSmallInteger(aNumber)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3281	) {
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3282	num = __intVal(aNumber);
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3283	if (msbFlag == true) {
4384 f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	3284	#if defined(__MSBFIRST)
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3285	u.shortVal = num;
4384 f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	3286	#else
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3287	u.bytes[0] = (num >> 8) & 0xFF;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3288	u.bytes[1] = num & 0xFF;
4384 f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	3289	#endif
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3290	} else {
4384 f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	3291	#if defined(__LSBFIRST)
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3292	u.shortVal = num;
4384 f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	3293	#else
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3294	u.bytes[1] = (num >> 8) & 0xFF;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3295	u.bytes[0] = num & 0xFF;
4384 f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	3296	#endif
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3297	}
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3298
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3299	f = __FILEVal(fp);
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3300	if (_buffered = (__INST(buffered) == true)) {
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3301	__WRITING__(f)
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3302	}
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3303	__WRITEBYTES__(cnt, f, u.bytes, 2, _buffered);
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3304
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3305	if (cnt == 2) {
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3306	OBJ pos;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3307
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3308	if ((pos = __INST(position)) != nil) {
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3309	__INST(position) = __MKSMALLINT(__intVal(pos) + 2);
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3310	}
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3311	RETURN ( self );
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3312	}
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3313	__INST(lastErrorNumber) = __MKSMALLINT(errno);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3314	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3315	%}.
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3316	lastErrorNumber notNil ifTrue:[^ self writeError. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3317	filePointer isNil ifTrue:[self errorNotOpen. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3318	(mode == #readonly) ifTrue:[self errorReadOnly. ^ self].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3319	self argumentMustBeInteger
10 4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	3320	! !
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3321
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3322	!ExternalStream methodsFor:'private'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3323
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3324	clearEOF
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3325	hitEOF := false
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3326	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3327
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	3328	connectTo:aFileDescriptor withMode:openmode
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	3329	"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	3330	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	3331	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	3332	a Stream object.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	3333	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	3334	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	3335
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	3336	\|retVal\|
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	3337
4526 a42dc8e09586 errorOpen renamed to errorAlreadyOpen Claus Gittinger <cg@exept.de> parents: 4468 diff changeset	3338	filePointer notNil ifTrue:[^ self errorAlreadyOpen].
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	3339	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	3340	FILEPOINTER f;
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	3341	OBJ fp;
2765 a56668774ad7 more alpha64 fixes Claus Gittinger <cg@exept.de> parents: 2764 diff changeset	3342	FILE *fdopen();
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	3343
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	3344	if (__isSmallInteger(aFileDescriptor)
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	3345	&& (__qClass(openmode)== @global(String))) {
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3346	f = (FILEPOINTER) fdopen(__intVal(aFileDescriptor), (char *)__stringVal(openmode));
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3347	if (f == NULL) {
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3348	__INST(lastErrorNumber) = __MKSMALLINT(errno);
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3349	__INST(position) = nil;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3350	} else {
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3351	__INST(filePointer) = fp = __MKFILEPOINTER(f); __STORE(self, fp);
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3352	__INST(position) = __MKSMALLINT(1);
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3353	retVal = self;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3354	}
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	3355	}
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	3356	%}.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	3357	retVal notNil ifTrue:[
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3358	buffered := true. "default is buffered"
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3359	Lobby register:self
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	3360	].
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	3361	lastErrorNumber notNil ifTrue:[
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3362	"
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3363	the open failed for some reason ...
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3364	"
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3365	^ self openError
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	3366	].
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	3367	^ retVal
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	3368	!
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	3369
2963 17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	3370	open:aPath withMode:mode
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	3371	"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	3372	variable. Careful: this does not care for any other state."
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	3373
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	3374	\|ok\|
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	3375
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	3376	ok := false.
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	3377	%{
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	3378	FILE *f;
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	3379	OBJ fp;
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	3380
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	3381	if (__isString(aPath)) {
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3382	__BEGIN_INTERRUPTABLE__
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3383	do {
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3384	f = fopen((char ) __stringVal(aPath), (char ) __stringVal(mode));
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3385	} while ((f == NULL) && (errno == EINTR));
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3386	__END_INTERRUPTABLE__
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3387	if (f == NULL) {
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3388	__INST(lastErrorNumber) = __MKSMALLINT(errno);
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3389	} else {
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3390	__INST(filePointer) = fp = __MKFILEPOINTER(f); __STORE(self, fp);
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3391	ok = true;
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3392	}
2963 17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	3393	}
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	3394	%}.
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	3395	ok ifFalse:[
4597 9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3396	"
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3397	the open failed for some reason ...
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3398	"
9628a80e23ec only raise LineTooLongError if handled; otherwise silently continue Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	3399	^ self openError
4456 914ce6ac4052 initialize position Claus Gittinger <cg@exept.de> parents: 4384 diff changeset	3400	].
914ce6ac4052 initialize position Claus Gittinger <cg@exept.de> parents: 4384 diff changeset	3401	position := 1.
2963 17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	3402	Lobby register:self.
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	3403	!
17bd9be72f9b lots of VMS changes Claus Gittinger <cg@exept.de> parents: 2961 diff changeset	3404
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3405	reOpen
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3406	"sent after snapin to reopen streams.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3407	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	3408
2134 246a3bdab8b4 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 2120 diff changeset	3409	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	3410	filePointer := nil.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3411	Lobby unregister:self.
2134 246a3bdab8b4 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 2120 diff changeset	3412
246a3bdab8b4 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 2120 diff changeset	3413	"Modified: 10.1.1997 / 17:50:44 / cg"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3414	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3415
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3416	setLastError:aNumber
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3417	lastErrorNumber := aNumber
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3418	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3419
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3420	!ExternalStream methodsFor:'queries'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3421
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3422	isBinary
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3423	"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	3424	The default when created is false."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3425
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3426	^ binary
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3427	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3428
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3429	isExternalStream
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3430	"return true, if the receiver is some kind of externalStream;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3431	true is returned here - the method redefined from Object."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3432
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3433	^ true
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3434	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3435
3863 af67e6995a4a added #isOpen query Claus Gittinger <cg@exept.de> parents: 3682 diff changeset	3436	isOpen
af67e6995a4a added #isOpen query Claus Gittinger <cg@exept.de> parents: 3682 diff changeset	3437	"return true, if this stream is open"
af67e6995a4a added #isOpen query Claus Gittinger <cg@exept.de> parents: 3682 diff changeset	3438
af67e6995a4a added #isOpen query Claus Gittinger <cg@exept.de> parents: 3682 diff changeset	3439	^ filePointer notNil
af67e6995a4a added #isOpen query Claus Gittinger <cg@exept.de> parents: 3682 diff changeset	3440	!
af67e6995a4a added #isOpen query Claus Gittinger <cg@exept.de> parents: 3682 diff changeset	3441
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3442	isReadable
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3443	"return true, if this stream can be read from"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3444
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3445	^ (mode ~~ #writeonly)
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3446	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3447
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3448	isWritable
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3449	"return true, if this stream can be written to"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3450
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3451	^ (mode ~~ #readonly)
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3452	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3453
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3454	!ExternalStream methodsFor:'reading'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3455
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3456	next
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3457	"return the next element; advance read position.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3458	In binary mode, an integer is returned, otherwise a character.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3459	If there are no more elements, nil is returned."
1 a27a279701f8 Initial revision claus parents: diff changeset	3460
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	3461	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	3462	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3463	int ret, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3464	OBJ pos, fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3465	unsigned char ch;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3466
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3467	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3468	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3469	&& (__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	3470	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3471	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3472
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3473	_buffered = (__INST(buffered) == true);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3474	if (_buffered) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3475	__READING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3476	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3477	__READBYTE__(ret, f, &ch, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3478
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3479	if (ret > 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3480	pos = __INST(position);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3481	if (__isSmallInteger(pos)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3482	__INST(position) = __MKSMALLINT(__intVal(pos) + 1);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3483	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3484	__INST(position) = nil;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3485	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3486	if (__INST(binary) == true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3487	RETURN ( __MKSMALLINT(ch) );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3488	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3489	RETURN ( __MKCHARACTER(ch) );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3490	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3491
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3492	__INST(position) = nil;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3493	if (ret < 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3494	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3495	} else /* ret == 0 */ {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3496	__INST(hitEOF) = true;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3497	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3498	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3499	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	3500	hitEOF ifTrue:[^ self pastEnd].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3501	lastErrorNumber notNil ifTrue:[^ self readError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3502	filePointer isNil ifTrue:[^ self errorNotOpen].
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3503	^ self errorWriteOnly
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3504	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3505
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3506	next:count
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3507	"return the next count elements of the stream as a collection.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3508	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	3509
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	3510	\|coll nRead\|
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3511
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3512	binary ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3513	coll := ByteArray uninitializedNew:count
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3514	] ifFalse:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3515	coll := String new:count
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3516	].
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	3517	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	3518
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	3519	"/ for readStream protocol compatibility,
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	3520	"/ we must raise an exception here.
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	3521
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	3522	nRead < count ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3523	^ self pastEnd
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	3524	].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3525	^ coll
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	3526
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	3527	"Modified: 11.1.1997 / 17:44:17 / cg"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3528	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3529
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3530	peek
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3531	"return the element to be read next without advancing read position.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3532	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	3533	If there are no more elements, nil is returned."
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3534
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	3535	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	3536	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3537	unsigned char c;
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3538	int ret, _buffered;
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	3539	OBJ fp;
3672 49dff0652a2c fixed readAhead in peek with non-binary mode Claus Gittinger <cg@exept.de> parents: 3569 diff changeset	3540	OBJ ra;
49dff0652a2c fixed readAhead in peek with non-binary mode Claus Gittinger <cg@exept.de> parents: 3569 diff changeset	3541
49dff0652a2c fixed readAhead in peek with non-binary mode Claus Gittinger <cg@exept.de> parents: 3569 diff changeset	3542	if ((ra = __INST(readAhead)) != nil) {
49dff0652a2c fixed readAhead in peek with non-binary mode Claus Gittinger <cg@exept.de> parents: 3569 diff changeset	3543	if (__INST(binary) == true) {
49dff0652a2c fixed readAhead in peek with non-binary mode Claus Gittinger <cg@exept.de> parents: 3569 diff changeset	3544	RETURN ( ra );
49dff0652a2c fixed readAhead in peek with non-binary mode Claus Gittinger <cg@exept.de> parents: 3569 diff changeset	3545	}
49dff0652a2c fixed readAhead in peek with non-binary mode Claus Gittinger <cg@exept.de> parents: 3569 diff changeset	3546	c = __intVal(ra);
49dff0652a2c fixed readAhead in peek with non-binary mode Claus Gittinger <cg@exept.de> parents: 3569 diff changeset	3547	RETURN ( __MKCHARACTER(c) );
3029 aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3548	}
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3549
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3550	__INST(lastErrorNumber) = nil;
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3551
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3552	if (((fp = __INST(filePointer)) != nil)
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3553	&& (__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	3554	) {
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3555	f = __FILEVal(fp);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3556	_buffered = (__INST(buffered) == true);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3557	if (_buffered) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3558	__READING__(f)
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3559	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3560	__READBYTE__(ret, f, &c, _buffered);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3561
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3562	if (ret > 0) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3563	__UNGETC__(c, f, _buffered);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3564
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3565	if (__INST(binary) == true) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3566	RETURN ( __MKSMALLINT(c) );
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3567	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3568	RETURN ( __MKCHARACTER(c) );
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3569	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3570	if (ret < 0) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3571	__INST(lastErrorNumber) = __MKSMALLINT(errno);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3572	} else /* ret == 0 */ {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3573	__INST(hitEOF) = true;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3574	}
1 a27a279701f8 Initial revision claus parents: diff changeset	3575	}
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	3576	%}.
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3577	hitEOF ifTrue:[^ self pastEnd].
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	3578	lastErrorNumber notNil ifTrue:[^ self readError].
1 a27a279701f8 Initial revision claus parents: diff changeset	3579	filePointer isNil ifTrue:[^ self errorNotOpen].
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	3580	^ self errorWriteOnly
1295 83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	3581	!
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	3582
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	3583	upToEnd
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	3584	"return a collection of the elements up-to the end.
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	3585	Return nil if the stream-end is reached before."
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	3586
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	3587	\|answerStream ch\|
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	3588
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	3589	answerStream := WriteStream on:(self contentsSpecies new).
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	3590	[self atEnd] whileFalse:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3591	ch := self next.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3592	ch notNil ifTrue:[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3593	answerStream nextPut:ch
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3594	]
1295 83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	3595	].
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	3596	^ answerStream contents
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	3597
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	3598	"Created: 25.4.1996 / 14:40:31 / cg"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3599	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3600
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3601	!ExternalStream methodsFor:'reimplemented for speed'!
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	3602
514c749165c3 * empty log message * claus parents: 108 diff changeset	3603	nextAlphaNumericWord
379 5b5a130ccd09 revision added claus parents: 372 diff changeset	3604	"read the next word (i.e. up to non letter-or-digit) after first
5b5a130ccd09 revision added claus parents: 372 diff changeset	3605	skipping any whiteSpace.
5b5a130ccd09 revision added claus parents: 372 diff changeset	3606	Return a string containing those characters.
5b5a130ccd09 revision added claus parents: 372 diff changeset	3607	There is a limit of 1023 characters in the word - if longer,
5b5a130ccd09 revision added claus parents: 372 diff changeset	3608	it is truncated."
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	3609
514c749165c3 * empty log message * claus parents: 108 diff changeset	3610	%{ /* STACK: 2000 */
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	3611	FILEPOINTER f;
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	3612	int len;
514c749165c3 * empty log message * claus parents: 108 diff changeset	3613	char buffer[1024];
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3614	unsigned char ch;
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	3615	int cnt = 0;
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3616	int ret, _buffered;
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	3617	OBJ fp;
a8abff749575 * empty log message * claus parents: 213 diff changeset	3618
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3619	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	3620	&& (__INST(mode) != @symbol(writeonly))
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3621	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3622	f = __FILEVal(fp);
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3623	_buffered = (__INST(buffered) == true);
71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3624	if (_buffered) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3625	__READING__(f)
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3626	}
2045 1ad17ca6520f fall back to super>>nextPutLine: if argument is not a string. Claus Gittinger <cg@exept.de> parents: 2044 diff changeset	3627
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3628	/*
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3629	* skip whiteSpace first ...
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3630	*/
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3631	do {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3632	__READBYTE__(ret, f, &ch, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3633	if (ret > 0)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3634	cnt++;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3635	else
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3636	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3637	} while (
379 5b5a130ccd09 revision added claus parents: 372 diff changeset	3638	#ifndef NON_ASCII
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3639	(ch < ' ') \|\|
379 5b5a130ccd09 revision added claus parents: 372 diff changeset	3640	#endif
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3641	(ch == ' ' ) \|\| (ch == '\t') \|\| (ch == '\r')
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3642	\|\| (ch == '\n') \|\| (ch == 0x0b));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3643
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3644	len = 0;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3645	while (ret > 0 &&
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3646	(((ch >= 'a') && (ch <= 'z')) \|\|
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3647	((ch >= 'A') && (ch <= 'Z')) \|\|
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3648	((ch >= '0') && (ch <= '9')))
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3649	) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3650	buffer[len++] = ch;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3651	if (len >= (sizeof(buffer)-1)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3652	/* emergency */
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3653	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3654	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3655	__READBYTE__(ret, f, &ch, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3656	if (ret > 0)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3657	cnt++;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3658	else
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3659	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3660	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3661
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3662	if (ret <= 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3663	if (ret < 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3664	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3665	goto err;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3666	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3667	else if (ret == 0)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3668	__INST(hitEOF) = true;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3669	} else {
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3670	__UNGETC__(ch, f, _buffered);
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3671	cnt--;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3672	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3673
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3674	if (__INST(position) != nil) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3675	__INST(position) = __MKSMALLINT(__intVal(__INST(position)) + cnt);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3676	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3677	if (len != 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3678	buffer[len] = '\0';
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3679	RETURN ( __MKSTRING_L(buffer, len) );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3680	}
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	3681	}
514c749165c3 * empty log message * claus parents: 108 diff changeset	3682	err: ;
514c749165c3 * empty log message * claus parents: 108 diff changeset	3683	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	3684	hitEOF ifTrue:[^ self pastEnd].
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	3685	lastErrorNumber notNil ifTrue:[^ self readError].
514c749165c3 * empty log message * claus parents: 108 diff changeset	3686	filePointer isNil ifTrue:[^ self errorNotOpen].
514c749165c3 * empty log message * claus parents: 108 diff changeset	3687	^ self errorWriteOnly
1 a27a279701f8 Initial revision claus parents: diff changeset	3688	!
a27a279701f8 Initial revision claus parents: diff changeset	3689
a27a279701f8 Initial revision claus parents: diff changeset	3690	nextChunk
a27a279701f8 Initial revision claus parents: diff changeset	3691	"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	3692	exclamation mark. Within the chunk, exclamation marks have to be doubled -
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	3693	except within primitive code (this exception was added to make it easier
a8abff749575 * empty log message * claus parents: 213 diff changeset	3694	to edit primitive code with external editors). This means, that other
a8abff749575 * empty log message * claus parents: 213 diff changeset	3695	Smalltalks cannot always read chunks containing primitive code - but that
a8abff749575 * empty log message * claus parents: 213 diff changeset	3696	doesnt really matter, since C-primitives are an ST/X feature anyway.
a8abff749575 * empty log message * claus parents: 213 diff changeset	3697	Reimplemented here for more speed."
a8abff749575 * empty log message * claus parents: 213 diff changeset	3698
665 429936f8e6e7 fixed nextChunk; it was not reentrant due to freeing of the static Claus Gittinger <cg@exept.de> parents: 612 diff changeset	3699	\|retVal outOfMemory buffer\|
1 a27a279701f8 Initial revision claus parents: diff changeset	3700
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	3701	filePointer isNil ifTrue:[^ self errorNotOpen].
514c749165c3 * empty log message * claus parents: 108 diff changeset	3702	binary ifTrue:[^ self errorBinary].
514c749165c3 * empty log message * claus parents: 108 diff changeset	3703	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	3704
2854 3c8bf66e4e7d give nextChunk a bit more stack Claus Gittinger <cg@exept.de> parents: 2766 diff changeset	3705	%{ /* 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	3706	/*
429936f8e6e7 fixed nextChunk; it was not reentrant due to freeing of the static Claus Gittinger <cg@exept.de> parents: 612 diff changeset	3707	* 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	3708	* 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	3709	* 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	3710	* 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	3711	*/
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	3712	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3713	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	3714	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	3715	int ret;
1823 51ffb7231437 type casts Claus Gittinger <cg@exept.de> parents: 1688 diff changeset	3716	unsigned char bufferPtr = (unsigned char )0;
2874 020627074c9e oops - nextChunk could access invalid memory due Claus Gittinger <cg@exept.de> parents: 2861 diff changeset	3717	unsigned char fastBuffer[8000];
1 a27a279701f8 Initial revision claus parents: diff changeset	3718	REGISTER int index;
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3719	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	3720	int atBeginOfLine = 1, inPrimitive = 0;
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3721	int haveCR = 0, haveNL = 0;
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	3722
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3723	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3724	f = __FILEVal(__INST(filePointer));
668 73165201a9da nextChunk: %{ is only recognized if at begin-of-line Claus Gittinger <cg@exept.de> parents: 665 diff changeset	3725
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3726	_buffered = (__INST(buffered) == true);
71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3727	if (_buffered) {
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3728	__READING__(f)
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3729	}
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	3730
1 a27a279701f8 Initial revision claus parents: diff changeset	3731	/*
a27a279701f8 Initial revision claus parents: diff changeset	3732	* skip spaces
a27a279701f8 Initial revision claus parents: diff changeset	3733	*/
673 2c3a4a536cd1 oops - handling of exclas within primitives was wrong Claus Gittinger <cg@exept.de> parents: 671 diff changeset	3734	c = '\n';
1 a27a279701f8 Initial revision claus parents: diff changeset	3735	while (! done) {
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3736	lastC = c;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3737	__READBYTE__(ret, f, &c, _buffered);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3738	if (ret <= 0) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3739	goto err;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3740	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3741	nread++;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3742	atBeginOfLine = 0;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3743	switch (c) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3744	case '\n':
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3745	case ' ':
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3746	case '\t':
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3747	case '\r':
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3748	case '\b':
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3749	case '\014':
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3750	break;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3751
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3752	default:
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3753	atBeginOfLine = (lastC == '\n');
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3754	done = 1;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3755	break;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3756	}
1 a27a279701f8 Initial revision claus parents: diff changeset	3757	}
a27a279701f8 Initial revision claus parents: diff changeset	3758
a27a279701f8 Initial revision claus parents: diff changeset	3759	/*
a27a279701f8 Initial revision claus parents: diff changeset	3760	* read chunk into a buffer
a27a279701f8 Initial revision claus parents: diff changeset	3761	*/
665 429936f8e6e7 fixed nextChunk; it was not reentrant due to freeing of the static Claus Gittinger <cg@exept.de> parents: 612 diff changeset	3762	bufferPtr = fastBuffer; fastFlag = 1;
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	3763	currSize = sizeof(fastBuffer);
362 4131e87e79ec . claus parents: 360 diff changeset	3764
1 a27a279701f8 Initial revision claus parents: diff changeset	3765	index = 0;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3766	for (;;) {
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3767	__READBYTE__(ret, f, &peekC, _buffered);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3768	if ((c == '%') && atBeginOfLine && ret > 0) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3769	if (peekC == '{') {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3770	inPrimitive = 1;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3771	} else if (peekC == '}') {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3772	inPrimitive = 0;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3773	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3774	} else if (c == '!' && !inPrimitive) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3775	if (ret > 0 && peekC == '!') {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3776	/*
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3777	* convert double-! to a single !
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3778	*/
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3779	__READBYTE__(ret, f, &peekC, _buffered);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3780	if (ret > 0)
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3781	nread++;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3782	} else {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3783	/*
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3784	* End of chunk, push back lookahead character
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3785	* and leave loop.
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3786	*/
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3787	if (ret > 0) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3788	__UNGETC__(peekC, f, _buffered);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3789	} else
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3790	ret = 1;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3791	break;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3792	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3793	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3794
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3795	/*
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3796	* do we have to resize the buffer ?
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3797	*/
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3798	if ((index+2) >= currSize) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3799	OBJ newBuffer;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3800	unsigned char *nbp;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3801
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3802	newBuffer = __MKEMPTYSTRING(currSize * 2);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3803	if (!fastFlag) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3804	/*
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3805	* refetch - buffer could be moved by GC
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3806	*/
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3807	bufferPtr = __stringVal(buffer);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3808	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3809	if (newBuffer == nil) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3810	/*
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3811	* mhmh - chunk seems to be very big ....
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3812	*/
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3813	outOfMemory = true;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3814	goto err;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3815	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3816	nbp = __stringVal(newBuffer);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3817	bcopy(bufferPtr, nbp, index);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3818	bufferPtr = nbp;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3819	bufferPtr[index] = '\0';
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3820	buffer = newBuffer;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3821	fastFlag = 0;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3822	currSize = currSize * 2;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3823	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3824
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3825	if (!fastFlag) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3826	/*
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3827	* old buffer may have moved (interrupt while reading)
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3828	* - refetch pointer
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3829	*/
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3830	bufferPtr = __stringVal(buffer);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3831	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3832
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3833	/*
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3834	* filter out cr-nl; make it nl
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3835	*/
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3836	if (c == '\n') {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3837	haveNL = 1;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3838	if (index > 0) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3839	if (bufferPtr[index-1] == '\r') {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3840	index--;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3841	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3842	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3843	} else {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3844	if (c == '\r') {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3845	haveCR = 1;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3846	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3847	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3848	bufferPtr[index++] = c;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3849	if (ret <= 0) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3850	if (ret == 0)
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3851	break; /* End of chunk reached */
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3852	goto err;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3853	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3854	nread++;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3855	atBeginOfLine = (c == '\n');
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3856	c = peekC;
1 a27a279701f8 Initial revision claus parents: diff changeset	3857	}
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	3858
1 a27a279701f8 Initial revision claus parents: diff changeset	3859	/*
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3860	* care for CR-limited files.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3861	* Replace CR's by NL's
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3862	*/
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3863	if (!haveNL && haveCR) {
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3864	int i;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3865
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3866	for (i=index-1; i>=0; i--) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3867	if (bufferPtr[i] == '\r') {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3868	bufferPtr[i] = '\n';
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3869	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3870	}
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3871	}
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3872
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3873	/*
1 a27a279701f8 Initial revision claus parents: diff changeset	3874	* 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	3875	* 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	3876	* 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	3877	* fast (C) buffer or from real (ST) buffer.
1 a27a279701f8 Initial revision claus parents: diff changeset	3878	*/
665 429936f8e6e7 fixed nextChunk; it was not reentrant due to freeing of the static Claus Gittinger <cg@exept.de> parents: 612 diff changeset	3879	if (fastFlag) {
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3880	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	3881	} else {
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3882	retVal = __MKSTRING_ST_L(buffer, index);
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	3883	}
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3884
1478 aae07192b7d1 labels in empty statements need a semi Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	3885	err: ;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3886	if (ret <= 0) {
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3887	if (ret == 0)
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3888	__INST(hitEOF) = true;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3889	else /* ret < 0 */
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3890	__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	3891	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3892	if (__INST(position) != nil) {
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3893	__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	3894	}
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	3895	%}.
370 20f04d9b371b . claus parents: 369 diff changeset	3896	retVal isNil ifTrue:[
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3897	"/
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3898	"/ 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	3899	"/ or if running out of malloc-memory
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3900	"/
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3901	hitEOF ifTrue:[^ self pastEnd].
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3902	lastErrorNumber notNil ifTrue:[^ self readError].
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3903	outOfMemory == true ifTrue:[
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3904	"
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3905	buffer memory allocation failed.
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3906	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	3907	chunk. (seems to be too big of a chunk ...)
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3908	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	3909	"
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3910	^ ObjectMemory allocationFailureSignal raise.
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3911	]
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	3912	].
1 a27a279701f8 Initial revision claus parents: diff changeset	3913	^ retVal
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3914	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3915
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3916	nextMatchFor:anObject
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3917	"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	3918	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	3919	the element after anObject.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3920	Only single byte characters are currently supported."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3921
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	3922	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	3923	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3924	int ret, peekValue;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3925	char c;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3926	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3927
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3928	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3929	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3930	&& (__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	3931	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3932	if ((__INST(binary) == true) && __isSmallInteger(anObject)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3933	peekValue = __intVal(anObject) & 0xFF;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3934	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3935	if ((__INST(binary) != true) && __isCharacter(anObject)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3936	peekValue = __intVal(_characterVal(anObject)) & 0xFF;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3937	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3938	peekValue = -1;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3939	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3940	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3941
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3942	if (peekValue >= 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3943	int _buffered;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3944
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3945	__INST(position) = nil;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3946	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3947
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3948	if (_buffered = (__INST(buffered) == true)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3949	__READING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3950	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3951
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3952	for (;;) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3953	__READBYTE__(ret, f, &c, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3954	if (ret <= 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3955	if (ret < 0)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3956	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3957	else
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3958	__INST(hitEOF) = true;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3959	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3960	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3961	if (c == peekValue) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3962	RETURN (anObject);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3963	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3964	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3965	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3966	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3967	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	3968	hitEOF ifTrue:[^ self pastEnd].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3969	lastErrorNumber notNil ifTrue:[^ self readError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3970	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3971	^ super nextMatchFor:anObject
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3972	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3973
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3974	peekFor:anObject
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3975	"return true and move past next element, if next == something.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3976	Otherwise, stay and return false. False is also returned
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3977	when EOF is encountered.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3978	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	3979	text mode; only single byte characters are currently supported."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3980
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	3981	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	3982	FILEPOINTER f;
3029 aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	3983	unsigned char c;
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3984	int ret, peekValue, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3985	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3986
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3987	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3988	if (((fp = __INST(filePointer)) != nil)
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3989	&& (__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	3990	) {
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3991	if (__INST(binary) == true) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3992	if (__isSmallInteger(anObject)) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3993	peekValue = __intVal(anObject) & 0xFF;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3994	} else {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3995	goto bad;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3996	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3997	} else {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3998	if (__isCharacter(anObject)) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3999	peekValue = __intVal(_characterVal(anObject)) & 0xFF;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4000	} else {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4001	goto bad;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4002	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4003	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4004
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4005	f = __FILEVal(fp);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4006
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4007	_buffered = (__INST(buffered) == true);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4008	if (_buffered) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4009	__READING__(f)
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4010	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4011	__READBYTE__(ret, f, &c, _buffered);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4012	if (ret > 0) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4013	if (c == peekValue) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4014	OBJ pos;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4015
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4016	if ((pos = __INST(position)) != nil) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4017	__INST(position) = __MKSMALLINT(__intVal(pos) + 1);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4018	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4019	RETURN (true);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4020	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4021	__UNGETC__(c, f, _buffered);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4022	RETURN (false);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4023	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4024	if (ret < 0) {
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4025	__INST(lastErrorNumber) = __MKSMALLINT(errno);
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4026	} else /* ret == 0 */
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4027	__INST(hitEOF) = true;
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4028	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4029	bad: ;
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	mode == #writeonly ifTrue:[^ self errorWriteOnly].
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	4032	hitEOF ifTrue:[self pastEnd. ^ false].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4033	lastErrorNumber notNil ifTrue:[^ self readError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4034	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4035	^ super peekFor:anObject
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4036	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4037
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4038	skipLine
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4039	"read the next line (characters up to newline) skip only;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4040	return nil if EOF reached, self otherwise.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4041	Not allowed in binary mode."
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	%{ /* STACK:2000 */
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4044
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	4045	FILEPOINTER f;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4046	OBJ fp;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4047	int ret, _buffered;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4048	char c;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4049
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4050	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4051	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4052	&& (__INST(mode) != @symbol(writeonly))
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4053	&& (__INST(binary) != true)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4054	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4055	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4056	if (_buffered = (__INST(buffered) == true)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4057	__READING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4058	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4059	for (;;) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4060	__READBYTE__(ret, f, &c, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4061	if (ret > 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4062	if (c == '\n')
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4063	RETURN(self)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4064	} else
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4065	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4066	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4067	if (ret < 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4068	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4069	} else /* ret == 0 */ {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4070	__INST(hitEOF) = true;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4071	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4072	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4073	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	4074	hitEOF ifTrue:[^ self pastEnd].
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4075	lastErrorNumber notNil ifTrue:[self readError. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4076	filePointer isNil ifTrue:[self errorNotOpen. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4077	binary ifTrue:[self errorBinary. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4078	self errorWriteOnly
612 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
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4081	skipSeparators
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4082	"skip all whitespace; next will return next non-white-space character
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4083	or nil if endOfFile reached. Not allowed in binary mode.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4084	- reimplemented for speed"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4085
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	4086	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	4087	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4088	char c;
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	4089	int ret, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4090	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4091
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4092	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4093	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4094	&& (__INST(mode) != @symbol(writeonly))
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4095	&& (__INST(binary) != true)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4096	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4097	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4098	_buffered = (__INST(buffered) == true);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4099	if (_buffered) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4100	__READING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4101	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4102
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4103	while (1) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4104	__READBYTE__(ret, f, &c, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4105	if (ret <= 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4106	if (ret < 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4107	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4108	} else /* ret == 0 */ {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4109	__INST(hitEOF) = true;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4110	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4111	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4112	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4113	switch (c) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4114	case ' ':
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4115	case '\t':
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4116	case '\n':
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4117	case '\r':
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4118	case '\b':
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4119	case '\f':
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4120	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4121
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4122	default:
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4123	__UNGETC__(c, f, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4124	RETURN ( __MKCHARACTER(c & 0xFF) );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4125	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4126	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4127	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4128	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	4129	hitEOF ifTrue:[^ self pastEnd].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4130	lastErrorNumber notNil ifTrue:[^ self readError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4131	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4132	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4133	^ self errorBinary.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4134	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4135
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4136	skipSeparatorsExceptCR
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4137	"skip all whitespace but no newlines;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4138	next will return next non-white-space character
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4139	or nil if endOfFile reached. Not allowed in binary mode.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4140	- reimplemented for speed"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4141
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	4142	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	4143	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4144	char c;
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	4145	int ret, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4146	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4147
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4148	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4149	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4150	&& (__INST(mode) != @symbol(writeonly))
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4151	&& (__INST(binary) != true)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4152	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4153	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4154	_buffered = (__INST(buffered) == true);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4155	if (_buffered) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4156	__READING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4157	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4158	while (1) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4159	__READBYTE__(ret, f, &c, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4160	if (ret <= 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4161	if (ret < 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4162	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4163	} else /* ret == 0 */ {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4164	__INST(hitEOF) = true;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4165	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4166	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4167	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4168	switch (c) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4169	case ' ':
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4170	case '\t':
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4171	case '\b':
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4172	case '\f':
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4173	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4174
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4175	default:
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4176	__UNGETC__(c, f, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4177	RETURN ( __MKCHARACTER(c & 0xFF) );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4178	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4179	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4180	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4181	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	4182	hitEOF ifTrue:[^ self pastEnd].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4183	lastErrorNumber notNil ifTrue:[^ self readError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4184	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4185	(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	4186	^ self errorBinary.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4187	!
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	skipThrough:aCharacter
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4190	"skip all characters up-to and including aCharacter. Return the receiver if
671 53de87163ad5 spelling Claus Gittinger <cg@exept.de> parents: 668 diff changeset	4191	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	4192	The next read operation will return the character after aCharacter.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4193	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	4194	Only single byte characters are currently supported."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4195
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	4196	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	4197	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4198	REGISTER int cSearch;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4199	unsigned char c;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4200	int ret, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4201	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4202
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4203	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4204	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4205	&& (__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	4206	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4207	if (__INST(binary) == true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4208	/* searched for object must be a smallInteger */
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4209	if (! __isSmallInteger(aCharacter)) goto badArgument;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4210	cSearch = __intVal(aCharacter);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4211	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4212	/* searched for object must be a character */
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4213	if (! __isCharacter(aCharacter)) goto badArgument;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4214	cSearch = __intVal(_characterVal(aCharacter));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4215	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4216	/* Q: should we just say: "not found" ? */
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4217	if ((cSearch < 0) \|\| (cSearch > 255)) goto badArgument;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4218
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4219	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4220	if (_buffered = (__INST(buffered) == true)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4221	__READING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4222	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4223
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4224	while (1) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4225	__READBYTE__(ret, f, &c, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4226	if (ret <= 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4227	if (ret < 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4228	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4229	} else /* ret == 0 */ {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4230	__INST(hitEOF) = true;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4231	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4232	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4233	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4234	if (c == cSearch) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4235	RETURN (self);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4236	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4237	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4238	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4239	badArgument: ;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4240	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	4241	hitEOF ifTrue:[^ self pastEnd].
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4242	lastErrorNumber notNil ifTrue:[self readError. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4243	filePointer isNil ifTrue:[self errorNotOpen. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4244	(mode == #writeonly) ifTrue:[self errorWriteOnly. ^ self].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4245	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4246	argument must be integer/character in binary mode,
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4247	character in text mode
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4248	"
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4249	self error:'invalid argument'.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4250
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4251	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4252	\|s\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4253	s := 'Makefile' asFilename readStream.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4254	s skipThrough:$=.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4255	s next:10
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4256	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4257	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4258
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4259	skipToAll:aString
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4260	"skip for the sequence given by the argument, aCollection;
1490 713852290c8b use skipThroughAll from superclass. Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	4261	return nil if not found, self otherwise.
713852290c8b use skipThroughAll from superclass. Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	4262	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	4263
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4264	\|oldPos\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4265
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4266	oldPos := self position.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4267	(self skipThroughAll:aString) isNil ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4268	"
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4269	restore position
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4270	"
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4271	self position:oldPos.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4272	^ nil
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4273	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4274	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4275	position before match-string
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4276	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4277	self position:(self position - aString size).
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4278	^ self
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4279
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4280	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4281	\|s\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4282	s := 'Makefile' asFilename readStream.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4283	s skipToAll:'are'.
1490 713852290c8b use skipThroughAll from superclass. Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	4284	s next:10
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4285	"
1490 713852290c8b use skipThroughAll from superclass. Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	4286
713852290c8b use skipThroughAll from superclass. Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	4287	"Modified: 26.6.1996 / 09:22:05 / cg"
1 a27a279701f8 Initial revision claus parents: diff changeset	4288	! !
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4289
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4290	!ExternalStream methodsFor:'testing'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4291
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4292	atEnd
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4293	"return true, if position is at end"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4294
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	4295	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	4296	FILEPOINTER f;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4297	OBJ fp;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4298	char c;
2861 c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	4299	int ret, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4300
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4301	if (__INST(hitEOF) == true) {
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4302	RETURN (true);
3906 7f2d4a3b63e2 oops - readLimit was not handled in #atEnd Claus Gittinger <cg@exept.de> parents: 3878 diff changeset	4303	}
7f2d4a3b63e2 oops - readLimit was not handled in #atEnd Claus Gittinger <cg@exept.de> parents: 3878 diff changeset	4304	if (__bothSmallInteger(__INST(position), __INST(readLimit))) {
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4305	if (__intVal(__INST(position)) > __intVal(__INST(readLimit))) {
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4306	RETURN (true);
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4307	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4308	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4309
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4310	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4311
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4312	if ((fp = __INST(filePointer)) != nil) {
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4313	f = __FILEVal(fp);
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4314
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4315	if (_buffered = (__INST(buffered) == true)) {
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4316	__READING__(f);
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4317	} else {
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4318	if (__INST(readAhead) != nil) {
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4319	RETURN (false);
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4320	}
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4321	}
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4322
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4323	/*
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4324	* read ahead ...
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4325	*/
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4326	do {
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4327	__BEGIN_INTERRUPTABLE__
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4328	__READBYTE__(ret, f, &c, _buffered);
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4329	__END_INTERRUPTABLE__
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4330	} while ((ret < 0) && (errno == EINTR));
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4331
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4332	if (ret > 0) {
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4333	__UNGETC__(c&0xff, f, _buffered);
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4334	RETURN (false);
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4335	}
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4336
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4337	if (ret == 0) {
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4338	__INST(hitEOF) = true;
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4339	RETURN (true);
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4340	}
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4341
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4342	/* ret < 0 */
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4343	__INST(lastErrorNumber) = __MKSMALLINT(errno);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4344	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4345	%}.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4346	lastErrorNumber notNil ifTrue:[^ self readError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4347	^ self errorNotOpen
3906 7f2d4a3b63e2 oops - readLimit was not handled in #atEnd Claus Gittinger <cg@exept.de> parents: 3878 diff changeset	4348
7f2d4a3b63e2 oops - readLimit was not handled in #atEnd Claus Gittinger <cg@exept.de> parents: 3878 diff changeset	4349	"Modified: / 30.10.1998 / 20:16:06 / cg"
7f2d4a3b63e2 oops - readLimit was not handled in #atEnd Claus Gittinger <cg@exept.de> parents: 3878 diff changeset	4350
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4351	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4352
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4353	canReadWithoutBlocking
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4354	"return true, if any data is available for reading (i.e.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4355	a read operation will not block the smalltalk process), false otherwise."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4356
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4357	\|fd\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4358
2986 c6957cf6128f Handle readAhead in #canReadWithoutBlocking Stefan Vogel <sv@exept.de> parents: 2963 diff changeset	4359	readAhead notNil ifTrue:[^ true].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4360	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4361	mode == #writeonly ifTrue:[^ self errorWriteOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4362
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4363	fd := self fileDescriptor.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4364	^ OperatingSystem readCheck:fd
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4365
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4366	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4367	\|pipe\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4368
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4369	pipe := PipeStream readingFrom:'(sleep 10; echo hello)'.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4370	pipe canReadWithoutBlocking ifTrue:[
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4371	Transcript showCR:'data available'
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4372	] ifFalse:[
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4373	Transcript showCR:'no data available'
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4374	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4375	pipe close
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4376	"
2986 c6957cf6128f Handle readAhead in #canReadWithoutBlocking Stefan Vogel <sv@exept.de> parents: 2963 diff changeset	4377
c6957cf6128f Handle readAhead in #canReadWithoutBlocking Stefan Vogel <sv@exept.de> parents: 2963 diff changeset	4378	"Modified: 25.9.1997 / 13:08:45 / stefan"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4379	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4380
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4381	canWriteWithoutBlocking
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4382	"return true, if data can be written into the stream
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4383	(i.e. a write operation will not block the smalltalk process)."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4384
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4385	\|fd\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4386
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4387	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4388	mode == #readonly ifTrue:[^ self errorReadOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4389
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4390	fd := self fileDescriptor.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4391	^ OperatingSystem writeCheck:fd
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	4392	!
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	4393
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	4394	numAvailable
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	4395	"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	4396
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	4397	\|fd\|
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	4398
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	4399	filePointer isNil ifTrue:[^ self errorNotOpen].
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	4400	mode == #writeonly ifTrue:[^ self errorWriteOnly].
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	4401
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	4402	fd := self fileDescriptor.
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	4403	^ OperatingSystem numAvailableForReadOn:fd.
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	4404
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	4405	"/ self atEnd ifTrue:[^ 0].
3432 1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	4406	"/ self canReadWithoutBlocking ifTrue:[
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	4407	"/ ^ 1
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	4408	"/ ].
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	4409	"/ ^ 0
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	4410
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	4411	"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	4412	"Modified: / 4.2.1998 / 17:31:11 / cg"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4413	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4414
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4415	!ExternalStream methodsFor:'waiting for I/O'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4416
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4417	readWait
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4418	"suspend the current process, until the receiver
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4419	becomes ready for reading. If data is already available,
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4420	return immediate.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4421	The other threads are not affected by the wait."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4422
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4423	self readWaitWithTimeoutMs:nil
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4424	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4425
3016 42466b291fae more ST80 compatibility ca parents: 2999 diff changeset	4426	readWaitTimeoutMs:timeout
42466b291fae more ST80 compatibility ca parents: 2999 diff changeset	4427	"ST-80 compatibility"
42466b291fae more ST80 compatibility ca parents: 2999 diff changeset	4428	^ self readWaitWithTimeoutMs:timeout
42466b291fae more ST80 compatibility ca parents: 2999 diff changeset	4429	!
42466b291fae more ST80 compatibility ca parents: 2999 diff changeset	4430
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4431	readWaitWithTimeout:timeout
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4432	"suspend the current process, until the receiver
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4433	becomes ready for reading or a timeout (in seconds) expired.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4434	If data is already available, return immediate.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4435	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	4436	The other threads are not affected by the wait."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4437
4640 034c028a5463 care for nil arg in readWaitWithTimeout / writeWaitWithTimeout Claus Gittinger <cg@exept.de> parents: 4627 diff changeset	4438	\|ms\|
034c028a5463 care for nil arg in readWaitWithTimeout / writeWaitWithTimeout Claus Gittinger <cg@exept.de> parents: 4627 diff changeset	4439
034c028a5463 care for nil arg in readWaitWithTimeout / writeWaitWithTimeout Claus Gittinger <cg@exept.de> parents: 4627 diff changeset	4440	timeout notNil ifTrue:[
034c028a5463 care for nil arg in readWaitWithTimeout / writeWaitWithTimeout Claus Gittinger <cg@exept.de> parents: 4627 diff changeset	4441	ms := timeout * 1000
034c028a5463 care for nil arg in readWaitWithTimeout / writeWaitWithTimeout Claus Gittinger <cg@exept.de> parents: 4627 diff changeset	4442	].
034c028a5463 care for nil arg in readWaitWithTimeout / writeWaitWithTimeout Claus Gittinger <cg@exept.de> parents: 4627 diff changeset	4443	^ self readWaitWithTimeoutMs:ms
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4444	!
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	readWaitWithTimeoutMs:timeout
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4447	"suspend the current process, until the receiver
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4448	becomes ready for reading or a timeout (in milliseconds) expired.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4449	If data is already available, return immediate.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4450	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	4451	The other threads are not affected by the wait."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4452
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4453	\|fd inputSema hasData wasBlocked\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4454
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	4455	readAhead notNil ifTrue:[^ false].
71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	4456
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4457	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4458	mode == #writeonly ifTrue:[^ self errorWriteOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4459
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4460	fd := self fileDescriptor.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4461	(OperatingSystem readCheck:fd) ifTrue:[^ false].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4462
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4463	wasBlocked := OperatingSystem blockInterrupts.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4464	hasData := OperatingSystem readCheck:fd.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4465	hasData ifFalse:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4466	inputSema := Semaphore new name:'readWait'.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4467	[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4468	timeout notNil ifTrue:[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4469	Processor signal:inputSema afterMilliseconds:timeout
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4470	].
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4471	Processor signal:inputSema onInput:fd.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4472	Processor activeProcess state:#ioWait.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4473	inputSema wait.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4474	Processor disableSemaphore:inputSema.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4475	hasData := OperatingSystem readCheck:fd
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4476	] valueOnUnwindDo:[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4477	Processor disableSemaphore:inputSema.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4478	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4479	]
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4480	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4481	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4482	^ hasData not
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4483	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4484
3490 6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4485	readWriteWait
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4486	"suspend the current process, until the receiver
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4487	becomes ready for writing or reading.
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4488	Return immediate if the receiver is already ready.
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4489	The other threads are not affected by the wait.
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4490	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	4491	be finished."
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4492
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4493	self readWriteWaitWithTimeoutMs:nil
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4494	!
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4495
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4496	readWriteWaitWithTimeoutMs:timeout
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4497	"suspend the current process, until the receiver
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4498	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	4499	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	4500	Return immediate if the receiver is already ready.
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4501	The other threads are not affected by the wait.
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4502	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	4503	be finished."
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4504
3672 49dff0652a2c fixed readAhead in peek with non-binary mode Claus Gittinger <cg@exept.de> parents: 3569 diff changeset	4505	\|fd sema canReadWrite wasBlocked\|
3490 6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4506
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4507	filePointer isNil ifTrue:[
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4508	^ self errorNotOpen
3490 6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4509	].
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4510
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4511	fd := self fileDescriptor.
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4512	(OperatingSystem readWriteCheck:fd) ifTrue:[^ false].
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4513
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4514	wasBlocked := OperatingSystem blockInterrupts.
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4515	canReadWrite := OperatingSystem readWriteCheck:fd.
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4516	canReadWrite ifFalse:[
4152 0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4517	sema := Semaphore new name:'readWriteWait'.
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4518	[
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4519	timeout notNil ifTrue:[
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4520	Processor signal:sema afterMilliseconds:timeout
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4521	].
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4522	Processor signal:sema onOutput:fd.
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4523	Processor signal:sema onInput:fd.
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4524	Processor activeProcess state:#ioWait.
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4525	sema wait.
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4526	Processor disableSemaphore:sema.
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4527	canReadWrite := OperatingSystem readWriteCheck:fd
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4528	] valueOnUnwindDo:[
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4529	Processor disableSemaphore:sema.
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4530	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
0c1780ae527f dont return an error when interrupted in NEXTAVAILBYTES (return 0) Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	4531	]
3490 6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4532	].
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4533	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4534	^ canReadWrite not
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4535	!
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	4536
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4537	writeWait
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4538	"suspend the current process, until the receiver
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4539	becomes ready for writing.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4540	Return immediate if the receiver is already ready.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4541	The other threads are not affected by the wait."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4542
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4543	self writeWaitWithTimeoutMs:nil
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4544	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4545
3016 42466b291fae more ST80 compatibility ca parents: 2999 diff changeset	4546	writeWaitTimeoutMs:timeout
42466b291fae more ST80 compatibility ca parents: 2999 diff changeset	4547	"ST-80 compatibility"
42466b291fae more ST80 compatibility ca parents: 2999 diff changeset	4548	^ self writeWaitWithTimeoutMs:timeout
42466b291fae more ST80 compatibility ca parents: 2999 diff changeset	4549	!
42466b291fae more ST80 compatibility ca parents: 2999 diff changeset	4550
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4551	writeWaitWithTimeout:timeout
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4552	"suspend the current process, until the receiver
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4553	becomes ready for writing or a timeout (in seconds) expired.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4554	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	4555	Return immediate if the receiver is already ready.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4556	The other threads are not affected by the wait."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4557
4640 034c028a5463 care for nil arg in readWaitWithTimeout / writeWaitWithTimeout Claus Gittinger <cg@exept.de> parents: 4627 diff changeset	4558	\|ms\|
034c028a5463 care for nil arg in readWaitWithTimeout / writeWaitWithTimeout Claus Gittinger <cg@exept.de> parents: 4627 diff changeset	4559
034c028a5463 care for nil arg in readWaitWithTimeout / writeWaitWithTimeout Claus Gittinger <cg@exept.de> parents: 4627 diff changeset	4560	timeout notNil ifTrue:[
034c028a5463 care for nil arg in readWaitWithTimeout / writeWaitWithTimeout Claus Gittinger <cg@exept.de> parents: 4627 diff changeset	4561	ms := timeout * 1000
034c028a5463 care for nil arg in readWaitWithTimeout / writeWaitWithTimeout Claus Gittinger <cg@exept.de> parents: 4627 diff changeset	4562	].
034c028a5463 care for nil arg in readWaitWithTimeout / writeWaitWithTimeout Claus Gittinger <cg@exept.de> parents: 4627 diff changeset	4563	^ self writeWaitWithTimeoutMs:ms
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4564	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4565
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4566	writeWaitWithTimeoutMs:timeout
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4567	"suspend the current process, until the receiver
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4568	becomes ready for writing or a timeout (in seconds) expired.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4569	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	4570	Return immediate if the receiver is already ready.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4571	The other threads are not affected by the wait."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4572
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4573	\|fd outputSema canWrite wasBlocked\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4574
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4575	filePointer isNil ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4576	^ self errorNotOpen
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4577	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4578	mode == #readonly ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4579	^ self errorReadOnly
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4580	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4581
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4582	fd := self fileDescriptor.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4583	(OperatingSystem writeCheck:fd) ifTrue:[^ false].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4584
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4585	wasBlocked := OperatingSystem blockInterrupts.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4586	canWrite := OperatingSystem writeCheck:fd.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4587	canWrite ifFalse:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4588	outputSema := Semaphore new name:'writeWait'.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4589	[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4590	timeout notNil ifTrue:[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4591	Processor signal:outputSema afterMilliseconds:timeout
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	Processor signal:outputSema onOutput:fd.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4594	Processor activeProcess state:#ioWait.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4595	outputSema wait.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4596	Processor disableSemaphore:outputSema.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4597	canWrite := OperatingSystem writeCheck:fd
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4598	] valueOnUnwindDo:[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4599	Processor disableSemaphore:outputSema.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4600	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4601	]
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4602	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4603	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4604	^ canWrite not
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4605	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4606
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4607	!ExternalStream methodsFor:'writing'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4608
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4609	cr
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4610	"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	4611	reimplemented for speed"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4612
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	4613	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	4614	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4615	int len, cnt, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4616	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4617	char *cp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4618
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4619	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4620	if (((fp = __INST(filePointer)) != nil)
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4621	&& (__INST(mode) != @symbol(readonly))
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4622	&& (__INST(binary) != true)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4623	) {
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4624	f = __FILEVal(fp);
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4625
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4626	if (_buffered = (__INST(buffered) == true)) {
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4627	__WRITING__(f)
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4628	}
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	4629	{
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	4630	OBJ mode = __INST(eolMode);
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	4631
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	4632	if (mode == @symbol(cr)) {
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4633	cp = "\r"; len = 1;
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	4634	} else if (mode == @symbol(crlf)) {
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4635	cp = "\r\n"; len = 2;
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	4636	} else {
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	4637	cp = "\n"; len = 1;
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	4638	}
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4639	}
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4640	__WRITEBYTES__(cnt, f, cp, len, _buffered);
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4641
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4642	if (cnt == len) {
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4643	if (__INST(position) != nil) {
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4644	__INST(position) = __MKSMALLINT(__intVal(__INST(position)) + len);
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4645	}
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4646	RETURN ( self );
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4647	}
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4648	__INST(lastErrorNumber) = __MKSMALLINT(errno);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4649	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4650	%}.
2326 01fa309e48d9 checkin from browser Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	4651	lastErrorNumber notNil ifTrue:[self writeError. ^ self].
01fa309e48d9 checkin from browser Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	4652	filePointer isNil ifTrue:[self errorNotOpen. ^ self].
01fa309e48d9 checkin from browser Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	4653	(mode == #readonly) ifTrue:[self errorReadOnly. ^ self].
01fa309e48d9 checkin from browser Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	4654	self errorBinary
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4655	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4656
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4657	flush
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4658	"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	4659
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4660	%{
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4661	OBJ fp;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4662
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4663	__INST(lastErrorNumber) = nil;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4664	if ((fp = __INST(filePointer)) != nil) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4665	if (__INST(mode) != @symbol(readonly)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4666	if (__INST(buffered) == true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4667	__BEGIN_INTERRUPTABLE__
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	4668	FFLUSH( __FILEVal(fp) );
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4669	__END_INTERRUPTABLE__
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4670	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4671	}
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4672	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4673	%}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4674	!
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4675
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4676	nextPut:aCharacter
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4677	"write the argument, aCharacter - return nil if failed, self if ok.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4678	Only single-byte characters are currently supported"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4679
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	4680	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	4681	FILEPOINTER f;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4682	char c;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4683	int cnt, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4684	OBJ pos, fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4685
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4686	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4687	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4688	&& (__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	4689	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4690	if (__INST(binary) != true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4691	if (__isCharacter(aCharacter)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4692	c = __intVal(__characterVal(aCharacter)) & 0xFF;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4693	doWrite:
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4694	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4695
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4696
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4697	if (_buffered = (__INST(buffered) == true)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4698	__WRITING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4699	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4700	__WRITEBYTE__(cnt, f, &c, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4701
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4702	if (cnt == 1) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4703	pos = __INST(position);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4704	if (pos != nil) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4705	__INST(position) = __MKSMALLINT(__intVal(pos) + 1);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4706	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4707	RETURN ( self );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4708	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4709	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4710	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4711	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4712	if (__isSmallInteger(aCharacter)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4713	c = __intVal(aCharacter);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4714	goto doWrite;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4715	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4716	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4717	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4718	%}.
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4719	lastErrorNumber notNil ifTrue:[self writeError. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4720	filePointer isNil ifTrue:[self errorNotOpen. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4721	(mode == #readonly) ifTrue:[self errorReadOnly. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4722	binary ifFalse:[self argumentMustBeCharacter. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4723	self argumentMustBeInteger.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4724	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4725
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4726	nextPutAll:aCollection
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4727	"write all elements of the argument, aCollection.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4728	Reimplemented for speed when writing strings or byteArrays.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4729	For others, falls back to general method in superclass."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4730
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	4731	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	4732	FILEPOINTER f;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4733	int len, cnt;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4734	OBJ pos, fp;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4735	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	4736	int o_offs;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4737
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4738	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4739
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4740	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4741	&& (__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	4742	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4743	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4744	if (_buffered = (__INST(buffered) == true)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4745	__WRITING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4746	}
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	4747
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4748	if (__isString(aCollection) \|\| __isSymbol(aCollection)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4749	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	4750	#ifdef BUGGY
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4751	__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	4752	#else
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	4753	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	4754	__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	4755	#endif
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4756	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4757	if (__INST(binary) == true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4758	int offs;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4759
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4760	if (__isByteArray(aCollection)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4761	offs = 0;
3221 21085ae8e1be eliminated some single-underscore macro refs (stringSize, arraySize ...) Claus Gittinger <cg@exept.de> parents: 3200 diff changeset	4762	len = __byteArraySize(aCollection);
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4763	} else if (__isBytes(aCollection)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4764	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	4765	len = __byteArraySize(aCollection) - offs;
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4766	} else
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4767	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	4768	#ifdef BUGGY
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	4769	__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	4770	#else
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	4771	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	4772	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	4773	__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	4774	#endif
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4775	} else
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4776	goto out;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4777	}
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	4778
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4779	if (cnt == len) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4780	pos = __INST(position);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4781	if (pos != nil) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4782	__INST(position) = __MKSMALLINT(__intVal(pos) + len);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4783	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4784	RETURN (self);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4785	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4786	__INST(lastErrorNumber) = __MKSMALLINT(errno);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4787	}
1478 aae07192b7d1 labels in empty statements need a semi Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	4788	out: ;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4789	%}.
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4790	lastErrorNumber notNil ifTrue:[self writeError. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4791	filePointer isNil ifTrue:[self errorNotOpen. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	4792	(mode == #readonly) ifTrue:[self errorReadOnly. ^ self].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4793
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4794	^ super nextPutAll:aCollection
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4795	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4796
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4797	nextPutAll:aCollection startingAt:start to:stop
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4798	"write a range of elements of the argument, aCollection.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4799	Reimplemented for speed when writing strings or byteArrays.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4800	For others, falls back to general method in superclass."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4801
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	4802	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	4803	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4804	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	4805	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	4806	int o_offs;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4807
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4808	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4809	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4810	&& (__INST(mode) != @symbol(readonly))
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4811	&& __bothSmallInteger(start, stop)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4812	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4813	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4814	if (_buffered = (__INST(buffered) == true)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4815	__WRITING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4816	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4817	iStart = __intVal(start);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4818	iStop = __intVal(stop);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4819	if ((iStart < 1) \|\| (iStop < iStart)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4820	RETURN(self);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4821	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4822	if (__isString(aCollection) \|\| __isSymbol(aCollection)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4823	len = __stringSize(aCollection);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4824	if (iStop > len) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4825	RETURN(self);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4826	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4827	if (iStop > len)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4828	iStop = len;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4829	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	4830	#ifdef BUGGY
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4831	__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	4832	#else
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	4833	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	4834	__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	4835	#endif
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4836	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4837	if (__INST(binary) == true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4838	int offs;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4839
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4840	if (__isByteArray(aCollection)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4841	offs = 0;
3221 21085ae8e1be eliminated some single-underscore macro refs (stringSize, arraySize ...) Claus Gittinger <cg@exept.de> parents: 3200 diff changeset	4842	len = __byteArraySize(aCollection);
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4843	} else if (__isBytes(aCollection)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4844	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	4845	len = __byteArraySize(aCollection) - offs;
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4846	} else
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4847	goto out;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4848
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4849	if (iStop > len) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4850	RETURN(self);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4851	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4852	if (iStop > len)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4853	iStop = len;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4854	len = iStop - iStart + 1;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4855	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	4856	#ifdef BUGGY
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4857	__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	4858	#else
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	4859	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	4860	__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	4861	#endif
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4862	} else
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4863	goto out;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4864	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4865	if (cnt == len) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4866	pos = __INST(position);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4867	if (pos != nil) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4868	__INST(position) = __MKSMALLINT(__intVal(pos) + len);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4869	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4870	RETURN (self);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4871	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	4872	__INST(lastErrorNumber) = __MKSMALLINT(errno);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4873	}
1478 aae07192b7d1 labels in empty statements need a semi Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	4874	out: ;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4875	%}.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4876	lastErrorNumber notNil ifTrue:[^ self writeError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4877	^ super nextPutAll:aCollection startingAt:start to:stop
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4878	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4879
2045 1ad17ca6520f fall back to super>>nextPutLine: if argument is not a string. Claus Gittinger <cg@exept.de> parents: 2044 diff changeset	4880	!ExternalStream class methodsFor:'documentation'!
730 62643519bf68 checkin from browser Claus Gittinger <cg@exept.de> parents: 711 diff changeset	4881
62643519bf68 checkin from browser Claus Gittinger <cg@exept.de> parents: 711 diff changeset	4882	version
4640 034c028a5463 care for nil arg in readWaitWithTimeout / writeWaitWithTimeout Claus Gittinger <cg@exept.de> parents: 4627 diff changeset	4883	^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.201 1999-08-28 15:57:43 cg Exp $'
730 62643519bf68 checkin from browser Claus Gittinger <cg@exept.de> parents: 711 diff changeset	4884	! !
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4885	ExternalStream initialize!

author	Claus Gittinger <cg@exept.de>
	Wed, 22 Sep 1999 17:39:21 +0200
changeset 4789	72a61dc595ad
parent 4640	034c028a5463
child 4913	4964b2c71d31
permissions	-rw-r--r--