hg/stx-libbasic: ExtStream.st@ace6b72b6f4a (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
159 514c749165c3 * empty log message * claus parents: 108 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
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	13	'From Smalltalk/X, Version:2.10.9 on 12-jun-1996 at 23:02:51' !
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	14
1 a27a279701f8 Initial revision claus parents: diff changeset	15	ReadWriteStream subclass:#ExternalStream
1044 c2fb3818e097 ExtSTream>>next: did not work correct if interrupted. Stefan Vogel <sv@exept.de> parents: 971 diff changeset	16	instanceVariableNames:'filePointer mode buffered binary useCRLF hitEOF didWrite
820 6d934f5d6cbc moved readErrorSignal / writeErrorSignal up in the hierarchy Claus Gittinger <cg@exept.de> parents: 791 diff changeset	17	lastErrorNumber'
1044 c2fb3818e097 ExtSTream>>next: did not work correct if interrupted. Stefan Vogel <sv@exept.de> parents: 971 diff changeset	18	classVariableNames:'Lobby LastErrorNumber InvalidReadSignal InvalidWriteSignal
c2fb3818e097 ExtSTream>>next: did not work correct if interrupted. Stefan Vogel <sv@exept.de> parents: 971 diff changeset	19	InvalidModeSignal OpenErrorSignal StreamNotOpenSignal
c2fb3818e097 ExtSTream>>next: did not work correct if interrupted. Stefan Vogel <sv@exept.de> parents: 971 diff changeset	20	InvalidOperationSignal'
c2fb3818e097 ExtSTream>>next: did not work correct if interrupted. Stefan Vogel <sv@exept.de> parents: 971 diff changeset	21	poolDictionaries:''
c2fb3818e097 ExtSTream>>next: did not work correct if interrupted. Stefan Vogel <sv@exept.de> parents: 971 diff changeset	22	category:'Streams-External'
1 a27a279701f8 Initial revision claus parents: diff changeset	23	!
a27a279701f8 Initial revision claus parents: diff changeset	24
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	25	!ExternalStream primitiveDefinitions!
1 a27a279701f8 Initial revision claus parents: diff changeset	26	%{
a27a279701f8 Initial revision claus parents: diff changeset	27	#include <stdio.h>
437 a005e97d261e . claus parents: 436 diff changeset	28	#define _STDIO_H_INCLUDED_
a005e97d261e . claus parents: 436 diff changeset	29
10 4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	30	#include <fcntl.h>
437 a005e97d261e . claus parents: 436 diff changeset	31	#define _FCNTL_H_INCLUDED_
a005e97d261e . claus parents: 436 diff changeset	32
10 4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	33	#include <errno.h>
437 a005e97d261e . claus parents: 436 diff changeset	34	#define _ERRNO_H_INCLUDED_
42 e33491f6f260 * empty log message * claus parents: 38 diff changeset	35
1141 8ea1b43f7034 * empty log message * Claus Gittinger <cg@exept.de> parents: 1138 diff changeset	36	#ifdef LINUX
8ea1b43f7034 * empty log message * Claus Gittinger <cg@exept.de> parents: 1138 diff changeset	37	/* use inline string macros */
8ea1b43f7034 * empty log message * Claus Gittinger <cg@exept.de> parents: 1138 diff changeset	38	# define __STRINGDEFS__
8ea1b43f7034 * empty log message * Claus Gittinger <cg@exept.de> parents: 1138 diff changeset	39	# include <linuxIntern.h>
8ea1b43f7034 * empty log message * Claus Gittinger <cg@exept.de> parents: 1138 diff changeset	40	#endif
8ea1b43f7034 * empty log message * Claus Gittinger <cg@exept.de> parents: 1138 diff changeset	41
42 e33491f6f260 * empty log message * claus parents: 38 diff changeset	42	#ifdef hpux
e33491f6f260 * empty log message * claus parents: 38 diff changeset	43	# define fileno(f) ((f->__fileH << 8) \| (f->__fileL))
e33491f6f260 * empty log message * claus parents: 38 diff changeset	44	#endif
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	45
933 2eebae059045 oops - when truncating buffered streams, we must flush & seek first (stdio trouble) Claus Gittinger <cg@exept.de> parents: 932 diff changeset	46	#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	47	# 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	48	#endif
2eebae059045 oops - when truncating buffered streams, we must flush & seek first (stdio trouble) Claus Gittinger <cg@exept.de> parents: 932 diff changeset	49	#ifndef SEEK_CUR
2eebae059045 oops - when truncating buffered streams, we must flush & seek first (stdio trouble) Claus Gittinger <cg@exept.de> parents: 932 diff changeset	50	# define SEEK_CUR 1
2eebae059045 oops - when truncating buffered streams, we must flush & seek first (stdio trouble) Claus Gittinger <cg@exept.de> parents: 932 diff changeset	51	#endif
2eebae059045 oops - when truncating buffered streams, we must flush & seek first (stdio trouble) Claus Gittinger <cg@exept.de> parents: 932 diff changeset	52	#ifndef SEEK_END
2eebae059045 oops - when truncating buffered streams, we must flush & seek first (stdio trouble) Claus Gittinger <cg@exept.de> parents: 932 diff changeset	53	# define SEEK_END 2
2eebae059045 oops - when truncating buffered streams, we must flush & seek first (stdio trouble) Claus Gittinger <cg@exept.de> parents: 932 diff changeset	54	#endif
2eebae059045 oops - when truncating buffered streams, we must flush & seek first (stdio trouble) Claus Gittinger <cg@exept.de> parents: 932 diff changeset	55
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	56	/*
a8abff749575 * empty log message * claus parents: 213 diff changeset	57	* stdio library requires an fseek before reading whenever a file
a8abff749575 * empty log message * claus parents: 213 diff changeset	58	* is open for read/write and the last operation was a write.
a8abff749575 * empty log message * claus parents: 213 diff changeset	59	* (also vice-versa).
a8abff749575 * empty log message * claus parents: 213 diff changeset	60	* All code should use the following macro before doing reads:
a8abff749575 * empty log message * claus parents: 213 diff changeset	61	*/
a8abff749575 * empty log message * claus parents: 213 diff changeset	62	#define __READING__(f) \
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	63	if ((__INST(didWrite) != false) \
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	64	&& (__INST(mode) == @symbol(readwrite))) { \
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	65	__INST(didWrite) = false; \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	66	fseek(f, 0L, SEEK_CUR); /* needed in stdio */ \
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	67	}
a8abff749575 * empty log message * claus parents: 213 diff changeset	68
a8abff749575 * empty log message * claus parents: 213 diff changeset	69	#define __WRITING__(f) \
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	70	if ((__INST(didWrite) != true) \
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	71	&& (__INST(mode) == @symbol(readwrite))) { \
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	72	__INST(didWrite) = true; \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	73	fseek(f, 0L, SEEK_CUR); /* needed in stdio */ \
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	74	}
a8abff749575 * empty log message * claus parents: 213 diff changeset	75
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	76
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	77	#define __READBYTE__(ret, f, buf, isBuffered) \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	78	if (isBuffered) { \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	79	for (;;) { \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	80	ret = getc(f); \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	81	if (ret >= 0) { \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	82	*(buf) = ret; \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	83	ret = 1; \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	84	} else if (ferror(f)) { \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	85	if (errno == EINTR) { \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	86	__HANDLE_INTERRUPTS__; \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	87	clearerr(f); \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	88	continue; \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	89	} \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	90	} else \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	91	ret = 0; \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	92	break; \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	93	} \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	94	} else { \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	95	for (;;) { \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	96	ret = read(fileno(f), buf, 1); \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	97	if (ret >= 0 \|\| errno != EINTR) \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	98	break; \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	99	__HANDLE_INTERRUPTS__; \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	100	} \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	101	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	102
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	103	#define __READBYTES__(ret, f, buf, cnt, isBuffered) \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	104	if (isBuffered) { \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	105	int __offs = 0; \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	106	while (__offs < (cnt)) { \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	107	(ret) = getc(f); \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	108	if ((ret) < 0) { \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	109	if (ferror(f)) { \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	110	if (errno == EINTR) { \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	111	__HANDLE_INTERRUPTS__; \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	112	clearerr(f); \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	113	continue; \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	114	} \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	115	} else { \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	116	(ret) = 0; \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	117	} \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	118	break; \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	119	} \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	120	(buf)[__offs++] = (ret); \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	121	} \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	122	if (__offs > 0) \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	123	(ret) = __offs; \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	124	} else { \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	125	int __offs = 0; \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	126	while (__offs < (cnt)) { \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	127	(ret) = read(fileno(f), (buf)+__offs, (cnt)-__offs); \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	128	if ((ret) <= 0) { \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	129	if ((ret) < 0 && errno == EINTR) { \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	130	__HANDLE_INTERRUPTS__; \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	131	continue; \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	132	} \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	133	break; \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	134	} \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	135	__offs += (ret); \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	136	} \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	137	if (__offs > 0) \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	138	(ret) = __offs; \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	139	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	140
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	141	#define __WRITEBYTE__(ret, f, buf, isBuffered) \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	142	if (isBuffered) { \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	143	for (;;) { \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	144	ret = putc(*(buf), f); \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	145	if ((ret) >= 0) { \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	146	(ret) = 1; \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	147	} else if (ferror(f)) { \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	148	if (errno == EINTR) { \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	149	__HANDLE_INTERRUPTS__; \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	150	clearerr(f); \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	151	continue; \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	152	} \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	153	} else \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	154	(ret) = 0; \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	155	break; \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	156	} \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	157	} else { \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	158	for (;;) { \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	159	(ret) = write(fileno(f), buf, 1); \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	160	if ((ret) >= 0 \|\| errno != EINTR) \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	161	break; \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	162	__HANDLE_INTERRUPTS__; \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	163	} \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	164	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	165
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	166	#define __WRITEBYTES__(ret, f, buf, cnt, isBuffered) \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	167	if (isBuffered) { \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	168	int __offs = 0; \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	169	while (__offs < (cnt)) { \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	170	ret = fwrite((buf)+__offs, 1, (cnt)-__offs, f); \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	171	if ((ret) < 0) { \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	172	if (ferror(f)) { \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	173	if (errno == EINTR) { \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	174	__HANDLE_INTERRUPTS__; \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	175	clearerr(f); \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	176	continue; \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	177	} \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	178	} else { \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	179	(ret) = 0; \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	180	} \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	181	break; \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	182	} \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	183	__offs += (ret); \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	184	} \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	185	if (__offs > 0) \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	186	(ret) = __offs; \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	187	} else { \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	188	int __offs = 0; \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	189	while (__offs < (cnt)) { \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	190	ret = write(fileno(f), (buf)+__offs, (cnt)-__offs); \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	191	if (ret <= 0) { \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	192	if (ret < 0 && errno == EINTR) { \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	193	__HANDLE_INTERRUPTS__; \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	194	continue; \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	195	} \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	196	break; \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	197	} \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	198	__offs += (ret); \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	199	} \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	200	if (__offs > 0) \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	201	(ret) = __offs; \
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	202	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	203
223 3075043790b8 immediateInterr & errno cleanup claus parents: 216 diff changeset	204	/*
3075043790b8 immediateInterr & errno cleanup claus parents: 216 diff changeset	205	* on some systems errno is a macro ... check for it here
3075043790b8 immediateInterr & errno cleanup claus parents: 216 diff changeset	206	*/
3075043790b8 immediateInterr & errno cleanup claus parents: 216 diff changeset	207	#ifndef errno
3075043790b8 immediateInterr & errno cleanup claus parents: 216 diff changeset	208	extern errno;
3075043790b8 immediateInterr & errno cleanup claus parents: 216 diff changeset	209	#endif
3075043790b8 immediateInterr & errno cleanup claus parents: 216 diff changeset	210
1 a27a279701f8 Initial revision claus parents: diff changeset	211	%}
188 454ed0ee733e EINTR problems claus parents: 159 diff changeset	212	! !
1 a27a279701f8 Initial revision claus parents: diff changeset	213
22 847106305963 * empty log message * claus parents: 12 diff changeset	214	!ExternalStream class methodsFor:'documentation'!
847106305963 * empty log message * claus parents: 12 diff changeset	215
88 81dacba7a63a * empty log message * claus parents: 85 diff changeset	216	copyright
81dacba7a63a * empty log message * claus parents: 85 diff changeset	217	"
81dacba7a63a * empty log message * claus parents: 85 diff changeset	218	COPYRIGHT (c) 1988 by Claus Gittinger
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	219	All Rights Reserved
88 81dacba7a63a * empty log message * claus parents: 85 diff changeset	220
81dacba7a63a * empty log message * claus parents: 85 diff changeset	221	This software is furnished under a license and may be used
81dacba7a63a * empty log message * claus parents: 85 diff changeset	222	only in accordance with the terms of that license and with the
81dacba7a63a * empty log message * claus parents: 85 diff changeset	223	inclusion of the above copyright notice. This software may not
81dacba7a63a * empty log message * claus parents: 85 diff changeset	224	be provided or otherwise made available to, or used by, any
81dacba7a63a * empty log message * claus parents: 85 diff changeset	225	other person. No title to or ownership of the software is
81dacba7a63a * empty log message * claus parents: 85 diff changeset	226	hereby transferred.
81dacba7a63a * empty log message * claus parents: 85 diff changeset	227	"
81dacba7a63a * empty log message * claus parents: 85 diff changeset	228	!
81dacba7a63a * empty log message * claus parents: 85 diff changeset	229
22 847106305963 * empty log message * claus parents: 12 diff changeset	230	documentation
847106305963 * empty log message * claus parents: 12 diff changeset	231	"
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	232	ExternalStream defines protocol common to Streams which have a file-descriptor and
59faa75185ba * empty log message * claus parents: 54 diff changeset	233	represent some file or communicationChannel of the underlying OperatingSystem.
59faa75185ba * empty log message * claus parents: 54 diff changeset	234	ExternalStream is abstract; concrete classes are FileStream, PipeStream etc.
77 6c38ca59927f * empty log message * claus parents: 68 diff changeset	235
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	236	ExternalStreams can be in two modes: text- (the default) and binary-mode.
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	237	In text-mode, the elements read/written are characters;
59faa75185ba * empty log message * claus parents: 54 diff changeset	238	while in binary-mode the basic elements are bytes which read/write as SmallIntegers
59faa75185ba * empty log message * claus parents: 54 diff changeset	239	in the range 0..255.
22 847106305963 * empty log message * claus parents: 12 diff changeset	240
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	241	Also, the stream can be either in buffered or unbuffered mode. In buffered mode,
59faa75185ba * empty log message * claus parents: 54 diff changeset	242	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	243	is sent (in both modes).
22 847106305963 * empty log message * claus parents: 12 diff changeset	244
77 6c38ca59927f * empty log message * claus parents: 68 diff changeset	245	The underlying OperatingSystem streams may either be closed explicitely (sending a close)
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	246	or just forgotten - in this case, the garbage collector will eventually collect the
77 6c38ca59927f * empty log message * claus parents: 68 diff changeset	247	object AND a close will be performed automatically (but you will NOT know when this
6c38ca59927f * empty log message * claus parents: 68 diff changeset	248	happens - so it is recommended, that you close your files when no longer needed).
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	249	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	250	some crash) the data will not be in the file, if unclosed.
6c38ca59927f * empty log message * claus parents: 68 diff changeset	251	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	252	a noop in one of the superclasses).
22 847106305963 * empty log message * claus parents: 12 diff changeset	253
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	254	Most of the methods found here redefine inherited methods for better performance,
59faa75185ba * empty log message * claus parents: 54 diff changeset	255	since I/O from/to files should be fast.
22 847106305963 * empty log message * claus parents: 12 diff changeset	256
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	257	Recovering a snapshot:
1295 83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	258	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	259	reOpen in subclasses for more information.
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	260	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	261	reestablish the stream upon image restart (make someone dependent on ObjectMemory).
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	262	FileStreams are reopened and positioned to their offset they had at snapshot time.
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	263	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	264	if the contents changed in the meantime.
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	265	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	266
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	267	[Instance variables:]
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	268
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	269	filePointer <Integer> the unix FILE*; somehow mapped to an integer
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	270	(notice: not the fd)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	271	mode <Symbol> #readwrite, #readonly or #writeonly
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	272	buffered <Boolean> true, if buffered (i.e. collects characters - does
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	273	not output immediately)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	274	binary <Boolean> true if in binary mode (reads bytes instead of chars)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	275	useCRLF <Boolean> true, if lines should be terminated with crlf instead
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	276	of lf. (i.e. if file is an MSDOS-type file)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	277	hitEOF <Boolean> true, if EOF was reached
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	278
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	279	lastErrorNumber <Integer> the value of errno (only valid right after the error -
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	280	updated with next i/o operation)
1295 83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	281
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	282	[Class variables:]
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	283	Lobby <Registry> keeps track of used ext-streams (to free up FILE*'s)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	284
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	285	StreamErrorSignal <Signal> parent of all stream errors (see Stream class)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	286	InvalidReadSignal <Signal> raised on read from writeonly stream
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	287	InvalidWriteSignal <Signal> raised on write to readonly stream
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	288	InvalidModeSignal <Signal> raised on text I/O with binary-stream
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	289	or binary I/O with text-stream
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	290	OpenErrorSignal <Signal> raised if open fails
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	291	StreamNotOpenSignal <Signal> raised on I/O with non-open stream
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	292
514c749165c3 * empty log message * claus parents: 108 diff changeset	293	Additional notes:
514c749165c3 * empty log message * claus parents: 108 diff changeset	294	This class is implemented using the underlying stdio-c library package, which
514c749165c3 * empty log message * claus parents: 108 diff changeset	295	has both advantages and disadvantages: since it is portable (posix defined), porting
514c749165c3 * empty log message * claus parents: 108 diff changeset	296	ST/X to non-Unix machines is simplified. The disadvantage is that the stdio library
514c749165c3 * empty log message * claus parents: 108 diff changeset	297	has big problems handling unbounded Streams, since the EOF handling in stdio is
514c749165c3 * empty log message * claus parents: 108 diff changeset	298	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	299	a complete rewrite for UnboundedStream ...
325 46bca6125b93 . claus parents: 308 diff changeset	300
188 454ed0ee733e EINTR problems claus parents: 159 diff changeset	301	Also, depending on the system, the stdio library behaves infriendly when signals
454ed0ee733e EINTR problems claus parents: 159 diff changeset	302	occur while reading (for example, timer interrupts) - on real unixes (i.e. BSD) the signal
454ed0ee733e EINTR problems claus parents: 159 diff changeset	303	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	304	an error and errno is set to EINTR.
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	305	Thats what the ugly code around all getc-calls is for ...
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	306	Since things get more and more ugly - we will rewrite ExternalStream
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	307	completely, to NOT use any stdio stuff (and do its buffering itself).
325 46bca6125b93 . claus parents: 308 diff changeset	308
46bca6125b93 . claus parents: 308 diff changeset	309	Notice that typical stdio's use a single errno global variable to return an error code,
46bca6125b93 . claus parents: 308 diff changeset	310	this was bad design in the stdio lib (right from the very beginning), since its much
46bca6125b93 . claus parents: 308 diff changeset	311	harder to deal with this in the presence of lightweight processes, where errno gets
46bca6125b93 . claus parents: 308 diff changeset	312	overwritten by an I/O operation done in another thread. (stdio should have been written
46bca6125b93 . claus parents: 308 diff changeset	313	to return errno as a negative number ...).
46bca6125b93 . claus parents: 308 diff changeset	314	To deal with this, the scheduler treats errno like a per-thread private variable,
46bca6125b93 . claus parents: 308 diff changeset	315	and saves/restores the errno setting when switching to another thread.
46bca6125b93 . claus parents: 308 diff changeset	316	(Notice that some thread packages do this also, but ST/X's thread implementation
46bca6125b93 . claus parents: 308 diff changeset	317	does not depend on those, but instead uses a portable private package).
46bca6125b93 . claus parents: 308 diff changeset	318
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	319	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	320	fseek whenever we are about to read after write and vice versa.
a8abff749575 * empty log message * claus parents: 213 diff changeset	321	Two macros (__READING__ and __WRITING__) have been defined to be used before every
a8abff749575 * empty log message * claus parents: 213 diff changeset	322	fread/fgetc and fwrite/putc respectively.
1295 83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	323
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	324	[author:]
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	325	Claus Gittinger
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	326	Stefan Vogel (many, many fixes ...)
1295 83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	327
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	328	[see also:]
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	329	FileStream Socket PipeStream
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	330	Filename OperatingSystem
22 847106305963 * empty log message * claus parents: 12 diff changeset	331	"
847106305963 * empty log message * claus parents: 12 diff changeset	332	! !
847106305963 * empty log message * claus parents: 12 diff changeset	333
1 a27a279701f8 Initial revision claus parents: diff changeset	334	!ExternalStream class methodsFor:'initialization'!
a27a279701f8 Initial revision claus parents: diff changeset	335
a27a279701f8 Initial revision claus parents: diff changeset	336	initialize
593 19d568779cf7 moved StreamErrorSignal into Stream; Claus Gittinger <cg@exept.de> parents: 583 diff changeset	337	OpenErrorSignal isNil ifTrue:[
255 2b2c5c0facab * empty log message * claus parents: 249 diff changeset	338	OpenErrorSignal := StreamErrorSignal newSignalMayProceed:true.
2b2c5c0facab * empty log message * claus parents: 249 diff changeset	339	OpenErrorSignal nameClass:self message:#openErrorSignal.
2b2c5c0facab * empty log message * claus parents: 249 diff changeset	340	OpenErrorSignal notifierString:'open error'.
2b2c5c0facab * empty log message * claus parents: 249 diff changeset	341
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	342	InvalidReadSignal := ReadErrorSignal newSignalMayProceed:false.
514c749165c3 * empty log message * claus parents: 108 diff changeset	343	InvalidReadSignal nameClass:self message:#invalidReadSignal.
583 1a98eeae0746 signal strings Claus Gittinger <cg@exept.de> parents: 569 diff changeset	344	InvalidReadSignal notifierString:'read error'.
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	345
514c749165c3 * empty log message * claus parents: 108 diff changeset	346	InvalidWriteSignal := WriteErrorSignal newSignalMayProceed:false.
514c749165c3 * empty log message * claus parents: 108 diff changeset	347	InvalidWriteSignal nameClass:self message:#invalidWriteSignal.
514c749165c3 * empty log message * claus parents: 108 diff changeset	348	InvalidWriteSignal notifierString:'write error'.
514c749165c3 * empty log message * claus parents: 108 diff changeset	349
514c749165c3 * empty log message * claus parents: 108 diff changeset	350	InvalidModeSignal := StreamErrorSignal newSignalMayProceed:false.
514c749165c3 * empty log message * claus parents: 108 diff changeset	351	InvalidModeSignal nameClass:self message:#invalidModeSignal.
514c749165c3 * empty log message * claus parents: 108 diff changeset	352	InvalidModeSignal notifierString:'binary/text mode mismatch'.
514c749165c3 * empty log message * claus parents: 108 diff changeset	353
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	354	InvalidOperationSignal := StreamErrorSignal newSignalMayProceed:false.
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	355	InvalidOperationSignal nameClass:self message:#invalidOperationSignal.
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	356	InvalidOperationSignal notifierString:'unsupported file operation'.
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	357
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	358	StreamNotOpenSignal := StreamErrorSignal newSignalMayProceed:false.
514c749165c3 * empty log message * claus parents: 108 diff changeset	359	StreamNotOpenSignal nameClass:self message:#streamNotOpenSignal.
514c749165c3 * empty log message * claus parents: 108 diff changeset	360	StreamNotOpenSignal notifierString:'stream is not open'.
514c749165c3 * empty log message * claus parents: 108 diff changeset	361	].
514c749165c3 * empty log message * claus parents: 108 diff changeset	362
31 75f2b9f78be2 * empty log message * claus parents: 25 diff changeset	363	Lobby isNil ifTrue:[
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	364	Lobby := Registry new.
514c749165c3 * empty log message * claus parents: 108 diff changeset	365
514c749165c3 * empty log message * claus parents: 108 diff changeset	366	"want to get informed when returning from snapshot"
514c749165c3 * empty log message * claus parents: 108 diff changeset	367	ObjectMemory addDependent:self
1 a27a279701f8 Initial revision claus parents: diff changeset	368	]
a27a279701f8 Initial revision claus parents: diff changeset	369	!
a27a279701f8 Initial revision claus parents: diff changeset	370
a27a279701f8 Initial revision claus parents: diff changeset	371	reOpenFiles
a27a279701f8 Initial revision claus parents: diff changeset	372	"reopen all files (if possible) after a snapShot load"
a27a279701f8 Initial revision claus parents: diff changeset	373
301 35e40a6fc72b * empty log message * claus parents: 269 diff changeset	374	Lobby do:[:aFileStream \|
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	375	aFileStream reOpen
1 a27a279701f8 Initial revision claus parents: diff changeset	376	]
a27a279701f8 Initial revision claus parents: diff changeset	377	!
a27a279701f8 Initial revision claus parents: diff changeset	378
a27a279701f8 Initial revision claus parents: diff changeset	379	update:something
a27a279701f8 Initial revision claus parents: diff changeset	380	"have to reopen files when returning from snapshot"
a27a279701f8 Initial revision claus parents: diff changeset	381
a27a279701f8 Initial revision claus parents: diff changeset	382	something == #returnFromSnapshot ifTrue:[
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	383	self reOpenFiles
1 a27a279701f8 Initial revision claus parents: diff changeset	384	]
a27a279701f8 Initial revision claus parents: diff changeset	385	! !
a27a279701f8 Initial revision claus parents: diff changeset	386
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	387	!ExternalStream class methodsFor:'instance creation'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	388
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	389	forFileDescriptor:aFileDescriptor mode:mode
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	390	\|newStream\|
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	391
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	392	newStream := self basicNew.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	393	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	394	^ 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	395
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	396	"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	397
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	398	\|s\|
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	399
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	400	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	401	s next.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	402	"
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	403
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	404	"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	405	"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	406	!
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	407
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	408	forReadWriteToFileDescriptor:aFileDescriptor
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	409	^ 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	410
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	411	"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	412
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	413	\|s\|
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	414
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	415	s := ExternalStream forReadWriteToFileDescriptor:15.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	416	s next.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	417	"
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	418
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	419	"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	420	"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	421	!
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	422
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	423	forReadingFromFileDescriptor:aFileDescriptor
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	424	^ 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	425
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	426	"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	427
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	428	\|s\|
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	429
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	430	s := ExternalStream forReadingFromFileDescriptor:15.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	431	s next.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	432	"
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	433
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	434	"
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	435	\|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	436
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	437	'create OS pipe ...'.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	438
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	439	pipe := OperatingSystem makePipe.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	440	readFd := pipe at:1.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	441	writeFd := pipe at:2.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	442
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	443	'connect Smalltalk streams ...'.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	444
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	445	rs := ExternalStream forReadingFromFileDescriptor:readFd.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	446	ws := ExternalStream forWritingToFileDescriptor:writeFd.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	447
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	448	'read ...'.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	449	[
1079 d47cd86b487b Make methods signal-proof. Stefan Vogel <sv@exept.de> parents: 1068 diff changeset	450	1 to:10 do:[:i \|
1422 9a0b792f2953 showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 1305 diff changeset	451	Transcript showCR:rs nextLine
1079 d47cd86b487b Make methods signal-proof. Stefan Vogel <sv@exept.de> parents: 1068 diff changeset	452	].
d47cd86b487b Make methods signal-proof. Stefan Vogel <sv@exept.de> parents: 1068 diff changeset	453	rs close.
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	454	] forkAt:7.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	455
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	456	'write ...'.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	457	[
1079 d47cd86b487b Make methods signal-proof. Stefan Vogel <sv@exept.de> parents: 1068 diff changeset	458	1 to:10 do:[:i \|
d47cd86b487b Make methods signal-proof. Stefan Vogel <sv@exept.de> parents: 1068 diff changeset	459	ws nextPutAll:'hello world '; nextPutAll:i printString; cr
d47cd86b487b Make methods signal-proof. Stefan Vogel <sv@exept.de> parents: 1068 diff changeset	460	].
d47cd86b487b Make methods signal-proof. Stefan Vogel <sv@exept.de> parents: 1068 diff changeset	461	ws close.
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	462	] fork.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	463
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	464	"
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	465
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	466	"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	467	"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	468	!
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	469
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	470	forWritingToFileDescriptor:aFileDescriptor
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	471	^ 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	472
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	473	"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	474
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	475	\|s\|
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	476
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	477	s := ExternalStream forWritingToFileDescriptor:15.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	478	s binary.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	479	s nextPut:1.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	480	"
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	481
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	482	"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	483	"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	484	!
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	485
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	486	makePipe
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	487	"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	488	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	489
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	490	\|pipe rs ws\|
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	491
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	492	pipe := OperatingSystem makePipe.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	493
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	494	pipe notNil ifTrue:[
1079 d47cd86b487b Make methods signal-proof. Stefan Vogel <sv@exept.de> parents: 1068 diff changeset	495	rs := self forReadingFromFileDescriptor:(pipe at:1).
d47cd86b487b Make methods signal-proof. Stefan Vogel <sv@exept.de> parents: 1068 diff changeset	496	ws := self forWritingToFileDescriptor:(pipe at:2).
d47cd86b487b Make methods signal-proof. Stefan Vogel <sv@exept.de> parents: 1068 diff changeset	497	^ 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	498	].
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	499	^ nil
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	500
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	501	"
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	502	\|pipe rs ws\|
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	503
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	504	pipe := ExternalStream makePipe.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	505	rs := pipe at:1.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	506	ws := pipe at:2.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	507
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	508	'read ...'.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	509	[
1079 d47cd86b487b Make methods signal-proof. Stefan Vogel <sv@exept.de> parents: 1068 diff changeset	510	1 to:10 do:[:i \|
1422 9a0b792f2953 showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 1305 diff changeset	511	Transcript showCR:rs nextLine
1079 d47cd86b487b Make methods signal-proof. Stefan Vogel <sv@exept.de> parents: 1068 diff changeset	512	].
d47cd86b487b Make methods signal-proof. Stefan Vogel <sv@exept.de> parents: 1068 diff changeset	513	rs close.
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	514	] forkAt:7.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	515
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	516	'write ...'.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	517	[
1079 d47cd86b487b Make methods signal-proof. Stefan Vogel <sv@exept.de> parents: 1068 diff changeset	518	1 to:10 do:[:i \|
d47cd86b487b Make methods signal-proof. Stefan Vogel <sv@exept.de> parents: 1068 diff changeset	519	ws nextPutAll:'hello world '; nextPutAll:i printString; cr
d47cd86b487b Make methods signal-proof. Stefan Vogel <sv@exept.de> parents: 1068 diff changeset	520	].
d47cd86b487b Make methods signal-proof. Stefan Vogel <sv@exept.de> parents: 1068 diff changeset	521	ws close.
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	522	] fork.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	523	"
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	524
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	525	"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	526	!
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	527
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	528	new
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	529	\|newStream\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	530
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	531	newStream := self basicNew.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	532	newStream text; buffered:true; useCRLF:false; clearEOF.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	533	^ newStream
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	534	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	535
345 cf2301210c47 . claus parents: 339 diff changeset	536	!ExternalStream class methodsFor:'Signal constants'!
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	537
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	538	invalidModeSignal
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	539	"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	540	or binary-I/O with a text stream"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	541
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	542	^ InvalidModeSignal
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	543	!
514c749165c3 * empty log message * claus parents: 108 diff changeset	544
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	545	invalidOperationSignal
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	546	"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	547	I/O operation is attempted"
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	548
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	549	^ InvalidOperationSignal
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	550	!
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	551
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	552	invalidReadSignal
514c749165c3 * empty log message * claus parents: 108 diff changeset	553	"return the signal raised when reading from writeonly streams"
514c749165c3 * empty log message * claus parents: 108 diff changeset	554
514c749165c3 * empty log message * claus parents: 108 diff changeset	555	^ InvalidReadSignal
514c749165c3 * empty log message * claus parents: 108 diff changeset	556	!
514c749165c3 * empty log message * claus parents: 108 diff changeset	557
514c749165c3 * empty log message * claus parents: 108 diff changeset	558	invalidWriteSignal
514c749165c3 * empty log message * claus parents: 108 diff changeset	559	"return the signal raised when writing to readonly streams"
514c749165c3 * empty log message * claus parents: 108 diff changeset	560
514c749165c3 * empty log message * claus parents: 108 diff changeset	561	^ InvalidWriteSignal
514c749165c3 * empty log message * claus parents: 108 diff changeset	562	!
514c749165c3 * empty log message * claus parents: 108 diff changeset	563
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	564	openErrorSignal
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	565	"return the signal raised when a file open failed"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	566
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	567	^ OpenErrorSignal
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	568	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	569
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	570	streamNotOpenSignal
514c749165c3 * empty log message * claus parents: 108 diff changeset	571	"return the signal raised on I/O with closed streams"
514c749165c3 * empty log message * claus parents: 108 diff changeset	572
514c749165c3 * empty log message * claus parents: 108 diff changeset	573	^ StreamNotOpenSignal
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	574	! !
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	575
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	576	!ExternalStream class methodsFor:'error handling'!
0c73b48551ac * empty log message * claus parents: 88 diff changeset	577
0c73b48551ac * empty log message * claus parents: 88 diff changeset	578	lastErrorNumber
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	579	"return the errno of the last error"
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	580
0c73b48551ac * empty log message * claus parents: 88 diff changeset	581	^ LastErrorNumber
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	582
514c749165c3 * empty log message * claus parents: 108 diff changeset	583	"
514c749165c3 * empty log message * claus parents: 108 diff changeset	584	ExternalStream lastErrorNumber
514c749165c3 * empty log message * claus parents: 108 diff changeset	585	"
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	586	!
0c73b48551ac * empty log message * claus parents: 88 diff changeset	587
0c73b48551ac * empty log message * claus parents: 88 diff changeset	588	lastErrorString
0c73b48551ac * empty log message * claus parents: 88 diff changeset	589	"return a message string describing the last error"
0c73b48551ac * empty log message * claus parents: 88 diff changeset	590
0c73b48551ac * empty log message * claus parents: 88 diff changeset	591	^ OperatingSystem errorTextForNumber:LastErrorNumber
0c73b48551ac * empty log message * claus parents: 88 diff changeset	592
0c73b48551ac * empty log message * claus parents: 88 diff changeset	593	"
0c73b48551ac * empty log message * claus parents: 88 diff changeset	594	ExternalStream lastErrorString
0c73b48551ac * empty log message * claus parents: 88 diff changeset	595	"
0c73b48551ac * empty log message * claus parents: 88 diff changeset	596	! !
0c73b48551ac * empty log message * claus parents: 88 diff changeset	597
1 a27a279701f8 Initial revision claus parents: diff changeset	598	!ExternalStream methodsFor:'accessing'!
a27a279701f8 Initial revision claus parents: diff changeset	599
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	600	binary
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	601	"switch to binary mode - default is text"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	602
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	603	binary := true
1 a27a279701f8 Initial revision claus parents: diff changeset	604	!
a27a279701f8 Initial revision claus parents: diff changeset	605
a27a279701f8 Initial revision claus parents: diff changeset	606	buffered:aBoolean
10 4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	607	"turn buffering on or off - default is on"
1 a27a279701f8 Initial revision claus parents: diff changeset	608
10 4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	609	buffered := aBoolean
1 a27a279701f8 Initial revision claus parents: diff changeset	610	!
a27a279701f8 Initial revision claus parents: diff changeset	611
a27a279701f8 Initial revision claus parents: diff changeset	612	contents
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	613	"return the contents of the file from the current position up-to
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	614	the end. If the stream is in binary mode, a ByteArray containing
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	615	the byte values is returned.
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	616	In text-mode, a collection of strings, each representing one line,
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	617	is returned."
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	618
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	619	\|text l chunks sizes chunk byteCount cnt bytes offset\|
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	620
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	621	binary ifTrue:[
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	622	"adding to a ByteArray produces quadratic time-space
514c749165c3 * empty log message * claus parents: 108 diff changeset	623	behavior - therefore we allocate chunks, and concatenate them
514c749165c3 * empty log message * claus parents: 108 diff changeset	624	at the end."
514c749165c3 * empty log message * claus parents: 108 diff changeset	625
514c749165c3 * empty log message * claus parents: 108 diff changeset	626	chunks := OrderedCollection new.
514c749165c3 * empty log message * claus parents: 108 diff changeset	627	sizes := OrderedCollection new.
514c749165c3 * empty log message * claus parents: 108 diff changeset	628	byteCount := 0.
514c749165c3 * empty log message * claus parents: 108 diff changeset	629	[self atEnd] whileFalse:[
514c749165c3 * empty log message * claus parents: 108 diff changeset	630	chunk := ByteArray uninitializedNew:4096.
514c749165c3 * empty log message * claus parents: 108 diff changeset	631	cnt := self nextBytes:(chunk size) into:chunk.
514c749165c3 * empty log message * claus parents: 108 diff changeset	632	cnt notNil ifTrue:[
514c749165c3 * empty log message * claus parents: 108 diff changeset	633	chunks add:chunk.
514c749165c3 * empty log message * claus parents: 108 diff changeset	634	sizes add:cnt.
514c749165c3 * empty log message * claus parents: 108 diff changeset	635	byteCount := byteCount + cnt
514c749165c3 * empty log message * claus parents: 108 diff changeset	636	]
514c749165c3 * empty log message * claus parents: 108 diff changeset	637	].
514c749165c3 * empty log message * claus parents: 108 diff changeset	638
514c749165c3 * empty log message * claus parents: 108 diff changeset	639	"now, create one big ByteArray"
514c749165c3 * empty log message * claus parents: 108 diff changeset	640	bytes := ByteArray uninitializedNew:byteCount.
514c749165c3 * empty log message * claus parents: 108 diff changeset	641	offset := 1.
514c749165c3 * empty log message * claus parents: 108 diff changeset	642	1 to:chunks size do:[:index \|
514c749165c3 * empty log message * claus parents: 108 diff changeset	643	chunk := chunks at:index.
514c749165c3 * empty log message * claus parents: 108 diff changeset	644	cnt := sizes at:index.
514c749165c3 * empty log message * claus parents: 108 diff changeset	645	bytes replaceFrom:offset to:(offset + cnt - 1) with:chunk.
514c749165c3 * empty log message * claus parents: 108 diff changeset	646	offset := offset + cnt
514c749165c3 * empty log message * claus parents: 108 diff changeset	647	].
514c749165c3 * empty log message * claus parents: 108 diff changeset	648	^ bytes
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	649	].
1 a27a279701f8 Initial revision claus parents: diff changeset	650
244 9faa2da0650a Text <-> StringCollection claus parents: 223 diff changeset	651	text := StringCollection new.
1 a27a279701f8 Initial revision claus parents: diff changeset	652	[self atEnd] whileFalse:[
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	653	l := self nextLine.
406 ed16ba9383c3 . claus parents: 384 diff changeset	654	l isNil ifTrue:[
ed16ba9383c3 . claus parents: 384 diff changeset	655	^ text
ed16ba9383c3 . claus parents: 384 diff changeset	656	].
ed16ba9383c3 . claus parents: 384 diff changeset	657	text add:l
1 a27a279701f8 Initial revision claus parents: diff changeset	658	].
a27a279701f8 Initial revision claus parents: diff changeset	659	^ text
a27a279701f8 Initial revision claus parents: diff changeset	660	!
a27a279701f8 Initial revision claus parents: diff changeset	661
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	662	contentsOfEntireFile
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	663	"ST-80 compatibility"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	664
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	665	^ self contents
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	666	!
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	667
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	668	contentsSpecies
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	669	"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	670	(such as upTo)"
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	671
514c749165c3 * empty log message * claus parents: 108 diff changeset	672	binary ifTrue:[
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	673	^ ByteArray
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	674	].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	675	^ String
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	676	!
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	677
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	678	fileDescriptor
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	679	"return the fileDescriptor of the receiver -
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	680	notice: this one returns the underlying OSs fileDescriptor -
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	681	this may not be available on all platforms (i.e. non unix systems)."
1 a27a279701f8 Initial revision claus parents: diff changeset	682
a27a279701f8 Initial revision claus parents: diff changeset	683	%{ /* NOCONTEXT */
a27a279701f8 Initial revision claus parents: diff changeset	684
a27a279701f8 Initial revision claus parents: diff changeset	685	FILE *f;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	686	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	687
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	688	if ((fp = __INST(filePointer)) != nil) {
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	689	f = __FILEVal(fp);
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	690	RETURN ( __MKSMALLINT(fileno(f)) );
1 a27a279701f8 Initial revision claus parents: diff changeset	691	}
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	692	%}.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	693	^ self errorNotOpen
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	694	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	695
826 b271ea453f6a New method to set the filedescriptor of a stream. Stefan Vogel <sv@exept.de> parents: 820 diff changeset	696	fileDescriptor:anInteger withMode:openMode
b271ea453f6a New method to set the filedescriptor of a stream. Stefan Vogel <sv@exept.de> parents: 820 diff changeset	697	"set the filePointer from the receiver based on the fileDescriptor-
b271ea453f6a New method to set the filedescriptor of a stream. Stefan Vogel <sv@exept.de> parents: 820 diff changeset	698	notice: this one is based on the underlying OSs fileDescriptor -
b271ea453f6a New method to set the filedescriptor of a stream. Stefan Vogel <sv@exept.de> parents: 820 diff changeset	699	this may not be available on all platforms (i.e. non unix systems)."
b271ea453f6a New method to set the filedescriptor of a stream. Stefan Vogel <sv@exept.de> parents: 820 diff changeset	700
b271ea453f6a New method to set the filedescriptor of a stream. Stefan Vogel <sv@exept.de> parents: 820 diff changeset	701	%{ /* NOCONTEXT */
b271ea453f6a New method to set the filedescriptor of a stream. Stefan Vogel <sv@exept.de> parents: 820 diff changeset	702
b271ea453f6a New method to set the filedescriptor of a stream. Stefan Vogel <sv@exept.de> parents: 820 diff changeset	703	FILE *f;
b271ea453f6a New method to set the filedescriptor of a stream. Stefan Vogel <sv@exept.de> parents: 820 diff changeset	704	OBJ fp;
b271ea453f6a New method to set the filedescriptor of a stream. Stefan Vogel <sv@exept.de> parents: 820 diff changeset	705
b271ea453f6a New method to set the filedescriptor of a stream. Stefan Vogel <sv@exept.de> parents: 820 diff changeset	706	if (__isSmallInteger(anInteger) &&
872 af04035b443d binary class storage support Claus Gittinger <cg@exept.de> parents: 849 diff changeset	707	__isString(openMode) &&
af04035b443d binary class storage support Claus Gittinger <cg@exept.de> parents: 849 diff changeset	708	(f = fdopen(__intVal(anInteger), __stringVal(openMode))) != 0
826 b271ea453f6a New method to set the filedescriptor of a stream. Stefan Vogel <sv@exept.de> parents: 820 diff changeset	709	) {
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	710	__INST(filePointer) = fp = __MKOBJ((int)f); __STORE(self, fp);
872 af04035b443d binary class storage support Claus Gittinger <cg@exept.de> parents: 849 diff changeset	711	RETURN (self);
826 b271ea453f6a New method to set the filedescriptor of a stream. Stefan Vogel <sv@exept.de> parents: 820 diff changeset	712	}
1068 92fdcccf12a3 alles MIST - zurueck zu 1.89 und NOCONTEXT entfernt Claus Gittinger <cg@exept.de> parents: 1067 diff changeset	713	%}.
826 b271ea453f6a New method to set the filedescriptor of a stream. Stefan Vogel <sv@exept.de> parents: 820 diff changeset	714	^ self primitiveFailed
b271ea453f6a New method to set the filedescriptor of a stream. Stefan Vogel <sv@exept.de> parents: 820 diff changeset	715	!
b271ea453f6a New method to set the filedescriptor of a stream. Stefan Vogel <sv@exept.de> parents: 820 diff changeset	716
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	717	filePointer
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	718	"return the filePointer of the receiver -
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	719	notice: for portability stdio is used; this means you will get
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	720	a FILE * - not a fileDescriptor.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	721	(what you really get is a corresponding integer).
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	722	You cannot do much with the returned value
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	723	- except passing it to a primitive, for example."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	724
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	725	^ filePointer
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	726	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	727
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	728	readonly
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	729	"set access mode to readonly"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	730
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	731	mode := #readonly
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	732	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	733
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	734	readwrite
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	735	"set access mode to readwrite"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	736
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	737	mode := #readwrite
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	738	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	739
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	740	text
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	741	"switch to text mode - default is text"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	742
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	743	binary := false
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	744	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	745
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	746	useCRLF:aBoolean
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	747	"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	748
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	749	useCRLF := aBoolean
1 a27a279701f8 Initial revision claus parents: diff changeset	750	!
a27a279701f8 Initial revision claus parents: diff changeset	751
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	752	writeonly
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	753	"set access mode to writeonly"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	754
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	755	mode := #writeonly
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	756	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	757
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	758	!ExternalStream methodsFor:'error handling'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	759
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	760	argumentMustBeCharacter
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	761	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	762
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	763	"report an error, that the argument must be a character"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	764
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	765	^ self error:'argument must be a character'
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	766	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	767
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	768	argumentMustBeInteger
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	769	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	770
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	771	"report an error, that the argument must be an integer"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	772
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	773	^ self error:'argument must be an integer'
77 6c38ca59927f * empty log message * claus parents: 68 diff changeset	774	!
6c38ca59927f * empty log message * claus parents: 68 diff changeset	775
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	776	argumentMustBeString
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	777	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	778
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	779	"report an error, that the argument must be a string"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	780
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	781	^ self error:'argument must be a string'
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	782	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	783
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	784	errorBinary
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	785	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	786
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	787	"report an error, that the stream is in binary mode"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	788
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	789	^ InvalidModeSignal
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	790	raiseRequestWith:self
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	791	errorString:(self class name , ' is in binary mode')
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	792	in:thisContext sender
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	793	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	794
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	795	errorNotBinary
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	796	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	797
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	798	"report an error, that the stream is not in binary mode"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	799
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	800	^ InvalidModeSignal
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	801	raiseRequestWith:self
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	802	errorString:(self class name , ' is not in binary mode')
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	803	in:thisContext sender
1 a27a279701f8 Initial revision claus parents: diff changeset	804	!
a27a279701f8 Initial revision claus parents: diff changeset	805
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	806	errorNotBuffered
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	807	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	808
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	809	"report an error, that the stream is not in buffered mode"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	810
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	811	^ StreamErrorSignal
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	812	raiseRequestWith:self
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	813	errorString:(self class name , ' is unbuffered - operation not allowed')
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	814	in:thisContext sender
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	815	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	816
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	817	errorNotOpen
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	818	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	819
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	820	"report an error, that the stream has not been opened"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	821
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	822	^ StreamNotOpenSignal
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	823	raiseRequestWith:self
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	824	errorString:(self class name , ' not open')
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	825	in:thisContext sender
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	826	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	827
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	828	errorOpen
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	829	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	830
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	831	"report an error, that the stream is already opened"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	832
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	833	^ OpenErrorSignal
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	834	raiseRequestWith:self
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	835	errorString:(self class name , ' is already open')
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	836	in:thisContext sender
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	837	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	838
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	839	errorReadOnly
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	840	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	841
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	842	"report an error, that the stream is a readOnly stream"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	843
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	844	^ InvalidWriteSignal
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	845	raiseRequestWith:self
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	846	errorString:(self class name , ' is readonly')
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	847	in:thisContext sender
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	848	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	849
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	850	errorUnsupportedOperation
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	851	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	852
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	853	"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	854
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	855	^ InvalidOperationSignal
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	856	raiseRequestWith:self
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	857	errorString:'unsupported operation'
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	858	in:thisContext sender
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	859	!
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	860
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	861	errorWriteOnly
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	862	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	863
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	864	"report an error, that the stream is a writeOnly stream"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	865
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	866	^ InvalidReadSignal
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	867	raiseRequestWith:self
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	868	errorString:(self class name , ' is writeonly')
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	869	in:thisContext sender
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	870	!
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	871
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	872	ioError
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	873	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	874
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	875	"report an error, that some I/O error occured"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	876
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	877	^ StreamErrorSignal
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	878	raiseRequestWith:self
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	879	errorString:('I/O error: ' , self lastErrorString)
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	880	in:thisContext sender
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	881	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	882
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	883	lastErrorNumber
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	884	"return the last error"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	885
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	886	^ lastErrorNumber
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	887	!
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	lastErrorString
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	890	"return a message string describing the last error"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	891
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	892	(lastErrorNumber isNil or:[lastErrorNumber == 0]) ifTrue:[
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	893	^ 'I/O error'
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	894	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	895	^ OperatingSystem errorTextForNumber:lastErrorNumber
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	896	!
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	897
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	898	openError
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	899	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	900
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	901	"report an error, that the open failed"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	902
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	903	^ OpenErrorSignal
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	904	raiseRequestWith:self
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	905	errorString:('error on open: ' , self lastErrorString)
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	906	in:thisContext sender
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
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	909	readError
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	910	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	911
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	912	"report an error, that some read error occured"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	913
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	914	^ ReadErrorSignal
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	915	raiseRequestWith:self
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	916	errorString:('read error: ' , self lastErrorString)
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	917	in:thisContext sender
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	918	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	919
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	920	writeError
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	921	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	922
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	923	"report an error, that some write error occured"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	924
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	925	^ WriteErrorSignal
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	926	raiseRequestWith:self
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	927	errorString:('write error: ' , self lastErrorString)
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	928	in:thisContext sender
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	929	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	930
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	931	!ExternalStream methodsFor:'instance release'!
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	closeFile
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	934	"low level close - may be redefined in subclasses"
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	935
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	936	%{
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	937	OBJ fp;
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	938
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	939	if ((fp = __INST(filePointer)) != nil) {
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	940	__INST(filePointer) = nil;
362 4131e87e79ec . claus parents: 360 diff changeset	941	__BEGIN_INTERRUPTABLE__
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	942	fclose(__FILEVal(fp));
362 4131e87e79ec . claus parents: 360 diff changeset	943	__END_INTERRUPTABLE__
10 4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	944	}
4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	945	%}
4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	946	!
4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	947
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	948	disposed
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	949	"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	950
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	951	self closeFile
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	952	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	953
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	954	setFilePointer:anInteger
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	955	filePointer := anInteger
1 a27a279701f8 Initial revision claus parents: diff changeset	956	!
a27a279701f8 Initial revision claus parents: diff changeset	957
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	958	shallowCopyForFinalization
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	959	"return a copy for finalization-registration;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	960	since all we need at finalization time is the fileDescriptor,
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	961	a cheaper copy is possible."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	962
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	963	^ self class basicNew setFilePointer:filePointer
1 a27a279701f8 Initial revision claus parents: diff changeset	964	!
a27a279701f8 Initial revision claus parents: diff changeset	965
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	966	shutDown
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	967	"close the stream - added for protocol compatibility with PipeStream.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	968	see comment there"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	969
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	970	self closeFile
1 a27a279701f8 Initial revision claus parents: diff changeset	971	! !
a27a279701f8 Initial revision claus parents: diff changeset	972
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	973	!ExternalStream methodsFor:'line reading/writing'!
1 a27a279701f8 Initial revision claus parents: diff changeset	974
a27a279701f8 Initial revision claus parents: diff changeset	975	nextLine
a27a279701f8 Initial revision claus parents: diff changeset	976	"read the next line (characters up to newline).
a27a279701f8 Initial revision claus parents: diff changeset	977	Return a string containing those characters excluding the newline.
a27a279701f8 Initial revision claus parents: diff changeset	978	If the previous-to-last character is a cr, this is also removed,
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	979	so its possible to read alien (i.e. ms-dos) text as well.
971 eb70f5674303 max lineLength (in nextLine) increased to 16k Claus Gittinger <cg@exept.de> parents: 933 diff changeset	980	The line must be shorter than 16K characters - otherwise its truncated."
eb70f5674303 max lineLength (in nextLine) increased to 16k Claus Gittinger <cg@exept.de> parents: 933 diff changeset	981
eb70f5674303 max lineLength (in nextLine) increased to 16k Claus Gittinger <cg@exept.de> parents: 933 diff changeset	982	%{ /* STACK:17000 */
1 a27a279701f8 Initial revision claus parents: diff changeset	983
a27a279701f8 Initial revision claus parents: diff changeset	984	FILE *f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	985	int len, ret;
971 eb70f5674303 max lineLength (in nextLine) increased to 16k Claus Gittinger <cg@exept.de> parents: 933 diff changeset	986	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	987	char rslt, nextPtr, *limit;
22 847106305963 * empty log message * claus parents: 12 diff changeset	988	int fd, ch;
1068 92fdcccf12a3 alles MIST - zurueck zu 1.89 und NOCONTEXT entfernt Claus Gittinger <cg@exept.de> parents: 1067 diff changeset	989	int _buffered;
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	990	OBJ fp;
1 a27a279701f8 Initial revision claus parents: diff changeset	991
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	992	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	993	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	994	&& (__INST(mode) != @symbol(writeonly))
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	995	&& (__INST(binary) != true)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	996	) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	997	f = __FILEVal(fp);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	998	buffer[0] = 0;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	999
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1000	_buffered = (__INST(buffered) == true);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1001	if (_buffered) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1002	__READING__(f);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1003	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1004
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1005	rslt = nextPtr = buffer;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1006	limit = buffer + sizeof(buffer) - 2;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1007
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1008	for (;;) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1009	__READBYTE__(ret, f, nextPtr, _buffered);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1010	if (ret <= 0) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1011	if (nextPtr == buffer)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1012	rslt = NULL;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1013	if (ret == 0) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1014	__INST(hitEOF) = true;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1015	break;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1016	} else {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1017	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1018	goto err;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1019	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1020	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1021	if (*nextPtr == '\n') {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1022	*nextPtr = '\0';
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1023	break;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1024	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1025	nextPtr++;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1026	if (nextPtr >= limit) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1027	*nextPtr = '\0';
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1028	fprintf(stderr, "EXTSTREAM: line truncated in nextLine\n");
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1029	break;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1030	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1031	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1032
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1033	if (rslt != NULL) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1034	len = nextPtr-buffer;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1035
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1036	if (__INST(position) != nil) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1037	__INST(position) = __MKSMALLINT(__intVal(__INST(position)) + len);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1038	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1039	/* remove EOL character */
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1040	if (len != 0) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1041	if (buffer[len-1] == '\n') {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1042	buffer[--len] = '\0';
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1043	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1044	if ((len != 0) && (buffer[len-1] == '\r')) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1045	buffer[--len] = '\0';
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1046	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1047	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1048	RETURN ( __MKSTRING_L(buffer, len COMMA_CON) );
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1049	}
1 a27a279701f8 Initial revision claus parents: diff changeset	1050	}
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1051	err:
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1052	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	1053	hitEOF ifTrue:[^ self pastEnd].
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1054	lastErrorNumber notNil ifTrue:[^ self readError].
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1055	filePointer isNil ifTrue:[^ self errorNotOpen].
1 a27a279701f8 Initial revision claus parents: diff changeset	1056	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1057	self errorBinary
1 a27a279701f8 Initial revision claus parents: diff changeset	1058	!
a27a279701f8 Initial revision claus parents: diff changeset	1059
a27a279701f8 Initial revision claus parents: diff changeset	1060	nextPutLine:aString
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1061	"write the characters in aString and append a newline or CRLF if useCRLF is set"
1 a27a279701f8 Initial revision claus parents: diff changeset	1062
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	1063	%{
1 a27a279701f8 Initial revision claus parents: diff changeset	1064	FILE *f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1065	int len, cnt, len1, _buffered;
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	1066	OBJ pos, fp;
537 dc4dad8a5ddd many ExtStream rewrites - has to be reevaluated in all platforms Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1067	char *cp;
1 a27a279701f8 Initial revision claus parents: diff changeset	1068
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1069	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1070	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	1071	&& (__INST(mode) != @symbol(readonly))
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1072	&& (__INST(binary) != true)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1073	&& __isString(aString)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1074	) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1075	f = __FILEVal(fp);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1076	len = __stringSize(aString);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1077
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1078	if (_buffered = (__INST(buffered) == true)) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1079	__WRITING__(f)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1080	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1081	__WRITEBYTES__(cnt, f, __stringVal(aString), len, _buffered);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1082
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1083	if (cnt == len) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1084	len1 = len;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1085
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1086	if (__INST(useCRLF) == true) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1087	cp = "\r\n"; len = 2;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1088	} else {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1089	cp = "\n"; len = 1;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1090	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1091	__WRITEBYTES__(cnt, f, cp, len, _buffered);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1092
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1093	if (cnt > 0) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1094	pos = __INST(position);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1095	if (pos != nil) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1096	__INST(position) = __MKSMALLINT(__intVal(pos)+len1+cnt);
537 dc4dad8a5ddd many ExtStream rewrites - has to be reevaluated in all platforms Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1097	}
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1098	RETURN ( self );
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1099	}
514c749165c3 * empty log message * claus parents: 108 diff changeset	1100	}
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1101	__INST(lastErrorNumber) = __MKSMALLINT(errno);
1 a27a279701f8 Initial revision claus parents: diff changeset	1102	}
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1103	%}.
514c749165c3 * empty log message * claus parents: 108 diff changeset	1104	lastErrorNumber notNil ifTrue:[^ self writeError].
569 7134eb78cf48 readFrom:onError: can now also read from a string Claus Gittinger <cg@exept.de> parents: 561 diff changeset	1105	filePointer isNil ifTrue:[^ self errorNotOpen].
7134eb78cf48 readFrom:onError: can now also read from a string Claus Gittinger <cg@exept.de> parents: 561 diff changeset	1106	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
7134eb78cf48 readFrom:onError: can now also read from a string Claus Gittinger <cg@exept.de> parents: 561 diff changeset	1107	binary ifTrue:[^ self errorBinary].
7134eb78cf48 readFrom:onError: can now also read from a string Claus Gittinger <cg@exept.de> parents: 561 diff changeset	1108
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	1109	super nextPutAll:aString.
59faa75185ba * empty log message * claus parents: 54 diff changeset	1110	self cr.
1 a27a279701f8 Initial revision claus parents: diff changeset	1111	!
a27a279701f8 Initial revision claus parents: diff changeset	1112
a27a279701f8 Initial revision claus parents: diff changeset	1113	nextPutLinesFrom:aStream upToLineStartingWith:aStringOrNil
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	1114	"read from aStream up to and including a line starting with aStringOrNil
22 847106305963 * empty log message * claus parents: 12 diff changeset	1115	and append it to self.
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1116	Can be used to copy/create large files or copy from a pipe/socket.
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	1117
22 847106305963 * empty log message * claus parents: 12 diff changeset	1118	If aStringOrNil is nil or not matched, copy preceeds to the end.
847106305963 * empty log message * claus parents: 12 diff changeset	1119	(this allows for example to read a Socket and transfer the data quickly
847106305963 * empty log message * claus parents: 12 diff changeset	1120	into a file - without creating zillions of temporary strings)"
1 a27a279701f8 Initial revision claus parents: diff changeset	1121
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1122	\|srcFilePointer readError\|
1 a27a279701f8 Initial revision claus parents: diff changeset	1123
a27a279701f8 Initial revision claus parents: diff changeset	1124	(mode == #readonly) ifTrue:[^ self errorReadOnly].
a27a279701f8 Initial revision claus parents: diff changeset	1125	filePointer isNil ifTrue:[^ self errorNotOpen].
a27a279701f8 Initial revision claus parents: diff changeset	1126	srcFilePointer := aStream filePointer.
a27a279701f8 Initial revision claus parents: diff changeset	1127	srcFilePointer isNil ifTrue:[^ aStream errorNotOpen].
12 8e03bd717355 * empty log message * claus parents: 10 diff changeset	1128
8e03bd717355 * empty log message * claus parents: 10 diff changeset	1129	%{ /* STACK:2000 */
22 847106305963 * empty log message * claus parents: 12 diff changeset	1130
1 a27a279701f8 Initial revision claus parents: diff changeset	1131	FILE dst, src;
a27a279701f8 Initial revision claus parents: diff changeset	1132	char *matchString;
a27a279701f8 Initial revision claus parents: diff changeset	1133	int matchLen = 0;
12 8e03bd717355 * empty log message * claus parents: 10 diff changeset	1134	char buffer[1024];
1 a27a279701f8 Initial revision claus parents: diff changeset	1135
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1136	__INST(lastErrorNumber) = nil;
249 810798c5c2e5 . claus parents: 244 diff changeset	1137	if (__isSmallInteger(srcFilePointer)) {
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1138	if ((aStringOrNil == nil) \|\| __isString(aStringOrNil)) {
514c749165c3 * empty log message * claus parents: 108 diff changeset	1139	if (aStringOrNil != nil) {
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1140	matchString = (char *) __stringVal(aStringOrNil);
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1141	matchLen = __stringSize(aStringOrNil);
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1142	}
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1143	dst = __FILEVal(__INST(filePointer));
475 b57530aa1b0a use new FILE* wrapper macros (based on externalAddress) Claus Gittinger <cg@exept.de> parents: 471 diff changeset	1144	src = __FILEVal(srcFilePointer);
362 4131e87e79ec . claus parents: 360 diff changeset	1145	__BEGIN_INTERRUPTABLE__
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1146	errno = 0;
514c749165c3 * empty log message * claus parents: 108 diff changeset	1147
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	1148	__WRITING__(dst)
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1149
514c749165c3 * empty log message * claus parents: 108 diff changeset	1150	for (;;) {
370 20f04d9b371b . claus parents: 369 diff changeset	1151	if (fgets(buffer, sizeof(buffer)-1, src) == NULL) {
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1152	if (ferror(src)) {
359 b8df66983eff . claus parents: 347 diff changeset	1153	readError = __MKSMALLINT(errno);
362 4131e87e79ec . claus parents: 360 diff changeset	1154	__END_INTERRUPTABLE__
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1155	goto err;
514c749165c3 * empty log message * claus parents: 108 diff changeset	1156	}
514c749165c3 * empty log message * claus parents: 108 diff changeset	1157	break;
514c749165c3 * empty log message * claus parents: 108 diff changeset	1158	}
514c749165c3 * empty log message * claus parents: 108 diff changeset	1159	if (fputs(buffer, dst) == EOF) {
514c749165c3 * empty log message * claus parents: 108 diff changeset	1160	if (ferror(dst)) {
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1161	__INST(lastErrorNumber) = __MKSMALLINT(errno);
362 4131e87e79ec . claus parents: 360 diff changeset	1162	__END_INTERRUPTABLE__
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1163	goto err;
514c749165c3 * empty log message * claus parents: 108 diff changeset	1164	}
514c749165c3 * empty log message * claus parents: 108 diff changeset	1165	break;
514c749165c3 * empty log message * claus parents: 108 diff changeset	1166	}
12 8e03bd717355 * empty log message * claus parents: 10 diff changeset	1167	#ifndef OLD
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1168	if (__INST(buffered) == false) {
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1169	fflush(dst);
514c749165c3 * empty log message * claus parents: 108 diff changeset	1170	}
12 8e03bd717355 * empty log message * claus parents: 10 diff changeset	1171	#endif
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1172	if (matchLen) {
514c749165c3 * empty log message * claus parents: 108 diff changeset	1173	if (strncmp(matchString, buffer, matchLen) == 0)
514c749165c3 * empty log message * claus parents: 108 diff changeset	1174	break;
514c749165c3 * empty log message * claus parents: 108 diff changeset	1175	}
514c749165c3 * empty log message * claus parents: 108 diff changeset	1176	}
362 4131e87e79ec . claus parents: 360 diff changeset	1177	__END_INTERRUPTABLE__
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1178	__INST(position) = nil;
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1179	RETURN (self);
514c749165c3 * empty log message * claus parents: 108 diff changeset	1180	}
1 a27a279701f8 Initial revision claus parents: diff changeset	1181	}
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1182	err: ;
514c749165c3 * empty log message * claus parents: 108 diff changeset	1183	%}.
514c749165c3 * empty log message * claus parents: 108 diff changeset	1184	readError ifTrue:[
514c749165c3 * empty log message * claus parents: 108 diff changeset	1185	aStream setLastErrorNumber:readError.
514c749165c3 * empty log message * claus parents: 108 diff changeset	1186	^ aStream readError
514c749165c3 * empty log message * claus parents: 108 diff changeset	1187	].
514c749165c3 * empty log message * claus parents: 108 diff changeset	1188	lastErrorNumber notNil ifTrue:[^ self writeError].
10 4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	1189	buffered ifFalse:[^ self errorNotBuffered].
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1190	"
514c749165c3 * empty log message * claus parents: 108 diff changeset	1191	argument error
514c749165c3 * empty log message * claus parents: 108 diff changeset	1192	"
1 a27a279701f8 Initial revision claus parents: diff changeset	1193	^ self primitiveFailed
a27a279701f8 Initial revision claus parents: diff changeset	1194	!
a27a279701f8 Initial revision claus parents: diff changeset	1195
a27a279701f8 Initial revision claus parents: diff changeset	1196	peekForLineStartingWith:aString
a27a279701f8 Initial revision claus parents: diff changeset	1197	"read ahead for next line starting with aString;
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1198	return the line-string if found, or nil if EOF is encountered.
514c749165c3 * empty log message * claus parents: 108 diff changeset	1199	If matched, not advance position behond that line
514c749165c3 * empty log message * claus parents: 108 diff changeset	1200	i.e. nextLine will read the matched line.
514c749165c3 * empty log message * claus parents: 108 diff changeset	1201	If not matched, reposition to original position for firther reading."
1 a27a279701f8 Initial revision claus parents: diff changeset	1202
a27a279701f8 Initial revision claus parents: diff changeset	1203	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
a27a279701f8 Initial revision claus parents: diff changeset	1204	filePointer isNil ifTrue:[^ self errorNotOpen].
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1205	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	1206	buffered ifFalse:[^ self errorNotBuffered].
12 8e03bd717355 * empty log message * claus parents: 10 diff changeset	1207
8e03bd717355 * empty log message * claus parents: 10 diff changeset	1208	%{ /* STACK: 2000 */
1 a27a279701f8 Initial revision claus parents: diff changeset	1209	FILE *f;
a27a279701f8 Initial revision claus parents: diff changeset	1210	int l;
12 8e03bd717355 * empty log message * claus parents: 10 diff changeset	1211	char buffer[1024];
1 a27a279701f8 Initial revision claus parents: diff changeset	1212	char *cp;
a27a279701f8 Initial revision claus parents: diff changeset	1213	char *matchString;
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	1214	int firstpos = -1, lastpos;
1 a27a279701f8 Initial revision claus parents: diff changeset	1215
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1216	__INST(lastErrorNumber) = nil;
54 06dbdeeed4f9 * empty log message * claus parents: 44 diff changeset	1217	if (__isString(aString)) {
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1218	matchString = (char *) __stringVal(aString);
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1219	l = __stringSize(aString);
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1220
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1221	f = __FILEVal(__INST(filePointer));
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	1222	__READING__(f)
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1223
514c749165c3 * empty log message * claus parents: 108 diff changeset	1224	for (;;) {
514c749165c3 * empty log message * claus parents: 108 diff changeset	1225	lastpos = ftell(f);
514c749165c3 * empty log message * claus parents: 108 diff changeset	1226	if (firstpos == -1) firstpos = lastpos;
514c749165c3 * empty log message * claus parents: 108 diff changeset	1227
362 4131e87e79ec . claus parents: 360 diff changeset	1228	__BEGIN_INTERRUPTABLE__
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1229	do {
370 20f04d9b371b . claus parents: 369 diff changeset	1230	cp = fgets(buffer, sizeof(buffer)-1, f);
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1231	} while ((cp == NULL) && ferror(f) && (errno == EINTR) && (clearerr(f), 1));
370 20f04d9b371b . claus parents: 369 diff changeset	1232	buffer[sizeof(buffer)-1] = '\0';
362 4131e87e79ec . claus parents: 360 diff changeset	1233	__END_INTERRUPTABLE__
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1234
514c749165c3 * empty log message * claus parents: 108 diff changeset	1235	if (cp == NULL) {
514c749165c3 * empty log message * claus parents: 108 diff changeset	1236	if (ferror(f)) {
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1237	__INST(lastErrorNumber) = __MKSMALLINT(errno);
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1238	goto err;
514c749165c3 * empty log message * claus parents: 108 diff changeset	1239	} else {
933 2eebae059045 oops - when truncating buffered streams, we must flush & seek first (stdio trouble) Claus Gittinger <cg@exept.de> parents: 932 diff changeset	1240	fseek(f, firstpos, SEEK_SET);
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1241	RETURN (nil);
514c749165c3 * empty log message * claus parents: 108 diff changeset	1242	}
514c749165c3 * empty log message * claus parents: 108 diff changeset	1243	}
514c749165c3 * empty log message * claus parents: 108 diff changeset	1244	if (strncmp(cp, matchString, l) == 0) {
933 2eebae059045 oops - when truncating buffered streams, we must flush & seek first (stdio trouble) Claus Gittinger <cg@exept.de> parents: 932 diff changeset	1245	fseek(f, lastpos, SEEK_SET);
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1246	break;
514c749165c3 * empty log message * claus parents: 108 diff changeset	1247	}
514c749165c3 * empty log message * claus parents: 108 diff changeset	1248	}
514c749165c3 * empty log message * claus parents: 108 diff changeset	1249	/* remove EOL character */
514c749165c3 * empty log message * claus parents: 108 diff changeset	1250	cp = buffer;
514c749165c3 * empty log message * claus parents: 108 diff changeset	1251	while (cp && (cp != '\n')) cp++;
514c749165c3 * empty log message * claus parents: 108 diff changeset	1252	*cp = '\0';
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1253	RETURN ( __MKSTRING(buffer COMMA_CON) );
1 a27a279701f8 Initial revision claus parents: diff changeset	1254	}
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1255	err: ;
514c749165c3 * empty log message * claus parents: 108 diff changeset	1256	%}.
514c749165c3 * empty log message * claus parents: 108 diff changeset	1257	lastErrorNumber notNil ifTrue:[^ self readError].
514c749165c3 * empty log message * claus parents: 108 diff changeset	1258	^ self argumentMustBeString
1 a27a279701f8 Initial revision claus parents: diff changeset	1259	!
a27a279701f8 Initial revision claus parents: diff changeset	1260
a27a279701f8 Initial revision claus parents: diff changeset	1261	peekForLineStartingWithAny:aCollectionOfStrings
a27a279701f8 Initial revision claus parents: diff changeset	1262	"read ahead for next line starting with any of aCollectionOfStrings;
a27a279701f8 Initial revision claus parents: diff changeset	1263	return the index in aCollection if found, nil otherwise..
a27a279701f8 Initial revision claus parents: diff changeset	1264	If no match, do not change position; otherwise advance right before the
a27a279701f8 Initial revision claus parents: diff changeset	1265	matched line so that nextLine will return this line."
a27a279701f8 Initial revision claus parents: diff changeset	1266
a27a279701f8 Initial revision claus parents: diff changeset	1267	\|line startPos linePos index\|
a27a279701f8 Initial revision claus parents: diff changeset	1268
a27a279701f8 Initial revision claus parents: diff changeset	1269	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
a27a279701f8 Initial revision claus parents: diff changeset	1270	filePointer isNil ifTrue:[^ self errorNotOpen].
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1271	binary ifTrue:[^ self errorBinary].
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1272
1 a27a279701f8 Initial revision claus parents: diff changeset	1273	startPos := self position.
a27a279701f8 Initial revision claus parents: diff changeset	1274	[self atEnd] whileFalse:[
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1275	linePos := self position.
514c749165c3 * empty log message * claus parents: 108 diff changeset	1276	line := self nextLine.
514c749165c3 * empty log message * claus parents: 108 diff changeset	1277	line notNil ifTrue:[
514c749165c3 * empty log message * claus parents: 108 diff changeset	1278	index := 1.
514c749165c3 * empty log message * claus parents: 108 diff changeset	1279	aCollectionOfStrings do:[:prefix \|
514c749165c3 * empty log message * claus parents: 108 diff changeset	1280	(line startsWith:prefix) ifTrue:[
514c749165c3 * empty log message * claus parents: 108 diff changeset	1281	self position:linePos.
514c749165c3 * empty log message * claus parents: 108 diff changeset	1282	^ index
514c749165c3 * empty log message * claus parents: 108 diff changeset	1283	].
514c749165c3 * empty log message * claus parents: 108 diff changeset	1284	index := index + 1
514c749165c3 * empty log message * claus parents: 108 diff changeset	1285	]
514c749165c3 * empty log message * claus parents: 108 diff changeset	1286	]
1 a27a279701f8 Initial revision claus parents: diff changeset	1287	].
a27a279701f8 Initial revision claus parents: diff changeset	1288	self position:startPos.
a27a279701f8 Initial revision claus parents: diff changeset	1289	^ nil
a27a279701f8 Initial revision claus parents: diff changeset	1290	! !
a27a279701f8 Initial revision claus parents: diff changeset	1291
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1292	!ExternalStream methodsFor:'misc functions'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1293
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1294	async:aBoolean
779 0e41a665038a commentary Claus Gittinger <cg@exept.de> parents: 730 diff changeset	1295	"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	1296	the receiver will trigger an ioInterrupt.
779 0e41a665038a commentary Claus Gittinger <cg@exept.de> parents: 730 diff changeset	1297	If cleared (which is the default) no special notification is made.
0e41a665038a commentary Claus Gittinger <cg@exept.de> parents: 730 diff changeset	1298	Notice: not every OS supports this - check with OS>>supportsIOInterrupts before"
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	1299
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1300	\|fd\|
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1301
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1302	filePointer isNil ifTrue:[^ self errorNotOpen].
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	1303	fd := self fileDescriptor.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1304	aBoolean ifTrue:[
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1305	^ OperatingSystem enableIOInterruptsOn:fd
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	^ OperatingSystem disableIOInterruptsOn:fd
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	1308	!
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1309
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1310	backStep
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1311	"step back one element -
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1312	redefined, since position is redefined here"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1313
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1314	self position:(self position - 1)
362 4131e87e79ec . claus parents: 360 diff changeset	1315	!
4131e87e79ec . claus parents: 360 diff changeset	1316
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1317	blocking:aBoolean
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1318	"set/clear the blocking attribute - if set (which is the default)
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1319	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	1320	If cleared, a read operation will immediately return with a value of
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1321	nil."
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	1322
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1323	filePointer isNil ifTrue:[^ self errorNotOpen].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1324	^ OperatingSystem setBlocking:aBoolean on:(self fileDescriptor)
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1325	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1326
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1327	close
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1328	"close the stream - tell operating system"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1329
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1330	filePointer isNil ifTrue:[^ self].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1331	Lobby unregister:self.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1332	self closeFile.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1333	filePointer := nil
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1334	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1335
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1336	create
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1337	"create the stream
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1338	- this must be redefined in subclass"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1339
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1340	^ self subclassResponsibility
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1341	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1342
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1343	ioctl:ioctlNumber
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1344	"to provide a simple ioctl facility - an ioctl is performed
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1345	on the underlying file; no arguments are passed."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1346
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	1347	%{
791 b1c153b1c719 WIN32 has no ioctl Claus Gittinger <cg@exept.de> parents: 779 diff changeset	1348	#ifndef MSDOS_LIKE
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1349	FILE *f;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1350	int ret, ioNum, ioArg;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1351	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1352
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1353	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1354	if ((fp = __INST(filePointer)) != nil) {
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1355	if (__isSmallInteger(ioctlNumber)) {
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1356	ioNum = __intVal(ioctlNumber);
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1357	f = __FILEVal(fp);
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1358
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1359	__BEGIN_INTERRUPTABLE__
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1360	do {
1304 60d726d6d526 clear errnos before read/write Claus Gittinger <cg@exept.de> parents: 1295 diff changeset	1361	errno = 0;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1362	ret = ioctl(fileno(f), ioNum);
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1363	} while ((ret < 0) && (errno == EINTR));
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1364	__END_INTERRUPTABLE__
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1365
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1366	if (ret >= 0) {
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1367	RETURN ( __MKSMALLINT(ret) );
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1368	}
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1369	__INST(position) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1370	__INST(lastErrorNumber) = __MKSMALLINT(errno);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1371	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1372	}
791 b1c153b1c719 WIN32 has no ioctl Claus Gittinger <cg@exept.de> parents: 779 diff changeset	1373	#endif
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1374	%}.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1375	lastErrorNumber notNil ifTrue:[^ self ioError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1376	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1377	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1378	ioctl-number is not an integer
791 b1c153b1c719 WIN32 has no ioctl Claus Gittinger <cg@exept.de> parents: 779 diff changeset	1379	or the system does not support ioctl (MSDOS)
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1380	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1381	^ self primitiveFailed
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1382	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1383
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1384	ioctl:ioctlNumber with:arg
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1385	"to provide a simple ioctl facility - an ioctl is performed
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1386	on the underlying file; the argument is passed as argument.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1387	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	1388	kind of ByteArray (ByteArray, String or Structure) a pointer to
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1389	the data is passed. This allows performing most ioctls - however,
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1390	it might be tricky to setup the buffer."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1391
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	1392	%{
791 b1c153b1c719 WIN32 has no ioctl Claus Gittinger <cg@exept.de> parents: 779 diff changeset	1393	#ifndef MSDOS_LIKE
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1394	FILE *f;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1395	int ret, ioNum;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1396	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1397
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1398	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1399	if ((fp = __INST(filePointer)) != nil) {
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1400	if (__isSmallInteger(ioctlNumber)
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1401	&& (__isSmallInteger(arg) \|\| __isBytes(arg))) {
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1402	f = __FILEVal(fp);
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1403	ioNum = __intVal(ioctlNumber);
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1404
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1405	__BEGIN_INTERRUPTABLE__
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1406	do {
1304 60d726d6d526 clear errnos before read/write Claus Gittinger <cg@exept.de> parents: 1295 diff changeset	1407	errno = 0;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1408	if (__isSmallInteger(arg)) {
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1409	ret = ioctl(fileno(f), ioNum, __intVal(arg));
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1410	} else {
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1411	ret = ioctl(fileno(f), ioNum, __ByteArrayInstPtr(arg)->ba_element);
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1412	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1413	} while ((ret < 0) && (errno == EINTR));
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1414	__END_INTERRUPTABLE__
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1415
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1416	if (ret >= 0) {
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1417	RETURN ( __MKSMALLINT(ret) );
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1418	}
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1419	__INST(position) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1420	__INST(lastErrorNumber) = __MKSMALLINT(errno);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1421	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1422	}
791 b1c153b1c719 WIN32 has no ioctl Claus Gittinger <cg@exept.de> parents: 779 diff changeset	1423	#endif
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1424	%}.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1425	lastErrorNumber notNil ifTrue:[^ self ioError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1426	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1427	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1428	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	1429	or the system does not support ioctl (MSDOS)
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1430	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1431	^ self primitiveFailed
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1432	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1433
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1434	open
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1435	"open the stream
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1436	- this must be redefined in subclass"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1437
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1438	^ self subclassResponsibility
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1439	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1440
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1441	position
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1442	"return the position
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1443	- this must be redefined in subclass"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1444
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1445	^ self subclassResponsibility
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1446	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1447
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1448	position:anInteger
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1449	"set the position
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1450	- this must be redefined in subclass"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1451
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1452	^ self subclassResponsibility
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1453	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1454
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1455	reset
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1456	"set the read position to the beginning of the collection"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1457
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1458	self position:"0" 1
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1459	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1460
1044 c2fb3818e097 ExtSTream>>next: did not work correct if interrupted. Stefan Vogel <sv@exept.de> parents: 971 diff changeset	1461	setToEnd
c2fb3818e097 ExtSTream>>next: did not work correct if interrupted. Stefan Vogel <sv@exept.de> parents: 971 diff changeset	1462	"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	1463
c2fb3818e097 ExtSTream>>next: did not work correct if interrupted. Stefan Vogel <sv@exept.de> parents: 971 diff changeset	1464	^ self subclassResponsibility
c2fb3818e097 ExtSTream>>next: did not work correct if interrupted. Stefan Vogel <sv@exept.de> parents: 971 diff changeset	1465	!
c2fb3818e097 ExtSTream>>next: did not work correct if interrupted. Stefan Vogel <sv@exept.de> parents: 971 diff changeset	1466
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1467	truncateTo:newSize
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1468	"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	1469	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	1470
1068 92fdcccf12a3 alles MIST - zurueck zu 1.89 und NOCONTEXT entfernt Claus Gittinger <cg@exept.de> parents: 1067 diff changeset	1471	%{
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1472	#ifdef HAS_FTRUNCATE
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1473	FILE *f;
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1474	OBJ fp;
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1475
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1476	if (((fp = __INST(filePointer)) != nil)
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1477	&& (__INST(mode) != @symbol(readonly))) {
1079 d47cd86b487b Make methods signal-proof. Stefan Vogel <sv@exept.de> parents: 1068 diff changeset	1478	if (__isSmallInteger(newSize)) {
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1479	f = __FILEVal(fp);
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1480
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1481	if (__INST(buffered) == true) {
1079 d47cd86b487b Make methods signal-proof. Stefan Vogel <sv@exept.de> parents: 1068 diff changeset	1482	__READING__(f)
933 2eebae059045 oops - when truncating buffered streams, we must flush & seek first (stdio trouble) Claus Gittinger <cg@exept.de> parents: 932 diff changeset	1483	fflush(f);
1079 d47cd86b487b Make methods signal-proof. Stefan Vogel <sv@exept.de> parents: 1068 diff changeset	1484	fseek(f, 0L, SEEK_END); /* needed in stdio */
933 2eebae059045 oops - when truncating buffered streams, we must flush & seek first (stdio trouble) Claus Gittinger <cg@exept.de> parents: 932 diff changeset	1485	}
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1486	ftruncate(fileno(f), __intVal(newSize));
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1487	RETURN (self);
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1488	}
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1489	}
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1490	#endif
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1491	%}.
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1492	filePointer isNil ifTrue:[^ self errorNotOpen].
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1493	(mode == #readonly) ifTrue:[^ self errorReadOnly].
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1494	^ self errorUnsupportedOperation
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1495
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1496	"
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1497	\|s\|
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1498
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1499	s := 'test' asFilename writeStream.
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1500	s next:1000 put:$a.
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1501	s truncateTo:100.
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1502	s close.
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1503
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1504	('test' asFilename fileSize) printNL
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1505	"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1506	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1507
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1508	!ExternalStream methodsFor:'non homogenous reading'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1509
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1510	nextByte
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1511	"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	1512	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	1513	bytes binary value as an integer in 0..255."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1514
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	1515	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1516	FILE *f;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1517	unsigned char byte;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1518	int ret, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1519	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1520
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1521	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1522	if (((fp = __INST(filePointer)) != nil)
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1523	&& (__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	1524	f = __FILEVal(fp);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1525
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1526	if (_buffered = (__INST(buffered) == true)) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1527	__READING__(f)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1528	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1529	__READBYTE__(ret, f, &byte, _buffered);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1530	if (ret > 0) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1531	if (__INST(position) != nil)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1532	__INST(position) = __MKSMALLINT(__intVal(__INST(position)) + 1);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1533	RETURN (__MKSMALLINT(byte));
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1534	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1535
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1536	if (ret == 0) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1537	__INST(hitEOF) = true;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1538	} else /* ret < 0 */ {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1539	__INST(position) = nil;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1540	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1541	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1542	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1543	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	1544	hitEOF ifTrue:[^ self pastEnd].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1545	lastErrorNumber notNil ifTrue:[^ self readError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1546	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1547	^ self errorWriteOnly
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1548	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1549
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1550	nextBytes:count into:anObject
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1551	"read the next count bytes into an object and return the number of
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1552	bytes read. On EOF, 0 is returned.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1553	If the receiver is some socket/pipe-like stream, an exception
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1554	is raised if the connection is broken.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1555
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1556	The object must have non-pointer indexed instvars (i.e. it must be
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1557	a ByteArray, String, Float- or DoubleArray).
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1558	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	1559	fastest possible physical I/O (since no new objects are allocated).
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1560
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1561	Use with care - non object oriented i/o.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1562	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	1563	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	1564
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1565	^ self nextBytes:count into:anObject startingAt:1
10 4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	1566	!
4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	1567
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1568	nextBytes:count into:anObject startingAt:start
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1569	"read the next count bytes into an object and return the number of
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1570	bytes read or 0 on EOF.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1571	If the receiver is some socket/pipe-like stream, an exception
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1572	is raised if the connection is broken.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1573	Notice, that in contrast to other methods
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1574	here, this does NOT return nil on EOF, but the actual count.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1575	Thus allowing read of partial blocks.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1576
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1577	The object must have non-pointer indexed instvars
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1578	(i.e. it must be a ByteArray, String, Float- or DoubleArray).
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1579	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	1580	fastest possible physical I/O (since no new objects are allocated).
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1581
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1582	Use with care - non object oriented I/O.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1583	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	1584	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	1585
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1586	%{
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1587	FILE *f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1588	int cnt, offs, ret, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1589	int objSize, nInstVars, nInstBytes;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1590	char *cp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1591	OBJ pos, fp, oClass;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1592
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1593	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1594	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	1595	&& (__INST(mode) != @symbol(writeonly))
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1596	&& __bothSmallInteger(count, start)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1597	) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1598	f = __FILEVal(fp);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1599
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1600	oClass = __Class(anObject);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1601	switch (__intVal(__ClassInstPtr(oClass)->c_flags) & ARRAYMASK) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1602	case BYTEARRAY:
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1603	case WORDARRAY:
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1604	case LONGARRAY:
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1605	case FLOATARRAY:
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1606	case DOUBLEARRAY:
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1607	break;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1608	default:
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1609	goto bad;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1610	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1611	cnt = __intVal(count);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1612	offs = __intVal(start) - 1;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1613	nInstVars = __intVal(__ClassInstPtr(oClass)->c_ninstvars);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1614	nInstBytes = OHDR_SIZE + __OBJS2BYTES__(nInstVars);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1615	objSize = __Size(anObject) - nInstBytes;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1616	if ((offs >= 0) && (cnt >= 0) && (objSize >= (cnt + offs))) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1617	/*
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1618	* mhmh - since we are interruptable, anObject may move.
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1619	* therefore, fetch the cp-pointer within the loop
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1620	*/
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1621	if (_buffered = (__INST(buffered) == true)) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1622	__READING__(f);
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	1623	}
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1624
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1625	/*
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1626	* on interrupt, anObject may be moved to another location.
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1627	* So we pass (char *)__InstPtr(anObject) + nInstBytes + offs to the macro __READ_BYTES__,
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1628	* to get a new address.
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1629	*/
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1630	__READBYTES__(ret, f, (char *)__InstPtr(anObject)+nInstBytes+offs, cnt, _buffered);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1631	if (ret > 0) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1632	pos = __INST(position);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1633	if (pos != nil) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1634	__INST(position) = __MKSMALLINT(__intVal(pos) + ret);
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	1635	}
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1636	RETURN (__MKSMALLINT(ret));
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1637	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1638	if (ret == 0) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1639	__INST(hitEOF) = true;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1640	} else /* ret < 0 */ {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1641	__INST(position) = nil;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1642	__INST(lastErrorNumber) = __MKSMALLINT(errno);
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	1643	}
b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	1644	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1645	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1646	bad: ;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1647	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	1648	(hitEOF and:[self pastEnd isNil]) ifTrue:[^ 0].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1649	lastErrorNumber notNil ifTrue:[^ self readError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1650	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1651	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1652	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1653	count not integer or arg not bit-like (String, ByteArray etc)
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1654	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1655	^ self primitiveFailed
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	1656	!
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1657
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1658	nextBytesInto:anObject
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1659	"read bytes into an object, regardless of binary/text mode.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1660	The number of bytes to read is defined by the objects size.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1661	Return the number of bytes read. On EOF, 0 is returned.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1662	If the receiver is some socket/pipe-like stream, an exception
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1663	is raised if the connection is broken.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1664
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1665	The object to read into must have non-pointer indexed instvars
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1666	(i.e. it must be a ByteArray, String, Float- or DoubleArray).
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1667	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	1668	fastest possible physical I/O (since no new objects are allocated).
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1669
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1670	Use with care - non object oriented i/o.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1671	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	1672	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	1673
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1674	^ self nextBytes:(anObject size) into:anObject startingAt:1
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1675
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1676	" to read 100 bytes from a stream:
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1677
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1678	\|b aStream\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1679
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1680	aStream := 'smalltalk.rc' asFilename readStream.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1681	b := ByteArray new:100.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1682	aStream nextBytesInto:b.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1683	aStream close.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1684	b inspect
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1685	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1686
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1687	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1688	\|s aStream\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1689	aStream := 'smalltalk.rc' asFilename readStream.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1690	s := String new:100.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1691	aStream nextBytesInto:s.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1692	aStream close.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1693	s inspect
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1694	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1695	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1696
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1697	nextLong
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1698	"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	1699	The returned value may be a LargeInteger.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1700	(msb-first for compatibility with other smalltalks)"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1701
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1702	^ self nextUnsignedLongMSB:true
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1703	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1704
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1705	nextLongMSB:msbFlag
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1706	"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	1707	which may be a LargeInteger.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1708	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	1709	otherwise least-significant byte comes first.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1710	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	1711	Works in both binary and text modes."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1712
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	1713	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1714	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1715
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1716	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1717	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	1718	&& (__INST(mode) != @symbol(writeonly))
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1719	) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1720	FILE *f;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1721	int ret;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1722	int value;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1723	char buffer[4];
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1724
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1725	f = __FILEVal(fp);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1726	__READBYTES__(ret, f, buffer, 4, __INST(buffered) == true);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1727
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1728	if (ret == 4) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1729	if (__INST(position) != nil) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1730	__INST(position) = __MKSMALLINT(__intVal(__INST(position)) + 4);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1731	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1732	if (msbFlag == true) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1733	value = (buffer[0] & 0xFF);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1734	value = (value << 8) \| (buffer[1] & 0xFF);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1735	value = (value << 8) \| (buffer[2] & 0xFF);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1736	value = (value << 8) \| (buffer[3] & 0xFF);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1737	} else {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1738	value = (buffer[3] & 0xFF);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1739	value = (value << 8) \| (buffer[2] & 0xFF);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1740	value = (value << 8) \| (buffer[1] & 0xFF);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1741	value = (value << 8) \| (buffer[0] & 0xFF);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1742	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1743	if ((value >= _MIN_INT) && (value <= _MAX_INT)) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1744	RETURN ( __MKSMALLINT(value));
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1745	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1746	RETURN ( __MKLARGEINT(value) );
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1747	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1748
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1749	if (ret < 0) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1750	__INST(position) = nil;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1751	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1752	} else /* ret == 0 */ {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1753	__INST(hitEOF) = true;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1754	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1755	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1756	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	1757	hitEOF ifTrue:[^ self pastEnd].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1758	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1759	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1760	^ self readError.
1079 d47cd86b487b Make methods signal-proof. Stefan Vogel <sv@exept.de> parents: 1068 diff changeset	1761
362 4131e87e79ec . claus parents: 360 diff changeset	1762	!
4131e87e79ec . claus parents: 360 diff changeset	1763
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1764	nextShortMSB:msbFlag
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1765	"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	1766	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	1767	otherwise least-significant byte comes first.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1768	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	1769	Works in both binary and text modes."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1770
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	1771	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1772	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1773
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1774	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1775	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	1776	&& (__INST(mode) != @symbol(writeonly))
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1777	) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1778	FILE *f;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1779	int ret;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1780	short value;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1781	char buffer[2];
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1782
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1783	f = __FILEVal(fp);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1784	__READBYTES__(ret, f, buffer, 2, __INST(buffered) == true);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1785
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1786	if (ret == 2) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1787	if (__INST(position) != nil) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1788	__INST(position) = __MKSMALLINT(__intVal(__INST(position)) + 2);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1789	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1790	if (msbFlag == true) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1791	value = ((buffer[0] & 0xFF) << 8) \| (buffer[1] & 0xFF);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1792	} else {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1793	value = ((buffer[1] & 0xFF) << 8) \| (buffer[0] & 0xFF);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1794	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1795	RETURN (__MKSMALLINT(value));
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1796	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1797
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1798	if (ret < 0) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1799	__INST(position) = nil;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1800	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1801	} else /* ret == 0 */ {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1802	__INST(hitEOF) = true;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1803	}
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	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	1806	hitEOF ifTrue:[^ self pastEnd].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1807	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1808	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1809	^ self readError.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1810	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1811
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1812	nextUnsignedLongMSB:msbFlag
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1813	"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	1814	a LargeInteger.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1815	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	1816	least-significant byte comes first.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1817	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	1818	Works in both binary and text modes."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1819
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	1820	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1821	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1822
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1823	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1824	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	1825	&& (__INST(mode) != @symbol(writeonly))
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1826	) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1827	FILE *f;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1828	int ret;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1829	unsigned int value;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1830	char buffer[4];
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1831
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1832	f = __FILEVal(fp);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1833	__READBYTES__(ret, f, buffer, 4, __INST(buffered) == true);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1834
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1835	if (ret == 4) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1836	if (__INST(position) != nil) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1837	__INST(position) = __MKSMALLINT(__intVal(__INST(position)) + 4);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1838	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1839	if (msbFlag == true) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1840	value = (buffer[0] & 0xFF);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1841	value = (value << 8) \| (buffer[1] & 0xFF);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1842	value = (value << 8) \| (buffer[2] & 0xFF);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1843	value = (value << 8) \| (buffer[3] & 0xFF);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1844	} else {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1845	value = (buffer[3] & 0xFF);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1846	value = (value << 8) \| (buffer[2] & 0xFF);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1847	value = (value << 8) \| (buffer[1] & 0xFF);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1848	value = (value << 8) \| (buffer[0] & 0xFF);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1849	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1850	if (value <= _MAX_INT) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1851	RETURN ( __MKSMALLINT(value));
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1852	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1853	RETURN ( __MKULARGEINT(value) );
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1854	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1855
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1856	if (ret < 0) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1857	__INST(position) = nil;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1858	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1859	} else /* ret == 0 */ {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1860	__INST(hitEOF) = true;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1861	}
612 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	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	1864	hitEOF ifTrue:[^ self pastEnd].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1865	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1866	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1867	^ self readError.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1868	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1869
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1870	nextUnsignedShortMSB:msbFlag
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1871	"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	1872	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	1873	otherwise least-significant byte comes first.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1874	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	1875	Works in both binary and text modes."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1876
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	1877	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1878	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1879
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1880	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1881	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	1882	&& (__INST(mode) != @symbol(writeonly))
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1883	) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1884	FILE *f;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1885	int ret;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1886	unsigned int value;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1887	char buffer[2];
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1888
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1889	f = __FILEVal(fp);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1890	__READBYTES__(ret, f, buffer, 2, __INST(buffered) == true);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1891
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1892	if (ret == 2) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1893	if (__INST(position) != nil) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1894	__INST(position) = __MKSMALLINT(__intVal(__INST(position)) + 2);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1895	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1896	if (msbFlag == true) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1897	value = ((buffer[0] & 0xFF) << 8) \| (buffer[1] & 0xFF);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1898	} else {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1899	value = ((buffer[1] & 0xFF) << 8) \| (buffer[0] & 0xFF);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1900	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1901	RETURN (__MKSMALLINT(value));
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1902	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1903
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1904	if (ret < 0) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1905	__INST(position) = nil;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1906	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1907	} else /* ret == 0 */ {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1908	__INST(hitEOF) = true;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1909	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1910	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1911	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	1912	hitEOF ifTrue:[^ self pastEnd].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1913	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1914	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1915	^ self readError.
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
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1918	nextWord
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1919	"in text-mode:
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1920	read the alphaNumeric next word (i.e. up to non letter-or-digit).
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1921	return a string containing those characters.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1922	in binary-mode:
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1923	read two bytes (msb-first) and return the value as a 16-bit
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1924	unsigned Integer (for compatibility with other smalltalks)"
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	binary ifTrue:[
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1927	^ self nextUnsignedShortMSB:true
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	1928	].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1929	^ self nextAlphaNumericWord
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
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1932	!ExternalStream methodsFor:'non homogenous writing'!
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	nextPutByte:aByteValue
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1935	"write a byte.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1936	Works in both binary and text modes."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1937
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	1938	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1939	FILE *f;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1940	char c;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1941	OBJ pos, fp;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1942	int cnt, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1943
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1944	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1945	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	1946	&& (__INST(mode) != @symbol(readonly))
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1947	&& __isSmallInteger(aByteValue)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1948
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1949	) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1950	c = __intVal(aByteValue);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1951	f = __FILEVal(fp);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1952	if (_buffered = (__INST(buffered) == true)) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1953	__WRITING__(f)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1954	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1955	__WRITEBYTE__(cnt, f, &c, _buffered);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1956	if (cnt == 1) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1957	pos = __INST(position);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1958	if (pos != nil)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1959	__INST(position) = __MKSMALLINT(__intVal(pos) + 1);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1960	RETURN (self);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1961	}
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1962	__INST(lastErrorNumber) = __MKSMALLINT(errno);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1963	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1964	%}.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1965	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1966	(mode == #readonly) ifTrue:[^ self errorReadOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1967	^ self writeError.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1968	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1969
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1970	nextPutBytes:count from:anObject
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1971	"write count bytes from an object.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1972	Return the number of bytes written or nil on error.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1973	The object must have non-pointer indexed instvars
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1974	(i.e. be a ByteArray, String, Float- or DoubleArray).
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1975	Use with care - non object oriented i/o.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1976	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	1977	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	1978
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1979	^ self nextPutBytes:count from:anObject startingAt:1
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1980	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1981
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1982	nextPutBytes:count from:anObject startingAt:start
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1983	"write count bytes from an object starting at index start.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1984	return the number of bytes written - which could be 0.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1985	The object must have non-pointer indexed instvars
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1986	(i.e. be a ByteArray, String, Float- or DoubleArray).
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1987	Use with care - non object oriented i/o.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1988	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	1989	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	1990
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	1991	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1992	FILE *f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1993	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	1994	int objSize, nInstVars, nInstBytes, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1995	char *cp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1996	OBJ oClass, pos, fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1997
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1998	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	1999	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	2000	&& (__INST(mode) != @symbol(readonly))
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2001	&& __bothSmallInteger(count, start)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2002	) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2003	oClass = __Class(anObject);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2004	switch (__intVal(__ClassInstPtr(oClass)->c_flags) & ARRAYMASK) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2005	case BYTEARRAY:
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2006	case WORDARRAY:
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2007	case LONGARRAY:
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2008	case FLOATARRAY:
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2009	case DOUBLEARRAY:
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2010	break;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2011	default:
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2012	goto bad;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2013	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2014	len = __intVal(count);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2015	offs = __intVal(start) - 1;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2016	f = __FILEVal(fp);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2017
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2018	nInstVars = __intVal(__ClassInstPtr(oClass)->c_ninstvars);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2019	nInstBytes = OHDR_SIZE + __OBJS2BYTES__(nInstVars);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2020	objSize = __Size(anObject) - nInstBytes;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2021	if ( (offs >= 0) && (len >= 0) && (objSize >= (len + offs)) ) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2022	offs += nInstBytes;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2023	if (_buffered = (__INST(buffered) == true)) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2024	__WRITING__(f)
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2025	}
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2026	__WRITEBYTES__(cnt, f, (char *)__InstPtr(anObject)+offs, len, _buffered);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2027
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2028	if (cnt >= 0) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2029	pos = __INST(position);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2030	if (pos != nil)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2031	__INST(position) = __MKSMALLINT(__intVal(pos) + cnt);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2032	RETURN ( __MKSMALLINT(cnt) );
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2033	}
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2034	__INST(lastErrorNumber) = __MKSMALLINT(errno);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2035	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2036	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2037	bad: ;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2038	%}.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2039	lastErrorNumber notNil ifTrue:[^ self writeError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2040	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2041	(mode == #readonly) ifTrue:[^ self errorReadOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2042	^ self primitiveFailed
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2043	!
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	nextPutBytesFrom:anObject
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2046	"write bytes from an object; the number of bytes is defined by
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2047	the objects size.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2048	Return the number of bytes written or nil on error.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2049	The object must have non-pointer indexed instvars
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2050	(i.e. be a ByteArray, String, Float- or DoubleArray).
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2051	Use with care - non object oriented i/o.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2052	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	2053	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	2054
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2055	^ self nextPutBytes:(anObject size) from:anObject startingAt:1
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2056	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2057
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2058	nextPutLong:aNumber MSB:msbFlag
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2059	"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	2060	true, data is written most-significant byte first; otherwise least
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2061	first.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2062	Works in both binary and text modes."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2063
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	2064	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2065	int num;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2066	char bytes[4];
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2067	FILE *f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2068	int cnt, _buffered;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2069	OBJ fp, pos;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2070
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2071	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2072	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	2073	&& (__INST(mode) != @symbol(readonly))
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2074	&& __isSmallInteger(aNumber)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2075	) {
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2076	num = __intVal(aNumber);
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2077	if (msbFlag == true) {
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2078	bytes[0] = (num >> 24) & 0xFF;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2079	bytes[1] = (num >> 16) & 0xFF;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2080	bytes[2] = (num >> 8) & 0xFF;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2081	bytes[3] = num & 0xFF;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2082	} else {
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2083	bytes[3] = (num >> 24) & 0xFF;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2084	bytes[2] = (num >> 16) & 0xFF;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2085	bytes[1] = (num >> 8) & 0xFF;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2086	bytes[0] = num & 0xFF;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2087	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2088
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2089	f = __FILEVal(fp);
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2090	if (_buffered = (__INST(buffered) == true)) {
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2091	__WRITING__(f)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2092	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2093	__WRITEBYTES__(cnt, f, bytes, 4, _buffered);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2094
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2095	if (cnt == 4) {
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2096	if ((pos = __INST(position)) != nil) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2097	__INST(position) = __MKSMALLINT(__intVal(pos) + 4);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2098	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2099	RETURN ( self );
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2100	}
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2101	__INST(lastErrorNumber) = __MKSMALLINT(errno);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2102	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2103	%}.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2104	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2105	(mode == #readonly) ifTrue:[^ self errorReadOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2106	lastErrorNumber notNil ifTrue:[^ self writeError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2107
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2108	aNumber isInteger ifTrue:[
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2109	msbFlag ifTrue:[
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2110	"high word first"
1079 d47cd86b487b Make methods signal-proof. Stefan Vogel <sv@exept.de> parents: 1068 diff changeset	2111	(self nextPutShort:(aNumber // 16r10000) MSB:true) isNil ifTrue:[^ nil].
d47cd86b487b Make methods signal-proof. Stefan Vogel <sv@exept.de> parents: 1068 diff changeset	2112	^ self nextPutShort:(aNumber \\ 16r10000) MSB:true
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2113	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2114	"low word first"
1079 d47cd86b487b Make methods signal-proof. Stefan Vogel <sv@exept.de> parents: 1068 diff changeset	2115	(self nextPutShort:(aNumber \\ 16r10000) MSB:false) isNil ifTrue:[^ nil].
d47cd86b487b Make methods signal-proof. Stefan Vogel <sv@exept.de> parents: 1068 diff changeset	2116	^ self nextPutShort:(aNumber // 16r10000) MSB:false.
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	2117	].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2118	self argumentMustBeInteger
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2119	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2120
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2121	nextPutShort:aNumber MSB:msbFlag
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2122	"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	2123	true, data is written most-significant byte first; otherwise least
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2124	first.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2125	Works in both binary and text modes."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2126
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	2127	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2128	int num;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2129	char bytes[2];
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2130	FILE *f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2131	int cnt, _buffered;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2132	OBJ fp, pos;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2133
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2134	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2135	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	2136	&& (__INST(mode) != @symbol(readonly))
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2137	&& __isSmallInteger(aNumber)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2138	) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2139	num = __intVal(aNumber);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2140	if (msbFlag == true) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2141	bytes[0] = (num >> 8) & 0xFF;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2142	bytes[1] = num & 0xFF;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2143	} else {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2144	bytes[1] = (num >> 8) & 0xFF;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2145	bytes[0] = num & 0xFF;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2146	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2147
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2148	f = __FILEVal(fp);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2149	if (_buffered = (__INST(buffered) == true)) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2150	__WRITING__(f)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2151	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2152	__WRITEBYTES__(cnt, f, bytes, 2, _buffered);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2153
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2154	if (cnt == 2) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2155	if ((pos = __INST(position)) != nil) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2156	__INST(position) = __MKSMALLINT(__intVal(pos) + 2);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2157	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2158	RETURN ( self );
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2159	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2160	__INST(lastErrorNumber) = __MKSMALLINT(errno);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2161	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2162	%}.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2163	lastErrorNumber notNil ifTrue:[^ self writeError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2164	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2165	(mode == #readonly) ifTrue:[^ self errorReadOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2166	self argumentMustBeInteger
10 4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	2167	! !
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2168
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2169	!ExternalStream methodsFor:'private'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2170
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2171	clearEOF
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2172	hitEOF := false
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2173	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2174
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2175	connectTo:aFileDescriptor withMode:openmode
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2176	"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	2177	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	2178	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	2179	a Stream object.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2180	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	2181	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	2182
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2183	\|retVal\|
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2184
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2185	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	2186	%{
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2187	FILE *f;
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2188	OBJ fp;
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2189
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2190	if (__isSmallInteger(aFileDescriptor)
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2191	&& (__qClass(openmode)== @global(String))) {
1079 d47cd86b487b Make methods signal-proof. Stefan Vogel <sv@exept.de> parents: 1068 diff changeset	2192	f = (FILE ) fdopen(__intVal(aFileDescriptor), (char )__stringVal(openmode));
d47cd86b487b Make methods signal-proof. Stefan Vogel <sv@exept.de> parents: 1068 diff changeset	2193	if (f == NULL) {
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2194	__INST(lastErrorNumber) = __MKSMALLINT(errno);
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2195	__INST(position) = nil;
1079 d47cd86b487b Make methods signal-proof. Stefan Vogel <sv@exept.de> parents: 1068 diff changeset	2196	} else {
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2197	__INST(filePointer) = fp = __MKOBJ((int)f); __STORE(self, fp);
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2198	__INST(position) = __MKSMALLINT(1);
1079 d47cd86b487b Make methods signal-proof. Stefan Vogel <sv@exept.de> parents: 1068 diff changeset	2199	retVal = self;
d47cd86b487b Make methods signal-proof. Stefan Vogel <sv@exept.de> parents: 1068 diff changeset	2200	}
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2201	}
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2202	%}.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2203	retVal notNil ifTrue:[
1079 d47cd86b487b Make methods signal-proof. Stefan Vogel <sv@exept.de> parents: 1068 diff changeset	2204	buffered := true. "default is buffered"
d47cd86b487b Make methods signal-proof. Stefan Vogel <sv@exept.de> parents: 1068 diff changeset	2205	Lobby register:self
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2206	].
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2207	lastErrorNumber notNil ifTrue:[
1079 d47cd86b487b Make methods signal-proof. Stefan Vogel <sv@exept.de> parents: 1068 diff changeset	2208	"
d47cd86b487b Make methods signal-proof. Stefan Vogel <sv@exept.de> parents: 1068 diff changeset	2209	the open failed for some reason ...
d47cd86b487b Make methods signal-proof. Stefan Vogel <sv@exept.de> parents: 1068 diff changeset	2210	"
d47cd86b487b Make methods signal-proof. Stefan Vogel <sv@exept.de> parents: 1068 diff changeset	2211	^ self openError
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2212	].
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2213	^ retVal
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2214	!
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2215
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2216	reOpen
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2217	"sent after snapin to reopen streams.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2218	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	2219
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2220	self class name errorPrint. ': cannot reOpen stream - stream closed' errorPrintNL.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2221	filePointer := nil.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2222	Lobby unregister:self.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2223	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2224
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2225	setLastError:aNumber
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2226	lastErrorNumber := aNumber
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2227	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2228
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2229	!ExternalStream methodsFor:'queries'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2230
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2231	isBinary
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2232	"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	2233	The default when created is false."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2234
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2235	^ binary
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
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2238	isExternalStream
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2239	"return true, if the receiver is some kind of externalStream;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2240	true is returned here - the method redefined from Object."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2241
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2242	^ true
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
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2245	isReadable
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2246	"return true, if this stream can be read from"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2247
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2248	^ (mode ~~ #writeonly)
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2249	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2250
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2251	isWritable
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2252	"return true, if this stream can be written to"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2253
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2254	^ (mode ~~ #readonly)
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2255	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2256
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2257	!ExternalStream methodsFor:'reading'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2258
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2259	next
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2260	"return the next element; advance read position.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2261	In binary mode, an integer is returned, otherwise a character.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2262	If there are no more elements, nil is returned."
1 a27a279701f8 Initial revision claus parents: diff changeset	2263
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	2264	%{
1 a27a279701f8 Initial revision claus parents: diff changeset	2265	FILE *f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2266	int ret, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2267	OBJ pos, fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2268	unsigned char ch;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2269
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2270	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2271	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	2272	&& (__INST(mode) != @symbol(writeonly))
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2273	) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2274	f = __FILEVal(fp);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2275	if (_buffered = (__INST(buffered) == true)) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2276	__READING__(f)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2277	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2278	__READBYTE__(ret, f, &ch, _buffered);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2279
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2280	if (ret > 0) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2281	pos = __INST(position);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2282	if (__isSmallInteger(pos)) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2283	__INST(position) = __MKSMALLINT(__intVal(pos) + 1);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2284	} else {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2285	__INST(position) = nil;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2286	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2287	if (__INST(binary) == true) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2288	RETURN ( __MKSMALLINT(ch) );
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2289	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2290	RETURN ( __MKCHARACTER(ch) );
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2291	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2292
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2293	__INST(position) = nil;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2294	if (ret < 0) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2295	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2296	} else /* ret == 0 */ {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2297	__INST(hitEOF) = true;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2298	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2299	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2300	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	2301	hitEOF ifTrue:[^ self pastEnd].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2302	lastErrorNumber notNil ifTrue:[^ self readError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2303	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2304	self errorWriteOnly
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2305	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2306
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2307	next:count
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2308	"return the next count elements of the stream as a collection.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2309	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	2310
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2311	\|coll\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2312
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2313	binary ifTrue:[
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2314	coll := ByteArray uninitializedNew:count
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2315	] ifFalse:[
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2316	coll := String new:count
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2317	].
872 af04035b443d binary class storage support Claus Gittinger <cg@exept.de> parents: 849 diff changeset	2318	self nextBytes:count into:coll startingAt:1.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2319	^ coll
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2320	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2321
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2322	peek
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2323	"return the element to be read next without advancing read position.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2324	In binary mode, an integer is returned, otherwise a character.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2325	If there are no more elements, nil is returned.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2326	Not allowed in unbuffered mode."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2327
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	2328	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2329	FILE *f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2330	unsigned char c;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2331	int ret;
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	2332	OBJ fp;
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	2333
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2334	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2335	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	2336	&& (__INST(mode) != @symbol(writeonly))
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2337	&& (__INST(buffered) == true)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2338	) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2339	f = __FILEVal(fp);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2340	__READING__(f)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2341	__READBYTE__(ret, f, &c, 1);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2342
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2343	if (ret > 0) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2344	ungetc(c, f);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2345	if (__INST(binary) == true) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2346	RETURN ( __MKSMALLINT(c) );
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2347	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2348	RETURN ( __MKCHARACTER(c) );
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2349	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2350	if (ret < 0) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2351	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2352	} else /* ret == 0 */ {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2353	__INST(hitEOF) = true;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2354	}
1 a27a279701f8 Initial revision claus parents: diff changeset	2355	}
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	2356	%}.
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2357	hitEOF ifTrue:[^ self pastEnd].
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	2358	lastErrorNumber notNil ifTrue:[^ self readError].
1 a27a279701f8 Initial revision claus parents: diff changeset	2359	filePointer isNil ifTrue:[^ self errorNotOpen].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2360	buffered ifFalse:[^ self errorNotBuffered].
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	2361	^ self errorWriteOnly
1295 83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	2362	!
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	2363
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	2364	upToEnd
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	2365	"return a collection of the elements up-to the end.
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	2366	Return nil if the stream-end is reached before."
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	2367
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	2368	\|answerStream ch\|
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	2369
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	2370	answerStream := WriteStream on:(self contentsSpecies new).
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	2371	[self atEnd] whileFalse:[
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2372	ch := self next.
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2373	ch notNil ifTrue:[
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2374	answerStream nextPut:ch
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2375	]
1295 83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	2376	].
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	2377	^ answerStream contents
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	2378
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	2379	"Created: 25.4.1996 / 14:40:31 / cg"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2380	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2381
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2382	!ExternalStream methodsFor:'reimplemented for speed'!
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	2383
514c749165c3 * empty log message * claus parents: 108 diff changeset	2384	nextAlphaNumericWord
379 5b5a130ccd09 revision added claus parents: 372 diff changeset	2385	"read the next word (i.e. up to non letter-or-digit) after first
5b5a130ccd09 revision added claus parents: 372 diff changeset	2386	skipping any whiteSpace.
5b5a130ccd09 revision added claus parents: 372 diff changeset	2387	Return a string containing those characters.
5b5a130ccd09 revision added claus parents: 372 diff changeset	2388	There is a limit of 1023 characters in the word - if longer,
5b5a130ccd09 revision added claus parents: 372 diff changeset	2389	it is truncated."
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	2390
514c749165c3 * empty log message * claus parents: 108 diff changeset	2391	%{ /* STACK: 2000 */
514c749165c3 * empty log message * claus parents: 108 diff changeset	2392	FILE *f;
514c749165c3 * empty log message * claus parents: 108 diff changeset	2393	int len;
514c749165c3 * empty log message * claus parents: 108 diff changeset	2394	char buffer[1024];
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2395	unsigned char ch;
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	2396	int cnt = 0;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2397	int ret;
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	2398	OBJ fp;
a8abff749575 * empty log message * claus parents: 213 diff changeset	2399
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2400	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	2401	&& (__INST(mode) != @symbol(writeonly))
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2402	&& (__INST(buffered) == true)) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2403	f = __FILEVal(fp);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2404	__READING__(f)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2405
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2406	/*
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2407	* skip whiteSpace first ...
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2408	*/
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2409	do {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2410	__READBYTE__(ret, f, &ch, 1);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2411	if (ret > 0)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2412	cnt++;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2413	else
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2414	break;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2415	} while (
379 5b5a130ccd09 revision added claus parents: 372 diff changeset	2416	#ifndef NON_ASCII
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2417	(ch < ' ') \|\|
379 5b5a130ccd09 revision added claus parents: 372 diff changeset	2418	#endif
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2419	(ch == ' ' ) \|\| (ch == '\t') \|\| (ch == '\r')
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2420	\|\| (ch == '\n') \|\| (ch == 0x0b));
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2421
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2422	len = 0;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2423	while (ret > 0 &&
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2424	(((ch >= 'a') && (ch <= 'z')) \|\|
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2425	((ch >= 'A') && (ch <= 'Z')) \|\|
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2426	((ch >= '0') && (ch <= '9')))
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2427	) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2428	buffer[len++] = ch;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2429	if (len >= (sizeof(buffer)-1)) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2430	/* emergency */
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2431	break;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2432	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2433	__READBYTE__(ret, f, &ch, 1);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2434	if (ret > 0)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2435	cnt++;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2436	else
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2437	break;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2438	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2439
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2440	if (ret <= 0) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2441	if (ret < 0) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2442	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2443	goto err;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2444	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2445	else if (ret == 0)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2446	__INST(hitEOF) = true;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2447	} else {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2448	ungetc(ch, f);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2449	cnt--;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2450	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2451
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2452	if (__INST(position) != nil) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2453	__INST(position) = __MKSMALLINT(__intVal(__INST(position)) + cnt);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2454	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2455	if (len != 0) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2456	buffer[len] = '\0';
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2457	RETURN ( __MKSTRING_L(buffer, len COMMA_CON) );
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2458	}
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	2459	}
514c749165c3 * empty log message * claus parents: 108 diff changeset	2460	err: ;
514c749165c3 * empty log message * claus parents: 108 diff changeset	2461	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	2462	hitEOF ifTrue:[^ self pastEnd].
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	2463	lastErrorNumber notNil ifTrue:[^ self readError].
514c749165c3 * empty log message * claus parents: 108 diff changeset	2464	filePointer isNil ifTrue:[^ self errorNotOpen].
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2465	buffered ifFalse:[^ self errorNotBuffered].
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	2466	^ self errorWriteOnly
1 a27a279701f8 Initial revision claus parents: diff changeset	2467	!
a27a279701f8 Initial revision claus parents: diff changeset	2468
a27a279701f8 Initial revision claus parents: diff changeset	2469	nextChunk
a27a279701f8 Initial revision claus parents: diff changeset	2470	"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	2471	exclamation mark. Within the chunk, exclamation marks have to be doubled -
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	2472	except within primitive code (this exception was added to make it easier
a8abff749575 * empty log message * claus parents: 213 diff changeset	2473	to edit primitive code with external editors). This means, that other
a8abff749575 * empty log message * claus parents: 213 diff changeset	2474	Smalltalks cannot always read chunks containing primitive code - but that
a8abff749575 * empty log message * claus parents: 213 diff changeset	2475	doesnt really matter, since C-primitives are an ST/X feature anyway.
a8abff749575 * empty log message * claus parents: 213 diff changeset	2476	Reimplemented here for more speed."
a8abff749575 * empty log message * claus parents: 213 diff changeset	2477
665 429936f8e6e7 fixed nextChunk; it was not reentrant due to freeing of the static Claus Gittinger <cg@exept.de> parents: 612 diff changeset	2478	\|retVal outOfMemory buffer\|
1 a27a279701f8 Initial revision claus parents: diff changeset	2479
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	2480	filePointer isNil ifTrue:[^ self errorNotOpen].
514c749165c3 * empty log message * claus parents: 108 diff changeset	2481	binary ifTrue:[^ self errorBinary].
514c749165c3 * empty log message * claus parents: 108 diff changeset	2482	(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	2483	"must be buffered, because we use ungetc()"
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2484	buffered ifFalse:[^ self errorNotBuffered].
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	2485
443 fae13c0f1512 . Claus Gittinger <cg@exept.de> parents: 441 diff changeset	2486	%{ /* STACK: 8000 */
665 429936f8e6e7 fixed nextChunk; it was not reentrant due to freeing of the static Claus Gittinger <cg@exept.de> parents: 612 diff changeset	2487	/*
429936f8e6e7 fixed nextChunk; it was not reentrant due to freeing of the static Claus Gittinger <cg@exept.de> parents: 612 diff changeset	2488	* 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	2489	* 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	2490	* 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	2491	* 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	2492	*/
1 a27a279701f8 Initial revision claus parents: diff changeset	2493	FILE *f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2494	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	2495	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	2496	int ret;
665 429936f8e6e7 fixed nextChunk; it was not reentrant due to freeing of the static Claus Gittinger <cg@exept.de> parents: 612 diff changeset	2497	char bufferPtr = (char )0;
668 73165201a9da nextChunk: %{ is only recognized if at begin-of-line Claus Gittinger <cg@exept.de> parents: 665 diff changeset	2498	char fastBuffer[7000];
1 a27a279701f8 Initial revision claus parents: diff changeset	2499	REGISTER int index;
665 429936f8e6e7 fixed nextChunk; it was not reentrant due to freeing of the static Claus Gittinger <cg@exept.de> parents: 612 diff changeset	2500	int currSize, fastFlag;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2501	int atBeginOfLine = 1, inPrimitive = 0;
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	2502
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2503	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2504	f = __FILEVal(__INST(filePointer));
668 73165201a9da nextChunk: %{ is only recognized if at begin-of-line Claus Gittinger <cg@exept.de> parents: 665 diff changeset	2505
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	2506	__READING__(f)
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	2507
1 a27a279701f8 Initial revision claus parents: diff changeset	2508	/*
a27a279701f8 Initial revision claus parents: diff changeset	2509	* skip spaces
a27a279701f8 Initial revision claus parents: diff changeset	2510	*/
673 2c3a4a536cd1 oops - handling of exclas within primitives was wrong Claus Gittinger <cg@exept.de> parents: 671 diff changeset	2511	c = '\n';
1 a27a279701f8 Initial revision claus parents: diff changeset	2512	while (! done) {
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2513	lastC = c;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2514	__READBYTE__(ret, f, &c, 1);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2515	if (ret <= 0) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2516	goto err;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2517	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2518	nread++;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2519	atBeginOfLine = 0;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2520	switch (c) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2521	case '\n':
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2522	case ' ':
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2523	case '\t':
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2524	case '\r':
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2525	case '\b':
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2526	case '\014':
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2527	break;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2528
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2529	default:
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2530	atBeginOfLine = (lastC == '\n');
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2531	done = 1;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2532	break;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2533	}
1 a27a279701f8 Initial revision claus parents: diff changeset	2534	}
a27a279701f8 Initial revision claus parents: diff changeset	2535
a27a279701f8 Initial revision claus parents: diff changeset	2536	/*
a27a279701f8 Initial revision claus parents: diff changeset	2537	* read chunk into a buffer
a27a279701f8 Initial revision claus parents: diff changeset	2538	*/
665 429936f8e6e7 fixed nextChunk; it was not reentrant due to freeing of the static Claus Gittinger <cg@exept.de> parents: 612 diff changeset	2539	bufferPtr = fastBuffer; fastFlag = 1;
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	2540	currSize = sizeof(fastBuffer);
362 4131e87e79ec . claus parents: 360 diff changeset	2541
1 a27a279701f8 Initial revision claus parents: diff changeset	2542	index = 0;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2543	for (;;) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2544	__READBYTE__(ret, f, &peekC, 1);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2545	if ((c == '%') && atBeginOfLine && ret > 0) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2546	if (peekC == '{') {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2547	inPrimitive = 1;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2548	} else if (peekC == '}') {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2549	inPrimitive = 0;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2550	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2551	} else if (c == '!' && !inPrimitive) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2552	if (ret > 0 && peekC == '!') {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2553	/*
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2554	* convert double-! to a single !
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2555	*/
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2556	__READBYTE__(ret, f, &peekC, 1);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2557	if (ret > 0)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2558	nread++;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2559	} else {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2560	/*
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2561	* End of chunk, push back lookahead character
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2562	* and leave loop.
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2563	*/
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2564	if (ret > 0)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2565	ungetc(peekC, f);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2566	else
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2567	ret = 1;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2568	break;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2569	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2570	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2571
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2572	/*
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2573	* do we have to resize the buffer ?
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2574	*/
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2575	if ((index+2) >= currSize) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2576	OBJ newBuffer;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2577	char *nbp;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2578
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2579	newBuffer = __MKEMPTYSTRING(currSize * 2 COMMA_CON);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2580	if (newBuffer == nil) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2581	/*
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2582	* mhmh - chunk seems to be very big ....
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2583	*/
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2584	outOfMemory = true;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2585	goto err;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2586	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2587	nbp = __stringVal(newBuffer);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2588	if (!fastFlag) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2589	/*
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2590	* old buffer may have moved - refetch pointer
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2591	*/
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2592	bufferPtr = __stringVal(buffer);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2593	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2594	bcopy(bufferPtr, nbp, index);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2595	bufferPtr = nbp;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2596	bufferPtr[index] = '\0';
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2597	buffer = newBuffer;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2598	fastFlag = 0;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2599	currSize = currSize * 2;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2600	} else if (!fastFlag) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2601	/*
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2602	* old buffer may have moved - refetch pointer
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2603	*/
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2604	bufferPtr = __stringVal(buffer);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2605	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2606	bufferPtr[index++] = c;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2607	if (ret <= 0) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2608	if (ret == 0)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2609	break; /* End of chunk reached */
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2610	goto err;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2611	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2612	nread++;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2613	atBeginOfLine = (c == '\n');
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2614	c = peekC;
1 a27a279701f8 Initial revision claus parents: diff changeset	2615	}
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	2616
1 a27a279701f8 Initial revision claus parents: diff changeset	2617	/*
a27a279701f8 Initial revision claus parents: diff changeset	2618	* 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	2619	* 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	2620	* 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	2621	* fast (C) buffer or from real (ST) buffer.
1 a27a279701f8 Initial revision claus parents: diff changeset	2622	*/
665 429936f8e6e7 fixed nextChunk; it was not reentrant due to freeing of the static Claus Gittinger <cg@exept.de> parents: 612 diff changeset	2623	if (fastFlag) {
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2624	retVal = __MKSTRING_L(bufferPtr, index COMMA_CON);
665 429936f8e6e7 fixed nextChunk; it was not reentrant due to freeing of the static Claus Gittinger <cg@exept.de> parents: 612 diff changeset	2625	} else {
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2626	retVal = __MKSTRING_ST_L(buffer, index COMMA_CON);
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	2627	}
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2628
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2629	err:
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2630	if (ret <= 0) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2631	if (ret == 0)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2632	__INST(hitEOF) = true;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2633	else /* ret < 0 */
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2634	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2635	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2636	if (__INST(position) != nil) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2637	__INST(position) = __MKSMALLINT(__intVal(__INST(position)) + nread);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2638	}
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	2639	%}.
370 20f04d9b371b . claus parents: 369 diff changeset	2640	retVal isNil ifTrue:[
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2641	"/
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2642	"/ arrive here with retVal==nil either on error or premature EOF
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2643	"/ or if running out of malloc-memory
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2644	"/
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2645	hitEOF ifTrue:[^ self pastEnd].
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2646	lastErrorNumber notNil ifTrue:[^ self readError].
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2647	outOfMemory == true ifTrue:[
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2648	"
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2649	buffer memory allocation failed.
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2650	When we arrive here, there was no memory available for the
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2651	chunk. (seems to be too big of a chunk ...)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2652	Bad luck - you should increase the ulimit and/or swap space on your machine.
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2653	"
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2654	^ ObjectMemory allocationFailureSignal raise.
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2655	]
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	2656	].
1 a27a279701f8 Initial revision claus parents: diff changeset	2657	^ retVal
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2658	!
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	nextMatchFor:anObject
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2661	"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	2662	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	2663	the element after anObject.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2664	Only single byte characters are currently supported."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2665
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	2666	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2667	FILE *f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2668	int ret, peekValue;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2669	char c;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2670	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2671
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2672	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2673	if (((fp = __INST(filePointer)) != nil)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2674	&& (__INST(mode) != @symbol(writeonly))
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2675	) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2676	if ((__INST(binary) == true) && __isSmallInteger(anObject)) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2677	peekValue = __intVal(anObject) & 0xFF;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2678	} else {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2679	if ((__INST(binary) != true) && __isCharacter(anObject)) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2680	peekValue = __intVal(_characterVal(anObject)) & 0xFF;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2681	} else {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2682	peekValue = -1;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2683	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2684	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2685
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2686	if (peekValue >= 0) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2687	int _buffered;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2688
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2689	__INST(position) = nil;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2690	f = __FILEVal(fp);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2691	if (_buffered = (__INST(buffered) == true)) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2692	__READING__(f)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2693	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2694
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2695	for (;;) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2696	__READBYTE__(ret, f, &c, _buffered);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2697	if (ret <= 0) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2698	if (ret < 0)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2699	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2700	else
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2701	__INST(hitEOF) = true;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2702	break;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2703	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2704	if (c == peekValue) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2705	RETURN (anObject);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2706	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2707	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2708	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2709	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2710	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	2711	hitEOF ifTrue:[^ self pastEnd].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2712	lastErrorNumber notNil ifTrue:[^ self readError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2713	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2714	^ super nextMatchFor:anObject
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2715	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2716
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2717	peekFor:anObject
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2718	"return true and move past next element, if next == something.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2719	Otherwise, stay and return false. False is also returned
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2720	when EOF is encountered.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2721	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	2722	text mode; only single byte characters are currently supported."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2723
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	2724	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2725	FILE *f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2726	char c;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2727	int ret, peekValue;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2728	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2729
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2730	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2731	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	2732	&& (__INST(mode) != @symbol(writeonly))
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2733	&& (__INST(buffered) == true)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2734	) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2735	if (__INST(binary) == true) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2736	if (__isSmallInteger(anObject)) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2737	peekValue = __intVal(anObject) & 0xFF;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2738	} else {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2739	goto bad;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2740	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2741	} else {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2742	if (__isCharacter(anObject)) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2743	peekValue = __intVal(_characterVal(anObject)) & 0xFF;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2744	} else {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2745	goto bad;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2746	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2747	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2748
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2749	f = __FILEVal(fp);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2750	__READING__(f)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2751	__READBYTE__(ret, f, &c, 1);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2752	if (ret > 0) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2753	if (c == peekValue) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2754	OBJ pos;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2755
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2756	if ((pos = __INST(position)) != nil) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2757	__INST(position) = __MKSMALLINT(__intVal(pos) + 1);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2758	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2759	RETURN (true);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2760	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2761	ungetc(c, f);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2762	RETURN (false);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2763	} else if (ret < 0) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2764	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2765	} else /* ret == 0 */
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2766	__INST(hitEOF) = true;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2767	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2768	bad: ;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2769	%}.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2770	mode == #writeonly ifTrue:[^ self errorWriteOnly].
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	2771	hitEOF ifTrue:[self pastEnd. ^ false].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2772	lastErrorNumber notNil ifTrue:[^ self readError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2773	filePointer isNil ifTrue:[^ self errorNotOpen].
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2774	buffered ifFalse:[^ self errorNotBuffered].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2775	^ super peekFor:anObject
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2776	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2777
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2778	skipLine
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2779	"read the next line (characters up to newline) skip only;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2780	return nil if EOF reached, self otherwise.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2781	Not allowed in binary mode."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2782
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2783	%{ /* STACK:2000 */
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2784
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2785	FILE *f;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2786	OBJ fp;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2787	int ret, _buffered;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2788	char c;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2789
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2790	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2791	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	2792	&& (__INST(mode) != @symbol(writeonly))
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2793	&& (__INST(binary) != true)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2794	) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2795	f = __FILEVal(fp);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2796	if (_buffered = (__INST(buffered) == true)) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2797	__READING__(f)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2798	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2799	for (;;) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2800	__READBYTE__(ret, f, &c, _buffered);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2801	if (ret > 0) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2802	if (c == '\n')
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2803	RETURN(self)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2804	} else
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2805	break;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2806	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2807	if (ret < 0) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2808	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2809	} else /* ret == 0 */ {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2810	__INST(hitEOF) = true;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2811	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2812	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2813	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	2814	hitEOF ifTrue:[^ self pastEnd].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2815	lastErrorNumber notNil ifTrue:[^ self readError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2816	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2817	binary ifTrue:[^ self errorBinary].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2818	^ self errorWriteOnly
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2819	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2820
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2821	skipSeparators
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2822	"skip all whitespace; next will return next non-white-space character
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2823	or nil if endOfFile reached. Not allowed in binary mode.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2824	- reimplemented for speed"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2825
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	2826	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2827	FILE *f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2828	char c;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2829	int ret;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2830	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2831
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2832	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2833	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	2834	&& (__INST(mode) != @symbol(writeonly))
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2835	&& (__INST(binary) != true)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2836	&& (__INST(buffered) == true)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2837	) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2838	f = __FILEVal(fp);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2839	__READING__(f)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2840	while (1) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2841	__READBYTE__(ret, f, &c, 1);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2842	if (ret <= 0) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2843	if (ret < 0) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2844	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2845	} else /* ret == 0 */ {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2846	__INST(hitEOF) = true;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2847	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2848	break;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2849	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2850	switch (c) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2851	case ' ':
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2852	case '\t':
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2853	case '\n':
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2854	case '\r':
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2855	case '\b':
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2856	case '\014':
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2857	break;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2858
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2859	default:
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2860	ungetc(c, f);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2861	RETURN ( __MKCHARACTER(c & 0xFF) );
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2862	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2863	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2864	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2865	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	2866	hitEOF ifTrue:[^ self pastEnd].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2867	lastErrorNumber notNil ifTrue:[^ self readError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2868	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2869	(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	2870	buffered ifFalse:[^ self errorNotBuffered].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2871	^ self errorBinary.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2872	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2873
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2874	skipSeparatorsExceptCR
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2875	"skip all whitespace but no newlines;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2876	next will return next non-white-space character
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2877	or nil if endOfFile reached. Not allowed in binary mode.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2878	- reimplemented for speed"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2879
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2880
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	2881	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2882	FILE *f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2883	char c;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2884	int ret;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2885	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2886
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2887	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2888	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	2889	&& (__INST(mode) != @symbol(writeonly))
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2890	&& (__INST(binary) != true)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2891	&& (__INST(buffered) == true)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2892	) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2893	f = __FILEVal(fp);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2894	__READING__(f)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2895	while (1) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2896	__READBYTE__(ret, f, &c, 1);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2897	if (ret <= 0) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2898	if (ret < 0) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2899	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2900	} else /* ret == 0 */ {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2901	__INST(hitEOF) = true;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2902	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2903	break;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2904	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2905	switch (c) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2906	case ' ':
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2907	case '\t':
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2908	case '\b':
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2909	break;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2910
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2911	default:
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2912	ungetc(c, f);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2913	RETURN ( __MKCHARACTER(c & 0xFF) );
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2914	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2915	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2916	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2917	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	2918	hitEOF ifTrue:[^ self pastEnd].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2919	lastErrorNumber notNil ifTrue:[^ self readError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2920	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2921	(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	2922	buffered ifFalse:[^ self errorNotBuffered].
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2923	^ self errorBinary.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2924	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2925
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2926	skipThrough:aCharacter
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2927	"skip all characters up-to and including aCharacter. Return the receiver if
671 53de87163ad5 spelling Claus Gittinger <cg@exept.de> parents: 668 diff changeset	2928	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	2929	The next read operation will return the character after aCharacter.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2930	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	2931	Only single byte characters are currently supported."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2932
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	2933	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2934	FILE *f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2935	REGISTER int cSearch;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2936	unsigned char c;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2937	int ret, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2938	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2939
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2940	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2941	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	2942	&& (__INST(mode) != @symbol(writeonly))
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2943	) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2944	if (__INST(binary) == true) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2945	/* searched for object must be a smallInteger */
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2946	if (! __isSmallInteger(aCharacter)) goto badArgument;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2947	cSearch = __intVal(aCharacter);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2948	} else {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2949	/* searched for object must be a character */
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2950	if (! __isCharacter(aCharacter)) goto badArgument;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2951	cSearch = __intVal(_characterVal(aCharacter));
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2952	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2953	/* Q: should we just say: "not found" ? */
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2954	if ((cSearch < 0) \|\| (cSearch > 255)) goto badArgument;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2955
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2956	f = __FILEVal(fp);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2957	if (_buffered = (__INST(buffered) == true)) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2958	__READING__(f)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2959	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2960
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2961	while (1) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2962	__READBYTE__(ret, f, &c, _buffered);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2963	if (ret <= 0) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2964	if (ret < 0) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2965	__INST(lastErrorNumber) = __MKSMALLINT(errno);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2966	} else /* ret == 0 */ {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2967	__INST(hitEOF) = true;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2968	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2969	break;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2970	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2971	if (c == cSearch) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2972	RETURN (self);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2973	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2974	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2975	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2976	badArgument: ;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2977	%}.
1281 b4b3abffdf32 Support optional signal generation on end of stream. Stefan Vogel <sv@exept.de> parents: 1141 diff changeset	2978	hitEOF ifTrue:[^ self pastEnd].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2979	lastErrorNumber notNil ifTrue:[^ self readError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2980	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2981	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2982	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2983	argument must be integer/character in binary mode,
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2984	character in text mode
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2985	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2986	^ self error:'invalid argument'.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2987
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2988	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2989	\|s\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2990	s := 'Makefile' asFilename readStream.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2991	s skipThrough:$=.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2992	s next:10
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2993	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2994	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2995
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2996	skipThroughAll:aString
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2997	"search & skip for the sequence given by the argument, aCollection;
671 53de87163ad5 spelling Claus Gittinger <cg@exept.de> parents: 668 diff changeset	2998	return nil if not found, self otherwise. If successful, the next read
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2999	will return the character after the searchstring."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3000
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3001	\|buffer len first\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3002
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3003	(aString isString and:[binary not]) ifTrue:[
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3004	len := aString size.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3005	first := aString at:1.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3006	buffer := String new:len.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3007	buffer at:1 put:first.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3008	len := len - 1.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3009	[true] whileTrue:[
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3010	(self skipThrough:first) isNil ifTrue:[
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3011	^ nil.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3012	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3013	(self nextBytes:len into:buffer startingAt:2) == len ifFalse:[
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3014	^ nil
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3015	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3016	buffer = aString ifTrue:[
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3017	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3018	position back, before string
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3019	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3020	^ self
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3021	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3022	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3023	"NOT REACHED"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3024	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3025	^ super skipThroughAll:aString
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3026
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3027	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3028	\|s\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3029	s := 'Makefile' asFilename readStream.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3030	s skipThroughAll:'are'.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3031	s next:10
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3032	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3033	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3034
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3035	skipToAll:aString
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3036	"skip for the sequence given by the argument, aCollection;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3037	return nil if not found, self otherwise. On a successful match, next read
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3038	will return characters of aString."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3039
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3040	\|oldPos\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3041
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3042	oldPos := self position.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3043	(self skipThroughAll:aString) isNil ifTrue:[
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3044	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3045	restore position
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3046	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3047	self position:oldPos.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3048	^ nil
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3049	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3050	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3051	position before match-string
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3052	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3053	self position:(self position - aString size).
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3054	^ self
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3055
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3056	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3057	\|s\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3058	s := 'Makefile' asFilename readStream.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3059	s skipToAll:'are'.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3060	s next:10
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3061	"
1 a27a279701f8 Initial revision claus parents: diff changeset	3062	! !
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3063
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3064	!ExternalStream methodsFor:'testing'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3065
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3066	atEnd
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3067	"return true, if position is at end"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3068
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	3069	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3070	FILE *f;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3071	OBJ fp;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3072	char c;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3073	int ret;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3074
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3075	if (__INST(hitEOF) == true) {
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3076	RETURN (true);
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3077	}
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3078	if (__INST(buffered) == false) {
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3079	RETURN (false);
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3080	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3081
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3082	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3083
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3084	if ((fp = __INST(filePointer)) != nil) {
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3085	f = __FILEVal(fp);
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3086
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3087	/*
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3088	* This does not work:
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3089	* RETURN ( feof(f) ? true : false );
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3090	* libc tests, if EOF has already bean read,
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3091	* smallatalk asks, if next read will return EOF
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3092	*/
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3093
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3094	__READING__(f)
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3095	__READBYTE__(ret, f, &c, 1);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3096	if (ret > 0) {
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3097	ungetc(c, f);
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3098	RETURN (false);
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3099	} else if (ret == 0) {
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3100	__INST(hitEOF) = true;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3101	RETURN (true);
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3102	} else /* ret < 0 */ {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3103	__INST(lastErrorNumber) = __MKSMALLINT(errno);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3104	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3105	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3106	%}.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3107	lastErrorNumber notNil ifTrue:[^ self readError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3108	^ self errorNotOpen
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3109	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3110
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3111	canReadWithoutBlocking
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3112	"return true, if any data is available for reading (i.e.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3113	a read operation will not block the smalltalk process), false otherwise."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3114
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3115	\|fd\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3116
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3117	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3118	mode == #writeonly ifTrue:[^ self errorWriteOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3119
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3120	fd := self fileDescriptor.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3121	^ OperatingSystem readCheck:fd
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3122
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3123	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3124	\|pipe\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3125
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3126	pipe := PipeStream readingFrom:'(sleep 10; echo hello)'.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3127	pipe canReadWithoutBlocking ifTrue:[
1422 9a0b792f2953 showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 1305 diff changeset	3128	Transcript showCR:'data available'
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3129	] ifFalse:[
1422 9a0b792f2953 showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 1305 diff changeset	3130	Transcript showCR:'no data available'
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3131	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3132	pipe close
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3133	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3134	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3135
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3136	canWriteWithoutBlocking
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3137	"return true, if data can be written into the stream
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3138	(i.e. a write operation will not block the smalltalk process)."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3139
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3140	\|fd\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3141
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3142	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3143	mode == #readonly ifTrue:[^ self errorReadOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3144
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3145	fd := self fileDescriptor.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3146	^ OperatingSystem writeCheck:fd
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3147	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3148
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3149	!ExternalStream methodsFor:'waiting for I/O'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3150
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3151	readWait
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3152	"suspend the current process, until the receiver
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3153	becomes ready for reading. If data is already available,
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3154	return immediate.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3155	The other threads are not affected by the wait."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3156
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3157	self readWaitWithTimeoutMs:nil
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3158	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3159
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3160	readWaitWithTimeout:timeout
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3161	"suspend the current process, until the receiver
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3162	becomes ready for reading or a timeout (in seconds) expired.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3163	If data is already available, return immediate.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3164	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	3165	The other threads are not affected by the wait."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3166
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3167	^ self readWaitWithTimeoutMs:timeout * 1000
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3168	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3169
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3170	readWaitWithTimeoutMs:timeout
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3171	"suspend the current process, until the receiver
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3172	becomes ready for reading or a timeout (in milliseconds) expired.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3173	If data is already available, return immediate.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3174	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	3175	The other threads are not affected by the wait."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3176
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3177	\|fd inputSema hasData wasBlocked\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3178
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3179	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3180	mode == #writeonly ifTrue:[^ self errorWriteOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3181
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3182	fd := self fileDescriptor.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3183	(OperatingSystem readCheck:fd) ifTrue:[^ false].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3184
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3185	wasBlocked := OperatingSystem blockInterrupts.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3186	hasData := OperatingSystem readCheck:fd.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3187	hasData ifFalse:[
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3188	inputSema := Semaphore new.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3189	[
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3190	timeout notNil ifTrue:[
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3191	Processor signal:inputSema afterMilliseconds:timeout
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3192	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3193	Processor signal:inputSema onInput:fd.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3194	Processor activeProcess state:#ioWait.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3195	inputSema wait.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3196	Processor disableSemaphore:inputSema.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3197	hasData := OperatingSystem readCheck:fd
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3198	] valueOnUnwindDo:[
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3199	Processor disableSemaphore:inputSema.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3200	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3201	]
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3202	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3203	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3204	^ hasData not
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3205	!
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	writeWait
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3208	"suspend the current process, until the receiver
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3209	becomes ready for writing.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3210	Return immediate if the receiver is already ready.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3211	The other threads are not affected by the wait."
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	self writeWaitWithTimeoutMs:nil
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3214	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3215
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3216	writeWaitWithTimeout:timeout
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3217	"suspend the current process, until the receiver
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3218	becomes ready for writing or a timeout (in seconds) expired.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3219	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	3220	Return immediate if the receiver is already ready.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3221	The other threads are not affected by the wait."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3222
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3223	^ self writeWaitWithTimeoutMs:timeout * 1000
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3224	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3225
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3226	writeWaitWithTimeoutMs:timeout
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3227	"suspend the current process, until the receiver
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3228	becomes ready for writing or a timeout (in seconds) expired.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3229	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	3230	Return immediate if the receiver is already ready.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3231	The other threads are not affected by the wait."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3232
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3233	\|fd outputSema canWrite wasBlocked\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3234
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3235	filePointer isNil ifTrue:[
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3236	^ self errorNotOpen
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3237	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3238	mode == #readonly ifTrue:[
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3239	^ self errorReadOnly
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3240	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3241
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3242	fd := self fileDescriptor.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3243	(OperatingSystem writeCheck:fd) ifTrue:[^ false].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3244
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3245	wasBlocked := OperatingSystem blockInterrupts.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3246	canWrite := OperatingSystem writeCheck:fd.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3247	canWrite ifFalse:[
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3248	outputSema := Semaphore new.
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	timeout notNil ifTrue:[
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3251	Processor signal:outputSema afterMilliseconds:timeout
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3252	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3253	Processor signal:outputSema onOutput:fd.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3254	Processor activeProcess state:#ioWait.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3255	outputSema wait.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3256	Processor disableSemaphore:outputSema.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3257	canWrite := OperatingSystem writeCheck:fd
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3258	] valueOnUnwindDo:[
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3259	Processor disableSemaphore:outputSema.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3260	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3261	]
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3262	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3263	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3264	^ canWrite not
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3265	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3266
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3267	!ExternalStream methodsFor:'writing'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3268
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3269	cr
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3270	"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	3271	reimplemented for speed"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3272
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	3273	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3274	FILE *f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3275	int len, cnt, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3276	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3277	char *cp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3278
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3279	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3280	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	3281	&& (__INST(mode) != @symbol(readonly))
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3282	&& (__INST(binary) != true)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3283	) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3284	f = __FILEVal(fp);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3285
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3286	if (_buffered = (__INST(buffered) == true)) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3287	__WRITING__(f)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3288	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3289	if (__INST(useCRLF) == true) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3290	cp = "\r\n"; len = 2;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3291	} else {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3292	cp = "\n"; len = 1;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3293	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3294	__WRITEBYTES__(cnt, f, cp, len, _buffered);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3295
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3296	if (cnt == len) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3297	if (__INST(position) != nil) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3298	__INST(position) = __MKSMALLINT(__intVal(__INST(position)) + len);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3299	}
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3300	RETURN ( self );
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3301	}
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3302	__INST(lastErrorNumber) = __MKSMALLINT(errno);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3303	}
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	lastErrorNumber notNil ifTrue:[^ self writeError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3306	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3307	(mode == #readonly) ifTrue:[^ self errorReadOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3308	self errorBinary
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3309	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3310
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3311	flush
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3312	"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	3313
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3314	%{
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3315	OBJ fp;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3316
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3317	__INST(lastErrorNumber) = nil;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3318	if ((fp = __INST(filePointer)) != nil) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3319	if (__INST(mode) != @symbol(readonly)) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3320	if (__INST(buffered) == true) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3321	__BEGIN_INTERRUPTABLE__
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3322	fflush( __FILEVal(fp) );
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3323	__END_INTERRUPTABLE__
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3324	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3325	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3326	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3327	%}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3328	!
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3329
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3330	nextPut:aCharacter
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3331	"write the argument, aCharacter - return nil if failed, self if ok.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3332	Only single-byte characters are currently supported"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3333
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	3334	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3335	FILE *f;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3336	char c;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3337	int cnt, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3338	OBJ pos, fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3339
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3340	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3341	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	3342	&& (__INST(mode) != @symbol(readonly))
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3343	) {
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3344	if (__INST(binary) != true) {
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3345	if (__isCharacter(aCharacter)) {
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3346	c = __intVal(__characterVal(aCharacter)) & 0xFF;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3347	doWrite:
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3348	f = __FILEVal(fp);
1066 cffbbdea7e01 care for GC while being interruptable Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	3349
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3350
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3351	if (_buffered = (__INST(buffered) == true)) {
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3352	__WRITING__(f)
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3353	}
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3354	__WRITEBYTE__(cnt, f, &c, _buffered);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3355
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3356	if (cnt == 1) {
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3357	pos = __INST(position);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3358	if (pos != nil) {
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3359	__INST(position) = __MKSMALLINT(__intVal(pos) + 1);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3360	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3361	RETURN ( self );
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3362	}
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3363	__INST(lastErrorNumber) = __MKSMALLINT(errno);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3364	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3365	} else {
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3366	if (__isSmallInteger(aCharacter)) {
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3367	c = __intVal(aCharacter);
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3368	goto doWrite;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3369	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3370	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3371	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3372	%}.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3373	lastErrorNumber notNil ifTrue:[^ self writeError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3374	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3375	(mode == #readonly) ifTrue:[^ self errorReadOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3376	binary ifFalse:[^ self argumentMustBeCharacter].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3377	^ self argumentMustBeInteger.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3378	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3379
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3380	nextPutAll:aCollection
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3381	"write all elements of the argument, aCollection.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3382	Reimplemented for speed when writing strings or byteArrays.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3383	For others, falls back to general method in superclass."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3384
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	3385	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3386	FILE *f;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3387	int len, cnt;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3388	OBJ pos, fp;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3389	int _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3390
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3391	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3392
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3393	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	3394	&& (__INST(mode) != @symbol(readonly))
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3395	) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3396	f = __FILEVal(fp);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3397	if (_buffered = (__INST(buffered) == true)) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3398	__WRITING__(f)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3399	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3400	if (__isString(aCollection) \|\| __isSymbol(aCollection)) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3401	len = __stringSize(aCollection);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3402	__WRITEBYTES__(cnt, f, __stringVal(aCollection), len, _buffered);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3403	} else {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3404	if (__INST(binary) == true) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3405	int offs;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3406
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3407	if (__isByteArray(aCollection)) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3408	offs = 0;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3409	len = _byteArraySize(aCollection);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3410	} else if (__isBytes(aCollection)) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3411	offs = __OBJS2BYTES__(__intVal(__ClassInstPtr(__qClass(aCollection))->c_ninstvars));
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3412	len = _byteArraySize(aCollection) - offs;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3413	} else
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3414	goto out;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3415	__WRITEBYTES__(cnt, f, __ByteArrayInstPtr(aCollection)->ba_element+offs, len, _buffered);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3416	} else
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3417	goto out;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3418	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3419	if (cnt == len) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3420	pos = __INST(position);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3421	if (pos != nil) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3422	__INST(position) = __MKSMALLINT(__intVal(pos) + len);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3423	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3424	RETURN (self);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3425	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3426	__INST(lastErrorNumber) = __MKSMALLINT(errno);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3427	}
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3428	out:
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3429	%}.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3430	lastErrorNumber notNil ifTrue:[^ self writeError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3431	filePointer isNil ifTrue:[^ self errorNotOpen].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3432	(mode == #readonly) ifTrue:[^ self errorReadOnly].
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	^ super nextPutAll:aCollection
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
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3437	nextPutAll:aCollection startingAt:start to:stop
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3438	"write a range of elements of the argument, aCollection.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3439	Reimplemented for speed when writing strings or byteArrays.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3440	For others, falls back to general method in superclass."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3441
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	3442	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3443	FILE *f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3444	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	3445	OBJ fp, pos;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3446
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3447	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3448	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	3449	&& (__INST(mode) != @symbol(readonly))
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3450	&& __bothSmallInteger(start, stop)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3451	) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3452	f = __FILEVal(fp);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3453	if (_buffered = (__INST(buffered) == true)) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3454	__WRITING__(f)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3455	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3456	iStart = __intVal(start);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3457	iStop = __intVal(stop);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3458	if ((iStart < 1) \|\| (iStop < iStart)) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3459	RETURN(self);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3460	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3461	if (__isString(aCollection) \|\| __isSymbol(aCollection)) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3462	len = __stringSize(aCollection);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3463	if (iStop > len) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3464	RETURN(self);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3465	}
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3466	if (iStop > len)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3467	iStop = len;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3468	len = iStop - iStart + 1;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3469	__WRITEBYTES__(cnt, f, __stringVal(aCollection)+iStart-1, len, _buffered);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3470	} else {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3471	if (__INST(binary) == true) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3472	int offs;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3473
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3474	if (__isByteArray(aCollection)) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3475	offs = 0;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3476	len = _byteArraySize(aCollection);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3477	} else if (__isBytes(aCollection)) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3478	offs = __OBJS2BYTES__(__intVal(__ClassInstPtr(__qClass(aCollection))->c_ninstvars));
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3479	len = _byteArraySize(aCollection) - offs;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3480	} else
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3481	goto out;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3482
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3483	if (iStop > len) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3484	RETURN(self);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3485	}
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3486	if (iStop > len)
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3487	iStop = len;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3488	len = iStop - iStart + 1;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3489	offs += iStart - 1;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3490	__WRITEBYTES__(cnt, f, __ByteArrayInstPtr(aCollection)->ba_element+offs, len, _buffered);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3491	} else
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3492	goto out;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3493	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3494	if (cnt == len) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3495	pos = __INST(position);
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3496	if (pos != nil) {
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3497	__INST(position) = __MKSMALLINT(__intVal(pos) + len);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3498	}
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3499	RETURN (self);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3500	}
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3501	__INST(lastErrorNumber) = __MKSMALLINT(errno);
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3502	}
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3503	out:
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3504	%}.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3505	lastErrorNumber notNil ifTrue:[^ self writeError].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3506	^ super nextPutAll:aCollection startingAt:start to:stop
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3507	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3508
730 62643519bf68 checkin from browser Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3509	!ExternalStream class methodsFor:'documentation'!
62643519bf68 checkin from browser Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3510
62643519bf68 checkin from browser Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3511	version
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3512	^ '$Header: /cvs/stx/stx/libbasic/Attic/ExtStream.st,v 1.103 1996-06-12 23:03:05 stefan Exp $'
730 62643519bf68 checkin from browser Claus Gittinger <cg@exept.de> parents: 711 diff changeset	3513	! !
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3514	ExternalStream initialize!

author	Stefan Vogel <sv@exept.de>
	Thu, 13 Jun 1996 01:03:05 +0200
changeset 1463	ace6b72b6f4a
parent 1422	9a0b792f2953
child 1464	6d533b5e5de3
permissions	-rw-r--r--