hg/stx-libbasic: ExternalStream.st@3c8bf66e4e7d (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
2134 246a3bdab8b4 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 2120 diff changeset	14	instanceVariableNames:'filePointer mode buffered binary useCRLF hitEOF didWrite
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
246a3bdab8b4 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 2120 diff changeset	18	InvalidOperationSignal'
246a3bdab8b4 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 2120 diff changeset	19	poolDictionaries:''
246a3bdab8b4 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 2120 diff changeset	20	category:'Streams-External'
1 a27a279701f8 Initial revision claus parents: diff changeset	21	!
a27a279701f8 Initial revision claus parents: diff changeset	22
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	23	!ExternalStream primitiveDefinitions!
1 a27a279701f8 Initial revision claus parents: diff changeset	24	%{
a27a279701f8 Initial revision claus parents: diff changeset	25	#include <stdio.h>
437 a005e97d261e . claus parents: 436 diff changeset	26	#define _STDIO_H_INCLUDED_
a005e97d261e . claus parents: 436 diff changeset	27
10 4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	28	#include <fcntl.h>
437 a005e97d261e . claus parents: 436 diff changeset	29	#define _FCNTL_H_INCLUDED_
a005e97d261e . claus parents: 436 diff changeset	30
10 4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	31	#include <errno.h>
437 a005e97d261e . claus parents: 436 diff changeset	32	#define _ERRNO_H_INCLUDED_
42 e33491f6f260 * empty log message * claus parents: 38 diff changeset	33
1141 8ea1b43f7034 * empty log message * Claus Gittinger <cg@exept.de> parents: 1138 diff changeset	34	#ifdef LINUX
8ea1b43f7034 * empty log message * Claus Gittinger <cg@exept.de> parents: 1138 diff changeset	35	/* use inline string macros */
8ea1b43f7034 * empty log message * Claus Gittinger <cg@exept.de> parents: 1138 diff changeset	36	# define __STRINGDEFS__
8ea1b43f7034 * empty log message * Claus Gittinger <cg@exept.de> parents: 1138 diff changeset	37	# include <linuxIntern.h>
8ea1b43f7034 * empty log message * Claus Gittinger <cg@exept.de> parents: 1138 diff changeset	38	#endif
8ea1b43f7034 * empty log message * Claus Gittinger <cg@exept.de> parents: 1138 diff changeset	39
42 e33491f6f260 * empty log message * claus parents: 38 diff changeset	40	#ifdef hpux
e33491f6f260 * empty log message * claus parents: 38 diff changeset	41	# define fileno(f) ((f->__fileH << 8) \| (f->__fileL))
e33491f6f260 * empty log message * claus parents: 38 diff changeset	42	#endif
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	43
933 2eebae059045 oops - when truncating buffered streams, we must flush & seek first (stdio trouble) Claus Gittinger <cg@exept.de> parents: 932 diff changeset	44	#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	45	# 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	46	#endif
2eebae059045 oops - when truncating buffered streams, we must flush & seek first (stdio trouble) Claus Gittinger <cg@exept.de> parents: 932 diff changeset	47	#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	48	# 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	49	#endif
2eebae059045 oops - when truncating buffered streams, we must flush & seek first (stdio trouble) Claus Gittinger <cg@exept.de> parents: 932 diff changeset	50	#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	51	# 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	52	#endif
2eebae059045 oops - when truncating buffered streams, we must flush & seek first (stdio trouble) Claus Gittinger <cg@exept.de> parents: 932 diff changeset	53
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	54	#ifdef xxxWIN32
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	55	# define NO_STDIO
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	56	# define __HANDLEVal(o) (HFILE)(__MKCP(o))
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	57	# define READ(f, cp, n) _lread((f), (cp), (n))
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	58	# define WRITE(f, cp, n) _lwrite((f), (cp), (n))
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	59	# define FFLUSH(fp) /* nothing */
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	60	# undef STDIO_NEEDS_FSEEK
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	61	# define FILEPOINTER HFILE
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	62	# define FILENO(f) (f)
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	63	#else
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	64	# define STDIO_NEEDS_FSEEK
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	65	# define FILEPOINTER FILE *
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	66	# define READ(f, cp, n) read(f, cp, n)
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	67	# define WRITE(f, cp, n) write(f, cp, n)
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	68	# define FFLUSH(fp) fflush(fp)
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	69	# define FILENO(f) fileno(f)
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	70	#endif
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	71
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	72
2596 36c872e47b00 * empty log message * Claus Gittinger <cg@exept.de> parents: 2593 diff changeset	73	#if defined(WIN32) && defined(NO_STDIO)
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	74
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	75	# ifdef i386
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	76	# define _X86_
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	77	# endif
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	78
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	79	# undef INT
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	80	# undef Array
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	81	# undef Number
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	82	# undef Method
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	83	# undef Point
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	84	# undef Rectangle
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	85	# undef Block
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	86
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	87	/* # include <windows.h> /* */
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	88	# include <stdarg.h> /* */
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	89	# include <windef.h> /* */
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	90	# include <winbase.h> /* */
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	91	# include <wingdi.h> /* */
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	92	# include <winuser.h> /* */
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	93
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	94	# ifdef __DEF_Array
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	95	# define Array __DEF_Array
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	96	# endif
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	97	# ifdef __DEF_Number
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	98	# define Number __DEF_Number
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	99	# endif
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	100	# ifdef __DEF_Method
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	101	# define Method __DEF_Method
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	102	# endif
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	103	# ifdef __DEF_Point
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	104	# define Point __DEF_Point
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	105	# endif
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	106	# ifdef __DEF_Block
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	107	# define Block __DEF_Block
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	108	# endif
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	109
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	110	# define stat _stat
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	111
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	112	#endif /* WIN32 */
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	113
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	114	/*
a8abff749575 * empty log message * claus parents: 213 diff changeset	115	* stdio library requires an fseek before reading whenever a file
a8abff749575 * empty log message * claus parents: 213 diff changeset	116	* is open for read/write and the last operation was a write.
a8abff749575 * empty log message * claus parents: 213 diff changeset	117	* (also vice-versa).
a8abff749575 * empty log message * claus parents: 213 diff changeset	118	* All code should use the following macro before doing reads:
a8abff749575 * empty log message * claus parents: 213 diff changeset	119	*/
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	120	#ifdef STDIO_NEEDS_FSEEK
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	121	# define OPT_FSEEK(f, pos, whence) fseek(f, pos, whence)
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	122	#else
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	123	# define OPT_FSEEK(f, pos, whence) /* nothing */
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	124	#endif
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	125
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	126	#define __READING__(f) \
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	127	if ((__INST(didWrite) != false) \
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	128	&& (__INST(mode) == @symbol(readwrite))) { \
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	129	__INST(didWrite) = false; \
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	130	OPT_FSEEK(f, 0L, SEEK_CUR); /* needed in stdio */ \
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	131	}
a8abff749575 * empty log message * claus parents: 213 diff changeset	132
a8abff749575 * empty log message * claus parents: 213 diff changeset	133	#define __WRITING__(f) \
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	134	if ((__INST(didWrite) != true) \
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	135	&& (__INST(mode) == @symbol(readwrite))) { \
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	136	__INST(didWrite) = true; \
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	137	OPT_FSEEK(f, 0L, SEEK_CUR); /* needed in stdio */ \
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	138	}
a8abff749575 * empty log message * claus parents: 213 diff changeset	139
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	140
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	141	#ifdef NO_STDIO
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	142	#define __UNGETC__(c, f, isBuffered) \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	143	__INST(readAhead) = __MKSMALLINT((c));
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	144	#else
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	145	#define __UNGETC__(c, f, isBuffered) \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	146	if (isBuffered) { \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	147	ungetc((c), (f)); \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	148	} else { \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	149	__INST(readAhead) = __MKSMALLINT((c)); \
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	150	}
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	151	#endif
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	152
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	153	#ifdef NO_STDIO
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	154	#define __READBYTE__(ret, f, buf, isBuffered) \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	155	{ \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	156	OBJ rA = __INST(readAhead); \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	157	if (rA != nil) { \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	158	*(buf) = __intVal(rA); \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	159	__INST(readAhead) = nil; \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	160	(ret) = 1; \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	161	} else { \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	162	for (;;) { \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	163	(ret) = READ(f, buf, 1); \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	164	if ((ret) >= 0 \|\| errno != EINTR) \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	165	break; \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	166	__HANDLE_INTERRUPTS__; \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	167	} \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	168	} \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	169	}
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	170	#else
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	171	#define __READBYTE__(ret, f, buf, isBuffered) \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	172	if (isBuffered) { \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	173	for (;;) { \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	174	(ret) = getc(f); \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	175	if ((ret) >= 0) { \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	176	*(buf) = (ret); \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	177	(ret) = 1; \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	178	} else if (ferror(f)) { \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	179	if (errno == EINTR) { \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	180	__HANDLE_INTERRUPTS__; \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	181	clearerr(f); \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	182	continue; \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	183	} \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	184	} else \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	185	(ret) = 0; \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	186	break; \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	187	} \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	188	} else { \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	189	OBJ rA = __INST(readAhead); \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	190	if (rA != nil) { \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	191	*(buf) = __intVal(rA); \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	192	__INST(readAhead) = nil; \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	193	(ret) = 1; \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	194	} else { \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	195	for (;;) { \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	196	(ret) = read(fileno(f), buf, 1); \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	197	if ((ret) >= 0 \|\| errno != EINTR) \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	198	break; \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	199	__HANDLE_INTERRUPTS__; \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	200	} \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	201	} \
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	202	}
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	203	#endif
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	204
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	205	/*
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	206	* 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	207	* (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	208	*/
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	209	#ifdef NO_STDIO
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	210	#define __READBYTES__(ret, f, buf, cnt, isBuffered) \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	211	{ \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	212	int __offs = 0; \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	213	\
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	214	while (__offs < (cnt)) { \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	215	OBJ rA = __INST(readAhead); \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	216	if (rA != nil) { \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	217	(buf)[__offs] = __intVal(rA); \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	218	__INST(readAhead) = nil; \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	219	(ret) = 1; \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	220	} else { \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	221	(ret) = READ(f, (buf)+__offs, (cnt)-__offs); \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	222	if ((ret) <= 0) { \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	223	if ((ret) < 0 && errno == EINTR) { \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	224	__HANDLE_INTERRUPTS__; \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	225	continue; \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	226	} \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	227	break; \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	228	} \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	229	} \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	230	__offs += (ret); \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	231	} \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	232	if (__offs > 0) \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	233	(ret) = __offs; \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	234	}
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	235	#else
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	236	#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	237	(ret) = 0; \
71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	238	if (isBuffered) { \
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	239	int __offs = 0; \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	240	while (__offs < (cnt)) { \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	241	(ret) = getc(f); \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	242	if ((ret) < 0) { \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	243	if (ferror(f)) { \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	244	if (errno == EINTR) { \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	245	__HANDLE_INTERRUPTS__; \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	246	clearerr(f); \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	247	continue; \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	248	} \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	249	} else { \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	250	(ret) = 0; \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	251	} \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	252	break; \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	253	} \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	254	(buf)[__offs++] = (ret); \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	255	} \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	256	if (__offs > 0) \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	257	(ret) = __offs; \
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	258	} else { \
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	259	int __offs = 0; \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	260	int fd = fileno(f); \
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	261	\
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	262	while (__offs < (cnt)) { \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	263	OBJ rA = __INST(readAhead); \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	264	if (rA != nil) { \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	265	(buf)[__offs] = __intVal(rA); \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	266	__INST(readAhead) = nil; \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	267	(ret) = 1; \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	268	} else { \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	269	(ret) = read(fd, (buf)+__offs, (cnt)-__offs); \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	270	if ((ret) <= 0) { \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	271	if ((ret) < 0 && errno == EINTR) { \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	272	__HANDLE_INTERRUPTS__; \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	273	continue; \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	274	} \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	275	break; \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	276	} \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	277	} \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	278	__offs += (ret); \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	279	} \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	280	if (__offs > 0) \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	281	(ret) = __offs; \
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	282	}
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	283	#endif
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	284
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	285	/*
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	286	* 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	287	* (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	288	*/
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	289	#ifdef NO_STDIO
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	290	#define __READBYTES_OBJ__(ret, f, obj, obj_offs, cnt, isBuffered) \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	291	{ \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	292	int __ooffs = obj_offs; \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	293	int __offs = 0; \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	294	char buf = (char )(obj); \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	295	\
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	296	(ret) = 0; \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	297	{ \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	298	while (__offs < (cnt)) { \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	299	OBJ rA = __INST(readAhead); \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	300	if (rA != nil) { \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	301	(buf)[__ooffs+__offs] = __intVal(rA); \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	302	__INST(readAhead) = nil; \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	303	(ret) = 1; \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	304	} else { \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	305	(ret) = READ(f, (buf)+__ooffs+__offs, (cnt)-__offs); \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	306	if ((ret) <= 0) { \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	307	if ((ret) < 0 && errno == EINTR) { \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	308	__HANDLE_INTERRUPTS__; \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	309	/* refetch */ \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	310	buf = (char *)(obj); \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	311	continue; \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	312	} \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	313	break; \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	314	} \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	315	} \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	316	__offs += (ret); \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	317	} \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	318	if (__offs > 0) \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	319	(ret) = __offs; \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	320	} \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	321	}
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	322	#else
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	323	#define __READBYTES_OBJ__(ret, f, obj, obj_offs, cnt, isBuffered) \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	324	{ \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	325	int __ooffs = obj_offs; \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	326	int __offs = 0; \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	327	char buf = (char )(obj); \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	328	\
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	329	(ret) = 0; \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	330	if (isBuffered) { \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	331	while (__offs < (cnt)) { \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	332	(ret) = getc(f); \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	333	if ((ret) < 0) { \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	334	if (ferror(f)) { \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	335	if (errno == EINTR) { \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	336	__HANDLE_INTERRUPTS__; \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	337	clearerr(f); \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	338	/* refetch */ \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	339	buf = (char *)(obj); \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	340	continue; \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	341	} \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	342	} else { \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	343	(ret) = 0; \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	344	} \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	345	break; \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	346	} \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	347	(buf)[__ooffs+__offs] = (ret); \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	348	__offs++; \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	349	} \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	350	if (__offs > 0) \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	351	(ret) = __offs; \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	352	} else { \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	353	int fd = fileno(f); \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	354	\
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	355	while (__offs < (cnt)) { \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	356	OBJ rA = __INST(readAhead); \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	357	if (rA != nil) { \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	358	(buf)[__ooffs+__offs] = __intVal(rA); \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	359	__INST(readAhead) = nil; \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	360	(ret) = 1; \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	361	} else { \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	362	(ret) = read(fd, (buf)+__ooffs+__offs, (cnt)-__offs); \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	363	if ((ret) <= 0) { \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	364	if ((ret) < 0 && errno == EINTR) { \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	365	__HANDLE_INTERRUPTS__; \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	366	/* refetch */ \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	367	buf = (char *)(obj); \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	368	continue; \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	369	} \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	370	break; \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	371	} \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	372	} \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	373	__offs += (ret); \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	374	} \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	375	if (__offs > 0) \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	376	(ret) = __offs; \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	377	} \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	378	}
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	379	#endif
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	380
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	381	#ifdef NO_STDIO
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	382	#define __WRITEBYTE__(ret, f, buf, isBuffered) \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	383	for (;;) { \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	384	(ret) = WRITE(f, buf, 1); \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	385	if ((ret) >= 0 \|\| errno != EINTR) \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	386	break; \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	387	__HANDLE_INTERRUPTS__; \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	388	}
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	389	#else
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	390	#define __WRITEBYTE__(ret, f, buf, isBuffered) \
71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	391	if (isBuffered) { \
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	392	for (;;) { \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	393	ret = putc(*(buf), f); \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	394	if ((ret) >= 0) { \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	395	(ret) = 1; \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	396	} else if (ferror(f)) { \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	397	if (errno == EINTR) { \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	398	__HANDLE_INTERRUPTS__; \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	399	clearerr(f); \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	400	continue; \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	401	} \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	402	} else \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	403	(ret) = 0; \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	404	break; \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	405	} \
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	406	} else { \
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	407	for (;;) { \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	408	(ret) = write(fileno(f), buf, 1); \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	409	if ((ret) >= 0 \|\| errno != EINTR) \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	410	break; \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	411	__HANDLE_INTERRUPTS__; \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	412	} \
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	413	}
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	414	#endif
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	415
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	416	/*
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	417	* 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	418	* (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	419	*/
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	420	#ifdef NO_STDIO
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	421	#define __WRITEBYTES__(ret, f, buf, cnt, isBuffered) \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	422	(ret) = 0; \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	423	{ \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	424	int __offs = 0; \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	425	while (__offs < (cnt)) { \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	426	ret = WRITE(f, (buf)+__offs, (cnt)-__offs); \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	427	if (ret <= 0) { \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	428	if (ret < 0 && errno == EINTR) { \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	429	__HANDLE_INTERRUPTS__; \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	430	continue; \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	431	} \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	432	break; \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	433	} \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	434	__offs += (ret); \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	435	} \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	436	if (__offs > 0) \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	437	(ret) = __offs; \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	438	}
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	439	#else
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	440	#define __WRITEBYTES__(ret, f, buf, cnt, isBuffered) \
1464 6d533b5e5de3 Fix reads and writes with cnt==0. Stefan Vogel <sv@exept.de> parents: 1463 diff changeset	441	(ret) = 0; \
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	442	if (isBuffered) { \
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	443	int __offs = 0; \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	444	while (__offs < (cnt)) { \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	445	ret = fwrite((buf)+__offs, 1, (cnt)-__offs, f); \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	446	if ((ret) < 0) { \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	447	if (ferror(f)) { \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	448	if (errno == EINTR) { \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	449	__HANDLE_INTERRUPTS__; \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	450	clearerr(f); \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	451	continue; \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	452	} \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	453	} else { \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	454	(ret) = 0; \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	455	} \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	456	break; \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	457	} \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	458	__offs += (ret); \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	459	} \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	460	if (__offs > 0) \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	461	(ret) = __offs; \
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	462	} else { \
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	463	int __offs = 0; \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	464	while (__offs < (cnt)) { \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	465	ret = write(fileno(f), (buf)+__offs, (cnt)-__offs); \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	466	if (ret <= 0) { \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	467	if (ret < 0 && errno == EINTR) { \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	468	__HANDLE_INTERRUPTS__; \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	469	continue; \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	470	} \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	471	break; \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	472	} \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	473	__offs += (ret); \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	474	} \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	475	if (__offs > 0) \
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	476	(ret) = __offs; \
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	477	}
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	478	#endif
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	479
223 3075043790b8 immediateInterr & errno cleanup claus parents: 216 diff changeset	480	/*
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	481	* 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	482	* (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	483	*/
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	484	#ifdef NO_STDIO
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	485	#define __WRITEBYTES_OBJ__(ret, f, obj, obj_offs, cnt, isBuffered) \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	486	{ \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	487	int __ooffs = obj_offs; \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	488	int __offs = 0; \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	489	char buf = (char )(obj); \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	490	\
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	491	(ret) = 0; \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	492	{ \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	493	while (__offs < (cnt)) { \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	494	ret = WRITE(f, (buf)+__ooffs+__offs, (cnt)-__offs); \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	495	if (ret <= 0) { \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	496	if (ret < 0 && errno == EINTR) { \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	497	__HANDLE_INTERRUPTS__; \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	498	/* refetch */ \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	499	buf = (char *)(obj); \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	500	continue; \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	501	} \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	502	break; \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	503	} \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	504	__offs += (ret); \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	505	} \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	506	if (__offs > 0) \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	507	(ret) = __offs; \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	508	} \
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	509	}
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	510	#else
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	511	#define __WRITEBYTES_OBJ__(ret, f, obj, obj_offs, cnt, isBuffered) \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	512	{ \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	513	int __ooffs = obj_offs; \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	514	int __offs = 0; \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	515	char buf = (char )(obj); \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	516	\
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	517	(ret) = 0; \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	518	if (isBuffered) { \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	519	while (__offs < (cnt)) { \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	520	ret = fwrite((buf)+__ooffs+__offs, 1, (cnt)-__offs, f); \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	521	if ((ret) < 0) { \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	522	if (ferror(f)) { \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	523	if (errno == EINTR) { \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	524	__HANDLE_INTERRUPTS__; \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	525	/* refetch */ \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	526	buf = (char *)(obj); \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	527	clearerr(f); \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	528	continue; \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	529	} \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	530	} else { \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	531	(ret) = 0; \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	532	} \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	533	break; \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	534	} \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	535	__offs += (ret); \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	536	} \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	537	if (__offs > 0) \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	538	(ret) = __offs; \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	539	} else { \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	540	while (__offs < (cnt)) { \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	541	ret = write(fileno(f), (buf)+__ooffs+__offs, (cnt)-__offs); \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	542	if (ret <= 0) { \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	543	if (ret < 0 && errno == EINTR) { \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	544	__HANDLE_INTERRUPTS__; \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	545	/* refetch */ \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	546	buf = (char *)(obj); \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	547	continue; \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	548	} \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	549	break; \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	550	} \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	551	__offs += (ret); \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	552	} \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	553	if (__offs > 0) \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	554	(ret) = __offs; \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	555	} \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	556	}
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	557	#endif
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	558
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	559	/*
223 3075043790b8 immediateInterr & errno cleanup claus parents: 216 diff changeset	560	* on some systems errno is a macro ... check for it here
3075043790b8 immediateInterr & errno cleanup claus parents: 216 diff changeset	561	*/
3075043790b8 immediateInterr & errno cleanup claus parents: 216 diff changeset	562	#ifndef errno
3075043790b8 immediateInterr & errno cleanup claus parents: 216 diff changeset	563	extern errno;
3075043790b8 immediateInterr & errno cleanup claus parents: 216 diff changeset	564	#endif
3075043790b8 immediateInterr & errno cleanup claus parents: 216 diff changeset	565
1 a27a279701f8 Initial revision claus parents: diff changeset	566	%}
188 454ed0ee733e EINTR problems claus parents: 159 diff changeset	567	! !
1 a27a279701f8 Initial revision claus parents: diff changeset	568
2045 1ad17ca6520f fall back to super>>nextPutLine: if argument is not a string. Claus Gittinger <cg@exept.de> parents: 2044 diff changeset	569	!ExternalStream class methodsFor:'documentation'!
22 847106305963 * empty log message * claus parents: 12 diff changeset	570
88 81dacba7a63a * empty log message * claus parents: 85 diff changeset	571	copyright
81dacba7a63a * empty log message * claus parents: 85 diff changeset	572	"
81dacba7a63a * empty log message * claus parents: 85 diff changeset	573	COPYRIGHT (c) 1988 by Claus Gittinger
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	574	All Rights Reserved
88 81dacba7a63a * empty log message * claus parents: 85 diff changeset	575
81dacba7a63a * empty log message * claus parents: 85 diff changeset	576	This software is furnished under a license and may be used
81dacba7a63a * empty log message * claus parents: 85 diff changeset	577	only in accordance with the terms of that license and with the
81dacba7a63a * empty log message * claus parents: 85 diff changeset	578	inclusion of the above copyright notice. This software may not
81dacba7a63a * empty log message * claus parents: 85 diff changeset	579	be provided or otherwise made available to, or used by, any
81dacba7a63a * empty log message * claus parents: 85 diff changeset	580	other person. No title to or ownership of the software is
81dacba7a63a * empty log message * claus parents: 85 diff changeset	581	hereby transferred.
81dacba7a63a * empty log message * claus parents: 85 diff changeset	582	"
81dacba7a63a * empty log message * claus parents: 85 diff changeset	583	!
81dacba7a63a * empty log message * claus parents: 85 diff changeset	584
22 847106305963 * empty log message * claus parents: 12 diff changeset	585	documentation
847106305963 * empty log message * claus parents: 12 diff changeset	586	"
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	587	ExternalStream defines protocol common to Streams which have a file-descriptor and
59faa75185ba * empty log message * claus parents: 54 diff changeset	588	represent some file or communicationChannel of the underlying OperatingSystem.
59faa75185ba * empty log message * claus parents: 54 diff changeset	589	ExternalStream is abstract; concrete classes are FileStream, PipeStream etc.
77 6c38ca59927f * empty log message * claus parents: 68 diff changeset	590
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	591	ExternalStreams can be in two modes: text- (the default) and binary-mode.
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	592	In text-mode, the elements read/written are characters;
59faa75185ba * empty log message * claus parents: 54 diff changeset	593	while in binary-mode the basic elements are bytes which read/write as SmallIntegers
59faa75185ba * empty log message * claus parents: 54 diff changeset	594	in the range 0..255.
22 847106305963 * empty log message * claus parents: 12 diff changeset	595
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	596	Also, the stream can be either in buffered or unbuffered mode. In buffered mode,
59faa75185ba * empty log message * claus parents: 54 diff changeset	597	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	598	is sent (in both modes).
22 847106305963 * empty log message * claus parents: 12 diff changeset	599
77 6c38ca59927f * empty log message * claus parents: 68 diff changeset	600	The underlying OperatingSystem streams may either be closed explicitely (sending a close)
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	601	or just forgotten - in this case, the garbage collector will eventually collect the
77 6c38ca59927f * empty log message * claus parents: 68 diff changeset	602	object AND a close will be performed automatically (but you will NOT know when this
6c38ca59927f * empty log message * claus parents: 68 diff changeset	603	happens - so it is recommended, that you close your files when no longer needed).
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	604	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	605	some crash) the data will not be in the file, if unclosed.
6c38ca59927f * empty log message * claus parents: 68 diff changeset	606	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	607	a noop in one of the superclasses).
22 847106305963 * empty log message * claus parents: 12 diff changeset	608
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	609	Most of the methods found here redefine inherited methods for better performance,
59faa75185ba * empty log message * claus parents: 54 diff changeset	610	since I/O from/to files should be fast.
22 847106305963 * empty log message * claus parents: 12 diff changeset	611
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	612	Recovering a snapshot:
1295 83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	613	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	614	reOpen in subclasses for more information.
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	615	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	616	reestablish the stream upon image restart (make someone dependent on ObjectMemory).
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	617	FileStreams are reopened and positioned to their offset they had at snapshot time.
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	618	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	619	if the contents changed in the meantime.
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	620	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	621
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	622	[Instance variables:]
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	623
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	624	filePointer <Integer> the unix FILE*; somehow mapped to an integer
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	625	(notice: not the fd)
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	626	on Windows: the fileHandle
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	627	mode <Symbol> #readwrite, #readonly or #writeonly
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	628	buffered <Boolean> true, if buffered (i.e. collects characters - does
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	629	not output immediately)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	630	binary <Boolean> true if in binary mode (reads bytes instead of chars)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	631	useCRLF <Boolean> true, if lines should be terminated with crlf instead
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	632	of lf. (i.e. if file is an MSDOS-type file)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	633	hitEOF <Boolean> true, if EOF was reached
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	634
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	635	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	636	updated with next i/o operation)
1295 83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	637
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	638	[Class variables:]
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	639	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	640
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	641	StreamErrorSignal <Signal> parent of all stream errors (see Stream class)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	642	InvalidReadSignal <Signal> raised on read from writeonly stream
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	643	InvalidWriteSignal <Signal> raised on write to readonly stream
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	644	InvalidModeSignal <Signal> raised on text I/O with binary-stream
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	645	or binary I/O with text-stream
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	646	OpenErrorSignal <Signal> raised if open fails
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	647	StreamNotOpenSignal <Signal> raised on I/O with non-open stream
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	648
514c749165c3 * empty log message * claus parents: 108 diff changeset	649	Additional notes:
514c749165c3 * empty log message * claus parents: 108 diff changeset	650	This class is implemented using the underlying stdio-c library package, which
514c749165c3 * empty log message * claus parents: 108 diff changeset	651	has both advantages and disadvantages: since it is portable (posix defined), porting
514c749165c3 * empty log message * claus parents: 108 diff changeset	652	ST/X to non-Unix machines is simplified. The disadvantage is that the stdio library
514c749165c3 * empty log message * claus parents: 108 diff changeset	653	has big problems handling unbounded Streams, since the EOF handling in stdio is
514c749165c3 * empty log message * claus parents: 108 diff changeset	654	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	655	a complete rewrite for UnboundedStream ...
325 46bca6125b93 . claus parents: 308 diff changeset	656
188 454ed0ee733e EINTR problems claus parents: 159 diff changeset	657	Also, depending on the system, the stdio library behaves infriendly when signals
454ed0ee733e EINTR problems claus parents: 159 diff changeset	658	occur while reading (for example, timer interrupts) - on real unixes (i.e. BSD) the signal
454ed0ee733e EINTR problems claus parents: 159 diff changeset	659	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	660	an error and errno is set to EINTR.
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	661	Thats what the ugly code around all getc-calls is for ...
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	662	Since things get more and more ugly - we will rewrite ExternalStream
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	663	completely, to NOT use any stdio stuff (and do its buffering itself).
325 46bca6125b93 . claus parents: 308 diff changeset	664
46bca6125b93 . claus parents: 308 diff changeset	665	Notice that typical stdio's use a single errno global variable to return an error code,
46bca6125b93 . claus parents: 308 diff changeset	666	this was bad design in the stdio lib (right from the very beginning), since its much
46bca6125b93 . claus parents: 308 diff changeset	667	harder to deal with this in the presence of lightweight processes, where errno gets
46bca6125b93 . claus parents: 308 diff changeset	668	overwritten by an I/O operation done in another thread. (stdio should have been written
46bca6125b93 . claus parents: 308 diff changeset	669	to return errno as a negative number ...).
46bca6125b93 . claus parents: 308 diff changeset	670	To deal with this, the scheduler treats errno like a per-thread private variable,
46bca6125b93 . claus parents: 308 diff changeset	671	and saves/restores the errno setting when switching to another thread.
46bca6125b93 . claus parents: 308 diff changeset	672	(Notice that some thread packages do this also, but ST/X's thread implementation
46bca6125b93 . claus parents: 308 diff changeset	673	does not depend on those, but instead uses a portable private package).
46bca6125b93 . claus parents: 308 diff changeset	674
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	675	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	676	fseek whenever we are about to read after write and vice versa.
a8abff749575 * empty log message * claus parents: 213 diff changeset	677	Two macros (__READING__ and __WRITING__) have been defined to be used before every
a8abff749575 * empty log message * claus parents: 213 diff changeset	678	fread/fgetc and fwrite/putc respectively.
1295 83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	679
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	680	[author:]
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	681	Claus Gittinger
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	682	Stefan Vogel (many, many fixes ...)
1295 83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	683
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	684	[see also:]
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	685	FileStream Socket PipeStream
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	686	Filename OperatingSystem
22 847106305963 * empty log message * claus parents: 12 diff changeset	687	"
847106305963 * empty log message * claus parents: 12 diff changeset	688	! !
847106305963 * empty log message * claus parents: 12 diff changeset	689
2045 1ad17ca6520f fall back to super>>nextPutLine: if argument is not a string. Claus Gittinger <cg@exept.de> parents: 2044 diff changeset	690	!ExternalStream class methodsFor:'initialization'!
1 a27a279701f8 Initial revision claus parents: diff changeset	691
a27a279701f8 Initial revision claus parents: diff changeset	692	initialize
593 19d568779cf7 moved StreamErrorSignal into Stream; Claus Gittinger <cg@exept.de> parents: 583 diff changeset	693	OpenErrorSignal isNil ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	694	OpenErrorSignal := StreamErrorSignal newSignalMayProceed:true.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	695	OpenErrorSignal nameClass:self message:#openErrorSignal.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	696	OpenErrorSignal notifierString:'open error'.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	697
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	698	InvalidReadSignal := ReadErrorSignal newSignalMayProceed:false.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	699	InvalidReadSignal nameClass:self message:#invalidReadSignal.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	700	InvalidReadSignal notifierString:'read error'.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	701
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	702	InvalidWriteSignal := WriteErrorSignal newSignalMayProceed:false.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	703	InvalidWriteSignal nameClass:self message:#invalidWriteSignal.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	704	InvalidWriteSignal notifierString:'write error'.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	705
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	706	InvalidModeSignal := StreamErrorSignal newSignalMayProceed:false.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	707	InvalidModeSignal nameClass:self message:#invalidModeSignal.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	708	InvalidModeSignal notifierString:'binary/text mode mismatch'.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	709
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	710	InvalidOperationSignal := StreamErrorSignal newSignalMayProceed:false.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	711	InvalidOperationSignal nameClass:self message:#invalidOperationSignal.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	712	InvalidOperationSignal notifierString:'unsupported file operation'.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	713
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	714	StreamNotOpenSignal := StreamErrorSignal newSignalMayProceed:false.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	715	StreamNotOpenSignal nameClass:self message:#streamNotOpenSignal.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	716	StreamNotOpenSignal notifierString:'stream is not open'.
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	717	].
514c749165c3 * empty log message * claus parents: 108 diff changeset	718
31 75f2b9f78be2 * empty log message * claus parents: 25 diff changeset	719	Lobby isNil ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	720	Lobby := Registry new.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	721
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	722	"want to get informed when returning from snapshot"
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	723	ObjectMemory addDependent:self
1 a27a279701f8 Initial revision claus parents: diff changeset	724	]
a27a279701f8 Initial revision claus parents: diff changeset	725	!
a27a279701f8 Initial revision claus parents: diff changeset	726
a27a279701f8 Initial revision claus parents: diff changeset	727	reOpenFiles
a27a279701f8 Initial revision claus parents: diff changeset	728	"reopen all files (if possible) after a snapShot load"
a27a279701f8 Initial revision claus parents: diff changeset	729
301 35e40a6fc72b * empty log message * claus parents: 269 diff changeset	730	Lobby do:[:aFileStream \|
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	731	aFileStream reOpen
1 a27a279701f8 Initial revision claus parents: diff changeset	732	]
a27a279701f8 Initial revision claus parents: diff changeset	733	!
a27a279701f8 Initial revision claus parents: diff changeset	734
1469 570ef7f8667b checkin from browser Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	735	update:something with:aParameter from:changedObject
1 a27a279701f8 Initial revision claus parents: diff changeset	736	"have to reopen files when returning from snapshot"
a27a279701f8 Initial revision claus parents: diff changeset	737
a27a279701f8 Initial revision claus parents: diff changeset	738	something == #returnFromSnapshot ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	739	self reOpenFiles
1 a27a279701f8 Initial revision claus parents: diff changeset	740	]
1469 570ef7f8667b checkin from browser Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	741
570ef7f8667b checkin from browser Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	742	"Created: 15.6.1996 / 15:19:59 / cg"
1 a27a279701f8 Initial revision claus parents: diff changeset	743	! !
a27a279701f8 Initial revision claus parents: diff changeset	744
2045 1ad17ca6520f fall back to super>>nextPutLine: if argument is not a string. Claus Gittinger <cg@exept.de> parents: 2044 diff changeset	745	!ExternalStream class methodsFor:'instance creation'!
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	746
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	747	forFileDescriptor:aFileDescriptor mode:mode
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	748	\|newStream\|
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	749
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	750	newStream := self basicNew.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	751	newStream text; buffered:true; useCRLF:false; clearEOF.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	752	^ newStream connectTo:aFileDescriptor withMode:mode
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	753
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	754	"this will probably fail (15 is a random FD):
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	755
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	756	\|s\|
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	757
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	758	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	759	s next.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	760	"
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	761
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	762	"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	763	"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	764	!
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	765
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	766	forReadWriteToFileDescriptor:aFileDescriptor
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	767	^ self forFileDescriptor:aFileDescriptor mode:'r+'
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	768
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	769	"this will probably fail (15 is a random FD):
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	770
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	771	\|s\|
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	772
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	773	s := ExternalStream forReadWriteToFileDescriptor:15.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	774	s next.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	775	"
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	776
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	777	"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	778	"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	779	!
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	780
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	781	forReadingFromFileDescriptor:aFileDescriptor
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	782	^ self forFileDescriptor:aFileDescriptor mode:'r'
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	783
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	784	"this will probably fail (15 is a random FD):
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	785
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	786	\|s\|
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	787
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	788	s := ExternalStream forReadingFromFileDescriptor:15.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	789	s next.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	790	"
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	791
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	792	"
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	793	\|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	794
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	795	'create OS pipe ...'.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	796
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	797	pipe := OperatingSystem makePipe.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	798	readFd := pipe at:1.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	799	writeFd := pipe at:2.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	800
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	801	'connect Smalltalk streams ...'.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	802
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	803	rs := ExternalStream forReadingFromFileDescriptor:readFd.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	804	ws := ExternalStream forWritingToFileDescriptor:writeFd.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	805
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	806	'read ...'.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	807	[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	808	1 to:10 do:[:i \|
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	809	Transcript showCR:rs nextLine
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	810	].
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	811	rs close.
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	812	] forkAt:7.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	813
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	814	'write ...'.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	815	[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	816	1 to:10 do:[:i \|
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	817	ws nextPutAll:'hello world '; nextPutAll:i printString; cr
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	818	].
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	819	ws close.
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	820	] fork.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	821
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	822	"
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	823
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	824	"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	825	"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	826	!
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	827
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	828	forWritingToFileDescriptor:aFileDescriptor
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	829	^ self forFileDescriptor:aFileDescriptor mode:'w'
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	830
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	831	"this will probably fail (15 is a random FD):
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	832
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	833	\|s\|
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	834
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	835	s := ExternalStream forWritingToFileDescriptor:15.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	836	s binary.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	837	s nextPut:1.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	838	"
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	839
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	840	"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	841	"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	842	!
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	843
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	844	makePipe
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	845	"return an array with two streams - the first one for reading, the second
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	846	for writing. This is the higher level equivalent of OperatingSystem>>makePipe."
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	847
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	848	\|pipe rs ws\|
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	849
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	850	pipe := OperatingSystem makePipe.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	851
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	852	pipe notNil ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	853	rs := self forReadingFromFileDescriptor:(pipe at:1).
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	854	ws := self forWritingToFileDescriptor:(pipe at:2).
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	855	^ 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	856	].
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	857	^ nil
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	858
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	859	"
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	860	\|pipe rs ws\|
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	861
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	862	pipe := ExternalStream makePipe.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	863	rs := pipe at:1.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	864	ws := pipe at:2.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	865
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	866	'read ...'.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	867	[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	868	1 to:10 do:[:i \|
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	869	Transcript showCR:rs nextLine
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	870	].
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	871	rs close.
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	872	] forkAt:7.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	873
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	874	'write ...'.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	875	[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	876	1 to:10 do:[:i \|
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	877	ws nextPutAll:'hello world '; nextPutAll:i printString; cr
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	878	].
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	879	ws close.
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	880	] fork.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	881	"
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	882
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	883	"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	884	!
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	885
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	886	new
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	887	\|newStream\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	888
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	889	newStream := self basicNew.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	890	newStream text; buffered:true; useCRLF:false; clearEOF.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	891	^ newStream
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	892	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	893
2045 1ad17ca6520f fall back to super>>nextPutLine: if argument is not a string. Claus Gittinger <cg@exept.de> parents: 2044 diff changeset	894	!ExternalStream class methodsFor:'Signal constants'!
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	895
1522 1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	896	inaccessibleSignal
1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	897	"ST-80 compatibility: return openErrorSignal"
1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	898
1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	899	^ self openErrorSignal
1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	900
1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	901	"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	902	!
1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	903
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	904	invalidModeSignal
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	905	"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	906	or binary-I/O with a text stream"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	907
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	908	^ InvalidModeSignal
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	909	!
514c749165c3 * empty log message * claus parents: 108 diff changeset	910
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	911	invalidOperationSignal
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	912	"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	913	I/O operation is attempted"
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	914
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	915	^ InvalidOperationSignal
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	916	!
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	917
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	918	invalidReadSignal
514c749165c3 * empty log message * claus parents: 108 diff changeset	919	"return the signal raised when reading from writeonly streams"
514c749165c3 * empty log message * claus parents: 108 diff changeset	920
514c749165c3 * empty log message * claus parents: 108 diff changeset	921	^ InvalidReadSignal
514c749165c3 * empty log message * claus parents: 108 diff changeset	922	!
514c749165c3 * empty log message * claus parents: 108 diff changeset	923
514c749165c3 * empty log message * claus parents: 108 diff changeset	924	invalidWriteSignal
514c749165c3 * empty log message * claus parents: 108 diff changeset	925	"return the signal raised when writing to readonly streams"
514c749165c3 * empty log message * claus parents: 108 diff changeset	926
514c749165c3 * empty log message * claus parents: 108 diff changeset	927	^ InvalidWriteSignal
514c749165c3 * empty log message * claus parents: 108 diff changeset	928	!
514c749165c3 * empty log message * claus parents: 108 diff changeset	929
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	930	openErrorSignal
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	931	"return the signal raised when a file open failed"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	932
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	933	^ OpenErrorSignal
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	934	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	935
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	936	streamNotOpenSignal
514c749165c3 * empty log message * claus parents: 108 diff changeset	937	"return the signal raised on I/O with closed streams"
514c749165c3 * empty log message * claus parents: 108 diff changeset	938
514c749165c3 * empty log message * claus parents: 108 diff changeset	939	^ StreamNotOpenSignal
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	940	! !
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	941
2045 1ad17ca6520f fall back to super>>nextPutLine: if argument is not a string. Claus Gittinger <cg@exept.de> parents: 2044 diff changeset	942	!ExternalStream class methodsFor:'error handling'!
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	943
0c73b48551ac * empty log message * claus parents: 88 diff changeset	944	lastErrorNumber
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	945	"return the errno of the last error"
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	946
0c73b48551ac * empty log message * claus parents: 88 diff changeset	947	^ LastErrorNumber
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	948
514c749165c3 * empty log message * claus parents: 108 diff changeset	949	"
514c749165c3 * empty log message * claus parents: 108 diff changeset	950	ExternalStream lastErrorNumber
514c749165c3 * empty log message * claus parents: 108 diff changeset	951	"
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	952	!
0c73b48551ac * empty log message * claus parents: 88 diff changeset	953
0c73b48551ac * empty log message * claus parents: 88 diff changeset	954	lastErrorString
0c73b48551ac * empty log message * claus parents: 88 diff changeset	955	"return a message string describing the last error"
0c73b48551ac * empty log message * claus parents: 88 diff changeset	956
0c73b48551ac * empty log message * claus parents: 88 diff changeset	957	^ OperatingSystem errorTextForNumber:LastErrorNumber
0c73b48551ac * empty log message * claus parents: 88 diff changeset	958
0c73b48551ac * empty log message * claus parents: 88 diff changeset	959	"
0c73b48551ac * empty log message * claus parents: 88 diff changeset	960	ExternalStream lastErrorString
0c73b48551ac * empty log message * claus parents: 88 diff changeset	961	"
0c73b48551ac * empty log message * claus parents: 88 diff changeset	962	! !
0c73b48551ac * empty log message * claus parents: 88 diff changeset	963
1 a27a279701f8 Initial revision claus parents: diff changeset	964	!ExternalStream methodsFor:'accessing'!
a27a279701f8 Initial revision claus parents: diff changeset	965
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	966	binary
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	967	"switch to binary mode - default is text"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	968
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	969	binary := true
1 a27a279701f8 Initial revision claus parents: diff changeset	970	!
a27a279701f8 Initial revision claus parents: diff changeset	971
a27a279701f8 Initial revision claus parents: diff changeset	972	buffered:aBoolean
10 4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	973	"turn buffering on or off - default is on"
1 a27a279701f8 Initial revision claus parents: diff changeset	974
10 4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	975	buffered := aBoolean
1 a27a279701f8 Initial revision claus parents: diff changeset	976	!
a27a279701f8 Initial revision claus parents: diff changeset	977
a27a279701f8 Initial revision claus parents: diff changeset	978	contents
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	979	"return the contents of the file from the current position up-to
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	980	the end. If the stream is in binary mode, a ByteArray containing
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	981	the byte values is returned.
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	982	In text-mode, a collection of strings, each representing one line,
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	983	is returned."
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	984
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	985	\|text l chunks sizes chunk byteCount cnt bytes offset\|
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	986
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	987	binary ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	988	"adding to a ByteArray produces quadratic time-space
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	989	behavior - therefore we allocate chunks, and concatenate them
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	990	at the end."
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	991
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	992	chunks := OrderedCollection new.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	993	sizes := OrderedCollection new.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	994	byteCount := 0.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	995	[self atEnd] whileFalse:[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	996	chunk := ByteArray uninitializedNew:4096.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	997	cnt := self nextBytes:(chunk size) into:chunk.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	998	cnt notNil ifTrue:[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	999	chunks add:chunk.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1000	sizes add:cnt.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1001	byteCount := byteCount + cnt
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1002	]
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1003	].
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1004
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1005	"now, create one big ByteArray"
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1006	bytes := ByteArray uninitializedNew:byteCount.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1007	offset := 1.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1008	1 to:chunks size do:[:index \|
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1009	chunk := chunks at:index.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1010	cnt := sizes at:index.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1011	bytes replaceFrom:offset to:(offset + cnt - 1) with:chunk.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1012	offset := offset + cnt
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1013	].
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1014	^ bytes
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1015	].
1 a27a279701f8 Initial revision claus parents: diff changeset	1016
244 9faa2da0650a Text <-> StringCollection claus parents: 223 diff changeset	1017	text := StringCollection new.
1 a27a279701f8 Initial revision claus parents: diff changeset	1018	[self atEnd] whileFalse:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1019	l := self nextLine.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1020	l isNil ifTrue:[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1021	^ text
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1022	].
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1023	text add:l
1 a27a279701f8 Initial revision claus parents: diff changeset	1024	].
a27a279701f8 Initial revision claus parents: diff changeset	1025	^ text
a27a279701f8 Initial revision claus parents: diff changeset	1026	!
a27a279701f8 Initial revision claus parents: diff changeset	1027
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1028	contentsOfEntireFile
1522 1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	1029	"ST-80 compatibility: return contents as String"
1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	1030
1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	1031	^ self contents asString.
1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	1032
1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	1033	"Modified: 3.7.1996 / 13:22:16 / stefan"
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1034	!
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1035
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1036	contentsSpecies
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1037	"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	1038	(such as upTo)"
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1039
514c749165c3 * empty log message * claus parents: 108 diff changeset	1040	binary ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1041	^ ByteArray
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1042	].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1043	^ String
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1044	!
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1045
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1046	fileDescriptor
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1047	"return the fileDescriptor of the receiver -
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1048	notice: this one returns the underlying OSs fileDescriptor -
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1049	this may not be available on all platforms (i.e. non unix systems)."
1 a27a279701f8 Initial revision claus parents: diff changeset	1050
a27a279701f8 Initial revision claus parents: diff changeset	1051	%{ /* NOCONTEXT */
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1052	#ifdef WIN32
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1053	RETURN (nil);
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1054	#else
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1055	FILEPOINTER f;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1056	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1057
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1058	if ((fp = __INST(filePointer)) != nil) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1059	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	1060	RETURN ( __MKINT(fileno(f)) );
1 a27a279701f8 Initial revision claus parents: diff changeset	1061	}
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1062	#endif
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	1063	%}.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1064	^ self errorNotOpen
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1065	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1066
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1067	filePointer
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1068	"return the filePointer of the receiver -
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1069	notice: for portability stdio is used; this means you will get
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1070	a FILE * - not a fileDescriptor.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1071	(what you really get is a corresponding integer).
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1072	You cannot do much with the returned value
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1073	- except passing it to a primitive, for example."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1074
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1075	^ filePointer
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1076	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1077
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1078	readonly
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1079	"set access mode to readonly"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1080
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1081	mode := #readonly
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1082	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1083
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1084	readwrite
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1085	"set access mode to readwrite"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1086
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1087	mode := #readwrite
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1088	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1089
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1090	text
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1091	"switch to text mode - default is text"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1092
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1093	binary := false
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1094	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1095
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1096	useCRLF:aBoolean
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1097	"turn on or off CRLF sending (instead of LF only) - default is off"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1098
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1099	useCRLF := aBoolean
1 a27a279701f8 Initial revision claus parents: diff changeset	1100	!
a27a279701f8 Initial revision claus parents: diff changeset	1101
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1102	writeonly
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1103	"set access mode to writeonly"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1104
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1105	mode := #writeonly
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1106	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1107
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1108	!ExternalStream methodsFor:'error handling'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1109
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1110	argumentMustBeCharacter
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1111	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1112
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1113	"report an error, that the argument must be a character"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1114
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1115	^ self error:'argument must be a character'
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1116	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1117
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1118	argumentMustBeInteger
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1119	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1120
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1121	"report an error, that the argument must be an integer"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1122
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1123	^ self error:'argument must be an integer'
77 6c38ca59927f * empty log message * claus parents: 68 diff changeset	1124	!
6c38ca59927f * empty log message * claus parents: 68 diff changeset	1125
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1126	argumentMustBeString
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1127	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1128
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1129	"report an error, that the argument must be a string"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1130
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1131	^ self error:'argument must be a string'
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1132	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1133
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1134	errorBinary
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1135	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1136
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1137	"report an error, that the stream is in binary mode"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1138
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1139	^ InvalidModeSignal
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1140	raiseRequestWith:self
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1141	errorString:(self class name , ' is in binary mode')
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1142	in:thisContext sender
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1143	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1144
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1145	errorNotBinary
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1146	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1147
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1148	"report an error, that the stream is not in binary mode"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1149
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1150	^ InvalidModeSignal
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1151	raiseRequestWith:self
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1152	errorString:(self class name , ' is not in binary mode')
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1153	in:thisContext sender
1 a27a279701f8 Initial revision claus parents: diff changeset	1154	!
a27a279701f8 Initial revision claus parents: diff changeset	1155
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1156	errorNotBuffered
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1157	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1158
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1159	"report an error, that the stream is not in buffered mode"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1160
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1161	^ StreamErrorSignal
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1162	raiseRequestWith:self
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1163	errorString:(self class name , ' is unbuffered - operation not allowed')
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1164	in:thisContext sender
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1165	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1166
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1167	errorNotOpen
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1168	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1169
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1170	"report an error, that the stream has not been opened"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1171
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1172	^ StreamNotOpenSignal
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1173	raiseRequestWith:self
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1174	errorString:(self class name , ' not open')
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1175	in:thisContext sender
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1176	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1177
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1178	errorOpen
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1179	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1180
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1181	"report an error, that the stream is already opened"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1182
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1183	^ OpenErrorSignal
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1184	raiseRequestWith:self
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1185	errorString:(self class name , ' is already open')
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1186	in:thisContext sender
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1187	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1188
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1189	errorReadOnly
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1190	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1191
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1192	"report an error, that the stream is a readOnly stream"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1193
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1194	^ InvalidWriteSignal
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1195	raiseRequestWith:self
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1196	errorString:(self class name , ' is readonly')
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1197	in:thisContext sender
612 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
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1200	errorUnsupportedOperation
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1201	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1202
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1203	"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	1204
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1205	^ InvalidOperationSignal
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1206	raiseRequestWith:self
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1207	errorString:'unsupported operation'
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1208	in:thisContext sender
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1209	!
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1210
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1211	errorWriteOnly
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1212	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1213
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1214	"report an error, that the stream is a writeOnly stream"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1215
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1216	^ InvalidReadSignal
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1217	raiseRequestWith:self
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1218	errorString:(self class name , ' is writeonly')
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1219	in:thisContext sender
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1220	!
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1221
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1222	ioError
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1223	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1224
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1225	"report an error, that some I/O error occured"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1226
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1227	^ StreamErrorSignal
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1228	raiseRequestWith:self
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1229	errorString:('I/O error: ' , self lastErrorString)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1230	in:thisContext sender
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1231	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1232
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1233	lastErrorNumber
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1234	"return the last error"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1235
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1236	^ lastErrorNumber
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1237	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1238
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1239	lastErrorString
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1240	"return a message string describing the last error"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1241
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1242	(lastErrorNumber isNil or:[lastErrorNumber == 0]) ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1243	^ 'I/O error'
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1244	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1245	^ OperatingSystem errorTextForNumber:lastErrorNumber
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1246	!
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1247
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1248	openError
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1249	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1250
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1251	"report an error, that the open failed"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1252
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1253	^ OpenErrorSignal
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1254	raiseRequestWith:self
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1255	errorString:('error on open: ' , self lastErrorString)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1256	in:thisContext sender
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1257	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1258
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1259	readError
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1260	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1261
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1262	"report an error, that some read error occured"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1263
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1264	^ ReadErrorSignal
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1265	raiseRequestWith:self
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1266	errorString:('read error: ' , self lastErrorString)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1267	in:thisContext sender
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1268	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1269
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1270	writeError
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1271	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	1272
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1273	"report an error, that some write error occured"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1274
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1275	^ WriteErrorSignal
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1276	raiseRequestWith:self
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1277	errorString:('write error: ' , self lastErrorString)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1278	in:thisContext sender
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1279	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1280
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1281	!ExternalStream methodsFor:'instance release'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1282
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1283	closeFile
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1284	"low level close - may be redefined in subclasses"
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1285
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	1286	%{
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	1287	OBJ fp;
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1288
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1289	if ((fp = __INST(filePointer)) != nil) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1290	__INST(filePointer) = nil;
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1291	#if defined(WIN32) && defined(NO_STDIO)
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1292	CloseHandle(__HANDLEVal(fp));
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1293	#else
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1294	__BEGIN_INTERRUPTABLE__
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1295	fclose(__FILEVal(fp));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1296	__END_INTERRUPTABLE__
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1297	#endif
10 4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	1298	}
4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	1299	%}
4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	1300	!
4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	1301
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1302	disposed
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1303	"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	1304
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1305	self closeFile
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1306	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1307
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1308	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	1309	"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	1310	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	1311	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	1312
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1313	%{ /* NOCONTEXT */
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1314
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1315	#ifndef WIN32
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1316	FILEPOINTER f;
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1317	OBJ fp;
2765 a56668774ad7 more alpha64 fixes Claus Gittinger <cg@exept.de> parents: 2764 diff changeset	1318	FILE *fdopen();
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1319
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1320	if (__isSmallInteger(anInteger) &&
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1321	__isString(openMode) &&
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1322	(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	1323	) {
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1324	__PROTECT__(self);
2765 a56668774ad7 more alpha64 fixes Claus Gittinger <cg@exept.de> parents: 2764 diff changeset	1325	fp = __MKOBJ(f);
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1326	__UNPROTECT__(self);
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1327	__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	1328	RETURN (self);
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1329	}
2613 d0c8595f910d * empty log message * Claus Gittinger <cg@exept.de> parents: 2596 diff changeset	1330	#endif /* not WIN32 */
d0c8595f910d * empty log message * Claus Gittinger <cg@exept.de> parents: 2596 diff changeset	1331	%}.
d0c8595f910d * empty log message * Claus Gittinger <cg@exept.de> parents: 2596 diff changeset	1332	^ self primitiveFailed
d0c8595f910d * empty log message * Claus Gittinger <cg@exept.de> parents: 2596 diff changeset	1333	!
d0c8595f910d * empty log message * Claus Gittinger <cg@exept.de> parents: 2596 diff changeset	1334
d0c8595f910d * empty log message * Claus Gittinger <cg@exept.de> parents: 2596 diff changeset	1335	setFileHandle:aHandle mode:openMode
d0c8595f910d * empty log message * Claus Gittinger <cg@exept.de> parents: 2596 diff changeset	1336	"special Windows entry: setup for a given handle (in contrast to an fd)"
d0c8595f910d * empty log message * Claus Gittinger <cg@exept.de> parents: 2596 diff changeset	1337
d0c8595f910d * empty log message * Claus Gittinger <cg@exept.de> parents: 2596 diff changeset	1338	%{ /* NOCONTEXT */
d0c8595f910d * empty log message * Claus Gittinger <cg@exept.de> parents: 2596 diff changeset	1339	#ifdef xxWIN32
d0c8595f910d * empty log message * Claus Gittinger <cg@exept.de> parents: 2596 diff changeset	1340	FILEPOINTER f;
d0c8595f910d * empty log message * Claus Gittinger <cg@exept.de> parents: 2596 diff changeset	1341
d0c8595f910d * empty log message * Claus Gittinger <cg@exept.de> parents: 2596 diff changeset	1342	if (__isExternalAddress(aHandle)) {
d0c8595f910d * empty log message * Claus Gittinger <cg@exept.de> parents: 2596 diff changeset	1343	HFILE hFile = (HFILE)(__externalAddressVal(aHandle));
d0c8595f910d * empty log message * Claus Gittinger <cg@exept.de> parents: 2596 diff changeset	1344
d0c8595f910d * empty log message * Claus Gittinger <cg@exept.de> parents: 2596 diff changeset	1345	printf("stream handle set to %x\n", hFile);
d0c8595f910d * empty log message * Claus Gittinger <cg@exept.de> parents: 2596 diff changeset	1346	/*
d0c8595f910d * empty log message * Claus Gittinger <cg@exept.de> parents: 2596 diff changeset	1347	* mhmh - how can we fdopen a file to a given HANDLE ?
d0c8595f910d * empty log message * Claus Gittinger <cg@exept.de> parents: 2596 diff changeset	1348	*/
d0c8595f910d * empty log message * Claus Gittinger <cg@exept.de> parents: 2596 diff changeset	1349	}
d0c8595f910d * empty log message * Claus Gittinger <cg@exept.de> parents: 2596 diff changeset	1350	#endif /* WIN32 */
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1351	%}.
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1352	^ self primitiveFailed
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1353	!
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1354
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1355	setFilePointer:something
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1356	"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	1357	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	1358	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	1359
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1360	filePointer := something
1 a27a279701f8 Initial revision claus parents: diff changeset	1361	!
a27a279701f8 Initial revision claus parents: diff changeset	1362
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1363	shallowCopyForFinalization
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1364	"return a copy for finalization-registration;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1365	since all we need at finalization time is the fileDescriptor,
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1366	a cheaper copy is possible."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1367
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1368	^ self class basicNew setFilePointer:filePointer
1 a27a279701f8 Initial revision claus parents: diff changeset	1369	!
a27a279701f8 Initial revision claus parents: diff changeset	1370
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1371	shutDown
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1372	"close the stream - added for protocol compatibility with PipeStream.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1373	see comment there"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1374
1642 91c6860f1c9d when shutting down, also tell the Lobby Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	1375	filePointer isNil ifTrue:[^ self].
91c6860f1c9d when shutting down, also tell the Lobby Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	1376	Lobby unregister:self.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1377	self closeFile
1642 91c6860f1c9d when shutting down, also tell the Lobby Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	1378
91c6860f1c9d when shutting down, also tell the Lobby Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	1379	"Modified: 30.8.1996 / 00:39:21 / cg"
1 a27a279701f8 Initial revision claus parents: diff changeset	1380	! !
a27a279701f8 Initial revision claus parents: diff changeset	1381
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1382	!ExternalStream methodsFor:'line reading/writing'!
1 a27a279701f8 Initial revision claus parents: diff changeset	1383
a27a279701f8 Initial revision claus parents: diff changeset	1384	nextLine
a27a279701f8 Initial revision claus parents: diff changeset	1385	"read the next line (characters up to newline).
a27a279701f8 Initial revision claus parents: diff changeset	1386	Return a string containing those characters excluding the newline.
a27a279701f8 Initial revision claus parents: diff changeset	1387	If the previous-to-last character is a cr, this is also removed,
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	1388	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	1389	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	1390
71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	1391	\|line\|
971 eb70f5674303 max lineLength (in nextLine) increased to 16k Claus Gittinger <cg@exept.de> parents: 933 diff changeset	1392
eb70f5674303 max lineLength (in nextLine) increased to 16k Claus Gittinger <cg@exept.de> parents: 933 diff changeset	1393	%{ /* STACK:17000 */
1 a27a279701f8 Initial revision claus parents: diff changeset	1394
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1395	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1396	int len, ret;
971 eb70f5674303 max lineLength (in nextLine) increased to 16k Claus Gittinger <cg@exept.de> parents: 933 diff changeset	1397	char buffer[16*1024];
521 70533ec40482 use new MKSTRING_L if length is known (avoids a useless strlen) Claus Gittinger <cg@exept.de> parents: 481 diff changeset	1398	char rslt, nextPtr, *limit;
22 847106305963 * empty log message * claus parents: 12 diff changeset	1399	int fd, ch;
1068 92fdcccf12a3 alles MIST - zurueck zu 1.89 und NOCONTEXT entfernt Claus Gittinger <cg@exept.de> parents: 1067 diff changeset	1400	int _buffered;
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	1401	OBJ fp;
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	1402	int lineTooLong = 0;
1 a27a279701f8 Initial revision claus parents: diff changeset	1403
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1404	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1405	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1406	&& (__INST(mode) != @symbol(writeonly))
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1407	&& (__INST(binary) != true)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1408	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1409	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1410	buffer[0] = '\0';
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1411
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1412	_buffered = (__INST(buffered) == true);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1413	if (_buffered) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1414	__READING__(f);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1415	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1416
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1417	rslt = nextPtr = buffer;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1418	limit = buffer + sizeof(buffer) - 2;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1419
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1420	for (;;) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1421	__READBYTE__(ret, f, nextPtr, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1422	if (ret <= 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1423	if (nextPtr == buffer)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1424	rslt = NULL;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1425	if (ret == 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1426	__INST(hitEOF) = true;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1427	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1428	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1429	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1430	goto err;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1431	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1432	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1433	if (*nextPtr == '\n') {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1434	*nextPtr = '\0';
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1435	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1436	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1437
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1438	nextPtr++;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1439	if (nextPtr >= limit) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1440	*nextPtr = '\0';
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1441	lineTooLong = 1;
2293 aec11c3274cc * empty log message * Claus Gittinger <cg@exept.de> parents: 2264 diff changeset	1442	if (@global(InfoPrinting) == true) {
aec11c3274cc * empty log message * Claus Gittinger <cg@exept.de> parents: 2264 diff changeset	1443	fprintf(stderr, "ExtStream [warning]: line truncated in nextLine\n");
aec11c3274cc * empty log message * Claus Gittinger <cg@exept.de> parents: 2264 diff changeset	1444	}
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1445	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1446	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1447	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1448
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1449	if (rslt != NULL) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1450	len = nextPtr-buffer;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1451
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1452	if (__INST(position) != nil) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1453	__INST(position) = __MKSMALLINT(__intVal(__INST(position)) + len);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1454	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1455	/* remove EOL character */
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1456	if (len != 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1457	if (buffer[len-1] == '\n') {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1458	buffer[--len] = '\0';
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1459	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1460	if ((len != 0) && (buffer[len-1] == '\r')) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1461	buffer[--len] = '\0';
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1462	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1463	}
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	1464	line = __MKSTRING_L(buffer, len);
71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	1465	if (! lineTooLong) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1466	RETURN ( line );
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	1467	}
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1468	}
1 a27a279701f8 Initial revision claus parents: diff changeset	1469	}
1478 aae07192b7d1 labels in empty statements need a semi Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	1470	err: ;
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1471	%}.
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	1472	line notNil ifTrue:[
71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	1473	"/ the line as read is longer than 16k characters (boy - what a line)
71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	1474	"/ The exception could be handled by reading more and returning the
2293 aec11c3274cc * empty log message * Claus Gittinger <cg@exept.de> parents: 2264 diff changeset	1475	"/ concatenation in your exception handler (the receiver and the partial
aec11c3274cc * empty log message * Claus Gittinger <cg@exept.de> parents: 2264 diff changeset	1476	"/ line are passed as parameter)
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	1477
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1478	^ ReadErrorSignal
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1479	raiseRequestWith:(Array with:self with:line)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1480	errorString:('line too long read error')
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	1481	].
71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	1482
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	1483	hitEOF ifTrue:[^ self pastEnd].
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1484	lastErrorNumber notNil ifTrue:[^ self readError].
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1485	filePointer isNil ifTrue:[^ self errorNotOpen].
1 a27a279701f8 Initial revision claus parents: diff changeset	1486	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	1487	^ self errorBinary
1 a27a279701f8 Initial revision claus parents: diff changeset	1488	!
a27a279701f8 Initial revision claus parents: diff changeset	1489
a27a279701f8 Initial revision claus parents: diff changeset	1490	nextPutLine:aString
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1491	"write the characters in aString and append a newline or CRLF if useCRLF is set"
1 a27a279701f8 Initial revision claus parents: diff changeset	1492
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	1493	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1494	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1495	int len, cnt, len1, _buffered;
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	1496	OBJ pos, fp;
537 dc4dad8a5ddd many ExtStream rewrites - has to be reevaluated in all platforms Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1497	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	1498	int o_offs;
1 a27a279701f8 Initial revision claus parents: diff changeset	1499
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1500	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1501	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1502	&& (__INST(mode) != @symbol(readonly))
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1503	&& (__INST(binary) != true)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1504	&& __isString(aString)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1505	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1506	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1507	len = __stringSize(aString);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1508
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1509	if (_buffered = (__INST(buffered) == true)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1510	__WRITING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1511	}
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1512	#ifdef BUGGY
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1513	__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	1514	#else
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1515	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	1516	__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	1517	#endif
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1518	if (cnt == len) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1519	len1 = len;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1520
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1521	if (__INST(useCRLF) == true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1522	cp = "\r\n"; len = 2;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1523	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1524	cp = "\n"; len = 1;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1525	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1526	__WRITEBYTES__(cnt, f, cp, len, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1527
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1528	if (cnt > 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1529	pos = __INST(position);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1530	if (pos != nil) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1531	__INST(position) = __MKSMALLINT(__intVal(pos)+len1+cnt);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1532	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1533	RETURN ( self );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1534	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1535	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1536	__INST(lastErrorNumber) = __MKSMALLINT(errno);
1 a27a279701f8 Initial revision claus parents: diff changeset	1537	}
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1538	%}.
2045 1ad17ca6520f fall back to super>>nextPutLine: if argument is not a string. Claus Gittinger <cg@exept.de> parents: 2044 diff changeset	1539	super nextPutLine:aString.
1 a27a279701f8 Initial revision claus parents: diff changeset	1540	!
a27a279701f8 Initial revision claus parents: diff changeset	1541
a27a279701f8 Initial revision claus parents: diff changeset	1542	nextPutLinesFrom:aStream upToLineStartingWith:aStringOrNil
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	1543	"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	1544	and append all lines to self.
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1545	Can be used to copy/create large files or copy from a pipe/socket.
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	1546
22 847106305963 * empty log message * claus parents: 12 diff changeset	1547	If aStringOrNil is nil or not matched, copy preceeds to the end.
847106305963 * empty log message * claus parents: 12 diff changeset	1548	(this allows for example to read a Socket and transfer the data quickly
847106305963 * empty log message * claus parents: 12 diff changeset	1549	into a file - without creating zillions of temporary strings)"
1 a27a279701f8 Initial revision claus parents: diff changeset	1550
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1551	\|srcFilePointer readError line\|
1 a27a279701f8 Initial revision claus parents: diff changeset	1552
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	1553	(mode == #readonly) ifTrue:[self errorReadOnly. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	1554	filePointer isNil ifTrue:[self errorNotOpen. ^ self].
1 a27a279701f8 Initial revision claus parents: diff changeset	1555	srcFilePointer := aStream filePointer.
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	1556	srcFilePointer isNil ifTrue:[aStream errorNotOpen. ^ self].
12 8e03bd717355 * empty log message * claus parents: 10 diff changeset	1557
8e03bd717355 * empty log message * claus parents: 10 diff changeset	1558	%{ /* STACK:2000 */
22 847106305963 * empty log message * claus parents: 12 diff changeset	1559
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1560	#ifndef NO_STDIO
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1561	FILEPOINTER dst;
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1562	FILEPOINTER src;
1 a27a279701f8 Initial revision claus parents: diff changeset	1563	char *matchString;
a27a279701f8 Initial revision claus parents: diff changeset	1564	int matchLen = 0;
12 8e03bd717355 * empty log message * claus parents: 10 diff changeset	1565	char buffer[1024];
1 a27a279701f8 Initial revision claus parents: diff changeset	1566
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1567	__INST(lastErrorNumber) = nil;
249 810798c5c2e5 . claus parents: 244 diff changeset	1568	if (__isSmallInteger(srcFilePointer)) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1569	if ((aStringOrNil == nil) \|\| __isString(aStringOrNil)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1570	if (aStringOrNil != nil) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1571	matchString = (char *) __stringVal(aStringOrNil);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1572	matchLen = __stringSize(aStringOrNil);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1573	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1574	dst = __FILEVal(__INST(filePointer));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1575	src = __FILEVal(srcFilePointer);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1576	__BEGIN_INTERRUPTABLE__
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1577	errno = 0;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1578
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1579	__WRITING__(dst)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1580
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1581	for (;;) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1582	if (fgets(buffer, sizeof(buffer)-1, src) == NULL) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1583	if (ferror(src)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1584	readError = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1585	__END_INTERRUPTABLE__
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1586	goto err;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1587	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1588	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1589	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1590	if (fputs(buffer, dst) == EOF) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1591	if (ferror(dst)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1592	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1593	__END_INTERRUPTABLE__
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1594	goto err;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1595	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1596	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1597	}
12 8e03bd717355 * empty log message * claus parents: 10 diff changeset	1598	#ifndef OLD
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1599	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	1600	FFLUSH(dst);
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1601	}
12 8e03bd717355 * empty log message * claus parents: 10 diff changeset	1602	#endif
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1603	if (matchLen) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1604	if (strncmp(matchString, buffer, matchLen) == 0)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1605	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1606	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1607	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1608	__END_INTERRUPTABLE__
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1609	__INST(position) = nil;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1610	RETURN (self);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1611	}
1 a27a279701f8 Initial revision claus parents: diff changeset	1612	}
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1613	err: ;
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1614	#endif /* ! NO_STDIO */
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1615	%}.
514c749165c3 * empty log message * claus parents: 108 diff changeset	1616	readError ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1617	aStream setLastErrorNumber:readError.
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	1618	aStream readError.
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	1619	^ self
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1620	].
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	1621	lastErrorNumber notNil ifTrue:[self writeError. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	1622	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	1623
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1624	"
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1625	argument error or unimplemented; try it linewise
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1626	"
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1627	[aStream atEnd] whileFalse:[
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1628	line := aStream nextLine.
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1629	line isNil ifTrue:[
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1630	^ self.
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1631	].
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1632	self nextPutLine:line.
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1633	(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	1634	^ self
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1635	]
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1636	].
1 a27a279701f8 Initial revision claus parents: diff changeset	1637	!
a27a279701f8 Initial revision claus parents: diff changeset	1638
a27a279701f8 Initial revision claus parents: diff changeset	1639	peekForLineStartingWith:aString
a27a279701f8 Initial revision claus parents: diff changeset	1640	"read ahead for next line starting with aString;
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1641	return the line-string if found, or nil if EOF is encountered.
514c749165c3 * empty log message * claus parents: 108 diff changeset	1642	If matched, not advance position behond that line
514c749165c3 * empty log message * claus parents: 108 diff changeset	1643	i.e. nextLine will read the matched line.
514c749165c3 * empty log message * claus parents: 108 diff changeset	1644	If not matched, reposition to original position for firther reading."
1 a27a279701f8 Initial revision claus parents: diff changeset	1645
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1646	\|firstPos lastPos line\|
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1647
1 a27a279701f8 Initial revision claus parents: diff changeset	1648	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
a27a279701f8 Initial revision claus parents: diff changeset	1649	filePointer isNil ifTrue:[^ self errorNotOpen].
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1650	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	1651	buffered ifFalse:[^ self errorNotBuffered].
12 8e03bd717355 * empty log message * claus parents: 10 diff changeset	1652
8e03bd717355 * empty log message * claus parents: 10 diff changeset	1653	%{ /* STACK: 2000 */
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1654	FILEPOINTER f;
1 a27a279701f8 Initial revision claus parents: diff changeset	1655	int l;
12 8e03bd717355 * empty log message * claus parents: 10 diff changeset	1656	char buffer[1024];
1 a27a279701f8 Initial revision claus parents: diff changeset	1657	char *cp;
a27a279701f8 Initial revision claus parents: diff changeset	1658	char *matchString;
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	1659	int firstpos = -1, lastpos;
1 a27a279701f8 Initial revision claus parents: diff changeset	1660
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1661	#ifndef NO_STDIO
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1662	__INST(lastErrorNumber) = nil;
54 06dbdeeed4f9 * empty log message * claus parents: 44 diff changeset	1663	if (__isString(aString)) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1664	matchString = (char *) __stringVal(aString);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1665	l = __stringSize(aString);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1666
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1667	f = __FILEVal(__INST(filePointer));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1668	__READING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1669
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1670	for (;;) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1671	lastpos = ftell(f);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1672	if (firstpos == -1) firstpos = lastpos;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1673
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1674	__BEGIN_INTERRUPTABLE__
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1675	do {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1676	cp = fgets(buffer, sizeof(buffer)-1, f);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1677	} while ((cp == NULL) && ferror(f) && (errno == EINTR) && (clearerr(f), 1));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1678	buffer[sizeof(buffer)-1] = '\0';
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1679	__END_INTERRUPTABLE__
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1680
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1681	if (cp == NULL) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1682	if (ferror(f)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1683	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1684	goto err;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1685	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1686	fseek(f, firstpos, SEEK_SET);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1687	RETURN (nil);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1688	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1689	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1690	if (strncmp(cp, matchString, l) == 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1691	fseek(f, lastpos, SEEK_SET);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1692	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1693	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1694	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1695	/* remove EOL character */
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1696	cp = buffer;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1697	while (cp && (cp != '\n')) cp++;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1698	*cp = '\0';
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1699	RETURN ( __MKSTRING(buffer) );
1 a27a279701f8 Initial revision claus parents: diff changeset	1700	}
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1701	err: ;
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1702	#endif
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1703	%}.
514c749165c3 * empty log message * claus parents: 108 diff changeset	1704	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	1705
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1706	"/ 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	1707
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1708	firstPos := self position.
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1709	[self atEnd] whileFalse:[
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1710	lastPos := self position.
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1711	line := self nextLine.
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1712	line isNil ifTrue:[
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1713	self position:firstPos.
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1714	^ nil
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1715	].
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1716	(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	1717	self position:lastPos.
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1718	^ line
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1719	]
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1720	].
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1721	self position:firstPos.
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1722	^ nil
1 a27a279701f8 Initial revision claus parents: diff changeset	1723	!
a27a279701f8 Initial revision claus parents: diff changeset	1724
a27a279701f8 Initial revision claus parents: diff changeset	1725	peekForLineStartingWithAny:aCollectionOfStrings
a27a279701f8 Initial revision claus parents: diff changeset	1726	"read ahead for next line starting with any of aCollectionOfStrings;
a27a279701f8 Initial revision claus parents: diff changeset	1727	return the index in aCollection if found, nil otherwise..
a27a279701f8 Initial revision claus parents: diff changeset	1728	If no match, do not change position; otherwise advance right before the
a27a279701f8 Initial revision claus parents: diff changeset	1729	matched line so that nextLine will return this line."
a27a279701f8 Initial revision claus parents: diff changeset	1730
a27a279701f8 Initial revision claus parents: diff changeset	1731	\|line startPos linePos index\|
a27a279701f8 Initial revision claus parents: diff changeset	1732
a27a279701f8 Initial revision claus parents: diff changeset	1733	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
a27a279701f8 Initial revision claus parents: diff changeset	1734	filePointer isNil ifTrue:[^ self errorNotOpen].
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1735	binary ifTrue:[^ self errorBinary].
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1736
1 a27a279701f8 Initial revision claus parents: diff changeset	1737	startPos := self position.
a27a279701f8 Initial revision claus parents: diff changeset	1738	[self atEnd] whileFalse:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1739	linePos := self position.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1740	line := self nextLine.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1741	line notNil ifTrue:[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1742	index := 1.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1743	aCollectionOfStrings do:[:prefix \|
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1744	(line startsWith:prefix) ifTrue:[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1745	self position:linePos.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1746	^ index
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1747	].
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1748	index := index + 1
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1749	]
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1750	]
1 a27a279701f8 Initial revision claus parents: diff changeset	1751	].
a27a279701f8 Initial revision claus parents: diff changeset	1752	self position:startPos.
a27a279701f8 Initial revision claus parents: diff changeset	1753	^ nil
a27a279701f8 Initial revision claus parents: diff changeset	1754	! !
a27a279701f8 Initial revision claus parents: diff changeset	1755
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1756	!ExternalStream methodsFor:'misc functions'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1757
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1758	async:aBoolean
779 0e41a665038a commentary Claus Gittinger <cg@exept.de> parents: 730 diff changeset	1759	"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	1760	the receiver will trigger an ioInterrupt.
779 0e41a665038a commentary Claus Gittinger <cg@exept.de> parents: 730 diff changeset	1761	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	1762	Notice:
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1763	not every OS supports this
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1764	- check with OS>>supportsIOInterrupts before using"
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	1765
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1766	\|fd\|
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1767
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1768	filePointer isNil ifTrue:[^ self errorNotOpen].
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	1769
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	1770	OperatingSystem supportsIOInterrupts ifFalse:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1771	^ self errorUnsupportedOperation
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	1772	].
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	1773
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	1774	fd := self fileDescriptor.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1775	aBoolean ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1776	^ OperatingSystem enableIOInterruptsOn:fd
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1777	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1778	^ OperatingSystem disableIOInterruptsOn:fd
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	1779
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	1780	"Modified: 11.1.1997 / 17:50:21 / cg"
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	1781	!
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1782
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1783	backStep
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1784	"step back one element -
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1785	redefined, since position is redefined here"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1786
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1787	self position:(self position - 1)
362 4131e87e79ec . claus parents: 360 diff changeset	1788	!
4131e87e79ec . claus parents: 360 diff changeset	1789
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1790	blocking:aBoolean
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1791	"set/clear the blocking attribute - if set (which is the default)
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1792	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	1793	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	1794	nil.
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	1795	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	1796	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	1797	in advance. However, the data must then be read using #nextBytes:
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	1798	methods, in order to avoid other (pasEnd) exceptions."
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	1799
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1800	filePointer isNil ifTrue:[^ self errorNotOpen].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1801	^ 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	1802
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	1803	"Modified: 11.1.1997 / 17:48:01 / cg"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1804	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1805
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1806	close
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1807	"close the stream - tell operating system"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1808
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1809	filePointer isNil ifTrue:[^ self].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1810	Lobby unregister:self.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1811	self closeFile.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1812	filePointer := nil
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1813	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1814
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1815	create
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1816	"create the stream
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1817	- this must be redefined in subclass"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1818
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1819	^ self subclassResponsibility
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1820	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1821
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1822	ioctl:ioctlNumber
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1823	"to provide a simple ioctl facility - an ioctl is performed
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1824	on the underlying file; no arguments are passed."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1825
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	1826	%{
791 b1c153b1c719 WIN32 has no ioctl Claus Gittinger <cg@exept.de> parents: 779 diff changeset	1827	#ifndef MSDOS_LIKE
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1828	FILEPOINTER f;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1829	int ret, ioNum, ioArg;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1830	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1831
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1832	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1833	if ((fp = __INST(filePointer)) != nil) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1834	if (__isSmallInteger(ioctlNumber)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1835	ioNum = __intVal(ioctlNumber);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1836	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1837
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1838	__BEGIN_INTERRUPTABLE__
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1839	do {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1840	errno = 0;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1841	ret = ioctl(fileno(f), ioNum);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1842	} while ((ret < 0) && (errno == EINTR));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1843	__END_INTERRUPTABLE__
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1844
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1845	if (ret >= 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1846	RETURN ( __MKSMALLINT(ret) );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1847	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1848	__INST(position) = nil;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1849	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1850	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1851	}
791 b1c153b1c719 WIN32 has no ioctl Claus Gittinger <cg@exept.de> parents: 779 diff changeset	1852	#endif
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1853	%}.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1854	lastErrorNumber notNil ifTrue:[^ self ioError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1855	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1856	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1857	ioctl-number is not an integer
791 b1c153b1c719 WIN32 has no ioctl Claus Gittinger <cg@exept.de> parents: 779 diff changeset	1858	or the system does not support ioctl (MSDOS)
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1859	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1860	^ self primitiveFailed
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1861	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1862
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1863	ioctl:ioctlNumber with:arg
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1864	"to provide a simple ioctl facility - an ioctl is performed
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1865	on the underlying file; the argument is passed as argument.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1866	If the argument is a number, its directly passed; if its a
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1867	kind of ByteArray (ByteArray, String or Structure) a pointer to
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1868	the data is passed. This allows performing most ioctls - however,
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1869	it might be tricky to setup the buffer."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1870
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	1871	%{
791 b1c153b1c719 WIN32 has no ioctl Claus Gittinger <cg@exept.de> parents: 779 diff changeset	1872	#ifndef MSDOS_LIKE
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1873	FILEPOINTER f;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1874	int ret, ioNum;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1875	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1876
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1877	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1878	if ((fp = __INST(filePointer)) != nil) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1879	if (__isSmallInteger(ioctlNumber)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1880	&& (__isSmallInteger(arg) \|\| __isBytes(arg))) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1881	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1882	ioNum = __intVal(ioctlNumber);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1883
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1884	__BEGIN_INTERRUPTABLE__
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1885	do {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1886	errno = 0;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1887	if (__isSmallInteger(arg)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1888	ret = ioctl(fileno(f), ioNum, __intVal(arg));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1889	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1890	ret = ioctl(fileno(f), ioNum, __ByteArrayInstPtr(arg)->ba_element);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1891	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1892	} while ((ret < 0) && (errno == EINTR));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1893	__END_INTERRUPTABLE__
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1894
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1895	if (ret >= 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1896	RETURN ( __MKSMALLINT(ret) );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1897	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1898	__INST(position) = nil;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1899	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1900	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1901	}
791 b1c153b1c719 WIN32 has no ioctl Claus Gittinger <cg@exept.de> parents: 779 diff changeset	1902	#endif
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1903	%}.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1904	lastErrorNumber notNil ifTrue:[^ self ioError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1905	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1906	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1907	ioctl-number is not an integer or argument is not byteArray-like
791 b1c153b1c719 WIN32 has no ioctl Claus Gittinger <cg@exept.de> parents: 779 diff changeset	1908	or the system does not support ioctl (MSDOS)
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1909	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1910	^ self primitiveFailed
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1911	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1912
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1913	open
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1914	"open the stream
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1915	- this must be redefined in subclass"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1916
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1917	^ self subclassResponsibility
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1918	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1919
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1920	position
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1921	"return the position
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1922	- this must be redefined in subclass"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1923
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1924	^ self subclassResponsibility
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1925	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1926
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1927	position:anInteger
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1928	"set the position
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1929	- this must be redefined in subclass"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1930
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1931	^ self subclassResponsibility
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1932	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1933
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1934	reset
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1935	"set the read position to the beginning of the collection"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1936
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1937	self position:"0" 1
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1938	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1939
1044 c2fb3818e097 ExtSTream>>next: did not work correct if interrupted. Stefan Vogel <sv@exept.de> parents: 971 diff changeset	1940	setToEnd
c2fb3818e097 ExtSTream>>next: did not work correct if interrupted. Stefan Vogel <sv@exept.de> parents: 971 diff changeset	1941	"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	1942
c2fb3818e097 ExtSTream>>next: did not work correct if interrupted. Stefan Vogel <sv@exept.de> parents: 971 diff changeset	1943	^ self subclassResponsibility
c2fb3818e097 ExtSTream>>next: did not work correct if interrupted. Stefan Vogel <sv@exept.de> parents: 971 diff changeset	1944	!
c2fb3818e097 ExtSTream>>next: did not work correct if interrupted. Stefan Vogel <sv@exept.de> parents: 971 diff changeset	1945
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1946	truncateTo:newSize
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1947	"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	1948	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	1949
1068 92fdcccf12a3 alles MIST - zurueck zu 1.89 und NOCONTEXT entfernt Claus Gittinger <cg@exept.de> parents: 1067 diff changeset	1950	%{
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1951	#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	1952	FILEPOINTER f;
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1953	OBJ fp;
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1954
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1955	if (((fp = __INST(filePointer)) != nil)
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1956	&& (__INST(mode) != @symbol(readonly))) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1957	if (__isSmallInteger(newSize)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1958	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1959
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1960	if (__INST(buffered) == true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1961	__READING__(f)
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1962	FFLUSH(f);
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1963	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	1964	}
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1965	ftruncate(fileno(f), __intVal(newSize));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1966	RETURN (self);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	1967	}
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1968	}
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1969	#endif
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1970	%}.
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	1971	filePointer isNil ifTrue:[self errorNotOpen. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	1972	(mode == #readonly) ifTrue:[self errorReadOnly. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	1973	self errorUnsupportedOperation
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1974
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1975	"
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1976	\|s\|
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1977
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1978	s := 'test' asFilename writeStream.
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1979	s next:1000 put:$a.
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1980	s truncateTo:100.
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1981	s close.
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1982
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1983	('test' asFilename fileSize) printNL
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1984	"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1985	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1986
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1987	!ExternalStream methodsFor:'non homogenous reading'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1988
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1989	nextByte
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1990	"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	1991	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	1992	bytes binary value as an integer in 0..255."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1993
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	1994	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1995	FILEPOINTER f;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1996	unsigned char byte;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1997	int ret, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1998	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1999
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2000	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2001	if (((fp = __INST(filePointer)) != nil)
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2002	&& (__INST(mode) != @symbol(writeonly))) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2003	f = __FILEVal(fp);
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	_buffered = (__INST(buffered) == true);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2006	if (_buffered) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2007	__READING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2008	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2009	__READBYTE__(ret, f, &byte, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2010	if (ret > 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2011	if (__INST(position) != nil)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2012	__INST(position) = __MKSMALLINT(__intVal(__INST(position)) + 1);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2013	RETURN (__MKSMALLINT(byte));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2014	}
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 (ret == 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2017	__INST(hitEOF) = true;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2018	} else /* ret < 0 */ {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2019	__INST(position) = nil;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2020	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2021	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2022	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2023	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	2024	hitEOF ifTrue:[^ self pastEnd].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2025	lastErrorNumber notNil ifTrue:[^ self readError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2026	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2027	^ self errorWriteOnly
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2028	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2029
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2030	nextBytes:count into:anObject startingAt:start
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2031	"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	2032	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	2033	If the receiver is some socket/pipe-like stream, an exception
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2034	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	2035
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2036	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	2037	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	2038	Thus allowing read of partial blocks.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2039
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2040	The object must have non-pointer indexed instvars
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2041	(i.e. it must be a ByteArray, String, Float- or DoubleArray).
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2042	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	2043	fastest possible physical I/O (since no new objects are allocated).
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2044
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2045	Use with care - non object oriented I/O.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2046	Warning: in general, you cannot use this method to pass data from other
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2047	architectures since it does not care for byte order or float representation."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2048
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2049	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2050	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2051	int cnt, offs, ret, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2052	int objSize, nInstVars, nInstBytes;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2053	char *cp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2054	OBJ pos, fp, oClass;
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	2055	int o_offs;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2056
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2057	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2058	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2059	&& (__INST(mode) != @symbol(writeonly))
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2060	&& __bothSmallInteger(count, start)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2061	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2062	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2063
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2064	oClass = __Class(anObject);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2065	switch (__intVal(__ClassInstPtr(oClass)->c_flags) & ARRAYMASK) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2066	case BYTEARRAY:
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2067	case WORDARRAY:
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2068	case LONGARRAY:
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2069	case SWORDARRAY:
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2070	case SLONGARRAY:
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2071	case FLOATARRAY:
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2072	case DOUBLEARRAY:
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2073	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2074	default:
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2075	goto bad;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2076	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2077	cnt = __intVal(count);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2078	offs = __intVal(start) - 1;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2079	nInstVars = __intVal(__ClassInstPtr(oClass)->c_ninstvars);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2080	nInstBytes = OHDR_SIZE + __OBJS2BYTES__(nInstVars);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2081	objSize = __Size(anObject) - nInstBytes;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2082	if ((offs >= 0) && (cnt >= 0) && (objSize >= (cnt + offs))) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2083	char *cp;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2084
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2085	/*
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2086	* mhmh - since we are interruptable, anObject may move.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2087	* therefore, fetch the cp-pointer within the loop
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2088	*/
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2089	_buffered = (__INST(buffered) == true);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2090	if (_buffered) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2091	__READING__(f);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2092	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2093
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2094	/*
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2095	* on interrupt, anObject may be moved to another location.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2096	* So we pass (char *)__InstPtr(anObject) + nInstBytes + offs to the macro __READ_BYTES__,
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2097	* to get a new address.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2098	*/
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	2099	o_offs = nInstBytes+offs;
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	2100	__READBYTES_OBJ__(ret, f, anObject, o_offs, cnt, _buffered);
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2101
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2102	if (ret > 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2103	pos = __INST(position);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2104	if (pos != nil) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2105	__INST(position) = __MKSMALLINT(__intVal(pos) + ret);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2106	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2107	RETURN (__MKSMALLINT(ret));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2108	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2109	if (ret == 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2110	__INST(hitEOF) = true;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2111	} else /* ret < 0 */ {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2112	__INST(position) = nil;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2113	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2114	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2115	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2116	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2117	bad: ;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2118	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	2119	(hitEOF and:[self pastEnd isNil]) ifTrue:[^ 0].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2120	lastErrorNumber notNil ifTrue:[^ self readError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2121	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2122	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2123	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2124	count not integer or arg not bit-like (String, ByteArray etc)
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2125	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2126	^ self primitiveFailed
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	2127	!
0c73b48551ac * empty log message * claus parents: 88 diff changeset	2128
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2129	nextLong
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2130	"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	2131	The returned value may be a LargeInteger.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2132	(msb-first for compatibility with other smalltalks)"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2133
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2134	^ self nextUnsignedLongMSB:true
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2135	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2136
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2137	nextLongMSB:msbFlag
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2138	"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	2139	which may be a LargeInteger.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2140	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	2141	otherwise least-significant byte comes first.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2142	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	2143	Works in both binary and text modes."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2144
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	2145	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2146	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2147
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2148	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2149	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2150	&& (__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	2151	) {
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2152	FILEPOINTER f;
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2153	int ret;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2154	int value;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2155	char buffer[4];
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2156
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2157	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2158	__READBYTES__(ret, f, buffer, 4, __INST(buffered) == true);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2159
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2160	if (ret == 4) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2161	if (__INST(position) != nil) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2162	__INST(position) = __MKSMALLINT(__intVal(__INST(position)) + 4);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2163	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2164	if (msbFlag == true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2165	value = (buffer[0] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2166	value = (value << 8) \| (buffer[1] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2167	value = (value << 8) \| (buffer[2] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2168	value = (value << 8) \| (buffer[3] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2169	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2170	value = (buffer[3] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2171	value = (value << 8) \| (buffer[2] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2172	value = (value << 8) \| (buffer[1] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2173	value = (value << 8) \| (buffer[0] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2174	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2175	if ((value >= _MIN_INT) && (value <= _MAX_INT)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2176	RETURN ( __MKSMALLINT(value));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2177	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2178	RETURN ( __MKLARGEINT(value) );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2179	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2180
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2181	if (ret < 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2182	__INST(position) = nil;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2183	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2184	} else /* ret == 0 */ {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2185	__INST(hitEOF) = true;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2186	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2187	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2188	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	2189	hitEOF ifTrue:[^ self pastEnd].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2190	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2191	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2192	^ self readError.
1079 d47cd86b487b Make methods signal-proof. Stefan Vogel <sv@exept.de> parents: 1068 diff changeset	2193
362 4131e87e79ec . claus parents: 360 diff changeset	2194	!
4131e87e79ec . claus parents: 360 diff changeset	2195
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2196	nextShortMSB:msbFlag
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2197	"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	2198	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	2199	otherwise least-significant byte comes first.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2200	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	2201	Works in both binary and text modes."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2202
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	2203	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2204	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2205
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2206	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2207	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2208	&& (__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	2209	) {
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2210	FILEPOINTER f;
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2211	int ret;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2212	short value;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2213	char buffer[2];
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2214
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2215	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2216	__READBYTES__(ret, f, buffer, 2, __INST(buffered) == true);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2217
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2218	if (ret == 2) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2219	if (__INST(position) != nil) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2220	__INST(position) = __MKSMALLINT(__intVal(__INST(position)) + 2);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2221	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2222	if (msbFlag == true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2223	value = ((buffer[0] & 0xFF) << 8) \| (buffer[1] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2224	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2225	value = ((buffer[1] & 0xFF) << 8) \| (buffer[0] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2226	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2227	RETURN (__MKSMALLINT(value));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2228	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2229
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2230	if (ret < 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2231	__INST(position) = nil;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2232	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2233	} else /* ret == 0 */ {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2234	__INST(hitEOF) = true;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2235	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2236	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2237	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	2238	hitEOF ifTrue:[^ self pastEnd].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2239	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2240	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2241	^ self readError.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2242	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2243
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2244	nextUnsignedLongMSB:msbFlag
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2245	"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	2246	a LargeInteger.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2247	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	2248	least-significant byte comes first.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2249	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	2250	Works in both binary and text modes."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2251
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	2252	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2253	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2254
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2255	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2256	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2257	&& (__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	2258	) {
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2259	FILEPOINTER f;
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2260	int ret;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2261	unsigned int value;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2262	char buffer[4];
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2263
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2264	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2265	__READBYTES__(ret, f, buffer, 4, __INST(buffered) == true);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2266
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2267	if (ret == 4) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2268	if (__INST(position) != nil) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2269	__INST(position) = __MKSMALLINT(__intVal(__INST(position)) + 4);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2270	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2271	if (msbFlag == true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2272	value = (buffer[0] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2273	value = (value << 8) \| (buffer[1] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2274	value = (value << 8) \| (buffer[2] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2275	value = (value << 8) \| (buffer[3] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2276	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2277	value = (buffer[3] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2278	value = (value << 8) \| (buffer[2] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2279	value = (value << 8) \| (buffer[1] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2280	value = (value << 8) \| (buffer[0] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2281	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2282	if (value <= _MAX_INT) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2283	RETURN ( __MKSMALLINT(value));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2284	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2285	RETURN ( __MKULARGEINT(value) );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2286	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2287
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2288	if (ret < 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2289	__INST(position) = nil;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2290	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2291	} else /* ret == 0 */ {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2292	__INST(hitEOF) = true;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2293	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2294	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2295	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	2296	hitEOF ifTrue:[^ self pastEnd].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2297	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2298	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2299	^ self readError.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2300	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2301
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2302	nextUnsignedShortMSB:msbFlag
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2303	"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	2304	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	2305	otherwise least-significant byte comes first.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2306	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	2307	Works in both binary and text modes."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2308
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	2309	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2310	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2311
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2312	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2313	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2314	&& (__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	2315	) {
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2316	FILEPOINTER f;
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2317	int ret;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2318	unsigned int value;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2319	char buffer[2];
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2320
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2321	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2322	__READBYTES__(ret, f, buffer, 2, __INST(buffered) == true);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2323
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2324	if (ret == 2) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2325	if (__INST(position) != nil) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2326	__INST(position) = __MKSMALLINT(__intVal(__INST(position)) + 2);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2327	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2328	if (msbFlag == true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2329	value = ((buffer[0] & 0xFF) << 8) \| (buffer[1] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2330	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2331	value = ((buffer[1] & 0xFF) << 8) \| (buffer[0] & 0xFF);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2332	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2333	RETURN (__MKSMALLINT(value));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2334	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2335
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2336	if (ret < 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2337	__INST(position) = nil;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2338	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2339	} else /* ret == 0 */ {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2340	__INST(hitEOF) = true;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2341	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2342	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2343	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	2344	hitEOF ifTrue:[^ self pastEnd].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2345	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2346	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2347	^ self readError.
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
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2350	nextWord
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2351	"in text-mode:
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2352	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	2353	return a string containing those characters.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2354	in binary-mode:
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2355	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	2356	unsigned Integer (for compatibility with other smalltalks)"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2357
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2358	binary ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2359	^ self nextUnsignedShortMSB:true
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	2360	].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2361	^ self nextAlphaNumericWord
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
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2364	!ExternalStream methodsFor:'non homogenous writing'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2365
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2366	nextPutByte:aByteValue
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2367	"write a byte.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2368	Works in both binary and text modes."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2369
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	2370	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2371	FILEPOINTER f;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2372	char c;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2373	OBJ pos, fp;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2374	int cnt, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2375
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2376	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2377	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2378	&& (__INST(mode) != @symbol(readonly))
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2379	&& __isSmallInteger(aByteValue)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2380
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2381	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2382	c = __intVal(aByteValue);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2383	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2384	if (_buffered = (__INST(buffered) == true)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2385	__WRITING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2386	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2387	__WRITEBYTE__(cnt, f, &c, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2388	if (cnt == 1) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2389	pos = __INST(position);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2390	if (pos != nil)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2391	__INST(position) = __MKSMALLINT(__intVal(pos) + 1);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2392	RETURN (self);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2393	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2394	__INST(lastErrorNumber) = __MKSMALLINT(errno);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2395	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2396	%}.
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	2397	filePointer isNil ifTrue:[self errorNotOpen. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	2398	(mode == #readonly) ifTrue:[self errorReadOnly. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	2399	self writeError.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2400	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2401
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2402	nextPutBytes:count from:anObject startingAt:start
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2403	"write count bytes from an object starting at index start.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2404	return the number of bytes written - which could be 0.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2405	The object must have non-pointer indexed instvars
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2406	(i.e. be a ByteArray, String, Float- or DoubleArray).
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2407	Use with care - non object oriented i/o.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2408	Warning: in general, you cannot use this method to pass data to other
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2409	architectures since it does not care for byte order or float representation."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2410
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	2411	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2412	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2413	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	2414	int objSize, nInstVars, nInstBytes, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2415	char *cp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2416	OBJ oClass, pos, fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2417
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2418	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2419	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2420	&& (__INST(mode) != @symbol(readonly))
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2421	&& __bothSmallInteger(count, start)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2422	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2423	oClass = __Class(anObject);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2424	switch (__intVal(__ClassInstPtr(oClass)->c_flags) & ARRAYMASK) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2425	case BYTEARRAY:
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2426	case WORDARRAY:
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2427	case LONGARRAY:
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2428	case SWORDARRAY:
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2429	case SLONGARRAY:
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2430	case FLOATARRAY:
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2431	case DOUBLEARRAY:
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2432	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2433	default:
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2434	goto bad;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2435	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2436	len = __intVal(count);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2437	offs = __intVal(start) - 1;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2438	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2439
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2440	nInstVars = __intVal(__ClassInstPtr(oClass)->c_ninstvars);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2441	nInstBytes = OHDR_SIZE + __OBJS2BYTES__(nInstVars);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2442	objSize = __Size(anObject) - nInstBytes;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2443	if ( (offs >= 0) && (len >= 0) && (objSize >= (len + offs)) ) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2444	offs += nInstBytes;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2445	if (_buffered = (__INST(buffered) == true)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2446	__WRITING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2447	}
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	2448	__WRITEBYTES_OBJ__(cnt, f, anObject, offs, len, _buffered);
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2449	if (cnt >= 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2450	pos = __INST(position);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2451	if (pos != nil)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2452	__INST(position) = __MKSMALLINT(__intVal(pos) + cnt);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2453	RETURN ( __MKSMALLINT(cnt) );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2454	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2455	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2456	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2457	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2458	bad: ;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2459	%}.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2460	lastErrorNumber notNil ifTrue:[^ self writeError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2461	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2462	(mode == #readonly) ifTrue:[^ self errorReadOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2463	^ self primitiveFailed
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2464	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2465
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2466	nextPutLong:aNumber MSB:msbFlag
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2467	"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	2468	true, data is written most-significant byte first; otherwise least
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2469	first.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2470	Works in both binary and text modes."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2471
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	2472	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2473	int num;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2474	char bytes[4];
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2475	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2476	int cnt, _buffered;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2477	OBJ fp, pos;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2478
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2479	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2480	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2481	&& (__INST(mode) != @symbol(readonly))
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2482	&& __isSmallInteger(aNumber)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2483	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2484	num = __intVal(aNumber);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2485	if (msbFlag == true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2486	bytes[0] = (num >> 24) & 0xFF;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2487	bytes[1] = (num >> 16) & 0xFF;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2488	bytes[2] = (num >> 8) & 0xFF;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2489	bytes[3] = num & 0xFF;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2490	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2491	bytes[3] = (num >> 24) & 0xFF;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2492	bytes[2] = (num >> 16) & 0xFF;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2493	bytes[1] = (num >> 8) & 0xFF;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2494	bytes[0] = num & 0xFF;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2495	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2496
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2497	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2498	if (_buffered = (__INST(buffered) == true)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2499	__WRITING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2500	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2501	__WRITEBYTES__(cnt, f, bytes, 4, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2502
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2503	if (cnt == 4) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2504	if ((pos = __INST(position)) != nil) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2505	__INST(position) = __MKSMALLINT(__intVal(pos) + 4);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2506	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2507	RETURN ( self );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2508	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2509	__INST(lastErrorNumber) = __MKSMALLINT(errno);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2510	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2511	%}.
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	2512	filePointer isNil ifTrue:[self errorNotOpen. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	2513	(mode == #readonly) ifTrue:[self errorReadOnly. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	2514	lastErrorNumber notNil ifTrue:[self writeError. ^ self].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2515
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2516	aNumber isInteger ifTrue:[
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	2517	^ super nextPutLong:aNumber MSB:msbFlag
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	2518	].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2519	self argumentMustBeInteger
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2520	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2521
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2522	nextPutShort:aNumber MSB:msbFlag
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2523	"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	2524	true, data is written most-significant byte first; otherwise least
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2525	first.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2526	Works in both binary and text modes."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2527
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	2528	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2529	int num;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2530	char bytes[2];
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2531	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2532	int cnt, _buffered;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2533	OBJ fp, pos;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2534
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2535	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2536	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2537	&& (__INST(mode) != @symbol(readonly))
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2538	&& __isSmallInteger(aNumber)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2539	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2540	num = __intVal(aNumber);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2541	if (msbFlag == true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2542	bytes[0] = (num >> 8) & 0xFF;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2543	bytes[1] = num & 0xFF;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2544	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2545	bytes[1] = (num >> 8) & 0xFF;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2546	bytes[0] = num & 0xFF;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2547	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2548
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2549	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2550	if (_buffered = (__INST(buffered) == true)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2551	__WRITING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2552	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2553	__WRITEBYTES__(cnt, f, bytes, 2, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2554
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2555	if (cnt == 2) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2556	if ((pos = __INST(position)) != nil) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2557	__INST(position) = __MKSMALLINT(__intVal(pos) + 2);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2558	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2559	RETURN ( self );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2560	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2561	__INST(lastErrorNumber) = __MKSMALLINT(errno);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2562	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2563	%}.
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	2564	lastErrorNumber notNil ifTrue:[^ self writeError. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	2565	filePointer isNil ifTrue:[self errorNotOpen. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	2566	(mode == #readonly) ifTrue:[self errorReadOnly. ^ self].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2567	self argumentMustBeInteger
10 4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	2568	! !
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2569
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2570	!ExternalStream methodsFor:'private'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2571
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2572	clearEOF
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2573	hitEOF := false
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2574	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2575
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2576	connectTo:aFileDescriptor withMode:openmode
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2577	"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	2578	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	2579	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	2580	a Stream object.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2581	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	2582	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	2583
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2584	\|retVal\|
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2585
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2586	filePointer notNil ifTrue:[^ self errorOpen].
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2587	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2588	FILEPOINTER f;
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2589	OBJ fp;
2765 a56668774ad7 more alpha64 fixes Claus Gittinger <cg@exept.de> parents: 2764 diff changeset	2590	FILE *fdopen();
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2591
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2592	if (__isSmallInteger(aFileDescriptor)
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2593	&& (__qClass(openmode)== @global(String))) {
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2594	f = (FILEPOINTER) fdopen(__intVal(aFileDescriptor), (char *)__stringVal(openmode));
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2595	if (f == NULL) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2596	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2597	__INST(position) = nil;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2598	} else {
2765 a56668774ad7 more alpha64 fixes Claus Gittinger <cg@exept.de> parents: 2764 diff changeset	2599	__INST(filePointer) = fp = __MKOBJ(f); __STORE(self, fp);
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2600	__INST(position) = __MKSMALLINT(1);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2601	retVal = self;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2602	}
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2603	}
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2604	%}.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2605	retVal notNil ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2606	buffered := true. "default is buffered"
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2607	Lobby register:self
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2608	].
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2609	lastErrorNumber notNil ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2610	"
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2611	the open failed for some reason ...
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2612	"
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2613	^ self openError
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2614	].
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2615	^ retVal
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2616	!
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2617
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2618	reOpen
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2619	"sent after snapin to reopen streams.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2620	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	2621
2134 246a3bdab8b4 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 2120 diff changeset	2622	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	2623	filePointer := nil.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2624	Lobby unregister:self.
2134 246a3bdab8b4 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 2120 diff changeset	2625
246a3bdab8b4 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 2120 diff changeset	2626	"Modified: 10.1.1997 / 17:50:44 / cg"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2627	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2628
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2629	setLastError:aNumber
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2630	lastErrorNumber := aNumber
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2631	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2632
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2633	!ExternalStream methodsFor:'queries'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2634
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2635	isBinary
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2636	"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	2637	The default when created is false."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2638
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2639	^ binary
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
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2642	isExternalStream
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2643	"return true, if the receiver is some kind of externalStream;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2644	true is returned here - the method redefined from Object."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2645
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2646	^ true
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2647	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2648
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2649	isReadable
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2650	"return true, if this stream can be read from"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2651
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2652	^ (mode ~~ #writeonly)
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2653	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2654
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2655	isWritable
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2656	"return true, if this stream can be written to"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2657
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2658	^ (mode ~~ #readonly)
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2659	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2660
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2661	!ExternalStream methodsFor:'reading'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2662
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2663	next
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2664	"return the next element; advance read position.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2665	In binary mode, an integer is returned, otherwise a character.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2666	If there are no more elements, nil is returned."
1 a27a279701f8 Initial revision claus parents: diff changeset	2667
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	2668	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2669	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2670	int ret, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2671	OBJ pos, fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2672	unsigned char ch;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2673
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2674	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2675	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2676	&& (__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	2677	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2678	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2679
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2680	_buffered = (__INST(buffered) == true);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2681	if (_buffered) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2682	__READING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2683	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2684	__READBYTE__(ret, f, &ch, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2685
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2686	if (ret > 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2687	pos = __INST(position);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2688	if (__isSmallInteger(pos)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2689	__INST(position) = __MKSMALLINT(__intVal(pos) + 1);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2690	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2691	__INST(position) = nil;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2692	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2693	if (__INST(binary) == true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2694	RETURN ( __MKSMALLINT(ch) );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2695	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2696	RETURN ( __MKCHARACTER(ch) );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2697	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2698
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2699	__INST(position) = nil;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2700	if (ret < 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2701	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2702	} else /* ret == 0 */ {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2703	__INST(hitEOF) = true;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2704	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2705	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2706	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	2707	hitEOF ifTrue:[^ self pastEnd].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2708	lastErrorNumber notNil ifTrue:[^ self readError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2709	filePointer isNil ifTrue:[^ self errorNotOpen].
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	2710	^ self errorWriteOnly
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2711	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2712
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2713	next:count
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2714	"return the next count elements of the stream as a collection.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2715	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	2716
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2717	\|coll nRead\|
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2718
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2719	binary ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2720	coll := ByteArray uninitializedNew:count
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2721	] ifFalse:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2722	coll := String new:count
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2723	].
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2724	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	2725
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2726	"/ for readStream protocol compatibility,
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2727	"/ we must raise an exception here.
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2728
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2729	nRead < count ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2730	^ self pastEnd
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2731	].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2732	^ coll
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2733
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2734	"Modified: 11.1.1997 / 17:44:17 / cg"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2735	!
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	peek
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2738	"return the element to be read next without advancing read position.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2739	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	2740	If there are no more elements, nil is returned."
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2741
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	2742	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2743	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2744	unsigned char c;
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	2745	int ret, _buffered;
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	2746	OBJ fp;
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	2747
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2748	__INST(lastErrorNumber) = nil;
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	2749
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2750	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2751	&& (__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	2752	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2753	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2754	_buffered = (__INST(buffered) == true);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2755	if (_buffered) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2756	__READING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2757	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2758	__READBYTE__(ret, f, &c, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2759
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2760	if (ret > 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2761	__UNGETC__(c, f, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2762
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2763	if (__INST(binary) == true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2764	RETURN ( __MKSMALLINT(c) );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2765	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2766	RETURN ( __MKCHARACTER(c) );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2767	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2768	if (ret < 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2769	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2770	} else /* ret == 0 */ {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2771	__INST(hitEOF) = true;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2772	}
1 a27a279701f8 Initial revision claus parents: diff changeset	2773	}
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	2774	%}.
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2775	hitEOF ifTrue:[^ self pastEnd].
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	2776	lastErrorNumber notNil ifTrue:[^ self readError].
1 a27a279701f8 Initial revision claus parents: diff changeset	2777	filePointer isNil ifTrue:[^ self errorNotOpen].
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	2778	^ self errorWriteOnly
1295 83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	2779	!
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	2780
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	2781	upToEnd
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	2782	"return a collection of the elements up-to the end.
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	2783	Return nil if the stream-end is reached before."
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	2784
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	2785	\|answerStream ch\|
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	2786
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	2787	answerStream := WriteStream on:(self contentsSpecies new).
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	2788	[self atEnd] whileFalse:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2789	ch := self next.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2790	ch notNil ifTrue:[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2791	answerStream nextPut:ch
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2792	]
1295 83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	2793	].
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	2794	^ answerStream contents
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	2795
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	2796	"Created: 25.4.1996 / 14:40:31 / cg"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2797	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2798
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2799	!ExternalStream methodsFor:'reimplemented for speed'!
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	2800
514c749165c3 * empty log message * claus parents: 108 diff changeset	2801	nextAlphaNumericWord
379 5b5a130ccd09 revision added claus parents: 372 diff changeset	2802	"read the next word (i.e. up to non letter-or-digit) after first
5b5a130ccd09 revision added claus parents: 372 diff changeset	2803	skipping any whiteSpace.
5b5a130ccd09 revision added claus parents: 372 diff changeset	2804	Return a string containing those characters.
5b5a130ccd09 revision added claus parents: 372 diff changeset	2805	There is a limit of 1023 characters in the word - if longer,
5b5a130ccd09 revision added claus parents: 372 diff changeset	2806	it is truncated."
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	2807
514c749165c3 * empty log message * claus parents: 108 diff changeset	2808	%{ /* STACK: 2000 */
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2809	FILEPOINTER f;
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	2810	int len;
514c749165c3 * empty log message * claus parents: 108 diff changeset	2811	char buffer[1024];
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2812	unsigned char ch;
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	2813	int cnt = 0;
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	2814	int ret, _buffered;
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	2815	OBJ fp;
a8abff749575 * empty log message * claus parents: 213 diff changeset	2816
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2817	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	2818	&& (__INST(mode) != @symbol(writeonly))
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	2819	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2820	f = __FILEVal(fp);
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	2821	_buffered = (__INST(buffered) == true);
71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	2822	if (_buffered) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2823	__READING__(f)
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	2824	}
2045 1ad17ca6520f fall back to super>>nextPutLine: if argument is not a string. Claus Gittinger <cg@exept.de> parents: 2044 diff changeset	2825
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2826	/*
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2827	* skip whiteSpace first ...
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2828	*/
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2829	do {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2830	__READBYTE__(ret, f, &ch, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2831	if (ret > 0)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2832	cnt++;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2833	else
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2834	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2835	} while (
379 5b5a130ccd09 revision added claus parents: 372 diff changeset	2836	#ifndef NON_ASCII
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2837	(ch < ' ') \|\|
379 5b5a130ccd09 revision added claus parents: 372 diff changeset	2838	#endif
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2839	(ch == ' ' ) \|\| (ch == '\t') \|\| (ch == '\r')
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2840	\|\| (ch == '\n') \|\| (ch == 0x0b));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2841
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2842	len = 0;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2843	while (ret > 0 &&
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2844	(((ch >= 'a') && (ch <= 'z')) \|\|
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2845	((ch >= 'A') && (ch <= 'Z')) \|\|
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2846	((ch >= '0') && (ch <= '9')))
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2847	) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2848	buffer[len++] = ch;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2849	if (len >= (sizeof(buffer)-1)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2850	/* emergency */
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2851	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2852	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2853	__READBYTE__(ret, f, &ch, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2854	if (ret > 0)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2855	cnt++;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2856	else
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2857	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2858	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2859
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2860	if (ret <= 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2861	if (ret < 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2862	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2863	goto err;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2864	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2865	else if (ret == 0)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2866	__INST(hitEOF) = true;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2867	} else {
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	2868	__UNGETC__(ch, f, _buffered);
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2869	cnt--;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2870	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2871
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2872	if (__INST(position) != nil) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2873	__INST(position) = __MKSMALLINT(__intVal(__INST(position)) + cnt);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2874	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2875	if (len != 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2876	buffer[len] = '\0';
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2877	RETURN ( __MKSTRING_L(buffer, len) );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	2878	}
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	2879	}
514c749165c3 * empty log message * claus parents: 108 diff changeset	2880	err: ;
514c749165c3 * empty log message * claus parents: 108 diff changeset	2881	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	2882	hitEOF ifTrue:[^ self pastEnd].
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	2883	lastErrorNumber notNil ifTrue:[^ self readError].
514c749165c3 * empty log message * claus parents: 108 diff changeset	2884	filePointer isNil ifTrue:[^ self errorNotOpen].
514c749165c3 * empty log message * claus parents: 108 diff changeset	2885	^ self errorWriteOnly
1 a27a279701f8 Initial revision claus parents: diff changeset	2886	!
a27a279701f8 Initial revision claus parents: diff changeset	2887
a27a279701f8 Initial revision claus parents: diff changeset	2888	nextChunk
a27a279701f8 Initial revision claus parents: diff changeset	2889	"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	2890	exclamation mark. Within the chunk, exclamation marks have to be doubled -
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	2891	except within primitive code (this exception was added to make it easier
a8abff749575 * empty log message * claus parents: 213 diff changeset	2892	to edit primitive code with external editors). This means, that other
a8abff749575 * empty log message * claus parents: 213 diff changeset	2893	Smalltalks cannot always read chunks containing primitive code - but that
a8abff749575 * empty log message * claus parents: 213 diff changeset	2894	doesnt really matter, since C-primitives are an ST/X feature anyway.
a8abff749575 * empty log message * claus parents: 213 diff changeset	2895	Reimplemented here for more speed."
a8abff749575 * empty log message * claus parents: 213 diff changeset	2896
665 429936f8e6e7 fixed nextChunk; it was not reentrant due to freeing of the static Claus Gittinger <cg@exept.de> parents: 612 diff changeset	2897	\|retVal outOfMemory buffer\|
1 a27a279701f8 Initial revision claus parents: diff changeset	2898
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	2899	filePointer isNil ifTrue:[^ self errorNotOpen].
514c749165c3 * empty log message * claus parents: 108 diff changeset	2900	binary ifTrue:[^ self errorBinary].
514c749165c3 * empty log message * claus parents: 108 diff changeset	2901	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	2902
2854 3c8bf66e4e7d give nextChunk a bit more stack Claus Gittinger <cg@exept.de> parents: 2766 diff changeset	2903	%{ /* 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	2904	/*
429936f8e6e7 fixed nextChunk; it was not reentrant due to freeing of the static Claus Gittinger <cg@exept.de> parents: 612 diff changeset	2905	* the main trick (and a bit of complication) here
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2906	* is to read the first 7k 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	2907	* 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	2908	* 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	2909	*/
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2910	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2911	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	2912	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	2913	int ret;
1823 51ffb7231437 type casts Claus Gittinger <cg@exept.de> parents: 1688 diff changeset	2914	unsigned char bufferPtr = (unsigned char )0;
2764 2a69c1c354a2 unsigned vs. signed to avoid warnings Claus Gittinger <cg@exept.de> parents: 2679 diff changeset	2915	unsigned char fastBuffer[7000];
1 a27a279701f8 Initial revision claus parents: diff changeset	2916	REGISTER int index;
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	2917	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	2918	int atBeginOfLine = 1, inPrimitive = 0;
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	2919
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2920	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2921	f = __FILEVal(__INST(filePointer));
668 73165201a9da nextChunk: %{ is only recognized if at begin-of-line Claus Gittinger <cg@exept.de> parents: 665 diff changeset	2922
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	2923	_buffered = (__INST(buffered) == true);
71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	2924	if (_buffered) {
2591 9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2925	__READING__(f)
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	2926	}
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	2927
1 a27a279701f8 Initial revision claus parents: diff changeset	2928	/*
a27a279701f8 Initial revision claus parents: diff changeset	2929	* skip spaces
a27a279701f8 Initial revision claus parents: diff changeset	2930	*/
673 2c3a4a536cd1 oops - handling of exclas within primitives was wrong Claus Gittinger <cg@exept.de> parents: 671 diff changeset	2931	c = '\n';
1 a27a279701f8 Initial revision claus parents: diff changeset	2932	while (! done) {
2591 9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2933	lastC = c;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2934	__READBYTE__(ret, f, &c, _buffered);
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2935	if (ret <= 0) {
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2936	goto err;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2937	}
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2938	nread++;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2939	atBeginOfLine = 0;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2940	switch (c) {
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2941	case '\n':
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2942	case ' ':
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2943	case '\t':
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2944	case '\r':
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2945	case '\b':
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2946	case '\014':
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2947	break;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2948
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2949	default:
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2950	atBeginOfLine = (lastC == '\n');
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2951	done = 1;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2952	break;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2953	}
1 a27a279701f8 Initial revision claus parents: diff changeset	2954	}
a27a279701f8 Initial revision claus parents: diff changeset	2955
a27a279701f8 Initial revision claus parents: diff changeset	2956	/*
a27a279701f8 Initial revision claus parents: diff changeset	2957	* read chunk into a buffer
a27a279701f8 Initial revision claus parents: diff changeset	2958	*/
665 429936f8e6e7 fixed nextChunk; it was not reentrant due to freeing of the static Claus Gittinger <cg@exept.de> parents: 612 diff changeset	2959	bufferPtr = fastBuffer; fastFlag = 1;
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	2960	currSize = sizeof(fastBuffer);
362 4131e87e79ec . claus parents: 360 diff changeset	2961
1 a27a279701f8 Initial revision claus parents: diff changeset	2962	index = 0;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2963	for (;;) {
2591 9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2964	__READBYTE__(ret, f, &peekC, _buffered);
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2965	if ((c == '%') && atBeginOfLine && ret > 0) {
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2966	if (peekC == '{') {
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2967	inPrimitive = 1;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2968	} else if (peekC == '}') {
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2969	inPrimitive = 0;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2970	}
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2971	} else if (c == '!' && !inPrimitive) {
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2972	if (ret > 0 && peekC == '!') {
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2973	/*
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2974	* convert double-! to a single !
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2975	*/
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2976	__READBYTE__(ret, f, &peekC, _buffered);
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2977	if (ret > 0)
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2978	nread++;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2979	} else {
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2980	/*
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2981	* End of chunk, push back lookahead character
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2982	* and leave loop.
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2983	*/
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2984	if (ret > 0) {
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2985	__UNGETC__(peekC, f, _buffered);
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2986	} else
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2987	ret = 1;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2988	break;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2989	}
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2990	}
2854 3c8bf66e4e7d give nextChunk a bit more stack Claus Gittinger <cg@exept.de> parents: 2766 diff changeset	2991	if (!fastFlag) {
3c8bf66e4e7d give nextChunk a bit more stack Claus Gittinger <cg@exept.de> parents: 2766 diff changeset	2992	/*
3c8bf66e4e7d give nextChunk a bit more stack Claus Gittinger <cg@exept.de> parents: 2766 diff changeset	2993	* old buffer may have moved - refetch pointer
3c8bf66e4e7d give nextChunk a bit more stack Claus Gittinger <cg@exept.de> parents: 2766 diff changeset	2994	*/
3c8bf66e4e7d give nextChunk a bit more stack Claus Gittinger <cg@exept.de> parents: 2766 diff changeset	2995	bufferPtr = __stringVal(buffer);
3c8bf66e4e7d give nextChunk a bit more stack Claus Gittinger <cg@exept.de> parents: 2766 diff changeset	2996	}
2591 9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2997
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2998	/*
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	2999	* do we have to resize the buffer ?
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3000	*/
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3001	if ((index+2) >= currSize) {
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3002	OBJ newBuffer;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3003	unsigned char *nbp;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3004
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3005	newBuffer = __MKEMPTYSTRING(currSize * 2);
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3006	if (newBuffer == nil) {
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3007	/*
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3008	* mhmh - chunk seems to be very big ....
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3009	*/
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3010	outOfMemory = true;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3011	goto err;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3012	}
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3013	nbp = __stringVal(newBuffer);
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3014	bcopy(bufferPtr, nbp, index);
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3015	bufferPtr = nbp;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3016	bufferPtr[index] = '\0';
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3017	buffer = newBuffer;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3018	fastFlag = 0;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3019	currSize = currSize * 2;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3020	}
2854 3c8bf66e4e7d give nextChunk a bit more stack Claus Gittinger <cg@exept.de> parents: 2766 diff changeset	3021
2591 9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3022	/*
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3023	* filter out cr-nl; make it nl
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3024	*/
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3025	if (c == '\n') {
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3026	if (index > 0) {
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3027	if (bufferPtr[index-1] == '\r') {
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3028	index--;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3029	}
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3030	}
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3031	}
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3032	bufferPtr[index++] = c;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3033	if (ret <= 0) {
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3034	if (ret == 0)
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3035	break; /* End of chunk reached */
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3036	goto err;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3037	}
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3038	nread++;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3039	atBeginOfLine = (c == '\n');
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3040	c = peekC;
1 a27a279701f8 Initial revision claus parents: diff changeset	3041	}
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	3042
1 a27a279701f8 Initial revision claus parents: diff changeset	3043	/*
a27a279701f8 Initial revision claus parents: diff changeset	3044	* 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	3045	* 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	3046	* 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	3047	* fast (C) buffer or from real (ST) buffer.
1 a27a279701f8 Initial revision claus parents: diff changeset	3048	*/
665 429936f8e6e7 fixed nextChunk; it was not reentrant due to freeing of the static Claus Gittinger <cg@exept.de> parents: 612 diff changeset	3049	if (fastFlag) {
2591 9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3050	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	3051	} else {
2591 9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3052	retVal = __MKSTRING_ST_L(buffer, index);
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	3053	}
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3054
1478 aae07192b7d1 labels in empty statements need a semi Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	3055	err: ;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3056	if (ret <= 0) {
2591 9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3057	if (ret == 0)
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3058	__INST(hitEOF) = true;
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3059	else /* ret < 0 */
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3060	__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	3061	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3062	if (__INST(position) != nil) {
2591 9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3063	__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	3064	}
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	3065	%}.
370 20f04d9b371b . claus parents: 369 diff changeset	3066	retVal isNil ifTrue:[
2591 9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3067	"/
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3068	"/ arrive here with retVal==nil either on error or premature EOF
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3069	"/ or if running out of malloc-memory
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3070	"/
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3071	hitEOF ifTrue:[^ self pastEnd].
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3072	lastErrorNumber notNil ifTrue:[^ self readError].
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3073	outOfMemory == true ifTrue:[
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3074	"
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3075	buffer memory allocation failed.
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3076	When we arrive here, there was no memory available for the
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3077	chunk. (seems to be too big of a chunk ...)
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3078	Bad luck - you should increase the ulimit and/or swap space on your machine.
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3079	"
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3080	^ ObjectMemory allocationFailureSignal raise.
9faeea99f45b remove cr's when reading chunks. Claus Gittinger <cg@exept.de> parents: 2577 diff changeset	3081	]
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	3082	].
1 a27a279701f8 Initial revision claus parents: diff changeset	3083	^ retVal
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3084	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3085
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3086	nextMatchFor:anObject
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3087	"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	3088	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	3089	the element after anObject.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3090	Only single byte characters are currently supported."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3091
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	3092	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	3093	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3094	int ret, peekValue;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3095	char c;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3096	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3097
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3098	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3099	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3100	&& (__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	3101	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3102	if ((__INST(binary) == true) && __isSmallInteger(anObject)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3103	peekValue = __intVal(anObject) & 0xFF;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3104	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3105	if ((__INST(binary) != true) && __isCharacter(anObject)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3106	peekValue = __intVal(_characterVal(anObject)) & 0xFF;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3107	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3108	peekValue = -1;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3109	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3110	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3111
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3112	if (peekValue >= 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3113	int _buffered;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3114
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3115	__INST(position) = nil;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3116	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3117
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3118	if (_buffered = (__INST(buffered) == true)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3119	__READING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3120	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3121
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3122	for (;;) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3123	__READBYTE__(ret, f, &c, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3124	if (ret <= 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3125	if (ret < 0)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3126	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3127	else
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3128	__INST(hitEOF) = true;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3129	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3130	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3131	if (c == peekValue) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3132	RETURN (anObject);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3133	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3134	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3135	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3136	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3137	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	3138	hitEOF ifTrue:[^ self pastEnd].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3139	lastErrorNumber notNil ifTrue:[^ self readError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3140	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3141	^ super nextMatchFor:anObject
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3142	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3143
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3144	peekFor:anObject
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3145	"return true and move past next element, if next == something.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3146	Otherwise, stay and return false. False is also returned
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3147	when EOF is encountered.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3148	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	3149	text mode; only single byte characters are currently supported."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3150
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	3151	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	3152	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3153	char c;
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3154	int ret, peekValue, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3155	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3156
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3157	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3158	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3159	&& (__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	3160	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3161	if (__INST(binary) == true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3162	if (__isSmallInteger(anObject)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3163	peekValue = __intVal(anObject) & 0xFF;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3164	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3165	goto bad;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3166	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3167	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3168	if (__isCharacter(anObject)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3169	peekValue = __intVal(_characterVal(anObject)) & 0xFF;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3170	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3171	goto bad;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3172	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3173	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3174
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3175	f = __FILEVal(fp);
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3176
71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3177	_buffered = (__INST(buffered) == true);
71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3178	if (_buffered) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3179	__READING__(f)
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3180	}
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3181	__READBYTE__(ret, f, &c, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3182	if (ret > 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3183	if (c == peekValue) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3184	OBJ pos;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3185
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3186	if ((pos = __INST(position)) != nil) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3187	__INST(position) = __MKSMALLINT(__intVal(pos) + 1);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3188	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3189	RETURN (true);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3190	}
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3191	__UNGETC__(c, f, _buffered);
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3192	RETURN (false);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3193	}
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3194	if (ret < 0) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3195	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3196	} else /* ret == 0 */
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3197	__INST(hitEOF) = true;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3198	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3199	bad: ;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3200	%}.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3201	mode == #writeonly ifTrue:[^ self errorWriteOnly].
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	3202	hitEOF ifTrue:[self pastEnd. ^ false].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3203	lastErrorNumber notNil ifTrue:[^ self readError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3204	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3205	^ super peekFor:anObject
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3206	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3207
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3208	skipLine
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3209	"read the next line (characters up to newline) skip only;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3210	return nil if EOF reached, self otherwise.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3211	Not allowed in binary mode."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3212
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3213	%{ /* STACK:2000 */
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3214
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	3215	FILEPOINTER f;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3216	OBJ fp;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3217	int ret, _buffered;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3218	char c;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3219
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3220	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3221	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3222	&& (__INST(mode) != @symbol(writeonly))
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3223	&& (__INST(binary) != true)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3224	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3225	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3226	if (_buffered = (__INST(buffered) == true)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3227	__READING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3228	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3229	for (;;) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3230	__READBYTE__(ret, f, &c, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3231	if (ret > 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3232	if (c == '\n')
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3233	RETURN(self)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3234	} else
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3235	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3236	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3237	if (ret < 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3238	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3239	} else /* ret == 0 */ {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3240	__INST(hitEOF) = true;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3241	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3242	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3243	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	3244	hitEOF ifTrue:[^ self pastEnd].
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3245	lastErrorNumber notNil ifTrue:[self readError. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3246	filePointer isNil ifTrue:[self errorNotOpen. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3247	binary ifTrue:[self errorBinary. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3248	self errorWriteOnly
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3249	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3250
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3251	skipSeparators
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3252	"skip all whitespace; next will return next non-white-space character
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3253	or nil if endOfFile reached. Not allowed in binary mode.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3254	- reimplemented for speed"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3255
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	3256	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	3257	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3258	char c;
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3259	int ret, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3260	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3261
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3262	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3263	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3264	&& (__INST(mode) != @symbol(writeonly))
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3265	&& (__INST(binary) != true)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3266	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3267	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3268	_buffered = (__INST(buffered) == true);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3269	if (_buffered) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3270	__READING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3271	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3272
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3273	while (1) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3274	__READBYTE__(ret, f, &c, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3275	if (ret <= 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3276	if (ret < 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3277	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3278	} else /* ret == 0 */ {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3279	__INST(hitEOF) = true;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3280	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3281	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3282	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3283	switch (c) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3284	case ' ':
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3285	case '\t':
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3286	case '\n':
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3287	case '\r':
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3288	case '\b':
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3289	case '\f':
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3290	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3291
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3292	default:
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3293	__UNGETC__(c, f, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3294	RETURN ( __MKCHARACTER(c & 0xFF) );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3295	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3296	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3297	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3298	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	3299	hitEOF ifTrue:[^ self pastEnd].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3300	lastErrorNumber notNil ifTrue:[^ self readError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3301	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3302	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3303	^ self errorBinary.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3304	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3305
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3306	skipSeparatorsExceptCR
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3307	"skip all whitespace but no newlines;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3308	next will return next non-white-space character
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3309	or nil if endOfFile reached. Not allowed in binary mode.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3310	- reimplemented for speed"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3311
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	3312	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	3313	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3314	char c;
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3315	int ret, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3316	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3317
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3318	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3319	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3320	&& (__INST(mode) != @symbol(writeonly))
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3321	&& (__INST(binary) != true)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3322	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3323	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3324	_buffered = (__INST(buffered) == true);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3325	if (_buffered) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3326	__READING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3327	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3328	while (1) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3329	__READBYTE__(ret, f, &c, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3330	if (ret <= 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3331	if (ret < 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3332	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3333	} else /* ret == 0 */ {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3334	__INST(hitEOF) = true;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3335	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3336	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3337	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3338	switch (c) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3339	case ' ':
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3340	case '\t':
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3341	case '\b':
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3342	case '\f':
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3343	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3344
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3345	default:
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3346	__UNGETC__(c, f, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3347	RETURN ( __MKCHARACTER(c & 0xFF) );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3348	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3349	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3350	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3351	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	3352	hitEOF ifTrue:[^ self pastEnd].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3353	lastErrorNumber notNil ifTrue:[^ self readError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3354	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3355	(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	3356	^ self errorBinary.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3357	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3358
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3359	skipThrough:aCharacter
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3360	"skip all characters up-to and including aCharacter. Return the receiver if
671 53de87163ad5 spelling Claus Gittinger <cg@exept.de> parents: 668 diff changeset	3361	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	3362	The next read operation will return the character after aCharacter.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3363	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	3364	Only single byte characters are currently supported."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3365
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	3366	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	3367	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3368	REGISTER int cSearch;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3369	unsigned char c;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3370	int ret, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3371	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3372
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3373	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3374	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3375	&& (__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	3376	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3377	if (__INST(binary) == true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3378	/* searched for object must be a smallInteger */
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3379	if (! __isSmallInteger(aCharacter)) goto badArgument;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3380	cSearch = __intVal(aCharacter);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3381	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3382	/* searched for object must be a character */
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3383	if (! __isCharacter(aCharacter)) goto badArgument;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3384	cSearch = __intVal(_characterVal(aCharacter));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3385	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3386	/* Q: should we just say: "not found" ? */
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3387	if ((cSearch < 0) \|\| (cSearch > 255)) goto badArgument;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3388
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3389	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3390	if (_buffered = (__INST(buffered) == true)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3391	__READING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3392	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3393
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3394	while (1) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3395	__READBYTE__(ret, f, &c, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3396	if (ret <= 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3397	if (ret < 0) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3398	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3399	} else /* ret == 0 */ {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3400	__INST(hitEOF) = true;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3401	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3402	break;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3403	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3404	if (c == cSearch) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3405	RETURN (self);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3406	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3407	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3408	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3409	badArgument: ;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3410	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	3411	hitEOF ifTrue:[^ self pastEnd].
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3412	lastErrorNumber notNil ifTrue:[self readError. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3413	filePointer isNil ifTrue:[self errorNotOpen. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3414	(mode == #writeonly) ifTrue:[self errorWriteOnly. ^ self].
612 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	argument must be integer/character in binary mode,
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3417	character in text mode
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3418	"
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3419	self error:'invalid argument'.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3420
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	\|s\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3423	s := 'Makefile' asFilename readStream.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3424	s skipThrough:$=.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3425	s next:10
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3426	"
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	skipToAll:aString
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3430	"skip for the sequence given by the argument, aCollection;
1490 713852290c8b use skipThroughAll from superclass. Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	3431	return nil if not found, self otherwise.
713852290c8b use skipThroughAll from superclass. Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	3432	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	3433
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3434	\|oldPos\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3435
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3436	oldPos := self position.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3437	(self skipThroughAll:aString) isNil ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3438	"
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3439	restore position
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3440	"
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3441	self position:oldPos.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3442	^ nil
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3443	].
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	position before match-string
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	self position:(self position - aString size).
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3448	^ self
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3449
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	\|s\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3452	s := 'Makefile' asFilename readStream.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3453	s skipToAll:'are'.
1490 713852290c8b use skipThroughAll from superclass. Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	3454	s next:10
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3455	"
1490 713852290c8b use skipThroughAll from superclass. Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	3456
713852290c8b use skipThroughAll from superclass. Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	3457	"Modified: 26.6.1996 / 09:22:05 / cg"
1 a27a279701f8 Initial revision claus parents: diff changeset	3458	! !
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3459
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3460	!ExternalStream methodsFor:'testing'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3461
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3462	atEnd
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3463	"return true, if position is at end"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3464
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	3465	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	3466	FILEPOINTER f;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3467	OBJ fp;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3468	char c;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3469	int ret;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3470
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3471	if (__INST(hitEOF) == true) {
2679 b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3472	RETURN (true);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3473	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3474
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3475	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3476
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3477	if ((fp = __INST(filePointer)) != nil) {
2679 b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3478	f = __FILEVal(fp);
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3479
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3480	if (__INST(buffered) == false) {
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3481	if (__INST(readAhead) != nil) {
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3482	RETURN (false);
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3483	}
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3484	/*
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3485	* read ahead ...
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3486	*/
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3487	__READBYTE__(ret, f, &c, 0);
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3488	if (ret > 0) {
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3489	__UNGETC__(c, f, 0);
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3490	}
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3491	} else {
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3492	/*
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3493	* This does not work:
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3494	* RETURN ( feof(f) ? true : false );
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3495	* libc tests, if EOF has already bean read,
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3496	* smallatalk asks, if next read will return EOF
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3497	*/
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3498
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3499	__READING__(f)
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3500	__BEGIN_INTERRUPTABLE__
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3501	__READBYTE__(ret, f, &c, 1);
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3502	__END_INTERRUPTABLE__
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3503	if (ret > 0) {
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3504	__UNGETC__(c, f, 1);
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3505	}
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3506	}
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3507
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3508	if (ret > 0) {
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3509	RETURN (false);
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3510	}
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3511
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3512	if (ret == 0) {
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3513	__INST(hitEOF) = true;
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3514	RETURN (true);
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3515	}
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3516
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3517	/* ret < 0 */
b0fd8c262e2a oops - atEnd must read interruptable. Claus Gittinger <cg@exept.de> parents: 2613 diff changeset	3518	__INST(lastErrorNumber) = __MKSMALLINT(errno);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3519	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3520	%}.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3521	lastErrorNumber notNil ifTrue:[^ self readError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3522	^ self errorNotOpen
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3523	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3524
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3525	canReadWithoutBlocking
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3526	"return true, if any data is available for reading (i.e.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3527	a read operation will not block the smalltalk process), false otherwise."
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	\|fd\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3530
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3531	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3532	mode == #writeonly ifTrue:[^ self errorWriteOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3533
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3534	fd := self fileDescriptor.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3535	^ OperatingSystem readCheck:fd
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3536
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3537	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3538	\|pipe\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3539
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3540	pipe := PipeStream readingFrom:'(sleep 10; echo hello)'.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3541	pipe canReadWithoutBlocking ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3542	Transcript showCR:'data available'
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3543	] ifFalse:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3544	Transcript showCR:'no data available'
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3545	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3546	pipe close
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3547	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3548	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3549
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3550	canWriteWithoutBlocking
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3551	"return true, if data can be written into the stream
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3552	(i.e. a write operation will not block the smalltalk process)."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3553
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3554	\|fd\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3555
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3556	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3557	mode == #readonly ifTrue:[^ self errorReadOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3558
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3559	fd := self fileDescriptor.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3560	^ OperatingSystem writeCheck:fd
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3561	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3562
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3563	!ExternalStream methodsFor:'waiting for I/O'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3564
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3565	readWait
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3566	"suspend the current process, until the receiver
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3567	becomes ready for reading. If data is already available,
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3568	return immediate.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3569	The other threads are not affected by the wait."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3570
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3571	self readWaitWithTimeoutMs:nil
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3572	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3573
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3574	readWaitWithTimeout:timeout
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3575	"suspend the current process, until the receiver
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3576	becomes ready for reading or a timeout (in seconds) expired.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3577	If data is already available, return immediate.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3578	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	3579	The other threads are not affected by the wait."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3580
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3581	^ self readWaitWithTimeoutMs:timeout * 1000
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3582	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3583
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3584	readWaitWithTimeoutMs:timeout
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3585	"suspend the current process, until the receiver
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3586	becomes ready for reading or a timeout (in milliseconds) expired.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3587	If data is already available, return immediate.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3588	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	3589	The other threads are not affected by the wait."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3590
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3591	\|fd inputSema hasData wasBlocked\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3592
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3593	readAhead notNil ifTrue:[^ false].
71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	3594
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3595	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3596	mode == #writeonly ifTrue:[^ self errorWriteOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3597
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3598	fd := self fileDescriptor.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3599	(OperatingSystem readCheck:fd) ifTrue:[^ false].
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	wasBlocked := OperatingSystem blockInterrupts.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3602	hasData := OperatingSystem readCheck:fd.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3603	hasData ifFalse:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3604	inputSema := Semaphore new name:'readWait'.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3605	[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3606	timeout notNil ifTrue:[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3607	Processor signal:inputSema afterMilliseconds:timeout
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3608	].
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3609	Processor signal:inputSema onInput:fd.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3610	Processor activeProcess state:#ioWait.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3611	inputSema wait.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3612	Processor disableSemaphore:inputSema.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3613	hasData := OperatingSystem readCheck:fd
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3614	] valueOnUnwindDo:[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3615	Processor disableSemaphore:inputSema.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3616	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3617	]
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3618	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3619	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3620	^ hasData not
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3621	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3622
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3623	writeWait
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3624	"suspend the current process, until the receiver
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3625	becomes ready for writing.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3626	Return immediate if the receiver is already ready.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3627	The other threads are not affected by the wait."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3628
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3629	self writeWaitWithTimeoutMs:nil
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3630	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3631
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3632	writeWaitWithTimeout:timeout
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3633	"suspend the current process, until the receiver
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3634	becomes ready for writing or a timeout (in seconds) expired.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3635	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	3636	Return immediate if the receiver is already ready.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3637	The other threads are not affected by the wait."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3638
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3639	^ self writeWaitWithTimeoutMs:timeout * 1000
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3640	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3641
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3642	writeWaitWithTimeoutMs:timeout
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3643	"suspend the current process, until the receiver
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3644	becomes ready for writing or a timeout (in seconds) expired.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3645	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	3646	Return immediate if the receiver is already ready.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3647	The other threads are not affected by the wait."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3648
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3649	\|fd outputSema canWrite wasBlocked\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3650
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3651	filePointer isNil ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3652	^ self errorNotOpen
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3653	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3654	mode == #readonly ifTrue:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3655	^ self errorReadOnly
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3656	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3657
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3658	fd := self fileDescriptor.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3659	(OperatingSystem writeCheck:fd) ifTrue:[^ false].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3660
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3661	wasBlocked := OperatingSystem blockInterrupts.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3662	canWrite := OperatingSystem writeCheck:fd.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3663	canWrite ifFalse:[
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3664	outputSema := Semaphore new name:'writeWait'.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3665	[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3666	timeout notNil ifTrue:[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3667	Processor signal:outputSema afterMilliseconds:timeout
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3668	].
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3669	Processor signal:outputSema onOutput:fd.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3670	Processor activeProcess state:#ioWait.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3671	outputSema wait.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3672	Processor disableSemaphore:outputSema.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3673	canWrite := OperatingSystem writeCheck:fd
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3674	] valueOnUnwindDo:[
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3675	Processor disableSemaphore:outputSema.
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3676	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3677	]
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3678	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3679	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3680	^ canWrite not
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3681	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3682
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3683	!ExternalStream methodsFor:'writing'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3684
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3685	cr
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3686	"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	3687	reimplemented for speed"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3688
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	3689	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	3690	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3691	int len, cnt, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3692	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3693	char *cp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3694
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3695	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3696	if (((fp = __INST(filePointer)) != nil)
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3697	&& (__INST(mode) != @symbol(readonly))
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3698	&& (__INST(binary) != true)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3699	) {
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3700	f = __FILEVal(fp);
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3701
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3702	if (_buffered = (__INST(buffered) == true)) {
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3703	__WRITING__(f)
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3704	}
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3705	if (__INST(useCRLF) == true) {
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3706	cp = "\r\n"; len = 2;
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3707	} else {
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3708	cp = "\n"; len = 1;
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3709	}
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3710	__WRITEBYTES__(cnt, f, cp, len, _buffered);
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3711
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3712	if (cnt == len) {
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3713	if (__INST(position) != nil) {
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3714	__INST(position) = __MKSMALLINT(__intVal(__INST(position)) + len);
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3715	}
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3716	RETURN ( self );
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3717	}
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3718	__INST(lastErrorNumber) = __MKSMALLINT(errno);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3719	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3720	%}.
2326 01fa309e48d9 checkin from browser Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	3721	lastErrorNumber notNil ifTrue:[self writeError. ^ self].
01fa309e48d9 checkin from browser Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	3722	filePointer isNil ifTrue:[self errorNotOpen. ^ self].
01fa309e48d9 checkin from browser Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	3723	(mode == #readonly) ifTrue:[self errorReadOnly. ^ self].
01fa309e48d9 checkin from browser Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	3724	self errorBinary
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3725	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3726
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3727	flush
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3728	"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	3729
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3730	%{
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3731	OBJ fp;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3732
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3733	__INST(lastErrorNumber) = nil;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3734	if ((fp = __INST(filePointer)) != nil) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3735	if (__INST(mode) != @symbol(readonly)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3736	if (__INST(buffered) == true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3737	__BEGIN_INTERRUPTABLE__
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	3738	FFLUSH( __FILEVal(fp) );
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3739	__END_INTERRUPTABLE__
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3740	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3741	}
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3742	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3743	%}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3744	!
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3745
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3746	nextPut:aCharacter
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3747	"write the argument, aCharacter - return nil if failed, self if ok.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3748	Only single-byte characters are currently supported"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3749
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	3750	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	3751	FILEPOINTER f;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3752	char c;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3753	int cnt, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3754	OBJ pos, fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3755
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3756	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3757	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3758	&& (__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	3759	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3760	if (__INST(binary) != true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3761	if (__isCharacter(aCharacter)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3762	c = __intVal(__characterVal(aCharacter)) & 0xFF;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3763	doWrite:
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3764	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3765
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3766
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3767	if (_buffered = (__INST(buffered) == true)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3768	__WRITING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3769	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3770	__WRITEBYTE__(cnt, f, &c, _buffered);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3771
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3772	if (cnt == 1) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3773	pos = __INST(position);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3774	if (pos != nil) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3775	__INST(position) = __MKSMALLINT(__intVal(pos) + 1);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3776	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3777	RETURN ( self );
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3778	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3779	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3780	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3781	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3782	if (__isSmallInteger(aCharacter)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3783	c = __intVal(aCharacter);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3784	goto doWrite;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3785	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3786	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3787	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3788	%}.
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3789	lastErrorNumber notNil ifTrue:[self writeError. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3790	filePointer isNil ifTrue:[self errorNotOpen. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3791	(mode == #readonly) ifTrue:[self errorReadOnly. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3792	binary ifFalse:[self argumentMustBeCharacter. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3793	self argumentMustBeInteger.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3794	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3795
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3796	nextPutAll:aCollection
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3797	"write all elements of the argument, aCollection.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3798	Reimplemented for speed when writing strings or byteArrays.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3799	For others, falls back to general method in superclass."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3800
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	3801	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	3802	FILEPOINTER f;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3803	int len, cnt;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3804	OBJ pos, fp;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3805	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	3806	int o_offs;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3807
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3808	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3809
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3810	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3811	&& (__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	3812	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3813	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3814	if (_buffered = (__INST(buffered) == true)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3815	__WRITING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3816	}
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	3817
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3818	if (__isString(aCollection) \|\| __isSymbol(aCollection)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3819	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	3820	#ifdef BUGGY
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3821	__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	3822	#else
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	3823	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	3824	__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	3825	#endif
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3826	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3827	if (__INST(binary) == true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3828	int offs;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3829
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3830	if (__isByteArray(aCollection)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3831	offs = 0;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3832	len = _byteArraySize(aCollection);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3833	} else if (__isBytes(aCollection)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3834	offs = __OBJS2BYTES__(__intVal(__ClassInstPtr(__qClass(aCollection))->c_ninstvars));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3835	len = _byteArraySize(aCollection) - offs;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3836	} else
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3837	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	3838	#ifdef BUGGY
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	3839	__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	3840	#else
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	3841	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	3842	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	3843	__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	3844	#endif
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3845	} else
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3846	goto out;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3847	}
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	3848
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3849	if (cnt == len) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3850	pos = __INST(position);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3851	if (pos != nil) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3852	__INST(position) = __MKSMALLINT(__intVal(pos) + len);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3853	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3854	RETURN (self);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3855	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3856	__INST(lastErrorNumber) = __MKSMALLINT(errno);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3857	}
1478 aae07192b7d1 labels in empty statements need a semi Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	3858	out: ;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3859	%}.
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3860	lastErrorNumber notNil ifTrue:[self writeError. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3861	filePointer isNil ifTrue:[self errorNotOpen. ^ self].
d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	3862	(mode == #readonly) ifTrue:[self errorReadOnly. ^ self].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3863
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3864	^ super nextPutAll:aCollection
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3865	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3866
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3867	nextPutAll:aCollection startingAt:start to:stop
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3868	"write a range of elements of the argument, aCollection.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3869	Reimplemented for speed when writing strings or byteArrays.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3870	For others, falls back to general method in superclass."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3871
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	3872	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	3873	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3874	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	3875	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	3876	int o_offs;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3877
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3878	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3879	if (((fp = __INST(filePointer)) != nil)
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3880	&& (__INST(mode) != @symbol(readonly))
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3881	&& __bothSmallInteger(start, stop)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3882	) {
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3883	f = __FILEVal(fp);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3884	if (_buffered = (__INST(buffered) == true)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3885	__WRITING__(f)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3886	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3887	iStart = __intVal(start);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3888	iStop = __intVal(stop);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3889	if ((iStart < 1) \|\| (iStop < iStart)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3890	RETURN(self);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3891	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3892	if (__isString(aCollection) \|\| __isSymbol(aCollection)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3893	len = __stringSize(aCollection);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3894	if (iStop > len) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3895	RETURN(self);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3896	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3897	if (iStop > len)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3898	iStop = len;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3899	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	3900	#ifdef BUGGY
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3901	__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	3902	#else
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	3903	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	3904	__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	3905	#endif
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3906	} else {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3907	if (__INST(binary) == true) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3908	int offs;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3909
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3910	if (__isByteArray(aCollection)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3911	offs = 0;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3912	len = _byteArraySize(aCollection);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3913	} else if (__isBytes(aCollection)) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3914	offs = __OBJS2BYTES__(__intVal(__ClassInstPtr(__qClass(aCollection))->c_ninstvars));
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3915	len = _byteArraySize(aCollection) - offs;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3916	} else
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3917	goto out;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3918
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3919	if (iStop > len) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3920	RETURN(self);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3921	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3922	if (iStop > len)
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3923	iStop = len;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3924	len = iStop - iStart + 1;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3925	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	3926	#ifdef BUGGY
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3927	__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	3928	#else
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	3929	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	3930	__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	3931	#endif
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3932	} else
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3933	goto out;
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3934	}
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3935	if (cnt == len) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3936	pos = __INST(position);
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3937	if (pos != nil) {
ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	3938	__INST(position) = __MKSMALLINT(__intVal(pos) + len);
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	RETURN (self);
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	__INST(lastErrorNumber) = __MKSMALLINT(errno);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3943	}
1478 aae07192b7d1 labels in empty statements need a semi Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	3944	out: ;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3945	%}.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3946	lastErrorNumber notNil ifTrue:[^ self writeError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3947	^ super nextPutAll:aCollection startingAt:start to:stop
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3948	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3949
2045 1ad17ca6520f fall back to super>>nextPutLine: if argument is not a string. Claus Gittinger <cg@exept.de> parents: 2044 diff changeset	3950	!ExternalStream class methodsFor:'documentation'!
730 62643519bf68 checkin from browser Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3951
62643519bf68 checkin from browser Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3952	version
2854 3c8bf66e4e7d give nextChunk a bit more stack Claus Gittinger <cg@exept.de> parents: 2766 diff changeset	3953	^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.136 1997-08-12 00:30:45 cg Exp $'
730 62643519bf68 checkin from browser Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3954	! !
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3955	ExternalStream initialize!

author	Claus Gittinger <cg@exept.de>
	Tue, 12 Aug 1997 02:30:45 +0200
changeset 2854	3c8bf66e4e7d
parent 2766	755c65a368eb
child 2861	c098e5766682
permissions	-rw-r--r--