hg/stx-libbasic: ExternalStream.st@2ef08a902c34 (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
7051 984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 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	"
5414 8557e4e71e51 checkin from browser Claus Gittinger <cg@exept.de> parents: 5323 diff changeset	12	"{ Package: 'stx:libbasic' }"
8557e4e71e51 checkin from browser Claus Gittinger <cg@exept.de> parents: 5323 diff changeset	13
1 a27a279701f8 Initial revision claus parents: diff changeset	14	ReadWriteStream subclass:#ExternalStream
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	15	instanceVariableNames:'handleType handle mode buffered binary eolMode hitEOF didWrite
7051 984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	16	lastErrorNumber readAhead'
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	17	classVariableNames:'Lobby LastErrorNumber InvalidReadSignal InvalidWriteSignal
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	18	InvalidModeSignal OpenErrorSignal StreamNotOpenSignal
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	19	InvalidOperationSignal DefaultEOLMode ReadMode ReadWriteMode
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	20	WriteMode AppendMode CreateReadWriteMode StreamIOErrorSignal
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	21	FileOpenTrace'
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	22	poolDictionaries:''
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	23	category:'Streams-External'
1 a27a279701f8 Initial revision claus parents: diff changeset	24	!
a27a279701f8 Initial revision claus parents: diff changeset	25
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	26	!ExternalStream primitiveDefinitions!
1 a27a279701f8 Initial revision claus parents: diff changeset	27	%{
10328 ad731a7584a3 ensure that win32_fwrite is used for stdout and stderr Claus Gittinger <cg@exept.de> parents: 9053 diff changeset	28	#undef fwrite
ad731a7584a3 ensure that win32_fwrite is used for stdout and stderr Claus Gittinger <cg@exept.de> parents: 9053 diff changeset	29
17078 f3ded8a6f9d9 include os defss Claus Gittinger <cg@exept.de> parents: 16912 diff changeset	30	#include "stxOSDefs.h"
f3ded8a6f9d9 include os defss Claus Gittinger <cg@exept.de> parents: 16912 diff changeset	31
1 a27a279701f8 Initial revision claus parents: diff changeset	32	#include <stdio.h>
437 a005e97d261e . claus parents: 436 diff changeset	33	#define _STDIO_H_INCLUDED_
a005e97d261e . claus parents: 436 diff changeset	34
2903 e64704e86cce various VMS changes Claus Gittinger <cg@exept.de> parents: 2896 diff changeset	35	#ifndef NO_FCNTL_H
e64704e86cce various VMS changes Claus Gittinger <cg@exept.de> parents: 2896 diff changeset	36	# include <fcntl.h>
e64704e86cce various VMS changes Claus Gittinger <cg@exept.de> parents: 2896 diff changeset	37	# define _FCNTL_H_INCLUDED_
e64704e86cce various VMS changes Claus Gittinger <cg@exept.de> parents: 2896 diff changeset	38	#endif
437 a005e97d261e . claus parents: 436 diff changeset	39
10 4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	40	#include <errno.h>
437 a005e97d261e . claus parents: 436 diff changeset	41	#define _ERRNO_H_INCLUDED_
42 e33491f6f260 * empty log message * claus parents: 38 diff changeset	42
1141 8ea1b43f7034 * empty log message * Claus Gittinger <cg@exept.de> parents: 1138 diff changeset	43	#ifdef LINUX
8ea1b43f7034 * empty log message * Claus Gittinger <cg@exept.de> parents: 1138 diff changeset	44	/* use inline string macros */
8ea1b43f7034 * empty log message * Claus Gittinger <cg@exept.de> parents: 1138 diff changeset	45	# define __STRINGDEFS__
8ea1b43f7034 * empty log message * Claus Gittinger <cg@exept.de> parents: 1138 diff changeset	46	# include <linuxIntern.h>
8ea1b43f7034 * empty log message * Claus Gittinger <cg@exept.de> parents: 1138 diff changeset	47	#endif
8ea1b43f7034 * empty log message * Claus Gittinger <cg@exept.de> parents: 1138 diff changeset	48
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	49	#if !defined(MSDOS_LIKE) && !defined(__openVMS__)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	50	# include <termios.h>
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	51	#endif
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	52
42 e33491f6f260 * empty log message * claus parents: 38 diff changeset	53	#ifdef hpux
e33491f6f260 * empty log message * claus parents: 38 diff changeset	54	# define fileno(f) ((f->__fileH << 8) \| (f->__fileL))
e33491f6f260 * empty log message * claus parents: 38 diff changeset	55	#endif
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	56
933 2eebae059045 oops - when truncating buffered streams, we must flush & seek first (stdio trouble) Claus Gittinger <cg@exept.de> parents: 932 diff changeset	57	#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	58	# 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	59	#endif
2eebae059045 oops - when truncating buffered streams, we must flush & seek first (stdio trouble) Claus Gittinger <cg@exept.de> parents: 932 diff changeset	60	#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	61	# 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	62	#endif
2eebae059045 oops - when truncating buffered streams, we must flush & seek first (stdio trouble) Claus Gittinger <cg@exept.de> parents: 932 diff changeset	63	#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	64	# 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	65	#endif
2eebae059045 oops - when truncating buffered streams, we must flush & seek first (stdio trouble) Claus Gittinger <cg@exept.de> parents: 932 diff changeset	66
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8881 diff changeset	67	#if defined(__VMS__) \|\| defined(__sparc__) \|\| defined(WIN32)
5120 13143fbcbdf8 introduced __threadErrno (for native threads) Claus Gittinger <cg@exept.de> parents: 5101 diff changeset	68	# define CLEAR_ERRNO __threadErrno = 0;
2961 a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	69	#else
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	70	# define CLEAR_ERRNO /* nothing */
2961 a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	71	#endif
a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	72
3420 4dc6667afda9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3419 diff changeset	73	#ifdef LATER
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	74	# define __isFilePointer(x) (__Class(x) == ExternalStream__FilePointer)
1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	75	# define __CHANGECLASS(o, x) (__qClass(o) = (x), o)
1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	76	# define __MKFILEPOINTER(f) __CHANGECLASS(__MKEXTERNALADDRESS(f), ExternalStream__FilePointer)
3420 4dc6667afda9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3419 diff changeset	77	#else
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	78	# define __MKFILEPOINTER(f) __MKEXTERNALADDRESS(f)
3420 4dc6667afda9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3419 diff changeset	79	#endif
4dc6667afda9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3419 diff changeset	80
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	81	#ifdef WIN32
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	82	# define NO_STDIO
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	83
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	84	# undef __HANDLE_INTERRUPTS__
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	85	# define __HANDLE_INTERRUPTS__ /* nothing */
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	86
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	87	# undef __BEGIN_INTERRUPTABLE__
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	88	# define __BEGIN_INTERRUPTABLE__ /* nothing */
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	89
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	90	# undef __END_INTERRUPTABLE__
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	91	# define __END_INTERRUPTABLE__ /* nothing */
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	92	#endif
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	93
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8881 diff changeset	94	# ifdef __i386__
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	95	# define _X86_
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	96	# endif
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	97
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	98	#ifdef WIN32
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	99	# undef INT
14644 e5f19ef20dcd mingw changes Claus Gittinger <cg@exept.de> parents: 14632 diff changeset	100	# undef UINT
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	101	# undef Array
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	102	# undef Number
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	103	# undef Method
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	104	# undef Point
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	105	# undef Rectangle
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	106	# undef Block
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	107	# undef Time
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	108	# undef Date
7832 f8a02752ca28 * empty log message * Claus Gittinger <cg@exept.de> parents: 7806 diff changeset	109	# undef Delay
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	110	# undef Set
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	111	# undef Signal
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	112	# undef Context
9023 7919c66b8fb0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	113	# undef Message
9024 8066b17d9ccf * empty log message * Claus Gittinger <cg@exept.de> parents: 9023 diff changeset	114	# undef Process
10339 972d0164125a * empty log message * Claus Gittinger <cg@exept.de> parents: 10328 diff changeset	115	# undef Processor
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14603 diff changeset	116	# undef String
6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14603 diff changeset	117	# undef Character
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	118
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	119	# define NOATOM
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	120	# define NOGDICAPMASKS
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	121	# define NOMETAFILE
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	122	# define NOMINMAX
14068 46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	123	//# define NOOPENFILE
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	124	# define NOSOUND
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	125	# define NOWH
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	126	//# define NOCOMM
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	127	# define NOKANJI
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	128	# define NOCRYPT
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	129	//# define NOMCX
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	130	# define WIN32_LEAN_AND_MEAN
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	131
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	132	# include <windows.h>
15435 fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	133	# include <winsock2.h>
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	134
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	135	# ifdef __DEF_Array
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	136	# define Array __DEF_Array
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	137	# endif
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	138	# ifdef __DEF_Number
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	139	# define Number __DEF_Number
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	140	# endif
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	141	# ifdef __DEF_Method
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	142	# define Method __DEF_Method
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	143	# endif
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	144	# ifdef __DEF_Point
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	145	# define Point __DEF_Point
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	146	# endif
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	147	# ifdef __DEF_Block
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	148	# define Block __DEF_Block
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	149	# endif
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	150	# ifdef __DEF_Time
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	151	# define Time __DEF_Time
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	152	# endif
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	153	# ifdef __DEF_Date
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	154	# define Date __DEF_Date
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	155	# endif
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	156	# ifdef __DEF_Set
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	157	# define Set __DEF_Set
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	158	# endif
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	159	# ifdef __DEF_Signal
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	160	# define Signal __DEF_Signal
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	161	# endif
7832 f8a02752ca28 * empty log message * Claus Gittinger <cg@exept.de> parents: 7806 diff changeset	162	# ifdef __DEF_Delay
f8a02752ca28 * empty log message * Claus Gittinger <cg@exept.de> parents: 7806 diff changeset	163	# define Delay __DEF_Delay
f8a02752ca28 * empty log message * Claus Gittinger <cg@exept.de> parents: 7806 diff changeset	164	# endif
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	165	# ifdef __DEF_Context
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	166	# define Context __DEF_Context
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	167	# endif
9023 7919c66b8fb0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	168	# ifdef __DEF_Message
7919c66b8fb0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	169	# define Message __DEF_Message
7919c66b8fb0 * empty log message * Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	170	# endif
9024 8066b17d9ccf * empty log message * Claus Gittinger <cg@exept.de> parents: 9023 diff changeset	171	# ifdef __DEF_Process
8066b17d9ccf * empty log message * Claus Gittinger <cg@exept.de> parents: 9023 diff changeset	172	# define Process __DEF_Process
8066b17d9ccf * empty log message * Claus Gittinger <cg@exept.de> parents: 9023 diff changeset	173	# endif
10339 972d0164125a * empty log message * Claus Gittinger <cg@exept.de> parents: 10328 diff changeset	174	# ifdef __DEF_Processor
972d0164125a * empty log message * Claus Gittinger <cg@exept.de> parents: 10328 diff changeset	175	# define Processor __DEF_Processor
972d0164125a * empty log message * Claus Gittinger <cg@exept.de> parents: 10328 diff changeset	176	# endif
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14603 diff changeset	177	# ifdef __DEF_String
6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14603 diff changeset	178	# define String __DEF_String
6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14603 diff changeset	179	# endif
6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14603 diff changeset	180	# ifdef __DEF_Character
6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14603 diff changeset	181	# define Character __DEF_Character
6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14603 diff changeset	182	# endif
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	183
14644 e5f19ef20dcd mingw changes Claus Gittinger <cg@exept.de> parents: 14632 diff changeset	184	# define INT STX_INT
e5f19ef20dcd mingw changes Claus Gittinger <cg@exept.de> parents: 14632 diff changeset	185	# define UINT STX_UINT
e5f19ef20dcd mingw changes Claus Gittinger <cg@exept.de> parents: 14632 diff changeset	186	# ifndef off_t
e5f19ef20dcd mingw changes Claus Gittinger <cg@exept.de> parents: 14632 diff changeset	187	# define off_t long
e5f19ef20dcd mingw changes Claus Gittinger <cg@exept.de> parents: 14632 diff changeset	188	# endif
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	189	#endif /* WIN32 */
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	190
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	191	#ifndef NO_STDIO /* use STDIO */
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	192	# define STDIO_NEEDS_FSEEK
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	193	# define FILEPOINTER FILE *
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	194	# define READ(f, cp, n) read(f, cp, n)
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	195	# define WRITE(f, cp, n) write(f, cp, n)
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	196	# define FFLUSH(fp) fflush(fp)
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	197	# define FILENO(f) fileno(f)
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	198	#endif /* use STDIO */
3681 55dc17d40aab fixed nextAvail Claus Gittinger <cg@exept.de> parents: 3674 diff changeset	199
3682 6de8ac1d3e88 oops Claus Gittinger <cg@exept.de> parents: 3681 diff changeset	200	#ifdef DEBUGGING
4092 fee552eb3418 removed win32 stuff Claus Gittinger <cg@exept.de> parents: 3980 diff changeset	201	extern char __survStartPtr, __survEndPtr;
3682 6de8ac1d3e88 oops Claus Gittinger <cg@exept.de> parents: 3681 diff changeset	202	# define DEBUGBUFFER(buf) \
3681 55dc17d40aab fixed nextAvail Claus Gittinger <cg@exept.de> parents: 3674 diff changeset	203	if (((char *)(buf) >= __survStartPtr) \
55dc17d40aab fixed nextAvail Claus Gittinger <cg@exept.de> parents: 3674 diff changeset	204	&& ((char *)(buf) < __survEndPtr)) { \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	205	__fatal0("read into survivor\n"); \
3681 55dc17d40aab fixed nextAvail Claus Gittinger <cg@exept.de> parents: 3674 diff changeset	206	}
55dc17d40aab fixed nextAvail Claus Gittinger <cg@exept.de> parents: 3674 diff changeset	207
3682 6de8ac1d3e88 oops Claus Gittinger <cg@exept.de> parents: 3681 diff changeset	208	#else
6de8ac1d3e88 oops Claus Gittinger <cg@exept.de> parents: 3681 diff changeset	209	# define DEBUGBUFFER(buf) /* nothing */
6de8ac1d3e88 oops Claus Gittinger <cg@exept.de> parents: 3681 diff changeset	210	#endif
6de8ac1d3e88 oops Claus Gittinger <cg@exept.de> parents: 3681 diff changeset	211
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	212	/*
a8abff749575 * empty log message * claus parents: 213 diff changeset	213	* stdio library requires an fseek before reading whenever a file
a8abff749575 * empty log message * claus parents: 213 diff changeset	214	* is open for read/write and the last operation was a write.
a8abff749575 * empty log message * claus parents: 213 diff changeset	215	* (also vice-versa).
a8abff749575 * empty log message * claus parents: 213 diff changeset	216	* All code should use the following macro before doing reads:
a8abff749575 * empty log message * claus parents: 213 diff changeset	217	*/
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	218	#ifdef STDIO_NEEDS_FSEEK
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	219	# define OPT_FSEEK(f, pos, whence) fseek(f, pos, whence)
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	220	#else
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	221	# define OPT_FSEEK(f, pos, whence) /* nothing */
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	222	#endif
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	223
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	224	#ifdef WIN32
16912 2391fcb8b4a4 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 16909 diff changeset	225	// Win returns from ReadFile() with false and _threadErrno == 0 on end of pipe.
2391fcb8b4a4 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 16909 diff changeset	226	// We don't know why
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	227	# define READ(ret, f, cp, n, handleType) { \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	228	if (handleType == @symbol(socketHandle)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	229	(ret) = __STX_WSA_NOINT_CALL4("recv", recv, (f), (cp), (n), 0); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	230	} else { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	231	HANDLE h = _get_osfhandle(fileno(f)); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	232	if (handleType == @symbol(socketFilePointer)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	233	(ret) = __STX_WSA_NOINT_CALL4("recv", recv, h, (cp), (n), 0);\
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	234	} else { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	235	int __res; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	236	(ret) = __STX_API_NOINT_CALL5("ReadFile", ReadFile, h, (cp), (n), &__res, 0);\
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	237	(ret) = (ret) ? __res : ((__threadErrno == EPIPE \|\| __threadErrno == 0) ? 0 : -1); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	238	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	239	} \
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	240	}
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	241
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	242	# define WRITE(ret, f, cp, n, handleType) { \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	243	if (handleType == @symbol(socketHandle)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	244	(ret) = __STX_WSA_NOINT_CALL4("send", send, (f), (cp), (n), 0); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	245	} else {\
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	246	HANDLE h = _get_osfhandle(fileno(f)); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	247	if (handleType == @symbol(socketFilePointer)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	248	(ret) = __STX_WSA_NOINT_CALL4("send", send, h, (cp), (n), 0);\
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	249	} else {\
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	250	int __res; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	251	(ret) = __STX_API_NOINT_CALL5("WriteFile", WriteFile, h, (cp), (n), &__res, 0);\
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	252	(ret) = (ret) ? __res : -1; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	253	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	254	} \
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	255	}
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	256
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	257	# define FFLUSH(fp) fflush(fp)
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	258	# undef STDIO_NEEDS_FSEEK
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	259	# define FILEPOINTER FILE *
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	260	# define FILENO(f) fileno(f)
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	261
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	262	# define __READING__(f) \
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	263	if ((__INST(didWrite) != false) \
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	264	&& (__INST(mode) == @symbol(readwrite))) { \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	265	__INST(didWrite) = false; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	266	OPT_FSEEK(f, 0L, SEEK_CUR); /* needed in stdio */ \
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	267	}
a8abff749575 * empty log message * claus parents: 213 diff changeset	268
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	269	# define __WRITING__(f) \
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	270	if ((__INST(didWrite) != true) \
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	271	&& (__INST(mode) == @symbol(readwrite))) { \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	272	__INST(didWrite) = true; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	273	OPT_FSEEK(f, 0L, SEEK_CUR); /* needed in stdio */ \
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	274	}
a8abff749575 * empty log message * claus parents: 213 diff changeset	275
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	276	# define __UNGETC__(c, f, isBuffered) \
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	277	if (isBuffered) { \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	278	ungetc((c), (f)); \
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	279	} else { \
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	280	__INST(readAhead) = __mkSmallInteger((c)); \
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	281	}
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	282
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	283	# define __READBYTE__(ret, f, buf, isBuffered, handleType) \
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	284	if (isBuffered) { \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	285	for (;;) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	286	CLEAR_ERRNO; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	287	(ret) = getc(f); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	288	if ((ret) >= 0) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	289	*(buf) = (ret); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	290	(ret) = 1; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	291	} else if (ferror(f)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	292	if (__threadErrno == EINTR) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	293	clearerr(f); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	294	continue; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	295	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	296	} else { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	297	(ret) = 0; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	298	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	299	break; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	300	} \
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	301	} else { \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	302	OBJ rA = __INST(readAhead); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	303	if (rA != nil) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	304	*(buf) = (char)__intVal(rA); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	305	__INST(readAhead) = nil; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	306	(ret) = 1; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	307	} else { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	308	for (;;) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	309	CLEAR_ERRNO; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	310	READ((ret), f, buf, 1, handleType); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	311	if ((ret) >= 0 \|\| __threadErrno != EINTR) \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	312	break; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	313	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	314	} \
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	315	}
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	316
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	317	/*
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	318	* read_bytes into a c-buffer
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	319	* (which may NOT move)
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	320	*/
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	321	# define __READBYTES__(ret, f, buf, cnt, isBuffered, handleType) \
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	322	(ret) = 0; \
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	323	if (isBuffered) { \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	324	int __offs = 0; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	325	while (__offs < (cnt)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	326	CLEAR_ERRNO; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	327	(ret) = getc(f); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	328	if ((ret) < 0) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	329	if (ferror(f)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	330	if (__threadErrno == EINTR) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	331	clearerr(f); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	332	continue; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	333	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	334	} else { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	335	(ret) = 0; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	336	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	337	break; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	338	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	339	(buf)[__offs++] = (ret); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	340	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	341	if (__offs > 0) \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	342	(ret) = __offs; \
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	343	} else { \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	344	int __offs = 0; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	345	\
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	346	while (__offs < (cnt)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	347	OBJ rA = __INST(readAhead); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	348	if (rA != nil) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	349	(buf)[__offs] = __intVal(rA); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	350	__INST(readAhead) = nil; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	351	(ret) = 1; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	352	} else { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	353	CLEAR_ERRNO; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	354	READ((ret), f, (buf)+__offs, (cnt)-__offs, handleType); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	355	if ((ret) <= 0) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	356	if ((ret) < 0 && __threadErrno == EINTR) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	357	continue; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	358	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	359	break; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	360	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	361	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	362	__offs += (ret); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	363	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	364	if (__offs > 0) \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	365	(ret) = __offs; \
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	366	}
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	367
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	368	# define __READAVAILBYTES__(ret, f, buf, cnt, isBuffered, handleType) \
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	369	{ \
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	370	int __offs = 0; \
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	371	int oldFlags; \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	372	\
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	373	(ret) = 0; \
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	374	if (isBuffered) { \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	375	while (__offs < (cnt)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	376	CLEAR_ERRNO; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	377	(ret) = getc(f); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	378	if ((ret) < 0) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	379	if (ferror(f)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	380	if (__threadErrno == EINTR) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	381	clearerr(f); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	382	continue; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	383	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	384	} else { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	385	(ret) = 0; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	386	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	387	break; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	388	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	389	(buf)[__offs++] = (ret); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	390	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	391	(ret) = __offs; \
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	392	} else { \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	393	while (__offs < (cnt)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	394	OBJ rA = __INST(readAhead); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	395	if (rA != nil) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	396	(buf)[__offs] = __intVal(rA); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	397	__INST(readAhead) = nil; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	398	(ret) = 1; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	399	__offs ++; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	400	continue; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	401	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	402	CLEAR_ERRNO; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	403	{ \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	404	int res = 0; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	405	if ((handleType == @symbol(socketFilePointer) && (ioctlsocket((SOCKET)_get_osfhandle(fileno(f)),FIONREAD,&res), 1)) \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	406	\|\| (handleType == @symbol(socketHandle) && (ioctlsocket((SOCKET)(f), FIONREAD, &res), 1)) \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	407	\|\| (handleType == @symbol(pipeFilePointer) && (PeekNamedPipe((HANDLE)_get_osfhandle(fileno(f)),0, 0,0,&res,0), 1))) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	408	if (res > 0) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	409	if (res > ((cnt)-__offs)) \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	410	res = (cnt)-__offs; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	411	READ((ret), f, (buf)+__offs, res, handleType); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	412	} else { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	413	(ret) = 0; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	414	break; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	415	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	416	} else { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	417	READ((ret), f, (buf)+__offs, (cnt)-__offs, handleType); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	418	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	419	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	420	if ((ret) <= 0) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	421	if (ret < 0 && __threadErrno == EINTR) \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	422	continue; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	423	break; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	424	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	425	__offs += (ret); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	426	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	427	(ret) = __offs; \
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	428	} \
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	429	}
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	430
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	431	# define IO_BUFFER_SIZE (8*1024)
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	432
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	433	# define __READBYTES_OBJ__(ret, f, obj, obj_offs, cnt, isBuffered, handleType) \
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	434	{ \
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	435	int __ooffs = obj_offs; \
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	436	int __offs = 0; \
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	437	char buf = (char )(obj); \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	438	\
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	439	(ret) = 0; \
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	440	if (isBuffered) { \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	441	while (__offs < (cnt)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	442	CLEAR_ERRNO; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	443	(ret) = getc(f); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	444	if ((ret) < 0) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	445	if (ferror(f)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	446	if (__threadErrno == EINTR) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	447	clearerr(f); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	448	/* refetch */ \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	449	buf = (char *)(obj); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	450	continue; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	451	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	452	} else { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	453	(ret) = 0; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	454	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	455	break; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	456	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	457	(buf)[__ooffs+__offs] = (ret); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	458	__offs++; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	459	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	460	if (__offs > 0) \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	461	(ret) = __offs; \
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	462	} else { \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	463	while (__offs < (cnt)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	464	char __buf[IO_BUFFER_SIZE]; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	465	OBJ rA = __INST(readAhead); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	466	if (rA != nil) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	467	(buf)[__ooffs+__offs] = __intVal(rA); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	468	__INST(readAhead) = nil; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	469	(ret) = 1; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	470	} else { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	471	int l; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	472	CLEAR_ERRNO; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	473	l = (cnt)-__offs; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	474	if ( l > IO_BUFFER_SIZE) \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	475	l = IO_BUFFER_SIZE; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	476	READ((ret),f, __buf, l, handleType); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	477	if ((ret) <= 0) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	478	if ((ret) < 0 && __threadErrno == EINTR) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	479	continue; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	480	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	481	break; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	482	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	483	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	484	if ((ret) > 0 ) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	485	/* refetch */ \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	486	buf = (char *)(obj); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	487	memcpy((buf)+__ooffs+__offs,__buf,(ret)); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	488	__offs += (ret); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	489	} else { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	490	(ret) = 0; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	491	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	492	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	493	if (__offs > 0) \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	494	(ret) = __offs; \
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	495	} \
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	496	}
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	497
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	498	# define __READAVAILBYTES_OBJ__(ret, f, obj, obj_offs, cnt, isBuffered, handleType) \
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	499	{ \
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	500	int __ooffs = obj_offs; \
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	501	int __offs = 0; \
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	502	char buf = (char )(obj); \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	503	\
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	504	(ret) = 0; \
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	505	if (isBuffered) { \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	506	while (__offs < (cnt)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	507	CLEAR_ERRNO; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	508	(ret) = getc(f); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	509	if ((ret) < 0) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	510	if (ferror(f)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	511	if (__threadErrno == EINTR) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	512	clearerr(f); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	513	/* refetch */ \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	514	buf = (char *)(obj);\
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	515	continue; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	516	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	517	} else { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	518	(ret) = 0; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	519	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	520	break; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	521	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	522	(buf)[__ooffs+__offs] = (ret); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	523	__offs++; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	524	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	525	if (__offs > 0) \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	526	(ret) = __offs; \
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	527	} else { \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	528	while (__offs < (cnt)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	529	char __buf[IO_BUFFER_SIZE]; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	530	OBJ rA = __INST(readAhead); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	531	if (rA != nil) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	532	(buf)[__ooffs+__offs] = __intVal(rA);\
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	533	__INST(readAhead) = nil; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	534	(ret) = 1; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	535	__offs++; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	536	continue; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	537	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	538	{ \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	539	int res = 0; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	540	int l = (cnt)-__offs; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	541	CLEAR_ERRNO; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	542	if (l > IO_BUFFER_SIZE) \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	543	l = IO_BUFFER_SIZE; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	544	if ((handleType == @symbol(socketFilePointer) && (ioctlsocket((SOCKET)_get_osfhandle(fileno(f)), FIONREAD, &res), 1)) \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	545	\|\| (handleType == @symbol(socketHandle) && (ioctlsocket((SOCKET)(f), FIONREAD, &res), 1)) \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	546	\|\| (handleType == @symbol(pipeFilePointer) && (PeekNamedPipe((HANDLE)_get_osfhandle(fileno(f)),0,0,0,&res,0), 1))) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	547	if (res > 0) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	548	if (res > l) res = l; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	549	READ((ret), f, __buf, res, handleType); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	550	} else { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	551	(ret) = 0; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	552	break; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	553	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	554	} else { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	555	READ((ret), f, __buf, l, handleType); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	556	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	557	if ((ret) <= 0) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	558	if (ret < 0 && __threadErrno == EINTR) \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	559	continue; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	560	break; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	561	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	562	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	563	if ((ret) > 0) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	564	buf = (char *)(obj); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	565	memcpy((buf)+__ooffs+__offs, __buf, (ret)); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	566	__offs += (ret); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	567	} else { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	568	(ret) = 0; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	569	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	570	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	571	if (__offs > 0) \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	572	(ret) = __offs; \
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	573	} \
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	574	}
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	575
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	576	# define __WRITEBYTE__(ret, f, buf, isBuffered, handleType) \
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	577	if (isBuffered) { \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	578	for (;;) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	579	CLEAR_ERRNO; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	580	ret = putc(*(buf), f); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	581	if ((ret) >= 0) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	582	(ret) = 1; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	583	} else if (ferror(f)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	584	if (__threadErrno == EINTR) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	585	clearerr(f); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	586	continue; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	587	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	588	} else \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	589	(ret) = 0; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	590	break; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	591	} \
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	592	} else { \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	593	for (;;) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	594	CLEAR_ERRNO; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	595	WRITE(ret,f, buf, 1, handleType); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	596	if ((ret) >= 0 \|\| __threadErrno != EINTR) \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	597	break; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	598	} \
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	599	}
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	600
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	601	# define __WRITEBYTES__(ret, f, buf, cnt, isBuffered, handleType) \
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	602	(ret) = 0; \
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	603	if (isBuffered) { \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	604	int __offs = 0; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	605	while (__offs < (cnt)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	606	CLEAR_ERRNO; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	607	(ret) = fwrite((buf)+__offs, 1, (cnt)-__offs, f);\
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	608	if ((ret) <= 0) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	609	if (ferror(f)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	610	if (__threadErrno == EINTR) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	611	clearerr(f); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	612	continue; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	613	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	614	break; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	615	} else { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	616	(ret) = 0; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	617	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	618	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	619	__offs += (ret); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	620	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	621	if (__offs > 0) \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	622	(ret) = __offs; \
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	623	} else { \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	624	int __offs = 0; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	625	while (__offs < (cnt)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	626	CLEAR_ERRNO; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	627	WRITE(ret,f, (buf)+__offs, (cnt)-__offs, handleType); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	628	if (ret <= 0) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	629	if (ret < 0 && __threadErrno == EINTR) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	630	continue; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	631	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	632	break; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	633	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	634	__offs += (ret); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	635	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	636	if (__offs > 0) \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	637	(ret) = __offs; \
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	638	}
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	639
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	640	# define __WRITEBYTES_OBJ__(ret, f, obj, obj_offs, cnt, isBuffered, handleType) \
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	641	{ \
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	642	int __ooffs = obj_offs; \
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	643	int __offs = 0; \
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	644	char buf = (char )(obj); \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	645	\
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	646	(ret) = 0; \
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	647	if (isBuffered) { \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	648	while (__offs < (cnt)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	649	CLEAR_ERRNO; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	650	ret = fwrite((buf)+__ooffs+__offs, 1, (cnt)-__offs, f); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	651	if ((ret) <= 0) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	652	if (ferror(f)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	653	if (__threadErrno == EINTR) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	654	/* refetch */ \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	655	buf = (char *)(obj); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	656	clearerr(f); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	657	continue; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	658	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	659	break; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	660	} else { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	661	(ret) = 0; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	662	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	663	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	664	__offs += (ret); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	665	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	666	if (__offs > 0) \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	667	(ret) = __offs; \
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	668	} else { \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	669	while (__offs < (cnt)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	670	char __buf[IO_BUFFER_SIZE]; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	671	int l; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	672	CLEAR_ERRNO; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	673	l = (cnt)-__offs; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	674	if ( l > IO_BUFFER_SIZE) \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	675	l = IO_BUFFER_SIZE; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	676	/* refetch */ \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	677	buf = (char *)(obj); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	678	memcpy(__buf,(buf)+__ooffs+__offs,l); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	679	WRITE(ret,f, __buf, l, handleType); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	680	if (ret <= 0) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	681	if (ret < 0 && __threadErrno == EINTR) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	682	continue; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	683	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	684	break; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	685	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	686	__offs += (ret); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	687	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	688	if (__offs > 0) \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	689	(ret) = __offs; \
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	690	} \
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	691	}
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	692
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	693	#else /* ! WIN32 */
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	694	/* ======================== UNIX / LINUX ====================================================== */
16373 9b9827530bf4 Adapt previous change for linux Stefan Vogel <sv@exept.de> parents: 16368 diff changeset	695	typedef int SOCKET;
9b9827530bf4 Adapt previous change for linux Stefan Vogel <sv@exept.de> parents: 16368 diff changeset	696
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	697	# define __READING__(f) \
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	698	if ((__INST(didWrite) != false) \
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	699	&& (__INST(mode) == @symbol(readwrite))) { \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	700	__INST(didWrite) = false; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	701	OPT_FSEEK(f, 0L, SEEK_CUR); /* needed in stdio */ \
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	702	}
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	703
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	704	# define __WRITING__(f) \
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	705	if ((__INST(didWrite) != true) \
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	706	&& (__INST(mode) == @symbol(readwrite))) { \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	707	__INST(didWrite) = true; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	708	OPT_FSEEK(f, 0L, SEEK_CUR); /* needed in stdio */ \
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	709	}
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	710
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	711
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	712	# ifdef NO_STDIO
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	713	# define __UNGETC__(c, f, isBuffered) \
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	714	__INST(readAhead) = __mkSmallInteger((c));
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	715	# else /* use STDIO */
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	716	# define __UNGETC__(c, f, isBuffered) \
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	717	if (isBuffered) { \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	718	ungetc((c), (f)); \
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	719	} else { \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	720	__INST(readAhead) = __mkSmallInteger((c)); \
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	721	}
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	722	# endif /* use STDIO */
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	723
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	724	# ifdef NO_STDIO
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	725	# define __READBYTE__(ret, f, buf, isBuffered, handleType) \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	726	{ \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	727	OBJ rA = __INST(readAhead); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	728	if (rA != nil) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	729	*(buf) = __intVal(rA); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	730	DEBUGBUFFER(buf); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	731	__INST(readAhead) = nil; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	732	(ret) = 1; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	733	} else { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	734	for (;;) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	735	CLEAR_ERRNO; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	736	(ret) = READ(f, buf, 1, handleType); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	737	DEBUGBUFFER(buf); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	738	if ((ret) >= 0) break; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	739	if (errno != EINTR) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	740	break; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	741	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	742	__HANDLE_INTERRUPTS__; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	743	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	744	} \
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	745	}
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	746	# else /* use STDIO */
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	747	# define __READBYTE__(ret, f, buf, isBuffered, handleType) \
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	748	if (isBuffered) { \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	749	for (;;) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	750	CLEAR_ERRNO; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	751	(ret) = getc(f); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	752	if ((ret) >= 0) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	753	DEBUGBUFFER(buf); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	754	*(buf) = (ret); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	755	(ret) = 1; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	756	} else if (ferror(f)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	757	if (errno == EINTR) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	758	__HANDLE_INTERRUPTS__; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	759	clearerr(f); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	760	continue; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	761	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	762	} else \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	763	(ret) = 0; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	764	break; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	765	} \
2264 ac5dfc03aa26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2262 diff changeset	766	} else { \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	767	OBJ rA = __INST(readAhead); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	768	if (rA != nil) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	769	*(buf) = __intVal(rA); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	770	DEBUGBUFFER(buf); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	771	__INST(readAhead) = nil; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	772	(ret) = 1; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	773	} else { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	774	for (;;) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	775	CLEAR_ERRNO; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	776	(ret) = read(fileno(f), buf, 1); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	777	DEBUGBUFFER(buf); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	778	if ((ret) >= 0) break; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	779	if (errno != EINTR) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	780	break; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	781	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	782	__HANDLE_INTERRUPTS__; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	783	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	784	} \
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	785	}
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	786	# endif /* use STDIO */
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	787
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	788	/*
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	789	* read_bytes into a c-buffer
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	790	* (which may NOT move)
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	791	*/
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	792	# ifdef NO_STDIO
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	793	# define __READBYTES__(ret, f, buf, cnt, isBuffered, handleType) \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	794	{ \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	795	int __offs = 0, __cnt; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	796	\
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	797	while (__offs < (cnt)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	798	OBJ rA = __INST(readAhead); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	799	if (rA != nil) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	800	(buf)[__offs] = __intVal(rA); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	801	DEBUGBUFFER(buf); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	802	__INST(readAhead) = nil; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	803	__offs++; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	804	} else { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	805	CLEAR_ERRNO; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	806	__cnt = READ(f, (buf)+__offs, (cnt)-__offs, handleType); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	807	DEBUGBUFFER(buf); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	808	if (__cnt <= 0) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	809	if (__cnt < 0 && errno == EINTR) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	810	__HANDLE_INTERRUPTS__; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	811	continue; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	812	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	813	break; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	814	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	815	__offs += __cnt; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	816	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	817	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	818	if (__offs > 0) \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	819	(ret) = __offs; \
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	820	}
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	821	# else /* use STDIO */
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	822	# define __READBYTES__(ret, f, buf, cnt, isBuffered, handleType) \
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	823	(ret) = 0; \
71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	824	if (isBuffered) { \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	825	int __offs = 0; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	826	while (__offs < (cnt)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	827	CLEAR_ERRNO; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	828	(ret) = getc(f); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	829	if ((ret) < 0) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	830	if (ferror(f)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	831	if (errno == EINTR) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	832	__HANDLE_INTERRUPTS__; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	833	clearerr(f); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	834	continue; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	835	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	836	} else { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	837	(ret) = 0; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	838	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	839	break; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	840	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	841	DEBUGBUFFER(buf); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	842	(buf)[__offs++] = (ret); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	843	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	844	if (__offs > 0) \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	845	(ret) = __offs; \
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	846	} else { \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	847	int __offs = 0, __cnt; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	848	int fd = fileno(f); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	849	\
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	850	while (__offs < (cnt)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	851	OBJ rA = __INST(readAhead); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	852	if (rA != nil) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	853	DEBUGBUFFER(buf); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	854	(buf)[__offs] = __intVal(rA); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	855	__INST(readAhead) = nil; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	856	__offs++; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	857	} else { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	858	CLEAR_ERRNO; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	859	__cnt = read(fd, (buf)+__offs, (cnt)-__offs); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	860	DEBUGBUFFER(buf); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	861	if (__cnt <= 0) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	862	if (__cnt < 0 && errno == EINTR) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	863	__HANDLE_INTERRUPTS__; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	864	continue; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	865	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	866	break; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	867	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	868	__offs += __cnt; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	869	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	870	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	871	if (__offs > 0) \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	872	(ret) = __offs; \
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	873	}
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	874
6563 f786651428c8 Support O_NONBLOCK which is the POSIX way of FNDELAY Stefan Vogel <sv@exept.de> parents: 6487 diff changeset	875
f786651428c8 Support O_NONBLOCK which is the POSIX way of FNDELAY Stefan Vogel <sv@exept.de> parents: 6487 diff changeset	876	/*
f786651428c8 Support O_NONBLOCK which is the POSIX way of FNDELAY Stefan Vogel <sv@exept.de> parents: 6487 diff changeset	877	* FNDELAY and O_NDELAY is deprecated, O_NONBLOCK is used in POSIX, XPG, etc...
f786651428c8 Support O_NONBLOCK which is the POSIX way of FNDELAY Stefan Vogel <sv@exept.de> parents: 6487 diff changeset	878	*/
f786651428c8 Support O_NONBLOCK which is the POSIX way of FNDELAY Stefan Vogel <sv@exept.de> parents: 6487 diff changeset	879
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	880	# if defined(F_GETFL) && defined(F_SETFL) && (defined(O_NONBLOCK) \|\| defined(O_NDELAY) \|\| defined(FNDELAY))
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	881	# define SETFLAGS(fd, flags) \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	882	fcntl(fd, F_SETFL, flags)
6563 f786651428c8 Support O_NONBLOCK which is the POSIX way of FNDELAY Stefan Vogel <sv@exept.de> parents: 6487 diff changeset	883
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	884	# if defined(O_NONBLOCK)
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	885	# define __STX_NONBLOCK_FLAG O_NONBLOCK
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	886	# else
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	887	# if defined(O_NDELAY)
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	888	# define __STX_NONBLOCK_FLAG O_NDELAY
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	889	# else
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	890	# define __STX_NONBLOCK_FLAG FNDELAY
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	891	# endif
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	892	# endif
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	893
15342 d89884677c76 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15304 diff changeset	894	# define SETNONBLOCKING(fd, oldFlags) \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	895	{ \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	896	int flags = fcntl(fd, F_GETFL, 0); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	897	if (flags >= 0) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	898	fcntl(fd, F_SETFL, flags \| __STX_NONBLOCK_FLAG); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	899	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	900	oldFlags = flags; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	901	}
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	902	# else
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	903	# define SETFLAGS(fd, flags) /* nothing */
15342 d89884677c76 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15304 diff changeset	904	# define SETNONBLOCKING(fd, oldFlags) /* nothing */
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	905	# endif
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	906
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	907	# define __READAVAILBYTES__(ret, f, buf, cnt, isBuffered, handleType) \
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	908	{ \
15342 d89884677c76 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15304 diff changeset	909	int __offs = 0, __cnt; \
3681 55dc17d40aab fixed nextAvail Claus Gittinger <cg@exept.de> parents: 3674 diff changeset	910	int oldFlags; \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	911	\
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	912	(ret) = 0; \
15342 d89884677c76 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15304 diff changeset	913	SETNONBLOCKING(fileno(f), oldFlags); \
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	914	if (isBuffered) { \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	915	while (__offs < (cnt)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	916	CLEAR_ERRNO; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	917	(ret) = getc(f); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	918	if ((ret) < 0) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	919	if (ferror(f)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	920	if (errno == EINTR) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	921	(ret) = 0; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	922	clearerr(f); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	923	break; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	924	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	925	} else { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	926	(ret) = 0; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	927	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	928	break; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	929	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	930	(buf)[__offs++] = (ret); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	931	DEBUGBUFFER(buf); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	932	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	933	if (__offs > 0) \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	934	(ret) = __offs; \
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	935	} else { \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	936	int fd = fileno(f); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	937	\
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	938	while (__offs < (cnt)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	939	OBJ rA = __INST(readAhead); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	940	if (rA != nil) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	941	(buf)[__offs] = __intVal(rA); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	942	DEBUGBUFFER(buf); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	943	__INST(readAhead) = nil; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	944	__offs++; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	945	continue; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	946	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	947	CLEAR_ERRNO; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	948	__cnt = read(fd, (buf)+__offs, (cnt)-__offs); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	949	DEBUGBUFFER(buf); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	950	if (__cnt > 0) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	951	__offs += __cnt; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	952	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	953	break; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	954	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	955	if (__offs > 0) \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	956	(ret) = __offs; \
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	957	} \
3681 55dc17d40aab fixed nextAvail Claus Gittinger <cg@exept.de> parents: 3674 diff changeset	958	SETFLAGS(fileno(f), oldFlags); \
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	959	}
2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	960
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	961	# endif /* use STDIO */
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	962
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	963	/*
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	964	* read_bytes into an object
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	965	* (which may be moved by GC)
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	966	*/
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	967	# ifdef NO_STDIO
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	968	# define __READBYTES_OBJ__(ret, f, obj, obj_offs, cnt, isBuffered, handleType) \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	969	{ \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	970	int __ooffs = obj_offs; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	971	int __offs = 0; \
7540 7cd542f29024 Fix reading when readAheadBuffer is filled and following read fails Stefan Vogel <sv@exept.de> parents: 7503 diff changeset	972	int __cnt; \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	973	char buf = (char )(obj); \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	974	\
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	975	(ret) = 0; \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	976	{ \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	977	while (__offs < (cnt)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	978	OBJ rA = __INST(readAhead); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	979	if (rA != nil) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	980	(buf)[__ooffs+__offs] = __intVal(rA); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	981	DEBUGBUFFER(buf); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	982	__INST(readAhead) = nil; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	983	__offs++; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	984	} else { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	985	CLEAR_ERRNO; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	986	__cnt = READ(f, (buf)+__ooffs+__offs, (cnt)-__offs, handleType); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	987	DEBUGBUFFER(buf); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	988	if (__cnt <= 0) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	989	if (__cnt < 0 && errno == EINTR) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	990	__HANDLE_INTERRUPTS__; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	991	/* refetch */ \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	992	buf = (char *)(obj); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	993	continue; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	994	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	995	break; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	996	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	997	__offs += __cnt; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	998	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	999	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1000	if (__offs > 0) \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1001	(ret) = __offs; \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	1002	} \
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1003	}
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	1004
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1005	# else /* use STDIO */
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	1006
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	1007	# define __READBYTES_OBJ__(ret, f, obj, obj_offs, cnt, isBuffered, handleType) \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	1008	{ \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	1009	int __ooffs = obj_offs; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	1010	int __offs = 0; \
7540 7cd542f29024 Fix reading when readAheadBuffer is filled and following read fails Stefan Vogel <sv@exept.de> parents: 7503 diff changeset	1011	int __cnt; \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	1012	char buf = (char )(obj); \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1013	\
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1014	(ret) = 0; \
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1015	if (isBuffered) { \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1016	while (__offs < (cnt)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1017	CLEAR_ERRNO; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1018	(ret) = getc(f); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1019	if ((ret) < 0) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1020	if (ferror(f)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1021	if (errno == EINTR) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1022	__HANDLE_INTERRUPTS__; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1023	clearerr(f); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1024	/* refetch */ \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1025	buf = (char *)(obj); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1026	DEBUGBUFFER(buf); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1027	continue; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1028	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1029	} else { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1030	(ret) = 0; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1031	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1032	break; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1033	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1034	(buf)[__ooffs+__offs] = (ret); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1035	DEBUGBUFFER(buf); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1036	__offs++; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1037	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1038	if (__offs > 0) \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1039	(ret) = __offs; \
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1040	} else { \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1041	int fd = fileno(f); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1042	\
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1043	while (__offs < (cnt)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1044	OBJ rA = __INST(readAhead); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1045	if (rA != nil) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1046	(buf)[__ooffs+__offs] = __intVal(rA); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1047	DEBUGBUFFER(buf); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1048	__INST(readAhead) = nil; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1049	__offs++; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1050	} else { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1051	CLEAR_ERRNO; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1052	__cnt = read(fd, (buf)+__ooffs+__offs, (cnt)-__offs); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1053	DEBUGBUFFER(buf); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1054	if (__cnt <= 0) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1055	if (__cnt < 0 && errno == EINTR) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1056	__HANDLE_INTERRUPTS__; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1057	/* refetch */ \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1058	buf = (char *)(obj); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1059	continue; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1060	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1061	break; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1062	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1063	__offs += __cnt; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1064	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1065	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1066	if (__offs > 0) \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1067	(ret) = __offs; \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	1068	} \
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1069	}
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	1070
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	1071	# define __READAVAILBYTES_OBJ__(ret, f, obj, obj_offs, cnt, isBuffered, handleType) \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	1072	{ \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	1073	int __ooffs = obj_offs; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	1074	int __offs = 0; \
7540 7cd542f29024 Fix reading when readAheadBuffer is filled and following read fails Stefan Vogel <sv@exept.de> parents: 7503 diff changeset	1075	int __cnt; \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	1076	char buf = (char )(obj); \
15342 d89884677c76 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15304 diff changeset	1077	int oldFlags; \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1078	\
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	1079	(ret) = 0; \
15342 d89884677c76 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15304 diff changeset	1080	SETNONBLOCKING(fileno(f), oldFlags); \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1081	\
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	1082	if (isBuffered) { \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1083	while (__offs < (cnt)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1084	CLEAR_ERRNO; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1085	(ret) = getc(f); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1086	if ((ret) < 0) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1087	if (ferror(f)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1088	if (errno == EINTR) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1089	clearerr(f); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1090	/* refetch */ \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1091	buf = (char *)(obj); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1092	(ret) = 0; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1093	break; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1094	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1095	} else { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1096	(ret) = 0; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1097	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1098	break; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1099	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1100	(buf)[__ooffs+__offs] = (ret); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1101	DEBUGBUFFER(buf); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1102	__offs++; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1103	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1104	if (__offs > 0) \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1105	(ret) = __offs; \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	1106	} else { \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1107	int fd = fileno(f); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1108	\
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1109	while (__offs < (cnt)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1110	OBJ rA = __INST(readAhead); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1111	if (rA != nil) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1112	(buf)[__ooffs+__offs] = __intVal(rA); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1113	DEBUGBUFFER(buf); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1114	__INST(readAhead) = nil; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1115	__offs++; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1116	continue; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1117	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1118	CLEAR_ERRNO; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1119	__cnt = read(fd, (buf)+__ooffs+__offs, (cnt)-__offs); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1120	DEBUGBUFFER(buf); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1121	if (__cnt > 0) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1122	__offs += __cnt; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1123	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1124	break; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1125	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1126	if (__offs > 0) \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1127	(ret) = __offs; \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	1128	} \
15342 d89884677c76 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15304 diff changeset	1129	SETFLAGS(fileno(f), oldFlags); \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	1130	}
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	1131
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	1132
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1133	# endif /* use STDIO */
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	1134
4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	1135	# ifdef NO_STDIO
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	1136	# define __WRITEBYTE__(ret, f, buf, isBuffered, handleType) \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1137	for (;;) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1138	CLEAR_ERRNO; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1139	(ret) = WRITE(f, buf, 1, handleType); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1140	if ((ret) >= 0) break; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1141	if (errno != EINTR) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1142	break; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1143	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1144	__HANDLE_INTERRUPTS__; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1145	}
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1146	# else /* use STDIO */
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	1147	# define __WRITEBYTE__(ret, f, buf, isBuffered, handleType) \
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	1148	if (isBuffered) { \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1149	for (;;) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1150	CLEAR_ERRNO; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1151	ret = putc(*(buf), f); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1152	if ((ret) >= 0) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1153	(ret) = 1; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1154	} else if (ferror(f)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1155	/* SOLARIS/SPARC (2.6) generates spurious errors with errno = 0 */ \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1156	if (errno == EINTR \|\| errno == 0) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1157	__HANDLE_INTERRUPTS__; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1158	clearerr(f); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1159	continue; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1160	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1161	} else \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1162	(ret) = 0; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1163	break; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1164	} \
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	1165	} else { \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1166	for (;;) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1167	CLEAR_ERRNO; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1168	(ret) = write(fileno(f), buf, 1); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1169	if ((ret) >= 0) break; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1170	if (errno != EINTR) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1171	break; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1172	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1173	__HANDLE_INTERRUPTS__; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1174	} \
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1175	}
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1176	# endif /* use STDIO */
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1177
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1178	/*
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1179	* write_bytes from a c-buffer
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1180	* (which may NOT move)
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1181	*/
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	1182	# ifdef NO_STDIO
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	1183	# define __WRITEBYTES__(ret, f, buf, cnt, isBuffered, handleType) \
2961 a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	1184	(ret) = 0; \
a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	1185	{ \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1186	int __offs = 0; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1187	while (__offs < (cnt)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1188	CLEAR_ERRNO; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1189	ret = WRITE(f, (buf)+__offs, (cnt)-__offs, handleType); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1190	if (ret <= 0) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1191	if (ret < 0 && errno == EINTR) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1192	__HANDLE_INTERRUPTS__; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1193	continue; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1194	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1195	break; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1196	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1197	__offs += (ret); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1198	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1199	if (__offs > 0) \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1200	(ret) = __offs; \
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1201	}
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1202	# else /* use STDIO */
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	1203	# define __WRITEBYTES__(ret, f, buf, cnt, isBuffered, handleType) \
2961 a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	1204	(ret) = 0; \
a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	1205	if (isBuffered) { \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1206	int __offs = 0; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1207	while (__offs < (cnt)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1208	CLEAR_ERRNO; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1209	(ret) = fwrite((buf)+__offs, 1, (cnt)-__offs, f);\
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1210	if ((ret) <= 0) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1211	if (ferror(f)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1212	if (errno == EINTR) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1213	__HANDLE_INTERRUPTS__; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1214	clearerr(f); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1215	continue; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1216	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1217	} else { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1218	(ret) = 0; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1219	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1220	break; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1221	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1222	__offs += (ret); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1223	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1224	if (__offs > 0) \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1225	(ret) = __offs; \
2961 a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	1226	} else { \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1227	int __offs = 0; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1228	while (__offs < (cnt)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1229	CLEAR_ERRNO; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1230	(ret) = write(fileno(f), (buf)+__offs, (cnt)-__offs);\
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1231	if ((ret) <= 0) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1232	if ((ret) < 0) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1233	if (errno == EINTR) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1234	__HANDLE_INTERRUPTS__; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1235	continue; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1236	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1237	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1238	break; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1239	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1240	__offs += (ret); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1241	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1242	if (__offs > 0) \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1243	(ret) = __offs; \
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1244	}
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1245	# endif /* use STDIO */
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	1246
223 3075043790b8 immediateInterr & errno cleanup claus parents: 216 diff changeset	1247	/*
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1248	* write_bytes from an object
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1249	* (which may be moved around by GC)
a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1250	*/
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	1251	# ifdef NO_STDIO
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	1252	# define __WRITEBYTES_OBJ__(ret, f, obj, obj_offs, cnt, isBuffered, handleType) \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	1253	{ \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	1254	int __ooffs = obj_offs; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	1255	int __offs = 0; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	1256	char buf = (char )(obj); \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1257	\
2961 a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	1258	(ret) = 0; \
a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	1259	{ \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1260	while (__offs < (cnt)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1261	CLEAR_ERRNO; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1262	ret = WRITE(f, (buf)+__ooffs+__offs, (cnt)-__offs, handleType); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1263	if (ret <= 0) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1264	if (ret < 0 && errno == EINTR) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1265	__HANDLE_INTERRUPTS__; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1266	/* refetch */ \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1267	buf = (char *)(obj); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1268	continue; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1269	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1270	break; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1271	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1272	__offs += (ret); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1273	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1274	if (__offs > 0) \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1275	(ret) = __offs; \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	1276	} \
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	1277	}
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1278	# else /* use STDIO */
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	1279	# define __WRITEBYTES_OBJ__(ret, f, obj, obj_offs, cnt, isBuffered, handleType) \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	1280	{ \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	1281	int __ooffs = obj_offs; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	1282	int __offs = 0; \
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	1283	char buf = (char )(obj); \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1284	\
2961 a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	1285	(ret) = 0; \
a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	1286	if (isBuffered) { \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1287	while (__offs < (cnt)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1288	CLEAR_ERRNO; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1289	(ret) = fwrite((buf)+__ooffs+__offs, 1, (cnt)-__offs, f); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1290	if ((ret) <= 0) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1291	if (ferror(f)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1292	if (errno == EINTR) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1293	__HANDLE_INTERRUPTS__; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1294	/* refetch */ \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1295	buf = (char *)(obj); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1296	clearerr(f); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1297	continue; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1298	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1299	break; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1300	} else { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1301	(ret) = 0; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1302	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1303	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1304	__offs += (ret); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1305	} \
2961 a188727d0619 * empty log message * Claus Gittinger <cg@exept.de> parents: 2920 diff changeset	1306	} else { \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1307	while (__offs < (cnt)) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1308	CLEAR_ERRNO; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1309	(ret) = write(fileno(f), (buf)+__ooffs+__offs, (cnt)-__offs); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1310	if ((ret) <= 0) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1311	if ((ret) < 0) { \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1312	if (errno == EINTR){ \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1313	__HANDLE_INTERRUPTS__; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1314	/* refetch */ \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1315	buf = (char *)(obj); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1316	continue; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1317	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1318	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1319	break; \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1320	} \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1321	__offs += (ret); \
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1322	} \
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	1323	} \
15845 2b732fc8a4f4 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15655 diff changeset	1324	if (__offs > 0) \
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	1325	(ret) = __offs; \
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1326	}
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1327	# endif /* use STDIO */
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	1328	#endif /* unix */
1 a27a279701f8 Initial revision claus parents: diff changeset	1329	%}
188 454ed0ee733e EINTR problems claus parents: 159 diff changeset	1330	! !
1 a27a279701f8 Initial revision claus parents: diff changeset	1331
2045 1ad17ca6520f fall back to super>>nextPutLine: if argument is not a string. Claus Gittinger <cg@exept.de> parents: 2044 diff changeset	1332	!ExternalStream class methodsFor:'documentation'!
22 847106305963 * empty log message * claus parents: 12 diff changeset	1333
88 81dacba7a63a * empty log message * claus parents: 85 diff changeset	1334	copyright
81dacba7a63a * empty log message * claus parents: 85 diff changeset	1335	"
81dacba7a63a * empty log message * claus parents: 85 diff changeset	1336	COPYRIGHT (c) 1988 by Claus Gittinger
7051 984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1337	All Rights Reserved
88 81dacba7a63a * empty log message * claus parents: 85 diff changeset	1338
81dacba7a63a * empty log message * claus parents: 85 diff changeset	1339	This software is furnished under a license and may be used
81dacba7a63a * empty log message * claus parents: 85 diff changeset	1340	only in accordance with the terms of that license and with the
81dacba7a63a * empty log message * claus parents: 85 diff changeset	1341	inclusion of the above copyright notice. This software may not
81dacba7a63a * empty log message * claus parents: 85 diff changeset	1342	be provided or otherwise made available to, or used by, any
81dacba7a63a * empty log message * claus parents: 85 diff changeset	1343	other person. No title to or ownership of the software is
81dacba7a63a * empty log message * claus parents: 85 diff changeset	1344	hereby transferred.
81dacba7a63a * empty log message * claus parents: 85 diff changeset	1345	"
81dacba7a63a * empty log message * claus parents: 85 diff changeset	1346	!
81dacba7a63a * empty log message * claus parents: 85 diff changeset	1347
22 847106305963 * empty log message * claus parents: 12 diff changeset	1348	documentation
847106305963 * empty log message * claus parents: 12 diff changeset	1349	"
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1350	ExternalStream defines protocol common to Streams which have a file-descriptor and
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	1351	represent some file or communicationChannel of the underlying OperatingSystem.
59faa75185ba * empty log message * claus parents: 54 diff changeset	1352	ExternalStream is abstract; concrete classes are FileStream, PipeStream etc.
77 6c38ca59927f * empty log message * claus parents: 68 diff changeset	1353
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1354	ExternalStreams can be in two modes: text- (the default) and binary-mode.
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1355	In text-mode, the elements read/written are characters;
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1356	while in binary-mode the basic elements are bytes which read/write as SmallIntegers
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	1357	in the range 0..255.
22 847106305963 * empty log message * claus parents: 12 diff changeset	1358
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	1359	Also, the stream can be either in buffered or unbuffered mode. In buffered mode,
59faa75185ba * empty log message * claus parents: 54 diff changeset	1360	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	1361	is sent (in both modes).
22 847106305963 * empty log message * claus parents: 12 diff changeset	1362
77 6c38ca59927f * empty log message * claus parents: 68 diff changeset	1363	The underlying OperatingSystem streams may either be closed explicitely (sending a close)
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	1364	or just forgotten - in this case, the garbage collector will eventually collect the
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1365	object AND a close will be performed automatically (but you will NOT know when this
77 6c38ca59927f * empty log message * claus parents: 68 diff changeset	1366	happens - so it is recommended, that you close your files when no longer needed).
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1367	Closing is also suggested, since if smalltalk is finished (be it by purpose, or due to
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1368	some crash) the data will not be in the file, if unclosed.
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1369	All streams understand the close message, so it never hurts to use it (it is defined as
77 6c38ca59927f * empty log message * claus parents: 68 diff changeset	1370	a noop in one of the superclasses).
22 847106305963 * empty log message * claus parents: 12 diff changeset	1371
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	1372	Most of the methods found here redefine inherited methods for better performance,
59faa75185ba * empty log message * claus parents: 54 diff changeset	1373	since I/O from/to files should be fast.
22 847106305963 * empty log message * claus parents: 12 diff changeset	1374
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	1375	Recovering a snapshot:
1295 83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	1376	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	1377	reOpen in subclasses for more information.
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	1378	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	1379	reestablish the stream upon image restart (make someone dependent on ObjectMemory).
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	1380	FileStreams are reopened and positioned to their offset they had at snapshot time.
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	1381	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	1382	if the contents changed in the meantime.
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	1383	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	1384
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	1385	[Instance variables:]
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	1386
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	1387	handleType <Symbol> desribes what handle is:
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	1388	win32: #fileHandle, #socketHandle,
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	1389	#filePointer, #socketFilePointer, #pipeFilePointer
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	1390	unix: #filePointer, #socketFilePointer, #pipeFilePointer
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	1391	needed for win32, which uses different APIs for the different handles (sigh)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	1392	handle <Integer> used to be always a filePointer somehow mapped to an integer (FILE* - not the fd);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	1393	now, either a filePointer or a handle (win32)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	1394	mode <Symbol> #readwrite, #readonly or #writeonly
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	1395	buffered <Boolean> true, if buffered (i.e. collects characters - does
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	1396	not output immediately)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	1397	binary <Boolean> true if in binary mode (reads bytes instead of chars)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	1398	eolMode <Symbol> one of nil, #cr or #crlf.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	1399	determines how lines should be terminated.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	1400	nil -> newLine (as in Unix);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	1401	#crlf -> with cr-lf (as in MSDOS)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	1402	#cr -> with cr (as in VMS)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	1403	hitEOF <Boolean> true, if EOF was reached
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	1404
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	1405	lastErrorNumber <Integer> the value of errno (only valid right after the error -
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	1406	updated with next i/o operation)
1295 83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	1407
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	1408	[Class variables:]
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	1409	Lobby <Registry> keeps track of used ext-streams (to free up FILE*'s)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	1410
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	1411	StreamErrorSignal <Signal> parent of all stream errors (see Stream class)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	1412	InvalidReadSignal <Signal> raised on read from writeonly stream
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	1413	InvalidWriteSignal <Signal> raised on write to readonly stream
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	1414	InvalidModeSignal <Signal> raised on text I/O with binary-stream
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	1415	or binary I/O with text-stream
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	1416	OpenErrorSignal <Signal> raised if open fails
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	1417	StreamNotOpenSignal <Signal> raised on I/O with non-open stream
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1418
514c749165c3 * empty log message * claus parents: 108 diff changeset	1419	Additional notes:
514c749165c3 * empty log message * claus parents: 108 diff changeset	1420	This class is implemented using the underlying stdio-c library package, which
514c749165c3 * empty log message * claus parents: 108 diff changeset	1421	has both advantages and disadvantages: since it is portable (posix defined), porting
514c749165c3 * empty log message * claus parents: 108 diff changeset	1422	ST/X to non-Unix machines is simplified. The disadvantage is that the stdio library
514c749165c3 * empty log message * claus parents: 108 diff changeset	1423	has big problems handling unbounded Streams, since the EOF handling in stdio is
514c749165c3 * empty log message * claus parents: 108 diff changeset	1424	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	1425	a complete rewrite for UnboundedStream ...
325 46bca6125b93 . claus parents: 308 diff changeset	1426
188 454ed0ee733e EINTR problems claus parents: 159 diff changeset	1427	Also, depending on the system, the stdio library behaves infriendly when signals
454ed0ee733e EINTR problems claus parents: 159 diff changeset	1428	occur while reading (for example, timer interrupts) - on real unixes (i.e. BSD) the signal
454ed0ee733e EINTR problems claus parents: 159 diff changeset	1429	is handled transparently - on SYS5.3 (i.e. non unixes :-) the read operation returns
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1430	an error and errno is set to EINTR.
1295 83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	1431	Thats what the ugly code around all getc-calls is for ...
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	1432	Since things get more and more ugly - we will rewrite ExternalStream
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	1433	completely, to NOT use any stdio stuff (and do its buffering itself).
325 46bca6125b93 . claus parents: 308 diff changeset	1434
46bca6125b93 . claus parents: 308 diff changeset	1435	Notice that typical stdio's use a single errno global variable to return an error code,
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	1436	this was bad design in the stdio lib (right from the very beginning), since it's much
325 46bca6125b93 . claus parents: 308 diff changeset	1437	harder to deal with this in the presence of lightweight processes, where errno gets
46bca6125b93 . claus parents: 308 diff changeset	1438	overwritten by an I/O operation done in another thread. (stdio should have been written
46bca6125b93 . claus parents: 308 diff changeset	1439	to return errno as a negative number ...).
46bca6125b93 . claus parents: 308 diff changeset	1440	To deal with this, the scheduler treats errno like a per-thread private variable,
46bca6125b93 . claus parents: 308 diff changeset	1441	and saves/restores the errno setting when switching to another thread.
46bca6125b93 . claus parents: 308 diff changeset	1442	(Notice that some thread packages do this also, but ST/X's thread implementation
46bca6125b93 . claus parents: 308 diff changeset	1443	does not depend on those, but instead uses a portable private package).
46bca6125b93 . claus parents: 308 diff changeset	1444
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	1445	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	1446	fseek whenever we are about to read after write and vice versa.
a8abff749575 * empty log message * claus parents: 213 diff changeset	1447	Two macros (__READING__ and __WRITING__) have been defined to be used before every
a8abff749575 * empty log message * claus parents: 213 diff changeset	1448	fread/fgetc and fwrite/putc respectively.
1295 83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	1449
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	1450	[author:]
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	1451	Claus Gittinger
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	1452	Stefan Vogel (many, many fixes ...)
1295 83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	1453
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	1454	[see also:]
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	1455	FileStream Socket PipeStream
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	1456	Filename OperatingSystem
22 847106305963 * empty log message * claus parents: 12 diff changeset	1457	"
3255 eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	1458	!
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	1459
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	1460	examples
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	1461	"
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	1462	open a file, read the contents and display it in a textView:
7051 984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1463	[exBegin]
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1464	\|topView scrollPane textView fileStream text\|
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1465
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1466	topView := StandardSystemView new.
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1467	topView label:'contents of Makefile'.
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1468
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1469	scrollPane := HVScrollableView in:topView.
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1470	scrollPane origin:0.0@0.0 corner:1.0@1.0.
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1471
7051 984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1472	textView := EditTextView new.
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1473	scrollPane scrolledView:textView.
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1474
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1475	fileStream := 'Makefile' asFilename readStream.
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1476	text := fileStream upToEnd.
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1477	fileStream close.
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1478
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1479	textView contents:text.
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1480
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1481	topView open.
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1482	[exEnd]
3255 eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	1483
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	1484
eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	1485	Notice, all of the above can also be done (simply) as:
7051 984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1486	[exBegin]
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1487	EditTextView openOn:'Makefile'
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1488	[exEnd]
3255 eb76cba071a1 example Claus Gittinger <cg@exept.de> parents: 3235 diff changeset	1489	"
22 847106305963 * empty log message * claus parents: 12 diff changeset	1490	! !
847106305963 * empty log message * claus parents: 12 diff changeset	1491
2045 1ad17ca6520f fall back to super>>nextPutLine: if argument is not a string. Claus Gittinger <cg@exept.de> parents: 2044 diff changeset	1492	!ExternalStream class methodsFor:'initialization'!
1 a27a279701f8 Initial revision claus parents: diff changeset	1493
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1494	initDefaultEOLMode
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1495	OperatingSystem isUNIXlike ifTrue:[
7051 984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1496	"/ unix EOL conventions
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1497	DefaultEOLMode := #nl
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1498	] ifFalse:[
7051 984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1499	OperatingSystem isVMSlike ifTrue:[
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1500	"/ vms EOL conventions
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1501	DefaultEOLMode := #cr
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1502	] ifFalse:[
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1503	"/ msdos EOL conventions
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1504	DefaultEOLMode := #crlf
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1505	]
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1506	]
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1507	!
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1508
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1509	initModeStrings
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1510	"initialize modeStrings which are passed down to the underlying
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1511	fopen/fdopen functions."
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1512
3132 037027ae20fd msdos MUST use binary mode in I/O Claus Gittinger <cg@exept.de> parents: 3044 diff changeset	1513	OperatingSystem isMSDOSlike ifTrue:[
7051 984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1514	ReadMode := 'rb'.
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1515	ReadWriteMode := 'rb+'.
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1516	WriteMode := 'wb'.
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1517	AppendMode := 'ab+'.
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1518	CreateReadWriteMode := 'wb+'.
3132 037027ae20fd msdos MUST use binary mode in I/O Claus Gittinger <cg@exept.de> parents: 3044 diff changeset	1519	] ifFalse:[
7051 984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1520	ReadMode := 'r'.
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1521	ReadWriteMode := 'r+'.
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1522	WriteMode := 'w'.
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1523	AppendMode := 'a+'.
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1524	CreateReadWriteMode := 'w+'.
3132 037027ae20fd msdos MUST use binary mode in I/O Claus Gittinger <cg@exept.de> parents: 3044 diff changeset	1525	]
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1526	!
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1527
1 a27a279701f8 Initial revision claus parents: diff changeset	1528	initialize
593 19d568779cf7 moved StreamErrorSignal into Stream; Claus Gittinger <cg@exept.de> parents: 583 diff changeset	1529	OpenErrorSignal isNil ifTrue:[
8066 0dbcbe8989b8 OpenError is now a class based exception Claus Gittinger <cg@exept.de> parents: 8008 diff changeset	1530	"/ OpenErrorSignal := OpenError.
0dbcbe8989b8 OpenError is now a class based exception Claus Gittinger <cg@exept.de> parents: 8008 diff changeset	1531	"/ OpenErrorSignal nameClass:self message:#openErrorSignal.
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1532	OpenErrorSignal := OpenError.
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1533	OpenErrorSignal notifierString:'open error'.
8074 4dce05d6d0a1 class based exceptions Claus Gittinger <cg@exept.de> parents: 8070 diff changeset	1534
4dce05d6d0a1 class based exceptions Claus Gittinger <cg@exept.de> parents: 8070 diff changeset	1535	"/ InvalidReadSignal := ReadErrorSignal newSignalMayProceed:false.
4dce05d6d0a1 class based exceptions Claus Gittinger <cg@exept.de> parents: 8070 diff changeset	1536	"/ InvalidReadSignal nameClass:self message:#invalidReadSignal.
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1537	InvalidReadSignal := InvalidReadError.
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1538	InvalidReadSignal notifierString:'stream does not support reading'.
8074 4dce05d6d0a1 class based exceptions Claus Gittinger <cg@exept.de> parents: 8070 diff changeset	1539
4dce05d6d0a1 class based exceptions Claus Gittinger <cg@exept.de> parents: 8070 diff changeset	1540	"/ InvalidWriteSignal := WriteErrorSignal newSignalMayProceed:false.
4dce05d6d0a1 class based exceptions Claus Gittinger <cg@exept.de> parents: 8070 diff changeset	1541	"/ InvalidWriteSignal nameClass:self message:#invalidWriteSignal.
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1542	InvalidWriteSignal := InvalidWriteError.
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1543	InvalidWriteSignal notifierString:'stream does not support writing'.
8074 4dce05d6d0a1 class based exceptions Claus Gittinger <cg@exept.de> parents: 8070 diff changeset	1544
4dce05d6d0a1 class based exceptions Claus Gittinger <cg@exept.de> parents: 8070 diff changeset	1545	"/ InvalidModeSignal := StreamErrorSignal newSignalMayProceed:false.
4dce05d6d0a1 class based exceptions Claus Gittinger <cg@exept.de> parents: 8070 diff changeset	1546	"/ InvalidModeSignal nameClass:self message:#invalidModeSignal.
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1547	InvalidModeSignal := InvalidModeError.
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1548	InvalidModeSignal notifierString:'binary/text mode mismatch'.
8074 4dce05d6d0a1 class based exceptions Claus Gittinger <cg@exept.de> parents: 8070 diff changeset	1549
4dce05d6d0a1 class based exceptions Claus Gittinger <cg@exept.de> parents: 8070 diff changeset	1550	"/ InvalidOperationSignal := StreamErrorSignal newSignalMayProceed:false.
4dce05d6d0a1 class based exceptions Claus Gittinger <cg@exept.de> parents: 8070 diff changeset	1551	"/ InvalidOperationSignal nameClass:self message:#invalidOperationSignal.
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1552	InvalidOperationSignal := InvalidOperationError.
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1553	InvalidOperationSignal notifierString:'unsupported file operation'.
8074 4dce05d6d0a1 class based exceptions Claus Gittinger <cg@exept.de> parents: 8070 diff changeset	1554
4dce05d6d0a1 class based exceptions Claus Gittinger <cg@exept.de> parents: 8070 diff changeset	1555	"/ StreamNotOpenSignal := StreamErrorSignal newSignalMayProceed:false.
4dce05d6d0a1 class based exceptions Claus Gittinger <cg@exept.de> parents: 8070 diff changeset	1556	"/ StreamNotOpenSignal nameClass:self message:#streamNotOpenSignal.
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1557	StreamNotOpenSignal := StreamNotOpenError.
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1558	StreamNotOpenSignal notifierString:'stream is not open'.
8074 4dce05d6d0a1 class based exceptions Claus Gittinger <cg@exept.de> parents: 8070 diff changeset	1559
4dce05d6d0a1 class based exceptions Claus Gittinger <cg@exept.de> parents: 8070 diff changeset	1560	"/ StreamIOErrorSignal := StreamErrorSignal newSignalMayProceed:false.
4dce05d6d0a1 class based exceptions Claus Gittinger <cg@exept.de> parents: 8070 diff changeset	1561	"/ StreamIOErrorSignal nameClass:self message:#streamIOErrorSignal.
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1562	StreamIOErrorSignal := StreamIOError.
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1563	StreamIOErrorSignal notifierString:'I/O error'.
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1564	].
514c749165c3 * empty log message * claus parents: 108 diff changeset	1565
31 75f2b9f78be2 * empty log message * claus parents: 25 diff changeset	1566	Lobby isNil ifTrue:[
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1567	Lobby := Registry new.
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1568
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1569	"want to get informed when returning from snapshot"
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1570	ObjectMemory addDependent:self
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1571	].
5442 24b88d75396d only init once Claus Gittinger <cg@exept.de> parents: 5441 diff changeset	1572	DefaultEOLMode isNil ifTrue:[
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1573	self initDefaultEOLMode.
5442 24b88d75396d only init once Claus Gittinger <cg@exept.de> parents: 5441 diff changeset	1574	].
24b88d75396d only init once Claus Gittinger <cg@exept.de> parents: 5441 diff changeset	1575	ReadMode isNil ifTrue:[
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1576	self initModeStrings.
5442 24b88d75396d only init once Claus Gittinger <cg@exept.de> parents: 5441 diff changeset	1577	].
3474 1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	1578	"Modified: / 21.5.1998 / 16:33:53 / cg"
1 a27a279701f8 Initial revision claus parents: diff changeset	1579	!
a27a279701f8 Initial revision claus parents: diff changeset	1580
a27a279701f8 Initial revision claus parents: diff changeset	1581	reOpenFiles
4108 8c4a45bc70eb perform reOpen of streams earlier (before doing the view-reinit) Claus Gittinger <cg@exept.de> parents: 4093 diff changeset	1582	"reopen all files (if possible) after a snapShot load.
8c4a45bc70eb perform reOpen of streams earlier (before doing the view-reinit) Claus Gittinger <cg@exept.de> parents: 4093 diff changeset	1583	This is invoked via the #earlyRestart change notification."
1 a27a279701f8 Initial revision claus parents: diff changeset	1584
301 35e40a6fc72b * empty log message * claus parents: 269 diff changeset	1585	Lobby do:[:aFileStream \|
7051 984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1586	aFileStream reOpen
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1587	].
1 a27a279701f8 Initial revision claus parents: diff changeset	1588	!
a27a279701f8 Initial revision claus parents: diff changeset	1589
1469 570ef7f8667b checkin from browser Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1590	update:something with:aParameter from:changedObject
1 a27a279701f8 Initial revision claus parents: diff changeset	1591	"have to reopen files when returning from snapshot"
a27a279701f8 Initial revision claus parents: diff changeset	1592
4108 8c4a45bc70eb perform reOpen of streams earlier (before doing the view-reinit) Claus Gittinger <cg@exept.de> parents: 4093 diff changeset	1593	something == #earlyRestart ifTrue:[
7051 984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1594	self reOpenFiles.
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1595	self initDefaultEOLMode
1 a27a279701f8 Initial revision claus parents: diff changeset	1596	]
1469 570ef7f8667b checkin from browser Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1597
570ef7f8667b checkin from browser Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1598	"Created: 15.6.1996 / 15:19:59 / cg"
1 a27a279701f8 Initial revision claus parents: diff changeset	1599	! !
a27a279701f8 Initial revision claus parents: diff changeset	1600
2045 1ad17ca6520f fall back to super>>nextPutLine: if argument is not a string. Claus Gittinger <cg@exept.de> parents: 2044 diff changeset	1601	!ExternalStream class methodsFor:'instance creation'!
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1602
12706 47363ef2326c added: Stefan Vogel <sv@exept.de> parents: 12704 diff changeset	1603	forFileDescriptor:aFileDescriptor mode:modeSymbol
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1604	"given a fileDescriptor, create an ExternalStream object
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1605	to operate on this fd.
12706 47363ef2326c added: Stefan Vogel <sv@exept.de> parents: 12704 diff changeset	1606	The modeSymbol-argument is #readonly, #readwrite, ....
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1607	This may be used to wrap fd's as returned by user
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1608	primitive code, or to wrap pipe-fds into externalStreams."
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1609
12706 47363ef2326c added: Stefan Vogel <sv@exept.de> parents: 12704 diff changeset	1610	^ self forFileDescriptor:aFileDescriptor mode:modeSymbol buffered:true handleType:nil
7002 7a5d55f87cd7 make pseudoTTYs unbuffered (req'd for UNIXWARE) penk parents: 6812 diff changeset	1611
7a5d55f87cd7 make pseudoTTYs unbuffered (req'd for UNIXWARE) penk parents: 6812 diff changeset	1612	"
7a5d55f87cd7 make pseudoTTYs unbuffered (req'd for UNIXWARE) penk parents: 6812 diff changeset	1613	the example below will probably fail (15 is a random FD):
7a5d55f87cd7 make pseudoTTYs unbuffered (req'd for UNIXWARE) penk parents: 6812 diff changeset	1614
7a5d55f87cd7 make pseudoTTYs unbuffered (req'd for UNIXWARE) penk parents: 6812 diff changeset	1615	\|s\|
7a5d55f87cd7 make pseudoTTYs unbuffered (req'd for UNIXWARE) penk parents: 6812 diff changeset	1616
7a5d55f87cd7 make pseudoTTYs unbuffered (req'd for UNIXWARE) penk parents: 6812 diff changeset	1617	s := ExternalStream forFileDescriptor:15 mode:'r'.
7a5d55f87cd7 make pseudoTTYs unbuffered (req'd for UNIXWARE) penk parents: 6812 diff changeset	1618	s next.
7a5d55f87cd7 make pseudoTTYs unbuffered (req'd for UNIXWARE) penk parents: 6812 diff changeset	1619	"
7a5d55f87cd7 make pseudoTTYs unbuffered (req'd for UNIXWARE) penk parents: 6812 diff changeset	1620
7a5d55f87cd7 make pseudoTTYs unbuffered (req'd for UNIXWARE) penk parents: 6812 diff changeset	1621	"Created: 29.2.1996 / 18:05:00 / cg"
7a5d55f87cd7 make pseudoTTYs unbuffered (req'd for UNIXWARE) penk parents: 6812 diff changeset	1622	"Modified: 29.2.1996 / 18:17:07 / cg"
7a5d55f87cd7 make pseudoTTYs unbuffered (req'd for UNIXWARE) penk parents: 6812 diff changeset	1623	!
7a5d55f87cd7 make pseudoTTYs unbuffered (req'd for UNIXWARE) penk parents: 6812 diff changeset	1624
12706 47363ef2326c added: Stefan Vogel <sv@exept.de> parents: 12704 diff changeset	1625	forFileDescriptor:aFileDescriptor mode:modeSymbol buffered:buffered handleType:handleTypeSymbol
7002 7a5d55f87cd7 make pseudoTTYs unbuffered (req'd for UNIXWARE) penk parents: 6812 diff changeset	1626	"given a fileDescriptor, create an ExternalStream object
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1627	to operate on this fd.
12706 47363ef2326c added: Stefan Vogel <sv@exept.de> parents: 12704 diff changeset	1628	The modeSymbol-argument is #readonly, #readwrite, ....
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1629	This may be used to wrap fd's as returned by user
7002 7a5d55f87cd7 make pseudoTTYs unbuffered (req'd for UNIXWARE) penk parents: 6812 diff changeset	1630	primitive code, or to wrap pipe-fds into externalStreams."
7a5d55f87cd7 make pseudoTTYs unbuffered (req'd for UNIXWARE) penk parents: 6812 diff changeset	1631
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1632	\|newStream\|
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1633
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1634	newStream := self basicNew.
7002 7a5d55f87cd7 make pseudoTTYs unbuffered (req'd for UNIXWARE) penk parents: 6812 diff changeset	1635	newStream text; buffered:buffered; eolMode:DefaultEOLMode; clearEOF.
12706 47363ef2326c added: Stefan Vogel <sv@exept.de> parents: 12704 diff changeset	1636	^ newStream connectTo:aFileDescriptor withMode:modeSymbol handleType:handleTypeSymbol
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1637
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1638	"
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1639	the example below will probably fail (15 is a random FD):
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1640
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1641	\|s\|
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1642
12706 47363ef2326c added: Stefan Vogel <sv@exept.de> parents: 12704 diff changeset	1643	s := ExternalStream forFileDescriptor:15 mode:#radonly handleType:#filePointer.
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1644	s next.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1645	"
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1646
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1647	"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	1648	"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	1649	!
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1650
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1651	forReadWriteToFileDescriptor:aFileDescriptor
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1652	"given a fileDescriptor, create an ExternalStream object
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1653	to read/write from/to this fd. This may be used to wrap fd's
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1654	as returned by user primitive code, or to wrap pipe-
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1655	filedescriptors into externalStreams."
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1656
12706 47363ef2326c added: Stefan Vogel <sv@exept.de> parents: 12704 diff changeset	1657	^ self forFileDescriptor:aFileDescriptor mode:#readWrite
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1658
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1659	"
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1660	the example below will probably fail (15 is a random FD):
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1661
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1662	\|s\|
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1663
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1664	s := ExternalStream forReadWriteToFileDescriptor:15.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1665	s next.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1666	"
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1667
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1668	"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	1669	"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	1670	!
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1671
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1672	forReadingFromFileDescriptor:aFileDescriptor
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1673	"given a fileDescriptor, create an ExternalStream object
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1674	to read from this fd. This may be used to wrap fd's
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1675	as returned by user primitive code, or to wrap pipe-
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1676	filedescriptors into externalStreams."
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1677
12706 47363ef2326c added: Stefan Vogel <sv@exept.de> parents: 12704 diff changeset	1678	^ self forFileDescriptor:aFileDescriptor mode:#readonly
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1679
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1680	"
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1681	the example below will probably fail (15 is a random FD):
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1682
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1683	\|s\|
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1684
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1685	s := ExternalStream forReadingFromFileDescriptor:15.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1686	s next.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1687	"
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1688
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1689	"
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1690	\|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	1691
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1692	'create OS pipe ...'.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1693
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1694	pipe := OperatingSystem makePipe.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1695	readFd := pipe at:1.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1696	writeFd := pipe at:2.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1697
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1698	'connect Smalltalk streams ...'.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1699
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1700	rs := ExternalStream forReadingFromFileDescriptor:readFd.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1701	ws := ExternalStream forWritingToFileDescriptor:writeFd.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1702
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1703	'read ...'.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1704	[
14068 46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	1705	1 to:10 do:[:i \|
46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	1706	Transcript showCR:rs nextLine
46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	1707	].
46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	1708	rs close.
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1709	] forkAt:7.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1710
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1711	'write ...'.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1712	[
14068 46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	1713	1 to:10 do:[:i \|
46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	1714	ws nextPutAll:'hello world '; nextPutAll:i printString; cr
46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	1715	].
46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	1716	ws close.
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1717	] fork.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1718
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1719	"
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1720
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1721	"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	1722	"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	1723	!
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1724
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1725	forWritingToFileDescriptor:aFileDescriptor
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1726	"given a fileDescriptor, create an ExternalStream object
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1727	to write to this fd. This may be used to wrap fd's
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1728	as returned by user primitive code, or to wrap pipe-
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1729	filedescriptors into externalStreams."
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1730
12706 47363ef2326c added: Stefan Vogel <sv@exept.de> parents: 12704 diff changeset	1731	^ self forFileDescriptor:aFileDescriptor mode:#writeonly
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1732
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1733	"
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	1734	the example below will probably fail (15 is a random FD):
1048 c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1735
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1736	\|s\|
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1737
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1738	s := ExternalStream forWritingToFileDescriptor:15.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1739	s binary.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1740	s nextPut:1.
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1741	"
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1742
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1743	"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	1744	"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	1745	!
c535c5a73cba added facilities to connect to given Fd's and #makePipe Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1746
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1747	new
15918 d5fe9b9e87d3 Initialize in instance initialize method insted in #new Stefan Vogel <sv@exept.de> parents: 15896 diff changeset	1748	"re-enable new - disabled in Stream superclass"
d5fe9b9e87d3 Initialize in instance initialize method insted in #new Stefan Vogel <sv@exept.de> parents: 15896 diff changeset	1749
d5fe9b9e87d3 Initialize in instance initialize method insted in #new Stefan Vogel <sv@exept.de> parents: 15896 diff changeset	1750	^ self basicNew initialize.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1751	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1752
2045 1ad17ca6520f fall back to super>>nextPutLine: if argument is not a string. Claus Gittinger <cg@exept.de> parents: 2044 diff changeset	1753	!ExternalStream class methodsFor:'Signal constants'!
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1754
1522 1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	1755	inaccessibleSignal
1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	1756	"ST-80 compatibility: return openErrorSignal"
1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	1757
1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	1758	^ self openErrorSignal
1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	1759
1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	1760	"Created: 2.7.1996 / 12:27:16 / stefan"
1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	1761	!
1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	1762
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1763	invalidModeSignal
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1764	"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	1765	or binary-I/O with a text stream"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1766
8074 4dce05d6d0a1 class based exceptions Claus Gittinger <cg@exept.de> parents: 8070 diff changeset	1767	^ InvalidModeError
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1768	!
514c749165c3 * empty log message * claus parents: 108 diff changeset	1769
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1770	invalidOperationSignal
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1771	"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	1772	I/O operation is attempted"
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1773
8074 4dce05d6d0a1 class based exceptions Claus Gittinger <cg@exept.de> parents: 8070 diff changeset	1774	^ InvalidOperationError
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1775	!
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	1776
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1777	invalidReadSignal
514c749165c3 * empty log message * claus parents: 108 diff changeset	1778	"return the signal raised when reading from writeonly streams"
514c749165c3 * empty log message * claus parents: 108 diff changeset	1779
8074 4dce05d6d0a1 class based exceptions Claus Gittinger <cg@exept.de> parents: 8070 diff changeset	1780	^ InvalidReadError
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1781	!
514c749165c3 * empty log message * claus parents: 108 diff changeset	1782
514c749165c3 * empty log message * claus parents: 108 diff changeset	1783	invalidWriteSignal
514c749165c3 * empty log message * claus parents: 108 diff changeset	1784	"return the signal raised when writing to readonly streams"
514c749165c3 * empty log message * claus parents: 108 diff changeset	1785
8074 4dce05d6d0a1 class based exceptions Claus Gittinger <cg@exept.de> parents: 8070 diff changeset	1786	^ InvalidWriteError
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1787	!
514c749165c3 * empty log message * claus parents: 108 diff changeset	1788
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1789	openErrorSignal
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1790	"return the signal raised when a file open failed"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1791
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1792	^ OpenErrorSignal
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1793	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1794
3474 1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	1795	streamIOErrorSignal
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	1796	"return the signal raised when an I/O error occurs.
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	1797	(for example, a device-IO-error, or reading an NFS-dir,
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	1798	which is no longer available and has been mounted soft)"
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	1799
8074 4dce05d6d0a1 class based exceptions Claus Gittinger <cg@exept.de> parents: 8070 diff changeset	1800	^ StreamIOError
3474 1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	1801
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	1802	"Created: / 21.5.1998 / 16:32:55 / cg"
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	1803	!
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	1804
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1805	streamNotOpenSignal
514c749165c3 * empty log message * claus parents: 108 diff changeset	1806	"return the signal raised on I/O with closed streams"
514c749165c3 * empty log message * claus parents: 108 diff changeset	1807
8074 4dce05d6d0a1 class based exceptions Claus Gittinger <cg@exept.de> parents: 8070 diff changeset	1808	^ StreamNotOpenError
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1809	! !
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1810
2045 1ad17ca6520f fall back to super>>nextPutLine: if argument is not a string. Claus Gittinger <cg@exept.de> parents: 2044 diff changeset	1811	!ExternalStream class methodsFor:'error handling'!
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	1812
6269 3a888523e3a6 #errorReporter and #reportOn class-methods Stefan Vogel <sv@exept.de> parents: 6255 diff changeset	1813	errorReporter
3a888523e3a6 #errorReporter and #reportOn class-methods Stefan Vogel <sv@exept.de> parents: 6255 diff changeset	1814	"I know about error codes"
3a888523e3a6 #errorReporter and #reportOn class-methods Stefan Vogel <sv@exept.de> parents: 6255 diff changeset	1815
3a888523e3a6 #errorReporter and #reportOn class-methods Stefan Vogel <sv@exept.de> parents: 6255 diff changeset	1816	^ self
3a888523e3a6 #errorReporter and #reportOn class-methods Stefan Vogel <sv@exept.de> parents: 6255 diff changeset	1817	!
3a888523e3a6 #errorReporter and #reportOn class-methods Stefan Vogel <sv@exept.de> parents: 6255 diff changeset	1818
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	1819	lastErrorNumber
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1820	"return the errno of the last error"
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	1821
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1822	^ LastErrorNumber
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	1823
514c749165c3 * empty log message * claus parents: 108 diff changeset	1824	"
514c749165c3 * empty log message * claus parents: 108 diff changeset	1825	ExternalStream lastErrorNumber
514c749165c3 * empty log message * claus parents: 108 diff changeset	1826	"
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	1827	!
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1828
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1829	lastErrorString
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1830	"return a message string describing the last error"
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1831
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1832	^ OperatingSystem errorTextForNumber:LastErrorNumber
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1833
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1834	"
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1835	ExternalStream lastErrorString
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1836	"
6269 3a888523e3a6 #errorReporter and #reportOn class-methods Stefan Vogel <sv@exept.de> parents: 6255 diff changeset	1837	!
3a888523e3a6 #errorReporter and #reportOn class-methods Stefan Vogel <sv@exept.de> parents: 6255 diff changeset	1838
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1839	reportOn:anErrorSymbolOrNumber
6269 3a888523e3a6 #errorReporter and #reportOn class-methods Stefan Vogel <sv@exept.de> parents: 6255 diff changeset	1840	"an error occured.
3a888523e3a6 #errorReporter and #reportOn class-methods Stefan Vogel <sv@exept.de> parents: 6255 diff changeset	1841	Report it via an Exception"
3a888523e3a6 #errorReporter and #reportOn class-methods Stefan Vogel <sv@exept.de> parents: 6255 diff changeset	1842
3a888523e3a6 #errorReporter and #reportOn class-methods Stefan Vogel <sv@exept.de> parents: 6255 diff changeset	1843	anErrorSymbolOrNumber isInteger ifTrue:[
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1844	StreamError
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1845	raiseRequestWith:anErrorSymbolOrNumber
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1846	errorString:(' - os error:' , (OperatingSystem errorTextForNumber:anErrorSymbolOrNumber))
6269 3a888523e3a6 #errorReporter and #reportOn class-methods Stefan Vogel <sv@exept.de> parents: 6255 diff changeset	1847	].
3a888523e3a6 #errorReporter and #reportOn class-methods Stefan Vogel <sv@exept.de> parents: 6255 diff changeset	1848	(self respondsTo:anErrorSymbolOrNumber) ifTrue:[
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1849	self perform:anErrorSymbolOrNumber
6269 3a888523e3a6 #errorReporter and #reportOn class-methods Stefan Vogel <sv@exept.de> parents: 6255 diff changeset	1850	] ifFalse:[
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1851	StreamError
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1852	raiseRequestWith:anErrorSymbolOrNumber
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1853	errorString:(' - ' , anErrorSymbolOrNumber printString)
6269 3a888523e3a6 #errorReporter and #reportOn class-methods Stefan Vogel <sv@exept.de> parents: 6255 diff changeset	1854	].
3a888523e3a6 #errorReporter and #reportOn class-methods Stefan Vogel <sv@exept.de> parents: 6255 diff changeset	1855	^ false
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	1856	! !
0c73b48551ac * empty log message * claus parents: 88 diff changeset	1857
7497 cc29afd51151 Do not block when writing to pipes Stefan Vogel <sv@exept.de> parents: 7261 diff changeset	1858	!ExternalStream class methodsFor:'obsolete'!
cc29afd51151 Do not block when writing to pipes Stefan Vogel <sv@exept.de> parents: 7261 diff changeset	1859
cc29afd51151 Do not block when writing to pipes Stefan Vogel <sv@exept.de> parents: 7261 diff changeset	1860	makePTYPair
cc29afd51151 Do not block when writing to pipes Stefan Vogel <sv@exept.de> parents: 7261 diff changeset	1861	"obsolete since 12-07-2003"
cc29afd51151 Do not block when writing to pipes Stefan Vogel <sv@exept.de> parents: 7261 diff changeset	1862	<resource:#obsolete>
cc29afd51151 Do not block when writing to pipes Stefan Vogel <sv@exept.de> parents: 7261 diff changeset	1863
cc29afd51151 Do not block when writing to pipes Stefan Vogel <sv@exept.de> parents: 7261 diff changeset	1864	self obsoleteMethodWarning:'use NonPositionableExternalStream makePTYPair'.
cc29afd51151 Do not block when writing to pipes Stefan Vogel <sv@exept.de> parents: 7261 diff changeset	1865
cc29afd51151 Do not block when writing to pipes Stefan Vogel <sv@exept.de> parents: 7261 diff changeset	1866	^ NonPositionableExternalStream makePTYPair.
cc29afd51151 Do not block when writing to pipes Stefan Vogel <sv@exept.de> parents: 7261 diff changeset	1867	!
cc29afd51151 Do not block when writing to pipes Stefan Vogel <sv@exept.de> parents: 7261 diff changeset	1868
cc29afd51151 Do not block when writing to pipes Stefan Vogel <sv@exept.de> parents: 7261 diff changeset	1869	makePipe
cc29afd51151 Do not block when writing to pipes Stefan Vogel <sv@exept.de> parents: 7261 diff changeset	1870	"obsolete since 12-07-2003"
cc29afd51151 Do not block when writing to pipes Stefan Vogel <sv@exept.de> parents: 7261 diff changeset	1871	<resource:#obsolete>
cc29afd51151 Do not block when writing to pipes Stefan Vogel <sv@exept.de> parents: 7261 diff changeset	1872
cc29afd51151 Do not block when writing to pipes Stefan Vogel <sv@exept.de> parents: 7261 diff changeset	1873	self obsoleteMethodWarning:'use NonPositionableExternalStream makePipe'.
cc29afd51151 Do not block when writing to pipes Stefan Vogel <sv@exept.de> parents: 7261 diff changeset	1874
cc29afd51151 Do not block when writing to pipes Stefan Vogel <sv@exept.de> parents: 7261 diff changeset	1875	^ NonPositionableExternalStream makePipe.
cc29afd51151 Do not block when writing to pipes Stefan Vogel <sv@exept.de> parents: 7261 diff changeset	1876	! !
cc29afd51151 Do not block when writing to pipes Stefan Vogel <sv@exept.de> parents: 7261 diff changeset	1877
7261 f35fc9cee675 method category rename Claus Gittinger <cg@exept.de> parents: 7195 diff changeset	1878	!ExternalStream methodsFor:'Compatibility-Dolphin'!
6474 92a666c5b104 dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6461 diff changeset	1879
92a666c5b104 dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6461 diff changeset	1880	beText
92a666c5b104 dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6461 diff changeset	1881	self text
92a666c5b104 dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6461 diff changeset	1882	! !
92a666c5b104 dolphin compatibility Claus Gittinger <cg@exept.de> parents: 6461 diff changeset	1883
7261 f35fc9cee675 method category rename Claus Gittinger <cg@exept.de> parents: 7195 diff changeset	1884	!ExternalStream methodsFor:'Compatibility-Squeak'!
3044 a0bbac91639b * empty log message * Claus Gittinger <cg@exept.de> parents: 3029 diff changeset	1885
3872 cab901645d2a added #nextInto: and #readInto: for Squeak compatibility. Claus Gittinger <cg@exept.de> parents: 3863 diff changeset	1886	nextInto:aByteArrayOrString
cab901645d2a added #nextInto: and #readInto: for Squeak compatibility. Claus Gittinger <cg@exept.de> parents: 3863 diff changeset	1887	"read elements into the argument, whose size determines the amount
cab901645d2a added #nextInto: and #readInto: for Squeak compatibility. Claus Gittinger <cg@exept.de> parents: 3863 diff changeset	1888	of bytes to read. If not enough elements could be read, return
cab901645d2a added #nextInto: and #readInto: for Squeak compatibility. Claus Gittinger <cg@exept.de> parents: 3863 diff changeset	1889	a copy of the argument; otherwise, return the filled argument."
cab901645d2a added #nextInto: and #readInto: for Squeak compatibility. Claus Gittinger <cg@exept.de> parents: 3863 diff changeset	1890
cab901645d2a added #nextInto: and #readInto: for Squeak compatibility. Claus Gittinger <cg@exept.de> parents: 3863 diff changeset	1891	\|n nWanted\|
cab901645d2a added #nextInto: and #readInto: for Squeak compatibility. Claus Gittinger <cg@exept.de> parents: 3863 diff changeset	1892
4368 d69568f9ad95 squeak compatibility fixes Claus Gittinger <cg@exept.de> parents: 4161 diff changeset	1893	nWanted := aByteArrayOrString byteSize.
3872 cab901645d2a added #nextInto: and #readInto: for Squeak compatibility. Claus Gittinger <cg@exept.de> parents: 3863 diff changeset	1894	n := self nextAvailableBytes:nWanted into:aByteArrayOrString startingAt:1.
cab901645d2a added #nextInto: and #readInto: for Squeak compatibility. Claus Gittinger <cg@exept.de> parents: 3863 diff changeset	1895	n == nWanted ifTrue:[^ aByteArrayOrString].
cab901645d2a added #nextInto: and #readInto: for Squeak compatibility. Claus Gittinger <cg@exept.de> parents: 3863 diff changeset	1896	^ aByteArrayOrString copyTo:n
cab901645d2a added #nextInto: and #readInto: for Squeak compatibility. Claus Gittinger <cg@exept.de> parents: 3863 diff changeset	1897
cab901645d2a added #nextInto: and #readInto: for Squeak compatibility. Claus Gittinger <cg@exept.de> parents: 3863 diff changeset	1898	!
cab901645d2a added #nextInto: and #readInto: for Squeak compatibility. Claus Gittinger <cg@exept.de> parents: 3863 diff changeset	1899
4368 d69568f9ad95 squeak compatibility fixes Claus Gittinger <cg@exept.de> parents: 4161 diff changeset	1900	readInto:aContainer startingAt:index count:nElements
d69568f9ad95 squeak compatibility fixes Claus Gittinger <cg@exept.de> parents: 4161 diff changeset	1901	"same as #nextBytes:into:startingAt: for ByteArrays;
d69568f9ad95 squeak compatibility fixes Claus Gittinger <cg@exept.de> parents: 4161 diff changeset	1902	for LongArrays, nelements longs are read.
3872 cab901645d2a added #nextInto: and #readInto: for Squeak compatibility. Claus Gittinger <cg@exept.de> parents: 3863 diff changeset	1903	Squeak compatibility."
cab901645d2a added #nextInto: and #readInto: for Squeak compatibility. Claus Gittinger <cg@exept.de> parents: 3863 diff changeset	1904
4368 d69568f9ad95 squeak compatibility fixes Claus Gittinger <cg@exept.de> parents: 4161 diff changeset	1905	\|elementSize n\|
d69568f9ad95 squeak compatibility fixes Claus Gittinger <cg@exept.de> parents: 4161 diff changeset	1906
d69568f9ad95 squeak compatibility fixes Claus Gittinger <cg@exept.de> parents: 4161 diff changeset	1907	elementSize := aContainer class elementByteSize.
13940 12eb1c056d5e fixed: #readInto:startingAt:count:; offset was wrong for non-byte elements Claus Gittinger <cg@exept.de> parents: 13927 diff changeset	1908	n := self nextBytes:nElementselementSize into:aContainer startingAt:(index-1)elementSize+1.
4368 d69568f9ad95 squeak compatibility fixes Claus Gittinger <cg@exept.de> parents: 4161 diff changeset	1909	^ n // elementSize
3872 cab901645d2a added #nextInto: and #readInto: for Squeak compatibility. Claus Gittinger <cg@exept.de> parents: 3863 diff changeset	1910
13940 12eb1c056d5e fixed: #readInto:startingAt:count:; offset was wrong for non-byte elements Claus Gittinger <cg@exept.de> parents: 13927 diff changeset	1911	"Modified: / 14-01-2012 / 19:00:35 / cg"
3872 cab901645d2a added #nextInto: and #readInto: for Squeak compatibility. Claus Gittinger <cg@exept.de> parents: 3863 diff changeset	1912	!
cab901645d2a added #nextInto: and #readInto: for Squeak compatibility. Claus Gittinger <cg@exept.de> parents: 3863 diff changeset	1913
3044 a0bbac91639b * empty log message * Claus Gittinger <cg@exept.de> parents: 3029 diff changeset	1914	readOnly
a0bbac91639b * empty log message * Claus Gittinger <cg@exept.de> parents: 3029 diff changeset	1915	"Squeak compatibility: make the stream readOnly"
a0bbac91639b * empty log message * Claus Gittinger <cg@exept.de> parents: 3029 diff changeset	1916
a0bbac91639b * empty log message * Claus Gittinger <cg@exept.de> parents: 3029 diff changeset	1917	mode := #readonly
a0bbac91639b * empty log message * Claus Gittinger <cg@exept.de> parents: 3029 diff changeset	1918
a0bbac91639b * empty log message * Claus Gittinger <cg@exept.de> parents: 3029 diff changeset	1919	"Modified: 20.10.1997 / 19:23:04 / cg"
a0bbac91639b * empty log message * Claus Gittinger <cg@exept.de> parents: 3029 diff changeset	1920	"Created: 20.10.1997 / 19:23:19 / cg"
a0bbac91639b * empty log message * Claus Gittinger <cg@exept.de> parents: 3029 diff changeset	1921	! !
a0bbac91639b * empty log message * Claus Gittinger <cg@exept.de> parents: 3029 diff changeset	1922
5187 4bf3787cc63a category renamining Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	1923	!ExternalStream methodsFor:'Signal constants'!
4bf3787cc63a category renamining Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	1924
4bf3787cc63a category renamining Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	1925	invalidReadSignal
4bf3787cc63a category renamining Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	1926	^ self class invalidReadSignal
4bf3787cc63a category renamining Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	1927
4bf3787cc63a category renamining Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	1928	"Created: / 3.12.1998 / 15:12:06 / cg"
4bf3787cc63a category renamining Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	1929	!
4bf3787cc63a category renamining Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	1930
4bf3787cc63a category renamining Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	1931	invalidWriteSignal
4bf3787cc63a category renamining Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	1932	^ self class invalidWriteSignal
4bf3787cc63a category renamining Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	1933
4bf3787cc63a category renamining Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	1934	"Created: / 3.12.1998 / 15:12:10 / cg"
4bf3787cc63a category renamining Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	1935	! !
4bf3787cc63a category renamining Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	1936
1 a27a279701f8 Initial revision claus parents: diff changeset	1937	!ExternalStream methodsFor:'accessing'!
a27a279701f8 Initial revision claus parents: diff changeset	1938
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1939	binary
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1940	"switch to binary mode - default is text"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1941
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	1942	binary := true
1 a27a279701f8 Initial revision claus parents: diff changeset	1943	!
a27a279701f8 Initial revision claus parents: diff changeset	1944
a27a279701f8 Initial revision claus parents: diff changeset	1945	buffered:aBoolean
10 4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	1946	"turn buffering on or off - default is on"
1 a27a279701f8 Initial revision claus parents: diff changeset	1947
10 4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	1948	buffered := aBoolean
1 a27a279701f8 Initial revision claus parents: diff changeset	1949	!
a27a279701f8 Initial revision claus parents: diff changeset	1950
a27a279701f8 Initial revision claus parents: diff changeset	1951	contents
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1952	"return the contents of the file from the current position up-to
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1953	the end. If the stream is in binary mode, a ByteArray containing
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1954	the byte values is returned.
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1955	In text-mode, a collection of strings, each representing one line,
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1956	is returned."
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1957
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1958	\|text l chunks sizes chunk byteCount cnt bytes offset\|
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1959
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1960	binary ifTrue:[
7051 984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1961	"adding to a ByteArray produces quadratic time-space
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1962	behavior - therefore we allocate chunks, and concatenate them
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1963	at the end."
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1964
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1965	chunks := OrderedCollection new.
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1966	sizes := OrderedCollection new.
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1967	byteCount := 0.
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1968	[self atEnd] whileFalse:[
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1969	chunk := ByteArray uninitializedNew:4096.
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1970	cnt := self nextBytes:(chunk size) into:chunk.
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1971	cnt notNil ifTrue:[
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1972	chunks add:chunk.
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1973	sizes add:cnt.
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1974	byteCount := byteCount + cnt
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1975	]
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1976	].
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1977
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1978	"now, create one big ByteArray"
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1979	bytes := ByteArray uninitializedNew:byteCount.
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1980	offset := 1.
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1981	1 to:chunks size do:[:index \|
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1982	chunk := chunks at:index.
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	1983	cnt := sizes at:index.
7051 984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1984	bytes replaceFrom:offset to:(offset + cnt - 1) with:chunk.
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1985	offset := offset + cnt
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1986	].
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1987	^ bytes
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	1988	].
1 a27a279701f8 Initial revision claus parents: diff changeset	1989
244 9faa2da0650a Text <-> StringCollection claus parents: 223 diff changeset	1990	text := StringCollection new.
1 a27a279701f8 Initial revision claus parents: diff changeset	1991	[self atEnd] whileFalse:[
7051 984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1992	l := self nextLine.
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1993	l isNil ifTrue:[
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1994	^ text
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1995	].
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	1996	text add:l
1 a27a279701f8 Initial revision claus parents: diff changeset	1997	].
a27a279701f8 Initial revision claus parents: diff changeset	1998	^ text
a27a279701f8 Initial revision claus parents: diff changeset	1999	!
a27a279701f8 Initial revision claus parents: diff changeset	2000
11751 1e75c54748ef added #contentsAsString for Filename compatibility Stefan Vogel <sv@exept.de> parents: 11651 diff changeset	2001	contentsAsString
1e75c54748ef added #contentsAsString for Filename compatibility Stefan Vogel <sv@exept.de> parents: 11651 diff changeset	2002	"to compensate for the bad naming, use this to make things explicit.
1e75c54748ef added #contentsAsString for Filename compatibility Stefan Vogel <sv@exept.de> parents: 11651 diff changeset	2003	See also #contents, which returns the lines as stringCollection for textFiles."
1e75c54748ef added #contentsAsString for Filename compatibility Stefan Vogel <sv@exept.de> parents: 11651 diff changeset	2004
1e75c54748ef added #contentsAsString for Filename compatibility Stefan Vogel <sv@exept.de> parents: 11651 diff changeset	2005	^ self contentsOfEntireFile
1e75c54748ef added #contentsAsString for Filename compatibility Stefan Vogel <sv@exept.de> parents: 11651 diff changeset	2006	!
1e75c54748ef added #contentsAsString for Filename compatibility Stefan Vogel <sv@exept.de> parents: 11651 diff changeset	2007
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2008	contentsOfEntireFile
3938 4e7d1880336b oops - #contentsOfEntireFile must return a byteArray if in binaryMode. Claus Gittinger <cg@exept.de> parents: 3906 diff changeset	2009	"ST-80 compatibility: return contents as a String (or byteArray, if in binary mode).
3876 a680b41a014c comment Claus Gittinger <cg@exept.de> parents: 3872 diff changeset	2010	See also #contents, which returns the lines as stringCollection for text files."
1522 1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	2011
6305 53b87502fc21 Fix #contentsOfEntireFile Stefan Vogel <sv@exept.de> parents: 6269 diff changeset	2012	binary ifTrue:[
7051 984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	2013	^ self contents.
3938 4e7d1880336b oops - #contentsOfEntireFile must return a byteArray if in binaryMode. Claus Gittinger <cg@exept.de> parents: 3906 diff changeset	2014	].
6305 53b87502fc21 Fix #contentsOfEntireFile Stefan Vogel <sv@exept.de> parents: 6269 diff changeset	2015	^ self upToEnd
1522 1d0b4bc2e563 ST-80 compatibility: #contentsOfEntireFile must return a String. Stefan Vogel <sv@exept.de> parents: 1515 diff changeset	2016
3876 a680b41a014c comment Claus Gittinger <cg@exept.de> parents: 3872 diff changeset	2017	"Modified: / 3.7.1996 / 13:22:16 / stefan"
3938 4e7d1880336b oops - #contentsOfEntireFile must return a byteArray if in binaryMode. Claus Gittinger <cg@exept.de> parents: 3906 diff changeset	2018	"Modified: / 27.11.1998 / 16:29:43 / cg"
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	2019	!
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	2020
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2021	contentsSpecies
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2022	"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	2023	(such as upTo)"
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	2024
5441 e88302747bbd rel5 migration Claus Gittinger <cg@exept.de> parents: 5431 diff changeset	2025	binary == true ifTrue:[
7051 984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	2026	^ ByteArray
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	2027	].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2028	^ String
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	2029	!
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	2030
16776 fd62ae0ff6fa class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16551 diff changeset	2031	eolMode
fd62ae0ff6fa class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16551 diff changeset	2032	"return how end-of-line (EOL) is to be marked.
fd62ae0ff6fa class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16551 diff changeset	2033	Returns one one of:
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2034	#crlf -> add a CR-NL, as in MSDOS
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2035	#cr -> add a CR, as in VMS
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2036	#nl -> add a NL, as in Unix
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2037	nil -> transparent
16776 fd62ae0ff6fa class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16551 diff changeset	2038	"
fd62ae0ff6fa class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16551 diff changeset	2039
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2040	^ eolMode
16776 fd62ae0ff6fa class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16551 diff changeset	2041	!
fd62ae0ff6fa class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16551 diff changeset	2042
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2043	eolMode:aSymbolOrNil
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2044	"specify how end-of-line (EOL) is to be marked.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2045	The argument may be one of:
7051 984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	2046	#crlf -> add a CR-NL, as in MSDOS
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	2047	#cr -> add a CR, as in VMS
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	2048	#nl -> add a NL, as in Unix
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	2049	anyOther -> like #nl
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2050	"
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2051
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2052	eolMode := aSymbolOrNil
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2053	!
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2054
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2055	fileDescriptor
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2056	"return the fileDescriptor of the receiver -
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2057	notice: this one returns the underlying OSs fileDescriptor -
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2058	this may not be available on all platforms (i.e. non unix systems)."
1 a27a279701f8 Initial revision claus parents: diff changeset	2059
3971 aad506cdc5d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3956 diff changeset	2060	%{
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	2061	OBJ _handle = __INST(handle);
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	2062
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	2063	if (_handle != nil) {
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2064	if (__INST(handleType) == @symbol(socketHandle)) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2065	RETURN (_handle);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2066	} else if ((__INST(handleType) == nil)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2067	\|\| (__INST(handleType) == @symbol(filePointer))
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2068	\|\| (__INST(handleType) == @symbol(socketFilePointer))
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2069	\|\| (__INST(handleType) == @symbol(pipeFilePointer))) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2070	RETURN ( __MKINT(fileno(__FILEVal(_handle))));
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2071	}
1 a27a279701f8 Initial revision claus parents: diff changeset	2072	}
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	2073	%}.
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	2074	handle isNil ifTrue:[^ self errorNotOpen].
1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	2075	^ self fileDescriptorOfFile:handle
5852 338c6e0cab8f rel5 migration Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	2076	!
338c6e0cab8f rel5 migration Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	2077
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	2078	fileDescriptorOfFile:handle
5852 338c6e0cab8f rel5 migration Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	2079	"for migration to rel5 only:
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	2080	return the fileDescriptor of the argument handle -
5852 338c6e0cab8f rel5 migration Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	2081	notice: this one returns the underlying OSs fileDescriptor -
338c6e0cab8f rel5 migration Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	2082	this may not be available on all platforms (i.e. non unix systems)."
338c6e0cab8f rel5 migration Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	2083
338c6e0cab8f rel5 migration Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	2084	self primitiveFailed
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2085	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2086
10455 8a434bc03256 +fileHandle Claus Gittinger <cg@exept.de> parents: 10450 diff changeset	2087	fileHandle
8a434bc03256 +fileHandle Claus Gittinger <cg@exept.de> parents: 10450 diff changeset	2088	"return the fileHandle of the receiver.
8a434bc03256 +fileHandle Claus Gittinger <cg@exept.de> parents: 10450 diff changeset	2089	Under unix, this is the fileDescriptor; under windows, this is the Handle."
8a434bc03256 +fileHandle Claus Gittinger <cg@exept.de> parents: 10450 diff changeset	2090
8a434bc03256 +fileHandle Claus Gittinger <cg@exept.de> parents: 10450 diff changeset	2091	%{
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	2092	OBJ _handle = __INST(handle);
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	2093
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	2094	if (_handle != nil) {
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2095	if ((__INST(handleType) == @symbol(fileHandle))
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2096	\|\| (__INST(handleType) == @symbol(socketHandle))) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2097	RETURN (_handle);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2098	} else if ((__INST(handleType) == nil)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2099	\|\| (__INST(handleType) == @symbol(filePointer))
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2100	\|\| (__INST(handleType) == @symbol(socketFilePointer))
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2101	\|\| (__INST(handleType) == @symbol(pipeFilePointer))) {
10455 8a434bc03256 +fileHandle Claus Gittinger <cg@exept.de> parents: 10450 diff changeset	2102	#ifdef WIN32
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2103	RETURN(__MKEXTERNALADDRESS(_get_osfhandle(fileno(__FILEVal(_handle)))));
10455 8a434bc03256 +fileHandle Claus Gittinger <cg@exept.de> parents: 10450 diff changeset	2104	#else
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2105	RETURN (__MKINT(fileno(__FILEVal(_handle))));
10455 8a434bc03256 +fileHandle Claus Gittinger <cg@exept.de> parents: 10450 diff changeset	2106	#endif
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2107	}
10455 8a434bc03256 +fileHandle Claus Gittinger <cg@exept.de> parents: 10450 diff changeset	2108	}
8a434bc03256 +fileHandle Claus Gittinger <cg@exept.de> parents: 10450 diff changeset	2109	%}.
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	2110	handle isNil ifTrue:[^ self errorNotOpen].
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	2111	^ handle
10455 8a434bc03256 +fileHandle Claus Gittinger <cg@exept.de> parents: 10450 diff changeset	2112	!
8a434bc03256 +fileHandle Claus Gittinger <cg@exept.de> parents: 10450 diff changeset	2113
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2114	filePointer
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2115	"return the filePointer of the receiver -
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2116	notice: for portability stdio is used; this means you will get
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	2117	a FILE * - not a fileDescriptor.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2118	(what you really get is a corresponding integer).
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	2119	You cannot do much with the returned value
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2120	- except passing it to a primitive, for example."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2121
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	2122	(handleType isNil or:[handleType == #filePointer]) ifTrue:[
1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	2123	^ handle
1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	2124	].
1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	2125	^ self error:'not a FILE*'
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2126	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2127
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	2128	handleType
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	2129	^ handleType
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	2130	!
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	2131
5323 f4c3a230f42f more VW compatibility Claus Gittinger <cg@exept.de> parents: 5204 diff changeset	2132	lineEndCRLF
f4c3a230f42f more VW compatibility Claus Gittinger <cg@exept.de> parents: 5204 diff changeset	2133	eolMode := #crlf
f4c3a230f42f more VW compatibility Claus Gittinger <cg@exept.de> parents: 5204 diff changeset	2134	!
f4c3a230f42f more VW compatibility Claus Gittinger <cg@exept.de> parents: 5204 diff changeset	2135
3016 42466b291fae more ST80 compatibility ca parents: 2999 diff changeset	2136	lineEndTransparent
42466b291fae more ST80 compatibility ca parents: 2999 diff changeset	2137	eolMode := #cr
42466b291fae more ST80 compatibility ca parents: 2999 diff changeset	2138	!
42466b291fae more ST80 compatibility ca parents: 2999 diff changeset	2139
8069 fdf460457c96 acessing: pathName added (returns nil) Michael Beyl <mb@exept.de> parents: 8066 diff changeset	2140	pathName
8511 eb02df149f42 Raise proceedable exception proceedable. Stefan Vogel <sv@exept.de> parents: 8472 diff changeset	2141	"answer the pathName of the stream.
eb02df149f42 Raise proceedable exception proceedable. Stefan Vogel <sv@exept.de> parents: 8472 diff changeset	2142	Only FileStreams know the pathName, so we return an empty string here"
eb02df149f42 Raise proceedable exception proceedable. Stefan Vogel <sv@exept.de> parents: 8472 diff changeset	2143
eb02df149f42 Raise proceedable exception proceedable. Stefan Vogel <sv@exept.de> parents: 8472 diff changeset	2144	^ ''
8069 fdf460457c96 acessing: pathName added (returns nil) Michael Beyl <mb@exept.de> parents: 8066 diff changeset	2145	!
fdf460457c96 acessing: pathName added (returns nil) Michael Beyl <mb@exept.de> parents: 8066 diff changeset	2146
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2147	readonly
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2148	"set access mode to readonly"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2149
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2150	mode := #readonly
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2151	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2152
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2153	readwrite
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2154	"set access mode to readwrite"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2155
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2156	mode := #readwrite
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2157	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2158
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2159	text
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2160	"switch to text mode - default is text"
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	binary := false
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2163	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2164
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2165	useCRLF:aBoolean
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2166	"turn on or off CRLF sending (instead of LF only) - default is off.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2167	This method is provided for backward compatibility - see #eolMode:
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2168	which offers another choice."
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2169
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2170	aBoolean ifTrue:[
7051 984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	2171	eolMode := #crlf
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2172	] ifFalse:[
7051 984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	2173	eolMode := #nl
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2174	].
1 a27a279701f8 Initial revision claus parents: diff changeset	2175	!
a27a279701f8 Initial revision claus parents: diff changeset	2176
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2177	writeonly
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2178	"set access mode to writeonly"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2179
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2180	mode := #writeonly
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2181	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2182
8966 0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2183	!ExternalStream methodsFor:'closing'!
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2184
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2185	close
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	2186	"close the stream.
16300 277c0cb1ecbc class: ExternalStream Stefan Vogel <sv@exept.de> parents: 16296 diff changeset	2187	No error of the stream is not open."
8966 0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2188
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2189	self isOpen ifTrue:[
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	2190	Lobby unregister:self.
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	2191	self closeFile.
16300 277c0cb1ecbc class: ExternalStream Stefan Vogel <sv@exept.de> parents: 16296 diff changeset	2192	].
8966 0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2193	!
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2194
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2195	shutDown
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2196	"close the stream - added for protocol compatibility with PipeStream.
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2197	see comment there"
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2198
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2199	self isOpen ifTrue:[
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2200	Lobby unregister:self.
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2201	self closeFile
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2202	]
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2203
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2204	"Modified: 30.8.1996 / 00:39:21 / cg"
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2205	! !
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2206
10982 11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	2207	!ExternalStream methodsFor:'copying'!
11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	2208
11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	2209	copy
11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	2210	"answer a copy of myself.
11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	2211	Have to dup the filedescriptor"
11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	2212
11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	2213	\|copy\|
11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	2214
11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	2215	copy := super copy.
11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	2216	copy dupFd.
11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	2217	Lobby register:copy.
11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	2218	^ copy
11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	2219
11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	2220	"
11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	2221	\|stream1 stream2\|
11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	2222
11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	2223	stream1 := Filename newTemporary writeStream.
11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	2224	stream2 := stream1 copy.
11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	2225
11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	2226	stream1 inspect.
11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	2227	stream2 inspect.
11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	2228	"
11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	2229	! !
11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	2230
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2231	!ExternalStream methodsFor:'error handling'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2232
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2233	argumentMustBeCharacter
14440 88e708da1ae1 changed: Stefan Vogel <sv@exept.de> parents: 14438 diff changeset	2234	"report an error, that the argument must be a character in 0..FF"
88e708da1ae1 changed: Stefan Vogel <sv@exept.de> parents: 14438 diff changeset	2235
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	2236	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	2237
14440 88e708da1ae1 changed: Stefan Vogel <sv@exept.de> parents: 14438 diff changeset	2238	ArgumentError raiseErrorString:' - argument must be a single byte character'
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2239	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2240
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2241	argumentMustBeInteger
14440 88e708da1ae1 changed: Stefan Vogel <sv@exept.de> parents: 14438 diff changeset	2242	"report an error, that the argument must be an integer"
88e708da1ae1 changed: Stefan Vogel <sv@exept.de> parents: 14438 diff changeset	2243
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	2244	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	2245
14440 88e708da1ae1 changed: Stefan Vogel <sv@exept.de> parents: 14438 diff changeset	2246	ArgumentError raiseErrorString:' - argument must be an integer'
77 6c38ca59927f * empty log message * claus parents: 68 diff changeset	2247	!
6c38ca59927f * empty log message * claus parents: 68 diff changeset	2248
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2249	argumentMustBeString
14440 88e708da1ae1 changed: Stefan Vogel <sv@exept.de> parents: 14438 diff changeset	2250	"report an error, that the argument must be a string"
88e708da1ae1 changed: Stefan Vogel <sv@exept.de> parents: 14438 diff changeset	2251
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	2252	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	2253
14440 88e708da1ae1 changed: Stefan Vogel <sv@exept.de> parents: 14438 diff changeset	2254	ArgumentError raiseErrorString:' - argument must be a string'
612 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
4526 a42dc8e09586 errorOpen renamed to errorAlreadyOpen Claus Gittinger <cg@exept.de> parents: 4468 diff changeset	2257	errorAlreadyOpen
a42dc8e09586 errorOpen renamed to errorAlreadyOpen Claus Gittinger <cg@exept.de> parents: 4468 diff changeset	2258	"{ Pragma: +optSpace }"
a42dc8e09586 errorOpen renamed to errorAlreadyOpen Claus Gittinger <cg@exept.de> parents: 4468 diff changeset	2259
a42dc8e09586 errorOpen renamed to errorAlreadyOpen Claus Gittinger <cg@exept.de> parents: 4468 diff changeset	2260	"report an error, that the stream is already opened"
a42dc8e09586 errorOpen renamed to errorAlreadyOpen Claus Gittinger <cg@exept.de> parents: 4468 diff changeset	2261
8074 4dce05d6d0a1 class based exceptions Claus Gittinger <cg@exept.de> parents: 8070 diff changeset	2262	^ OpenError
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	2263	raiseRequestWith:self
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	2264	errorString:' - stream is already open'
8511 eb02df149f42 Raise proceedable exception proceedable. Stefan Vogel <sv@exept.de> parents: 8472 diff changeset	2265
eb02df149f42 Raise proceedable exception proceedable. Stefan Vogel <sv@exept.de> parents: 8472 diff changeset	2266	"
eb02df149f42 Raise proceedable exception proceedable. Stefan Vogel <sv@exept.de> parents: 8472 diff changeset	2267	self new errorAlreadyOpen
eb02df149f42 Raise proceedable exception proceedable. Stefan Vogel <sv@exept.de> parents: 8472 diff changeset	2268	"
4526 a42dc8e09586 errorOpen renamed to errorAlreadyOpen Claus Gittinger <cg@exept.de> parents: 4468 diff changeset	2269
a42dc8e09586 errorOpen renamed to errorAlreadyOpen Claus Gittinger <cg@exept.de> parents: 4468 diff changeset	2270	"Modified: / 8.5.1999 / 20:12:30 / cg"
a42dc8e09586 errorOpen renamed to errorAlreadyOpen Claus Gittinger <cg@exept.de> parents: 4468 diff changeset	2271	!
a42dc8e09586 errorOpen renamed to errorAlreadyOpen Claus Gittinger <cg@exept.de> parents: 4468 diff changeset	2272
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2273	errorBinary
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	2274	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	2275
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2276	"report an error, that the stream is in binary mode"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2277
8074 4dce05d6d0a1 class based exceptions Claus Gittinger <cg@exept.de> parents: 8070 diff changeset	2278	^ InvalidModeError
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	2279	raiseRequestWith:self
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	2280	errorString:(self class name , ' is in binary mode')
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	2281	"/ in:thisContext sender
4161 3f2758cfeff5 raise errors in thisContext (not in sender context) Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2282
3f2758cfeff5 raise errors in thisContext (not in sender context) Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2283	"Modified: / 8.5.1999 / 20:12:43 / cg"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2284	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2285
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2286	errorNotBinary
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	2287	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	2288
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2289	"report an error, that the stream is not in binary mode"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2290
8074 4dce05d6d0a1 class based exceptions Claus Gittinger <cg@exept.de> parents: 8070 diff changeset	2291	^ InvalidModeError
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	2292	raiseRequestWith:self
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	2293	errorString:(self class name , ' is not in binary mode')
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	2294	"/ in:thisContext sender
4161 3f2758cfeff5 raise errors in thisContext (not in sender context) Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2295
3f2758cfeff5 raise errors in thisContext (not in sender context) Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2296	"Modified: / 8.5.1999 / 20:12:40 / cg"
1 a27a279701f8 Initial revision claus parents: diff changeset	2297	!
a27a279701f8 Initial revision claus parents: diff changeset	2298
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2299	errorNotBuffered
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	2300	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	2301
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2302	"report an error, that the stream is not in buffered mode"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2303
8074 4dce05d6d0a1 class based exceptions Claus Gittinger <cg@exept.de> parents: 8070 diff changeset	2304	^ StreamError
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	2305	raiseRequestWith:self
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	2306	errorString:(self class name , ' is unbuffered - operation not allowed')
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	2307	"/ in:thisContext sender
4161 3f2758cfeff5 raise errors in thisContext (not in sender context) Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2308
3f2758cfeff5 raise errors in thisContext (not in sender context) Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2309	"Modified: / 8.5.1999 / 20:12:36 / cg"
612 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
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2312	errorNotOpen
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	2313	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	2314
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2315	"report an error, that the stream has not been opened"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2316
8511 eb02df149f42 Raise proceedable exception proceedable. Stefan Vogel <sv@exept.de> parents: 8472 diff changeset	2317	^ StreamNotOpenError raiseRequestWith:self "/ in:thisContext sender
4161 3f2758cfeff5 raise errors in thisContext (not in sender context) Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2318
3f2758cfeff5 raise errors in thisContext (not in sender context) Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2319	"Modified: / 8.5.1999 / 20:12:33 / cg"
612 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	errorReadOnly
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	2323	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	2324
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2325	"report an error, that the stream is a readOnly stream"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2326
8511 eb02df149f42 Raise proceedable exception proceedable. Stefan Vogel <sv@exept.de> parents: 8472 diff changeset	2327	^ InvalidWriteSignal raiseRequestWith:self "/ in:thisContext sender
4161 3f2758cfeff5 raise errors in thisContext (not in sender context) Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2328
4468 8c67b4f973d8 raise vs. raiseRequest Claus Gittinger <cg@exept.de> parents: 4456 diff changeset	2329	"Modified: / 30.7.1999 / 17:08:19 / cg"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2330	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2331
6255 d68343dc8288 Define #errorReporter and #reportError: (ST-80 protocol) Stefan Vogel <sv@exept.de> parents: 6012 diff changeset	2332	errorReporter
d68343dc8288 Define #errorReporter and #reportError: (ST-80 protocol) Stefan Vogel <sv@exept.de> parents: 6012 diff changeset	2333	"ST-80 mimicry."
d68343dc8288 Define #errorReporter and #reportError: (ST-80 protocol) Stefan Vogel <sv@exept.de> parents: 6012 diff changeset	2334
6269 3a888523e3a6 #errorReporter and #reportOn class-methods Stefan Vogel <sv@exept.de> parents: 6255 diff changeset	2335	^ self class
6255 d68343dc8288 Define #errorReporter and #reportError: (ST-80 protocol) Stefan Vogel <sv@exept.de> parents: 6012 diff changeset	2336	!
d68343dc8288 Define #errorReporter and #reportError: (ST-80 protocol) Stefan Vogel <sv@exept.de> parents: 6012 diff changeset	2337
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2338	errorUnsupportedOperation
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	2339	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	2340
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2341	"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	2342
8511 eb02df149f42 Raise proceedable exception proceedable. Stefan Vogel <sv@exept.de> parents: 8472 diff changeset	2343	^ InvalidOperationError raiseRequestWith:self "/ in:thisContext sender
4161 3f2758cfeff5 raise errors in thisContext (not in sender context) Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2344
3f2758cfeff5 raise errors in thisContext (not in sender context) Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2345	"Modified: / 8.5.1999 / 20:12:24 / cg"
932 f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2346	!
f57ec42ceb44 added interface to truncate & ftruncate (req. by Mr. Olberding) Claus Gittinger <cg@exept.de> parents: 872 diff changeset	2347
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2348	errorWriteOnly
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	2349	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	2350
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2351	"report an error, that the stream is a writeOnly stream"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2352
8511 eb02df149f42 Raise proceedable exception proceedable. Stefan Vogel <sv@exept.de> parents: 8472 diff changeset	2353	^ InvalidReadError raiseRequestWith:self "/ in:thisContext sender
4161 3f2758cfeff5 raise errors in thisContext (not in sender context) Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2354
3f2758cfeff5 raise errors in thisContext (not in sender context) Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2355	"Modified: / 8.5.1999 / 20:12:20 / cg"
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	2356	!
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	2357
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2358	ioError
3474 1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	2359	"report an error, that some I/O error occured.
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	2360	(for example, a device-IO-error, or reading an NFS-dir,
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	2361	which is no longer available and has been mounted soft)"
1af4d150dab4 added extra streamIOError signal. Claus Gittinger <cg@exept.de> parents: 3467 diff changeset	2362
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	2363	"{ Pragma: +optSpace }"
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	2364
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	2365	self ioError:lastErrorNumber
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	2366
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	2367	"Modified: / 8.5.1999 / 20:12:16 / cg"
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	2368	!
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	2369
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	2370	ioError:errorNumber
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	2371	"report an error, that some I/O error occured.
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	2372	(for example, a device-IO-error, or reading an NFS-dir,
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	2373	which is no longer available and has been mounted soft)"
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	2374
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	2375	"{ Pragma: +optSpace }"
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	2376
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	2377	^ StreamIOError newException
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	2378	errorCode:errorNumber;
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	2379	osErrorHolder:(OperatingSystem errorHolderForNumber:errorNumber);
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	2380	parameter:self;
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	2381	raiseRequest
4161 3f2758cfeff5 raise errors in thisContext (not in sender context) Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2382
3f2758cfeff5 raise errors in thisContext (not in sender context) Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2383	"Modified: / 8.5.1999 / 20:12:16 / cg"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2384	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2385
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2386	lastErrorNumber
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2387	"return the last error"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2388
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2389	^ lastErrorNumber
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2390	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2391
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2392	lastErrorString
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2393	"return a message string describing the last error"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2394
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2395	(lastErrorNumber isNil or:[lastErrorNumber == 0]) ifTrue:[
7051 984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	2396	^ 'I/O error'
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2397	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2398	^ OperatingSystem errorTextForNumber:lastErrorNumber
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	2399	!
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	2400
10932 c9148f19b2ea add #lastErrorSymbol Stefan Vogel <sv@exept.de> parents: 10852 diff changeset	2401	lastErrorSymbol
c9148f19b2ea add #lastErrorSymbol Stefan Vogel <sv@exept.de> parents: 10852 diff changeset	2402	"return an error symbol describing the last error"
c9148f19b2ea add #lastErrorSymbol Stefan Vogel <sv@exept.de> parents: 10852 diff changeset	2403
c9148f19b2ea add #lastErrorSymbol Stefan Vogel <sv@exept.de> parents: 10852 diff changeset	2404	^ OperatingSystem errorSymbolForNumber:lastErrorNumber
c9148f19b2ea add #lastErrorSymbol Stefan Vogel <sv@exept.de> parents: 10852 diff changeset	2405	!
c9148f19b2ea add #lastErrorSymbol Stefan Vogel <sv@exept.de> parents: 10852 diff changeset	2406
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2407	openError
12688 b429dc21d6b8 added: #openError: Stefan Vogel <sv@exept.de> parents: 12683 diff changeset	2408	"report an error, that the open failed"
b429dc21d6b8 added: #openError: Stefan Vogel <sv@exept.de> parents: 12683 diff changeset	2409
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	2410	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	2411
14438 a4280b8038c0 changed: Stefan Vogel <sv@exept.de> parents: 14068 diff changeset	2412	^ self openError:lastErrorNumber.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2413	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2414
12688 b429dc21d6b8 added: #openError: Stefan Vogel <sv@exept.de> parents: 12683 diff changeset	2415	openError:errorNumber
b429dc21d6b8 added: #openError: Stefan Vogel <sv@exept.de> parents: 12683 diff changeset	2416	"report an error, that the open failed"
b429dc21d6b8 added: #openError: Stefan Vogel <sv@exept.de> parents: 12683 diff changeset	2417
b429dc21d6b8 added: #openError: Stefan Vogel <sv@exept.de> parents: 12683 diff changeset	2418	"{ Pragma: +optSpace }"
b429dc21d6b8 added: #openError: Stefan Vogel <sv@exept.de> parents: 12683 diff changeset	2419
15496 21bb54fa8521 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15494 diff changeset	2420	\|exClass errorHolder\|
21bb54fa8521 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15494 diff changeset	2421
21bb54fa8521 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15494 diff changeset	2422	errorHolder := OperatingSystem errorHolderForNumber:errorNumber.
21bb54fa8521 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15494 diff changeset	2423
21bb54fa8521 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15494 diff changeset	2424	exClass := (errorHolder errorCategory == #nonexistentSignal)
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	2425	ifTrue:[ FileDoesNotExistException ]
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	2426	ifFalse:[ OpenError ].
13673 744194003e48 changed: Claus Gittinger <cg@exept.de> parents: 13306 diff changeset	2427
744194003e48 changed: Claus Gittinger <cg@exept.de> parents: 13306 diff changeset	2428	^ exClass newException
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	2429	errorCode:errorNumber;
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	2430	osErrorHolder:errorHolder;
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	2431	"/ cg: initialized lazyly - see OpenError>>#description
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	2432	"/ errorString:(' : ' , errorHolder errorString);
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	2433	parameter:self;
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	2434	raiseRequest
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	2435	"/ in:thisContext sender
13673 744194003e48 changed: Claus Gittinger <cg@exept.de> parents: 13306 diff changeset	2436
744194003e48 changed: Claus Gittinger <cg@exept.de> parents: 13306 diff changeset	2437	"Modified: / 09-09-2011 / 07:22:49 / cg"
12688 b429dc21d6b8 added: #openError: Stefan Vogel <sv@exept.de> parents: 12683 diff changeset	2438	!
b429dc21d6b8 added: #openError: Stefan Vogel <sv@exept.de> parents: 12683 diff changeset	2439
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2440	readError
15845 2b732fc8a4f4 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15655 diff changeset	2441	"report an error, that some read error occured"
2b732fc8a4f4 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15655 diff changeset	2442
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	2443	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	2444
15845 2b732fc8a4f4 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15655 diff changeset	2445	^ self readError:lastErrorNumber
2b732fc8a4f4 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15655 diff changeset	2446	!
2b732fc8a4f4 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15655 diff changeset	2447
2b732fc8a4f4 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15655 diff changeset	2448	readError:errorNumber
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2449	"report an error, that some read error occured"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2450
15845 2b732fc8a4f4 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15655 diff changeset	2451	"{ Pragma: +optSpace }"
2b732fc8a4f4 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15655 diff changeset	2452
2b732fc8a4f4 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15655 diff changeset	2453	^ ReadError newException
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	2454	errorCode:errorNumber;
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	2455	osErrorHolder:(OperatingSystem errorHolderForNumber:errorNumber);
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	2456	parameter:self;
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	2457	raiseRequest
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2458	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2459
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2460	writeError
15845 2b732fc8a4f4 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15655 diff changeset	2461	"report an error, that some write error occured"
2b732fc8a4f4 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15655 diff changeset	2462
1119 956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	2463	"{ Pragma: +optSpace }"
956d62a5656c compile seldom used methods with optSpace (is this a good idea ?) Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	2464
15845 2b732fc8a4f4 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15655 diff changeset	2465	^ self writeError:lastErrorNumber
2b732fc8a4f4 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15655 diff changeset	2466	!
2b732fc8a4f4 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15655 diff changeset	2467
2b732fc8a4f4 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15655 diff changeset	2468	writeError:errorNumber
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2469	"report an error, that some write error occured"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2470
15845 2b732fc8a4f4 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15655 diff changeset	2471	"{ Pragma: +optSpace }"
2b732fc8a4f4 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15655 diff changeset	2472
2b732fc8a4f4 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15655 diff changeset	2473	^ WriteError newException
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	2474	errorCode:errorNumber;
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	2475	osErrorHolder:(OperatingSystem errorHolderForNumber:errorNumber);
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	2476	parameter:self;
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	2477	raiseRequest
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2478	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2479
6461 f5efaff3457b Allow #registerForFinalization for classes defining their own Lobby. Stefan Vogel <sv@exept.de> parents: 6441 diff changeset	2480	!ExternalStream methodsFor:'finalization'!
f5efaff3457b Allow #registerForFinalization for classes defining their own Lobby. Stefan Vogel <sv@exept.de> parents: 6441 diff changeset	2481
15468 816f9e81a546 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15452 diff changeset	2482	executor
816f9e81a546 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15452 diff changeset	2483	"return a copy for finalization-registration;
816f9e81a546 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15452 diff changeset	2484	since all we need at finalization time is the fileDescriptor,
816f9e81a546 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15452 diff changeset	2485	a cheaper copy is possible."
816f9e81a546 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15452 diff changeset	2486
816f9e81a546 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15452 diff changeset	2487	^ self class basicNew setAccessor:handleType to:handle
816f9e81a546 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15452 diff changeset	2488	!
816f9e81a546 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15452 diff changeset	2489
6461 f5efaff3457b Allow #registerForFinalization for classes defining their own Lobby. Stefan Vogel <sv@exept.de> parents: 6441 diff changeset	2490	finalizationLobby
f5efaff3457b Allow #registerForFinalization for classes defining their own Lobby. Stefan Vogel <sv@exept.de> parents: 6441 diff changeset	2491	"answer the registry used for finalization.
f5efaff3457b Allow #registerForFinalization for classes defining their own Lobby. Stefan Vogel <sv@exept.de> parents: 6441 diff changeset	2492	ExternalStreams have their own Registry"
f5efaff3457b Allow #registerForFinalization for classes defining their own Lobby. Stefan Vogel <sv@exept.de> parents: 6441 diff changeset	2493
f5efaff3457b Allow #registerForFinalization for classes defining their own Lobby. Stefan Vogel <sv@exept.de> parents: 6441 diff changeset	2494	^ Lobby
f5efaff3457b Allow #registerForFinalization for classes defining their own Lobby. Stefan Vogel <sv@exept.de> parents: 6441 diff changeset	2495	!
f5efaff3457b Allow #registerForFinalization for classes defining their own Lobby. Stefan Vogel <sv@exept.de> parents: 6441 diff changeset	2496
f5efaff3457b Allow #registerForFinalization for classes defining their own Lobby. Stefan Vogel <sv@exept.de> parents: 6441 diff changeset	2497	finalize
f5efaff3457b Allow #registerForFinalization for classes defining their own Lobby. Stefan Vogel <sv@exept.de> parents: 6441 diff changeset	2498	"some Stream has been collected - close the file if not already done"
f5efaff3457b Allow #registerForFinalization for classes defining their own Lobby. Stefan Vogel <sv@exept.de> parents: 6441 diff changeset	2499
16551 352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	2500	"/ with timeout to avoid blocking in a bad pty/socket
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	2501	[
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2502	self closeFile
16551 352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	2503	] valueWithTimeout:30 seconds.
6461 f5efaff3457b Allow #registerForFinalization for classes defining their own Lobby. Stefan Vogel <sv@exept.de> parents: 6441 diff changeset	2504	! !
f5efaff3457b Allow #registerForFinalization for classes defining their own Lobby. Stefan Vogel <sv@exept.de> parents: 6441 diff changeset	2505
15918 d5fe9b9e87d3 Initialize in instance initialize method insted in #new Stefan Vogel <sv@exept.de> parents: 15896 diff changeset	2506	!ExternalStream methodsFor:'initialization'!
d5fe9b9e87d3 Initialize in instance initialize method insted in #new Stefan Vogel <sv@exept.de> parents: 15896 diff changeset	2507
d5fe9b9e87d3 Initialize in instance initialize method insted in #new Stefan Vogel <sv@exept.de> parents: 15896 diff changeset	2508	initialize
15921 9941c0e5132a initialize methods Stefan Vogel <sv@exept.de> parents: 15920 diff changeset	2509	position := 0.
9941c0e5132a initialize methods Stefan Vogel <sv@exept.de> parents: 15920 diff changeset	2510	binary := false.
9941c0e5132a initialize methods Stefan Vogel <sv@exept.de> parents: 15920 diff changeset	2511	buffered := true.
9941c0e5132a initialize methods Stefan Vogel <sv@exept.de> parents: 15920 diff changeset	2512	eolMode := DefaultEOLMode.
9941c0e5132a initialize methods Stefan Vogel <sv@exept.de> parents: 15920 diff changeset	2513	hitEOF := false.
15918 d5fe9b9e87d3 Initialize in instance initialize method insted in #new Stefan Vogel <sv@exept.de> parents: 15896 diff changeset	2514	! !
d5fe9b9e87d3 Initialize in instance initialize method insted in #new Stefan Vogel <sv@exept.de> parents: 15896 diff changeset	2515
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	2516	!ExternalStream methodsFor:'line reading/writing'!
1 a27a279701f8 Initial revision claus parents: diff changeset	2517
a27a279701f8 Initial revision claus parents: diff changeset	2518	nextLine
a27a279701f8 Initial revision claus parents: diff changeset	2519	"read the next line (characters up to newline).
a27a279701f8 Initial revision claus parents: diff changeset	2520	Return a string containing those characters excluding the newline.
a27a279701f8 Initial revision claus parents: diff changeset	2521	If the previous-to-last character is a cr, this is also removed,
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2522	so it's possible to read alien (i.e. ms-dos) text as well.
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	2523	The line must be shorter than 32K characters - otherwise an error is signalled."
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	2524
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	2525	\|line error\|
971 eb70f5674303 max lineLength (in nextLine) increased to 16k Claus Gittinger <cg@exept.de> parents: 933 diff changeset	2526
12873 f6b24aa46bb1 changed: #nextLine Stefan Vogel <sv@exept.de> parents: 12710 diff changeset	2527	%{ /* STACK:100000 */
1 a27a279701f8 Initial revision claus parents: diff changeset	2528
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2529	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2530	int len, ret;
3029 aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	2531	char buffer[32*1024];
521 70533ec40482 use new MKSTRING_L if length is known (avoids a useless strlen) Claus Gittinger <cg@exept.de> parents: 481 diff changeset	2532	char rslt, nextPtr, *limit;
22 847106305963 * empty log message * claus parents: 12 diff changeset	2533	int fd, ch;
1068 92fdcccf12a3 alles MIST - zurueck zu 1.89 und NOCONTEXT entfernt Claus Gittinger <cg@exept.de> parents: 1067 diff changeset	2534	int _buffered;
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	2535	OBJ fp;
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	2536	int lineTooLong = 0;
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2537	int cutOff = 0;
1 a27a279701f8 Initial revision claus parents: diff changeset	2538
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2539	__INST(lastErrorNumber) = nil;
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	2540	if ((__INST(handleType) == nil)
6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	2541	\|\| (__INST(handleType) == @symbol(filePointer))
6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	2542	\|\| (__INST(handleType) == @symbol(socketFilePointer))
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	2543	\|\| (__INST(handleType) == @symbol(socketHandle))
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	2544	\|\| (__INST(handleType) == @symbol(pipeFilePointer))) {
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2545	if (((fp = __INST(handle)) != nil)
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2546	&& (__INST(mode) != @symbol(writeonly))
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2547	&& (__INST(binary) != true)
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2548	) {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2549	f = __FILEVal(fp);
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2550	buffer[0] = '\0';
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2551
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2552	_buffered = (__INST(buffered) == true);
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2553	if (_buffered) {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2554	__READING__(f);
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2555	}
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2556
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2557	rslt = nextPtr = buffer;
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2558	limit = buffer + sizeof(buffer) - 2;
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2559
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2560	for (;;) {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2561	__READBYTE__(ret, f, nextPtr, _buffered, __INST(handleType));
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2562	if (ret <= 0) {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2563	if (nextPtr == buffer)
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2564	rslt = NULL;
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2565	if (ret == 0) {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2566	__INST(hitEOF) = true;
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2567	break;
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2568	} else {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2569	error = __mkSmallInteger(__threadErrno);
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2570	goto err;
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2571	}
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2572	}
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2573
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2574	if (*nextPtr == '\n') {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2575	cutOff = 1;
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2576	*nextPtr = '\0';
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2577	break;
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2578	}
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2579	if (*nextPtr == '\r') {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2580	char peekChar;
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2581
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2582	/*
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2583	* peek ahead for a newLine ...
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2584	*/
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2585	__READBYTE__(ret, f, &peekChar, _buffered, __INST(handleType));
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2586	if (ret <= 0) {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2587	cutOff = 1;
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2588	*nextPtr = '\0';
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2589	if (ret == 0) {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2590	__INST(hitEOF) = true;
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2591	break;
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2592	}
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2593	error = __mkSmallInteger(__threadErrno);
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2594	goto err;
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2595	}
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2596
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2597	if (peekChar == '\n') {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2598	cutOff = 2;
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2599	*nextPtr = '\0';
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2600	break;
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2601	}
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2602
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2603	__UNGETC__(peekChar, f, _buffered);
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2604
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2605	cutOff = 1;
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2606	*nextPtr = '\0';
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2607	break;
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2608	}
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2609
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2610	nextPtr++;
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2611	if (nextPtr >= limit) {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2612	*nextPtr = '\0';
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2613	lineTooLong = 1;
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2614	if (@global(InfoPrinting) == true) {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2615	fprintf(stderr, "ExtStream [warning]: line truncated in nextLine\n");
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2616	}
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2617	break;
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2618	}
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2619	}
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2620
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2621	if (rslt != NULL) {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2622	len = nextPtr-buffer;
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2623
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2624	if (__isSmallInteger(__INST(position))) {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2625	INT np = __intVal(__INST(position)) + len + cutOff;
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2626	OBJ t;
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2627
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2628	t = __MKINT(np); __INST(position) = t; __STORE(self, t);
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2629	} else {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2630	__INST(position) = nil; /* i.e. do not know */
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2631	}
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2632	/* remove any EOL character */
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2633	if (len != 0) {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2634	if (buffer[len-1] == '\n') {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2635	buffer[--len] = '\0';
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2636	}
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2637	if ((len != 0) && (buffer[len-1] == '\r')) {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2638	buffer[--len] = '\0';
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2639	}
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2640	}
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2641	line = __MKSTRING_L(buffer, len);
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2642	if (! lineTooLong) {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2643	RETURN ( line );
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2644	}
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2645	}
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2646	}
1 a27a279701f8 Initial revision claus parents: diff changeset	2647	}
1478 aae07192b7d1 labels in empty statements need a semi Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	2648	err: ;
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	2649	%}.
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	2650	line notNil ifTrue:[
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2651	"/ the line as read is longer than 32k characters (boy - what a line)
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2652	"/ The exception could be handled by reading more and returning the
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2653	"/ concatenation in your exception handler (the receiver and the partial
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2654	"/ line are passed as parameter)
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2655
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2656	LineTooLongErrorSignal isHandled ifTrue:[
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2657	^ LineTooLongErrorSignal
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2658	raiseRequestWith:(Array with:self with:line)
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2659	errorString:('line too long read error')
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2660	].
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2661	^ line , self nextLine
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	2662	].
71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	2663
8614 88421fbd4ab6 pastEnd -> pastEndRead Claus Gittinger <cg@exept.de> parents: 8604 diff changeset	2664	(hitEOF == true) ifTrue:[^ self pastEndRead].
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	2665	error notNil ifTrue:[
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2666	lastErrorNumber := error.
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	2667	^ self readError:error
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	2668	].
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	2669	handle isNil ifTrue:[^ self errorNotOpen].
1 a27a279701f8 Initial revision claus parents: diff changeset	2670	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
5431 24ce291c71f2 migration support Claus Gittinger <cg@exept.de> parents: 5430 diff changeset	2671	(binary == true) ifTrue:[^ self errorBinary].
24ce291c71f2 migration support Claus Gittinger <cg@exept.de> parents: 5430 diff changeset	2672	^ super nextLine
1 a27a279701f8 Initial revision claus parents: diff changeset	2673	!
a27a279701f8 Initial revision claus parents: diff changeset	2674
a27a279701f8 Initial revision claus parents: diff changeset	2675	nextPutLine:aString
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2676	"write the characters in aString and append an end-of-Line marker
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2677	(LF, CR or CRLF - depending in the setting of eolMode)"
1 a27a279701f8 Initial revision claus parents: diff changeset	2678
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	2679	\|error\|
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	2680	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2681	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	2682	int len, cnt, len1, _buffered;
7875 eb7d48b0425d made all position-handling code 32bit save Claus Gittinger <cg@exept.de> parents: 7832 diff changeset	2683	OBJ fp;
537 dc4dad8a5ddd many ExtStream rewrites - has to be reevaluated in all platforms Claus Gittinger <cg@exept.de> parents: 530 diff changeset	2684	char *cp;
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	2685	int o_offs;
1 a27a279701f8 Initial revision claus parents: diff changeset	2686
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	2687	__INST(lastErrorNumber) = nil;
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	2688	if ((__INST(handleType) == nil)
6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	2689	\|\| (__INST(handleType) == @symbol(filePointer))
6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	2690	\|\| (__INST(handleType) == @symbol(socketFilePointer))
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	2691	\|\| (__INST(handleType) == @symbol(socketHandle))
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	2692	\|\| (__INST(handleType) == @symbol(pipeFilePointer))) {
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2693	if (((fp = __INST(handle)) != nil)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2694	&& (__INST(mode) != @symbol(readonly))
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2695	&& (__INST(binary) != true)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2696	&& __isStringLike(aString)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2697	) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2698	f = __FILEVal(fp);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2699	len = __stringSize(aString);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2700
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2701	if (_buffered = (__INST(buffered) == true)) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2702	__WRITING__(f)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2703	}
9053 f3f3d48d6f44 fix writing to stdout/stderr for winstx non-console operation Claus Gittinger <cg@exept.de> parents: 9024 diff changeset	2704	#ifdef WIN32
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2705	if ((f == __win32_stdout()) \|\| (f == __win32_stderr())) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2706	cnt = __win32_fwrite(__stringVal(aString), 1, len, f);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2707	} else
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	2708	#endif
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2709	{
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2710	o_offs = (char )__stringVal(aString)-(char )aString;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2711	__WRITEBYTES_OBJ__(cnt, f, aString, o_offs, len, _buffered, __INST(handleType));
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2712	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2713	if (cnt == len) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2714	OBJ mode = __INST(eolMode);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2715
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2716	len1 = len;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2717
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2718	if (mode == @symbol(cr)) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2719	cp = "\r"; len = 1;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2720	} else if (mode == @symbol(crlf)) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2721	cp = "\r\n"; len = 2;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2722	} else {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2723	cp = "\n"; len = 1;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2724	}
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	2725	#ifdef WIN32
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2726	if ((f == __win32_stdout()) \|\| (f == __win32_stderr())) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2727	cnt = __win32_fwrite(cp, 1, len, f);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2728	} else
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	2729	#endif
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2730	{
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2731	__WRITEBYTES__(cnt, f, cp, len, _buffered, __INST(handleType));
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2732	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2733	if (cnt > 0) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2734	if (__isSmallInteger(__INST(position))) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2735	INT np = __intVal(__INST(position)) + cnt;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2736	OBJ t;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2737
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2738	t = __MKINT(np); __INST(position) = t; __STORE(self, t);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2739	} else {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2740	__INST(position) = nil; /* i.e. do not know */
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2741	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2742	RETURN ( self );
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2743	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2744	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2745	error = __mkSmallInteger(__threadErrno);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2746	}
1 a27a279701f8 Initial revision claus parents: diff changeset	2747	}
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	2748	%}.
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	2749	error notNil ifTrue:[
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2750	lastErrorNumber := error.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2751	self writeError:error.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2752	^ self
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	2753	].
2045 1ad17ca6520f fall back to super>>nextPutLine: if argument is not a string. Claus Gittinger <cg@exept.de> parents: 2044 diff changeset	2754	super nextPutLine:aString.
1 a27a279701f8 Initial revision claus parents: diff changeset	2755	!
a27a279701f8 Initial revision claus parents: diff changeset	2756
a27a279701f8 Initial revision claus parents: diff changeset	2757	nextPutLinesFrom:aStream upToLineStartingWith:aStringOrNil
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	2758	"read from aStream up to and including a line starting with aStringOrNil
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	2759	and append all lines to self.
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	2760	Can be used to copy/create large files or copy from a pipe/socket.
68 59faa75185ba * empty log message * claus parents: 54 diff changeset	2761
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	2762	If aStringOrNil is nil or not matched, copy proceeds to the end."
1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	2763
1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	2764	\|line\|
1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	2765
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2766	[aStream atEnd] whileFalse:[
8070 2fec8e67e119 * empty log message * Claus Gittinger <cg@exept.de> parents: 8069 diff changeset	2767	line := aStream nextLine.
2fec8e67e119 * empty log message * Claus Gittinger <cg@exept.de> parents: 8069 diff changeset	2768	line isNil ifTrue:[
2fec8e67e119 * empty log message * Claus Gittinger <cg@exept.de> parents: 8069 diff changeset	2769	^ self.
2fec8e67e119 * empty log message * Claus Gittinger <cg@exept.de> parents: 8069 diff changeset	2770	].
2fec8e67e119 * empty log message * Claus Gittinger <cg@exept.de> parents: 8069 diff changeset	2771	self nextPutLine:line.
2fec8e67e119 * empty log message * Claus Gittinger <cg@exept.de> parents: 8069 diff changeset	2772	(aStringOrNil notNil and:[line startsWith:aStringOrNil]) ifTrue:[
2fec8e67e119 * empty log message * Claus Gittinger <cg@exept.de> parents: 8069 diff changeset	2773	^ self
2fec8e67e119 * empty log message * Claus Gittinger <cg@exept.de> parents: 8069 diff changeset	2774	]
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2775	].
1 a27a279701f8 Initial revision claus parents: diff changeset	2776	!
a27a279701f8 Initial revision claus parents: diff changeset	2777
a27a279701f8 Initial revision claus parents: diff changeset	2778	peekForLineStartingWith:aString
a27a279701f8 Initial revision claus parents: diff changeset	2779	"read ahead for next line starting with aString;
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	2780	return the line-string if found, or nil if EOF is encountered.
7118 10b067555add * empty log message * Claus Gittinger <cg@exept.de> parents: 7054 diff changeset	2781	If matched, do not advance position beyond that line
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	2782	i.e. nextLine will read the matched line.
7051 984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	2783	If not matched, reposition to original position for further reading."
1 a27a279701f8 Initial revision claus parents: diff changeset	2784
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2785	\|firstPos lastPos line\|
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2786
1 a27a279701f8 Initial revision claus parents: diff changeset	2787	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	2788	handle isNil ifTrue:[^ self errorNotOpen].
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	2789	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	2790	buffered ifFalse:[^ self errorNotBuffered].
12 8e03bd717355 * empty log message * claus parents: 10 diff changeset	2791
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2792	firstPos := self position.
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2793	[self atEnd] whileFalse:[
8070 2fec8e67e119 * empty log message * Claus Gittinger <cg@exept.de> parents: 8069 diff changeset	2794	lastPos := self position.
2fec8e67e119 * empty log message * Claus Gittinger <cg@exept.de> parents: 8069 diff changeset	2795	line := self nextLine.
2fec8e67e119 * empty log message * Claus Gittinger <cg@exept.de> parents: 8069 diff changeset	2796	line isNil ifTrue:[
2fec8e67e119 * empty log message * Claus Gittinger <cg@exept.de> parents: 8069 diff changeset	2797	self position:firstPos.
2fec8e67e119 * empty log message * Claus Gittinger <cg@exept.de> parents: 8069 diff changeset	2798	^ nil
2fec8e67e119 * empty log message * Claus Gittinger <cg@exept.de> parents: 8069 diff changeset	2799	].
2fec8e67e119 * empty log message * Claus Gittinger <cg@exept.de> parents: 8069 diff changeset	2800	(line startsWith:aString) ifTrue:[
2fec8e67e119 * empty log message * Claus Gittinger <cg@exept.de> parents: 8069 diff changeset	2801	self position:lastPos.
2fec8e67e119 * empty log message * Claus Gittinger <cg@exept.de> parents: 8069 diff changeset	2802	^ line
2fec8e67e119 * empty log message * Claus Gittinger <cg@exept.de> parents: 8069 diff changeset	2803	]
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2804	].
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2805	self position:firstPos.
d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	2806	^ nil
1 a27a279701f8 Initial revision claus parents: diff changeset	2807	!
a27a279701f8 Initial revision claus parents: diff changeset	2808
a27a279701f8 Initial revision claus parents: diff changeset	2809	peekForLineStartingWithAny:aCollectionOfStrings
a27a279701f8 Initial revision claus parents: diff changeset	2810	"read ahead for next line starting with any of aCollectionOfStrings;
a27a279701f8 Initial revision claus parents: diff changeset	2811	return the index in aCollection if found, nil otherwise..
a27a279701f8 Initial revision claus parents: diff changeset	2812	If no match, do not change position; otherwise advance right before the
a27a279701f8 Initial revision claus parents: diff changeset	2813	matched line so that nextLine will return this line."
a27a279701f8 Initial revision claus parents: diff changeset	2814
a27a279701f8 Initial revision claus parents: diff changeset	2815	\|line startPos linePos index\|
a27a279701f8 Initial revision claus parents: diff changeset	2816
a27a279701f8 Initial revision claus parents: diff changeset	2817	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	2818	handle isNil ifTrue:[^ self errorNotOpen].
2 6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	2819	binary ifTrue:[^ self errorBinary].
6526dde5f3ac 2.7.2 claus parents: 1 diff changeset	2820
1 a27a279701f8 Initial revision claus parents: diff changeset	2821	startPos := self position.
a27a279701f8 Initial revision claus parents: diff changeset	2822	[self atEnd] whileFalse:[
7051 984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	2823	linePos := self position.
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	2824	line := self nextLine.
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	2825	line notNil ifTrue:[
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	2826	index := 1.
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	2827	aCollectionOfStrings do:[:prefix \|
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	2828	(line startsWith:prefix) ifTrue:[
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	2829	self position:linePos.
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	2830	^ index
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	2831	].
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	2832	index := index + 1
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	2833	]
984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	2834	]
1 a27a279701f8 Initial revision claus parents: diff changeset	2835	].
a27a279701f8 Initial revision claus parents: diff changeset	2836	self position:startPos.
a27a279701f8 Initial revision claus parents: diff changeset	2837	^ nil
a27a279701f8 Initial revision claus parents: diff changeset	2838	! !
a27a279701f8 Initial revision claus parents: diff changeset	2839
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2840	!ExternalStream methodsFor:'misc functions'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2841
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2842	async:aBoolean
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	2843	"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	2844	the receiver will trigger an ioInterrupt.
779 0e41a665038a commentary Claus Gittinger <cg@exept.de> parents: 730 diff changeset	2845	If cleared (which is the default) no special notification is made.
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	2846	Notice:
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	2847	not every OS supports this
7051 984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	2848	- check with OS>>supportsIOInterrupts before using"
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	2849
0c73b48551ac * empty log message * claus parents: 88 diff changeset	2850	\|fd\|
0c73b48551ac * empty log message * claus parents: 88 diff changeset	2851
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	2852	handle isNil ifTrue:[^ self errorNotOpen].
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2853
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2854	OperatingSystem supportsIOInterrupts ifFalse:[
7051 984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	2855	^ self errorUnsupportedOperation
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2856	].
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2857
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	2858	fd := self fileDescriptor.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2859	aBoolean ifTrue:[
7051 984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	2860	^ OperatingSystem enableIOInterruptsOn:fd
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2861	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2862	^ OperatingSystem disableIOInterruptsOn:fd
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2863
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2864	"Modified: 11.1.1997 / 17:50:21 / cg"
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	2865	!
0c73b48551ac * empty log message * claus parents: 88 diff changeset	2866
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2867	blocking:aBoolean
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2868	"set/clear the blocking attribute - if set (which is the default)
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2869	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	2870	If cleared, a read operation will immediately return with a value of
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2871	nil.
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2872	Turning off blocking is useful when reading from PipeStreams
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2873	or Sockets, and the amount of data to be read is not known
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2874	in advance. However, the data must then be read using #nextBytes:
8616 6014ed5c67f9 pastEnd -> pastEndRead Claus Gittinger <cg@exept.de> parents: 8614 diff changeset	2875	methods, in order to avoid other (pastEndRead) exceptions."
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	2876
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	2877	handle isNil ifTrue:[^ self errorNotOpen].
7499 53b7a86e1f0b ExternalStream>>blocking: returns previous blocking status Stefan Vogel <sv@exept.de> parents: 7497 diff changeset	2878	^ OperatingSystem setBlocking:aBoolean on:self fileDescriptor.
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	2879
3174 668414a73de9 Typo in comment Stefan Vogel <sv@exept.de> parents: 3132 diff changeset	2880	"Modified: / 11.1.1997 / 17:48:01 / cg"
668414a73de9 Typo in comment Stefan Vogel <sv@exept.de> parents: 3132 diff changeset	2881	"Modified: / 15.1.1998 / 11:49:48 / stefan"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2882	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2883
6804 caf6a4521d4c added utility: ExternalStream >> copyToEndInto: Claus Gittinger <cg@exept.de> parents: 6758 diff changeset	2884	copyToEndInto:outStream
7017 03f1bd57c001 no one cares about the signal in copyToEndInto: Claus Gittinger <cg@exept.de> parents: 7013 diff changeset	2885	"copy the data into another stream."
03f1bd57c001 no one cares about the signal in copyToEndInto: Claus Gittinger <cg@exept.de> parents: 7013 diff changeset	2886
8362 e17d9ffb6fa8 * empty log message * Claus Gittinger <cg@exept.de> parents: 8339 diff changeset	2887	\|bufferSize\|
7700 767e11efc326 use sendfile if supported by OS Claus Gittinger <cg@exept.de> parents: 7685 diff changeset	2888
6804 caf6a4521d4c added utility: ExternalStream >> copyToEndInto: Claus Gittinger <cg@exept.de> parents: 6758 diff changeset	2889	OperatingSystem isMSDOSlike ifTrue:[
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	2890	"/ mhmh - NT hangs, when copying bigger blocks to a network drive - why ?
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	2891	bufferSize := 1 * 1024.
6804 caf6a4521d4c added utility: ExternalStream >> copyToEndInto: Claus Gittinger <cg@exept.de> parents: 6758 diff changeset	2892	] ifFalse:[
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	2893	bufferSize := 8 * 1024.
6804 caf6a4521d4c added utility: ExternalStream >> copyToEndInto: Claus Gittinger <cg@exept.de> parents: 6758 diff changeset	2894	].
caf6a4521d4c added utility: ExternalStream >> copyToEndInto: Claus Gittinger <cg@exept.de> parents: 6758 diff changeset	2895
7017 03f1bd57c001 no one cares about the signal in copyToEndInto: Claus Gittinger <cg@exept.de> parents: 7013 diff changeset	2896	^ self copyToEndInto:outStream bufferSize:bufferSize
7700 767e11efc326 use sendfile if supported by OS Claus Gittinger <cg@exept.de> parents: 7685 diff changeset	2897
767e11efc326 use sendfile if supported by OS Claus Gittinger <cg@exept.de> parents: 7685 diff changeset	2898	"
767e11efc326 use sendfile if supported by OS Claus Gittinger <cg@exept.de> parents: 7685 diff changeset	2899	\|in out\|
767e11efc326 use sendfile if supported by OS Claus Gittinger <cg@exept.de> parents: 7685 diff changeset	2900
767e11efc326 use sendfile if supported by OS Claus Gittinger <cg@exept.de> parents: 7685 diff changeset	2901	in := 'Makefile' asFilename readStream.
767e11efc326 use sendfile if supported by OS Claus Gittinger <cg@exept.de> parents: 7685 diff changeset	2902	out := Stdout.
767e11efc326 use sendfile if supported by OS Claus Gittinger <cg@exept.de> parents: 7685 diff changeset	2903	in copyToEndInto:out.
767e11efc326 use sendfile if supported by OS Claus Gittinger <cg@exept.de> parents: 7685 diff changeset	2904	in close.
767e11efc326 use sendfile if supported by OS Claus Gittinger <cg@exept.de> parents: 7685 diff changeset	2905	"
6804 caf6a4521d4c added utility: ExternalStream >> copyToEndInto: Claus Gittinger <cg@exept.de> parents: 6758 diff changeset	2906	!
caf6a4521d4c added utility: ExternalStream >> copyToEndInto: Claus Gittinger <cg@exept.de> parents: 6758 diff changeset	2907
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2908	create
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2909	"create the stream
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2910	- this must be redefined in subclass"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2911
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2912	^ self subclassResponsibility
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2913	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2914
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2915	ioctl:ioctlNumber
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2916	"to provide a simple ioctl facility - an ioctl is performed
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2917	on the underlying file; no arguments are passed."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2918
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2919	^ self ioctl:ioctlNumber with:nil
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2920	!
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2921
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2922	ioctl:ioctlNumber with:arg
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2923	"to provide a simple ioctl facility - an ioctl is performed
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2924	on the underlying file; the argument is passed as argument.
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	2925	This is not used by ST/X, but provided for special situations
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2926	- for example, to control proprietrary I/O devices.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2927
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2928	Since the type of the argument depends on the ioctl being
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2929	performed, different arg types are allowed here.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2930	If the argument is nil, an ioctl without argument is performed.
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2931	If the argument is an integral number, it's directly passed;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2932	if it's a kind of ByteArray (ByteArray, String or Structure),
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2933	or external data (ExternalBytes or ExternalAddress),
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	2934	a pointer to the data is passed.
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	2935	This allows performing most ioctls
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2936	- however, it might be tricky to setup the buffer.
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2937	Be careful in what you pass - ST/X cannot validate its correctness."
9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2938
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	2939	\|error\|
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	2940
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	2941	%{
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	2942	#if !defined(MSDOS_LIKE) && !defined(__openVMS__)
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	2943	int fd;
10552 d52aa8e066e5 #ioctl:with: accept 32-bit integers as arguments Stefan Vogel <sv@exept.de> parents: 10469 diff changeset	2944	int ret;
d52aa8e066e5 #ioctl:with: accept 32-bit integers as arguments Stefan Vogel <sv@exept.de> parents: 10469 diff changeset	2945	unsigned int ioNum;
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	2946	INT ioArg;
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	2947	OBJ fp = __INST(handle);
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	2948
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	2949	if (fp == nil)
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2950	goto out;
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	2951
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	2952	if (!__isInteger(ioctlNumber)
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2953	\|\| (!__isInteger(arg)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2954	&& (arg != nil)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2955	&& !__isBytes(arg)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2956	&& !__isExternalBytesLike(arg)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2957	&& !__isExternalAddress(arg))) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2958	error = @symbol(badArgument);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2959	goto out;
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	2960	}
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	2961
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	2962	if (__INST(handleType) == @symbol(socketHandle)) {
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2963	fd = __FILEVal(fp);
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	2964	} else if ((__INST(handleType) == nil)
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2965	\|\| (__INST(handleType) == @symbol(filePointer))
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2966	\|\| (__INST(handleType) == @symbol(socketFilePointer))
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2967	\|\| (__INST(handleType) == @symbol(pipeFilePointer))) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2968	fd = fileno(__FILEVal(fp));
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	2969	} else {
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2970	error = @symbol(badHandleType);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2971	goto out;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2972	}
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2973
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	2974	ioNum = __unsignedLongIntVal(ioctlNumber);
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	2975
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	2976	__BEGIN_INTERRUPTABLE__
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	2977	do {
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2978	__threadErrno = 0;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2979	if (arg == nil) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2980	ioArg = 0;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2981	} else if (__isSmallInteger(arg)) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2982	ioArg = __intVal(arg);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2983	} else if (__isInteger(arg)) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2984	ioArg = __unsignedLongIntVal(arg);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2985	} else if (__isExternalBytesLike(arg)) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2986	ioArg = (INT)(__externalBytesAddress(arg));
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2987	} else if (__isExternalAddress(arg)) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2988	ioArg = (INT)(__externalAddressVal(arg));
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2989	} else {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2990	ioArg = (INT)(__ByteArrayInstPtr(arg)->ba_element);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2991	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2992	ret = ioctl(fd, ioNum, ioArg);
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	2993	} while (ret < 0 && __threadErrno == EINTR);
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	2994	__END_INTERRUPTABLE__
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	2995
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	2996	if (ret >= 0) {
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	2997	RETURN ( __mkSmallInteger(ret) );
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	2998	}
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	2999	error = __mkSmallInteger(__threadErrno);
791 b1c153b1c719 WIN32 has no ioctl Claus Gittinger <cg@exept.de> parents: 779 diff changeset	3000	#endif
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	3001
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	3002	out:;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3003	%}.
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	3004	error notNil ifTrue:[
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3005	lastErrorNumber := error.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3006	^ self ioError:error.
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	3007	].
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	3008	handle isNil ifTrue:[^ self errorNotOpen].
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	3009
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	3010	"/ the system does not support ioctl (MSDOS or VMS)
2920 9c10b66e1ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3011	^ self errorUnsupportedOperation
612 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
16551 352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3014	reset
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3015	"set the read position to the beginning of the collection"
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3016
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3017	self position:0
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3018	!
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3019
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3020	setToEnd
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3021	"redefined since it must be implemented differently"
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3022
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3023	^ self subclassResponsibility
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3024	!
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3025
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3026	sync
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3027	"make sure, that the OS writes cached data to the disk"
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3028
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3029	\|error\|
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3030
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3031	self flush.
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3032
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3033	%{
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3034	#if !defined(__openVMS__)
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3035	int fd;
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3036	int ret;
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3037	OBJ fp = __INST(handle);
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3038
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3039	if (fp == nil)
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3040	goto out;
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3041
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3042	if (__INST(handleType) == @symbol(socketHandle)) {
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3043	fd = __FILEVal(fp);
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3044	} else if ((__INST(handleType) == nil)
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3045	\|\| (__INST(handleType) == @symbol(filePointer))
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3046	\|\| (__INST(handleType) == @symbol(socketFilePointer))
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3047	\|\| (__INST(handleType) == @symbol(pipeFilePointer))) {
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3048	fd = fileno(__FILEVal(fp));
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3049	} else {
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3050	error = @symbol(badHandleType);
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3051	goto out;
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3052	}
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3053
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3054	#ifdef WIN32
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3055	__threadErrno = 0;
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3056	ret = __STX_API_NOINT_CALL1( "FlushFileBuffers", FlushFileBuffers, _get_osfhandle(fd));
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3057	if (ret) {
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3058	RETURN (self);
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3059	}
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3060	#else
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3061	__BEGIN_INTERRUPTABLE__
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3062	do {
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3063	ret = fsync(fd);
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3064	} while ((ret < 0) && (__threadErrno == EINTR));
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3065	__END_INTERRUPTABLE__
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3066
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3067	if (ret >= 0) {
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3068	RETURN (self);
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3069	}
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3070	#endif /* ! WIN32 */
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3071	error = __mkSmallInteger(__threadErrno);
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3072	#endif /* ! __openVMS__ */
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3073	out:;
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3074	%}.
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3075	error notNil ifTrue:[
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3076	lastErrorNumber := error.
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3077	self ioError:error.
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3078	^ self.
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3079	].
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3080	handle isNil ifTrue:[self errorNotOpen].
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3081
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3082	"
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3083	\|f\|
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3084	f := 'x' asFilename writeStream.
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3085	f nextPutAll:'hallo'; sync; syncData; close
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3086	"
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3087	!
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3088
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3089	syncData
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3090	"make sure, that the OS writes cached data to the disk.
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3091	In this case, metadata is only written, if it is
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3092	required to read the file's data (so metadata will not be written,
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3093	if only access/modification time has changed)."
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3094	\|error\|
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3095
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3096	self flush.
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3097
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3098	%{
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3099	#if !defined(__openVMS__)
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3100	int fd;
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3101	int ret;
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3102	OBJ fp = __INST(handle);
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3103
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3104	if (fp == nil)
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3105	goto out;
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3106
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3107	if (__INST(handleType) == @symbol(socketHandle)) {
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3108	fd = __FILEVal(fp);
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3109	} else if ((__INST(handleType) == nil)
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3110	\|\| (__INST(handleType) == @symbol(filePointer))
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3111	\|\| (__INST(handleType) == @symbol(socketFilePointer))
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3112	\|\| (__INST(handleType) == @symbol(pipeFilePointer))) {
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3113	fd = fileno(__FILEVal(fp));
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3114	} else {
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3115	error = @symbol(badHandleType);
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3116	goto out;
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3117	}
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3118
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3119	#ifdef WIN32
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3120	__threadErrno = 0;
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3121	ret = __STX_API_NOINT_CALL1( "FlushFileBuffers", FlushFileBuffers, _get_osfhandle(fd));
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3122	if (ret) {
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3123	RETURN (self);
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3124	}
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3125	#else
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3126	__BEGIN_INTERRUPTABLE__
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3127	do {
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3128	ret = fdatasync(fd);
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3129	} while ((ret < 0) && (__threadErrno == EINTR));
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3130	__END_INTERRUPTABLE__
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3131
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3132	if (ret >= 0) {
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3133	RETURN (self);
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3134	}
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3135	#endif /* ! WIN32 */
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3136	error = __mkSmallInteger(__threadErrno);
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3137	#endif /* ! __openVMS__ */
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3138	out:;
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3139	%}.
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3140
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3141	error notNil ifTrue:[
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3142	lastErrorNumber := error.
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3143	self ioError:error.
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3144	^ self.
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3145	].
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3146	handle isNil ifTrue:[^ self errorNotOpen].
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3147
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3148	"if notdef HAS_DATASYNC, fall back"
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3149	self sync.
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3150
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3151	"
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3152	\|f\|
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3153	f := 'x' asFilename writeStream.
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3154	f nextPutAll:'hallo'; sync; syncData; close
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3155	"
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3156	!
352de37575d7 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 16509 diff changeset	3157
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3158	tcgetattr
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3159	"unix only:
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3160	provide the information of a tcgetattr call as a dictionary.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3161	This provides terminal setting values of a tty or pty.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3162	Used by terminal emulators.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3163	On non-unix systems, an unsupported operation error is raised"
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3164
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3165	\|error ret
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3166	iflags "/ input flags
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3167	ignbrk brkint ignpar parmrk inpck istrip inlcr igncr
16509 2cf139885242 Fixed ExternalStream>>tcgetattr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16508 diff changeset	3168	icrnl iuclc ixon ixoff ixany imaxbel iutf8
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3169	oflags "/ output flags
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3170	opost onlcr ocrnl olcuc onocr onlret oxtabs onoteot
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3171	cflags "/ control flags
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3172	csize cstopb cread parenb parodd hupcl clocal
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3173	lflags "/ local flags
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3174	echoke echoe echok echo echonl echoprt echoctl
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3175	isig icanon altwerase iexten extproc tostop
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3176	\|
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3177
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3178	%{
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3179	#if !defined(MSDOS_LIKE) && !defined(__openVMS__)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3180	int fd;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3181	int _ret;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3182	OBJ fp = __INST(handle);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3183	struct termios t;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3184	int sz;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3185
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3186	if (fp == nil)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3187	goto out;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3188
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3189	if (__INST(handleType) == @symbol(socketHandle)) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3190	fd = __FILEVal(fp);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3191	} else if ((__INST(handleType) == nil)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3192	\|\| (__INST(handleType) == @symbol(filePointer))
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3193	\|\| (__INST(handleType) == @symbol(socketFilePointer))
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3194	\|\| (__INST(handleType) == @symbol(pipeFilePointer))) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3195	fd = fileno(__FILEVal(fp));
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3196	} else {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3197	error = @symbol(badHandleType);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3198	goto out;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3199	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3200
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3201	__BEGIN_INTERRUPTABLE__
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3202	do {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3203	__threadErrno = 0;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3204	_ret = tcgetattr(fd, &t);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3205	} while (_ret < 0 && __threadErrno == EINTR);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3206	__END_INTERRUPTABLE__
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3207
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3208	if (_ret < 0) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3209	error = __mkSmallInteger(__threadErrno);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3210	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3211	ignbrk = t.c_iflag & IGNBRK ? true : false;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3212	brkint = t.c_iflag & BRKINT ? true : false;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3213	ignpar = t.c_iflag & IGNPAR ? true : false;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3214	parmrk = t.c_iflag & PARMRK ? true : false;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3215	inpck = t.c_iflag & INPCK ? true : false;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3216	istrip = t.c_iflag & ISTRIP ? true : false;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3217	inlcr = t.c_iflag & INLCR ? true : false;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3218	ixon = t.c_iflag & IXON ? true : false;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3219	ixoff = t.c_iflag & IXOFF ? true : false;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3220	ixany = t.c_iflag & IXANY ? true : false;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3221	#ifdef IMAXBEL
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3222	imaxbel = t.c_iflag & IMAXBEL ? true : false;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3223	#endif
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3224	#ifdef IUCLC
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3225	iuclc = t.c_iflag & IUCLC ? true : false;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3226	#endif
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3227
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3228	opost = t.c_oflag & OPOST ? true : false;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3229	onlcr = t.c_oflag & ONLCR ? true : false;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3230	#ifdef OXTABS
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3231	oxtabs = t.c_oflag & OXTABS ? true : false;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3232	#endif
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3233	#ifdef ONOTEOT
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3234	onoteot = t.c_oflag & ONOTEOT ? true : false;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3235	#endif
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3236	ocrnl = t.c_oflag & OCRNL ? true : false;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3237	#ifdef OLCUC
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3238	olcuc = t.c_oflag & OLCUC ? true : false;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3239	#endif
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3240	onocr = t.c_oflag & ONOCR ? true : false;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3241	onlret = t.c_oflag & ONLRET ? true : false;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3242
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3243	sz = t.c_cflag & CSIZE;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3244	switch (sz) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3245	case CS5:
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3246	csize = @symbol(cs5);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3247	break;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3248	case CS6:
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3249	csize = @symbol(cs6);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3250	break;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3251	case CS7:
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3252	csize = @symbol(cs7);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3253	break;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3254	case CS8:
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3255	csize = @symbol(cs8);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3256	break;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3257	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3258	cstopb = t.c_cflag & CSTOPB ? true : false;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3259	cread = t.c_cflag & CREAD ? true : false;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3260	parenb = t.c_cflag & PARENB ? true : false;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3261	parodd = t.c_cflag & PARODD ? true : false;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3262	hupcl = t.c_cflag & HUPCL ? true : false;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3263	clocal = t.c_cflag & CLOCAL ? true : false;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3264
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3265	echoke = t.c_lflag & ECHOKE ? true : false;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3266	echoe = t.c_lflag & ECHOE ? true : false;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3267	echo = t.c_lflag & ECHO ? true : false;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3268	echonl = t.c_lflag & ECHONL ? true : false;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3269	echoctl = t.c_lflag & ECHOCTL ? true : false;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3270	isig = t.c_lflag & ISIG ? true : false;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3271	icanon = t.c_lflag & ICANON ? true : false;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3272	#ifdef ALTWERASE
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3273	altwerase = t.c_lflag & ALTWERASE ? true : false;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3274	#endif
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3275	#ifdef IEXTEN
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3276	iexten = t.c_lflag & IEXTEN ? true : false;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3277	#endif
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3278	#ifdef EXTPROC
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3279	extproc = t.c_lflag & EXTPROC ? true : false;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3280	#endif
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3281	#ifdef TOSTOP
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3282	tostop = t.c_lflag & TOSTOP ? true : false;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3283	#endif
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3284
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3285	#else
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3286	error = @symbol(unsupportedOperation);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3287	#endif
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3288
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3289	out:;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3290	%}.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3291	error notNil ifTrue:[
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3292	error == #unsupportedOperation ifTrue:[
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3293	"/ the system does not support tcgetattr
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3294	^ self errorUnsupportedOperation
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3295	].
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3296	lastErrorNumber := error.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3297	^ self ioError:error.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3298	].
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3299	handle isNil ifTrue:[^ self errorNotOpen].
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3300
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3301	"/ construct a dictionary...
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3302	ret := Dictionary new.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3303	ret at:#iflags put:(iflags := Dictionary new).
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3304	ret at:#oflags put:(oflags := Dictionary new).
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3305	ret at:#cflags put:(cflags := Dictionary new).
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3306	ret at:#lflags put:(lflags := Dictionary new).
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3307	iflags at:#ignbrk put:ignbrk.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3308	iflags at:#brkint put:brkint.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3309	iflags at:#ignpar put:ignpar.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3310	iflags at:#parmrk put:parmrk.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3311	iflags at:#inpck put:inpck.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3312	iflags at:#istrip put:istrip.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3313	iflags at:#inlcr put:inlcr.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3314	iflags at:#igncr put:igncr.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3315	iflags at:#icrnl put:icrnl.
16509 2cf139885242 Fixed ExternalStream>>tcgetattr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16508 diff changeset	3316	iflags at:#uiclc put:iuclc.
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3317	iflags at:#ixon put:ixon.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3318	iflags at:#ixoff put:ixoff.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3319	iflags at:#ixany put:ixany.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3320	iflags at:#imaxbel put:imaxbel.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3321	iflags at:#iutf8 put:iutf8.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3322
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3323	oflags at:#opost put:opost.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3324	oflags at:#onlcr put:onlcr.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3325	oflags at:#oxtabs put:oxtabs.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3326	oflags at:#onoteot put:onoteot.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3327
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3328	cflags at:#csize put:csize.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3329	cflags at:#cstopb put:cstopb.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3330	cflags at:#cread put:cread.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3331	cflags at:#parenb put:parenb.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3332	cflags at:#parodd put:parodd.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3333	cflags at:#hupcl put:hupcl.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3334	cflags at:#clocal put:clocal.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3335
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3336	lflags at:#echoke put:echoke.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3337	lflags at:#echoe put:echoe.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3338	lflags at:#echok put:echok.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3339	lflags at:#echo put:echo.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3340	lflags at:#echonl put:echonl.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3341	lflags at:#echoprt put:echoprt.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3342	lflags at:#echoctl put:echoctl.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3343	lflags at:#isig put:isig.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3344	lflags at:#icanon put:icanon.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3345	lflags at:#altwerase put:altwerase.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3346	lflags at:#iexten put:iexten.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3347	lflags at:#extproc put:extproc.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3348	lflags at:#tostop put:tostop.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3349	^ ret
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3350	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3351
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3352	!ExternalStream methodsFor:'non homogenous reading'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3353
15254 1d0a262c1743 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 14847 diff changeset	3354	next:count into:anObject startingAt:start
1d0a262c1743 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 14847 diff changeset	3355	"read the next count bytes into an object and return the number of
1d0a262c1743 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 14847 diff changeset	3356	bytes read or the number of bytes read, if EOF is encountered before.
1d0a262c1743 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 14847 diff changeset	3357	If the receiver is some socket/pipe-like stream, an exception
1d0a262c1743 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 14847 diff changeset	3358	is raised if the connection is broken.
1d0a262c1743 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 14847 diff changeset	3359
1d0a262c1743 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 14847 diff changeset	3360	Warning: if used with a pipe/socket, this blocks until the requested number
1d0a262c1743 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 14847 diff changeset	3361	of bytes have been read. See #nextAvailableBytes:into:startingAt:
1d0a262c1743 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 14847 diff changeset	3362	to only read whats there.
1d0a262c1743 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 14847 diff changeset	3363
1d0a262c1743 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 14847 diff changeset	3364	Notice, that in contrast to other methods,
1d0a262c1743 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 14847 diff changeset	3365	this does NOT return nil on EOF, but the actual count.
1d0a262c1743 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 14847 diff changeset	3366	Thus allowing read of partial blocks.
1d0a262c1743 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 14847 diff changeset	3367
1d0a262c1743 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 14847 diff changeset	3368	The object must have non-pointer indexed instvars
1d0a262c1743 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 14847 diff changeset	3369	(i.e. it must be a ByteArray, String, Float- or DoubleArray),
1d0a262c1743 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 14847 diff changeset	3370	or an externalBytes object (with known size).
1d0a262c1743 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 14847 diff changeset	3371	If anObject is a string or byteArray and reused, this provides the
1d0a262c1743 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 14847 diff changeset	3372	fastest possible physical I/O (since no new objects are allocated).
1d0a262c1743 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 14847 diff changeset	3373
1d0a262c1743 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 14847 diff changeset	3374	Use with care - non object oriented I/O.
1d0a262c1743 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 14847 diff changeset	3375	Warning: in general, you cannot use this method to pass data from other
1d0a262c1743 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 14847 diff changeset	3376	architectures (unless you prepared the buffer with care),
1d0a262c1743 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 14847 diff changeset	3377	since it does not care for byte order or float representation."
1d0a262c1743 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 14847 diff changeset	3378
1d0a262c1743 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 14847 diff changeset	3379	^ self nextBytes:count into:anObject startingAt:start
1d0a262c1743 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 14847 diff changeset	3380	!
1d0a262c1743 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 14847 diff changeset	3381
3674 c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	3382	nextAvailable:count
c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	3383	"return the next count elements of the stream as aCollection.
c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	3384	If the stream reaches the end before count elements have been read,
c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	3385	return what is available. (i.e. a shorter collection).
c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	3386	The type of collection is specified in #contentsSpecies."
c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	3387
3956 51f1a9a4d63f changes for egcs (stdio uses __new / utsname) Claus Gittinger <cg@exept.de> parents: 3949 diff changeset	3388	\|buffer n\|
3674 c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	3389
c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	3390	binary ifTrue:[
7832 f8a02752ca28 * empty log message * Claus Gittinger <cg@exept.de> parents: 7806 diff changeset	3391	buffer := ByteArray uninitializedNew:count
3674 c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	3392	] ifFalse:[
7832 f8a02752ca28 * empty log message * Claus Gittinger <cg@exept.de> parents: 7806 diff changeset	3393	buffer := String uninitializedNew:count
3674 c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	3394	].
c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	3395	n := self nextAvailableBytes:count into:buffer startingAt:1.
5202 e8130049b18f #nextAvailableBytes:into:startingAt: may NOT set EOF flag, Claus Gittinger <cg@exept.de> parents: 5187 diff changeset	3396	n == 0 ifTrue:[
7832 f8a02752ca28 * empty log message * Claus Gittinger <cg@exept.de> parents: 7806 diff changeset	3397	binary ifTrue:[
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	3398	^ #[]
7832 f8a02752ca28 * empty log message * Claus Gittinger <cg@exept.de> parents: 7806 diff changeset	3399	].
f8a02752ca28 * empty log message * Claus Gittinger <cg@exept.de> parents: 7806 diff changeset	3400	^ ''
5202 e8130049b18f #nextAvailableBytes:into:startingAt: may NOT set EOF flag, Claus Gittinger <cg@exept.de> parents: 5187 diff changeset	3401	].
3674 c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	3402
c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	3403	n ~~ count ifTrue:[
7832 f8a02752ca28 * empty log message * Claus Gittinger <cg@exept.de> parents: 7806 diff changeset	3404	^ buffer copyTo:n
3674 c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	3405	].
c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	3406	^ buffer.
c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	3407
c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	3408	"
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	3409	(ReadStream on:#(1 2 3 4 5)) nextAvailable:3
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	3410	(ReadStream on:#(1 2 3 4 5)) nextAvailable:10
3674 c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	3411	(ReadStream on:'hello') nextAvailable:3
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	3412	(ReadStream on:'hello') nextAvailable:10
3674 c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	3413	"
c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	3414
c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	3415	"Modified: / 16.6.1998 / 15:52:41 / cg"
c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	3416	!
c51550d1df17 added #nextAvailable: Claus Gittinger <cg@exept.de> parents: 3672 diff changeset	3417
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3418	nextAvailableBytes:count into:anObject startingAt:start
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3419	"read the next count bytes into an object and return the number of
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3420	bytes read or the number of bytes read, if EOF is encountered before,
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3421	or no more bytes are available for reading (from the pipe/socket).
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3422
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3423	If the receiver is some socket/pipe-like stream, an exception
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3424	is raised if the connection is broken.
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3425
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3426	Notice, that in contrast to other methods,
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3427	this does NOT return nil on EOF, but the actual count.
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3428	Thus allowing read of partial blocks.
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3429
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	3430	The object must have non-pointer indexed instvars
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3431	(i.e. it must be a ByteArray, String, Float- or DoubleArray).
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3432	If anObject is a string or byteArray and reused, this provides the
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3433	fastest possible physical I/O (since no new objects are allocated).
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3434
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3435	Use with care - non object oriented I/O.
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	3436	Warning: in general, you cannot use this method to pass data from other
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3437	architectures since it does not care for byte order or float representation."
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3438
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	3439	\|error\|
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	3440
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3441	%{
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3442	FILEPOINTER f;
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3443	int cnt, offs, ret, _buffered;
15987 0fbfbdf4a0a5 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15921 diff changeset	3444	int objSize, nInstBytes;
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3445	char *cp;
3445 2639c1e3fd0b nextAvail also for externalBytes Claus Gittinger <cg@exept.de> parents: 3432 diff changeset	3446	char *extPtr;
7195 755c46f9b774 also handle subclasses of ExternalBytes (Mapped..) Claus Gittinger <cg@exept.de> parents: 7118 diff changeset	3447	OBJ fp;
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3448	int o_offs;
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3449
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3450	__INST(lastErrorNumber) = nil;
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	3451	if ((__INST(handleType) == nil)
6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	3452	\|\| (__INST(handleType) == @symbol(filePointer))
6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	3453	\|\| (__INST(handleType) == @symbol(socketFilePointer))
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	3454	\|\| (__INST(handleType) == @symbol(socketHandle))
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	3455	\|\| (__INST(handleType) == @symbol(pipeFilePointer))) {
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3456	if (((fp = __INST(handle)) != nil)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3457	&& (__INST(mode) != @symbol(writeonly))
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3458	&& __bothSmallInteger(count, start)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3459	) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3460	f = __FILEVal(fp);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3461
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3462	cnt = __intVal(count);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3463	offs = __intVal(start) - 1;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3464
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3465	if (__isExternalBytesLike(anObject)) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3466	OBJ sz;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3467
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3468	nInstBytes = 0;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3469	extPtr = (char *)(__externalBytesAddress(anObject));
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3470	if (extPtr == NULL) goto bad;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3471	sz = __externalBytesSize(anObject);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3472	if (__isSmallInteger(sz)) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3473	objSize = __intVal(sz);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3474	} else {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3475	objSize = 0; /* unknown */
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3476	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3477	} else {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3478	OBJ oClass = __Class(anObject);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3479	int nInstVars = __intVal(__ClassInstPtr(oClass)->c_ninstvars);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3480
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3481	nInstBytes = OHDR_SIZE + __OBJS2BYTES__(nInstVars);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3482
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3483	switch (__intVal(__ClassInstPtr(oClass)->c_flags) & ARRAYMASK) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3484	case BYTEARRAY:
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3485	case WORDARRAY:
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3486	case LONGARRAY:
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3487	case SWORDARRAY:
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3488	case SLONGARRAY:
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3489	case FLOATARRAY:
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3490	break;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3491	case DOUBLEARRAY:
15987 0fbfbdf4a0a5 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15921 diff changeset	3492	#ifdef __NEED_DOUBLE_ALIGN
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3493	nInstBytes = (nInstBytes-1+__DOUBLE_ALIGN) &~ (__DOUBLE_ALIGN-1);
15987 0fbfbdf4a0a5 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15921 diff changeset	3494	#endif
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3495	break;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3496	case LONGLONGARRAY:
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3497	case SLONGLONGARRAY:
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	3498	#ifdef __NEED_LONGLONG_ALIGN
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3499	nInstBytes = (nInstBytes-1+__LONGLONG_ALIGN) &~ (__LONGLONG_ALIGN-1);
5202 e8130049b18f #nextAvailableBytes:into:startingAt: may NOT set EOF flag, Claus Gittinger <cg@exept.de> parents: 5187 diff changeset	3500	#endif
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3501	break;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3502	default:
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3503	goto bad;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3504	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3505	extPtr = (char *)0;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3506	objSize = __Size(anObject) - nInstBytes;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3507	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3508
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3509	if ((offs >= 0) && (cnt >= 0) && (objSize >= (cnt + offs))) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3510	_buffered = (__INST(buffered) == true);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3511	if (_buffered) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3512	__READING__(f);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3513	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3514
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3515	if (extPtr) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3516	__READAVAILBYTES__(ret, f, extPtr+offs, cnt, _buffered, __INST(handleType));
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3517	} else {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3518	/*
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3519	* on interrupt, anObject may be moved to another location.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3520	* So we pass (char *)__InstPtr(anObject) + nInstBytes + offs to the macro __READ_BYTES__,
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3521	* to get a new address.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3522	*/
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3523	offs += nInstBytes;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3524	__READAVAILBYTES_OBJ__(ret, f, anObject, offs, cnt, _buffered, __INST(handleType));
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3525	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3526	/* 0 is NOT an EOF condition here ... */
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3527	if (ret >= 0) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3528	if (__isSmallInteger(__INST(position))) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3529	INT np = __intVal(__INST(position)) + ret;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3530	OBJ t;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3531
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3532	t = __MKINT(np); __INST(position) = t; __STORE(self, t);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3533	} else {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3534	__INST(position) = nil; /* i.e. do not know */
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3535	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3536	RETURN (__mkSmallInteger(ret));
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3537	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3538	__INST(position) = nil;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3539	error = __mkSmallInteger(__threadErrno);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3540	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3541	}
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3542	}
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3543	bad: ;
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3544	%}.
8614 88421fbd4ab6 pastEnd -> pastEndRead Claus Gittinger <cg@exept.de> parents: 8604 diff changeset	3545	(hitEOF and:[self pastEndRead isNil]) ifTrue:[^ 0].
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	3546	error notNil ifTrue:[
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3547	lastErrorNumber := error.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3548	^ self readError:error
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	3549	].
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	3550	handle isNil ifTrue:[^ self errorNotOpen].
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3551	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3552	"
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3553	count not integer or arg not bit-like (String, ByteArray etc)
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3554	"
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3555	^ self primitiveFailed
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3556	!
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3557
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3558	nextByte
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3559	"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	3560	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	3561	bytes binary value as an integer in 0..255."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3562
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	3563	\|error\|
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	3564	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	3565	FILEPOINTER f;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3566	unsigned char byte;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3567	int ret, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3568	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3569
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3570	__INST(lastErrorNumber) = nil;
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	3571	if ((__INST(handleType) == nil)
6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	3572	\|\| (__INST(handleType) == @symbol(filePointer))
6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	3573	\|\| (__INST(handleType) == @symbol(socketFilePointer))
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	3574	\|\| (__INST(handleType) == @symbol(socketHandle))
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	3575	\|\| (__INST(handleType) == @symbol(pipeFilePointer))) {
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3576	if (((fp = __INST(handle)) != nil)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3577	&& (__INST(mode) != @symbol(writeonly))) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3578	f = __FILEVal(fp);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3579
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3580	_buffered = (__INST(buffered) == true);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3581	if (_buffered) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3582	__READING__(f)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3583	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3584	__READBYTE__(ret, f, &byte, _buffered, __INST(handleType));
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3585	if (ret > 0) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3586	if (__isSmallInteger(__INST(position))) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3587	INT np = __intVal(__INST(position)) + 1;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3588	OBJ t;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3589
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3590	t = __MKINT(np); __INST(position) = t; __STORE(self, t);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3591	} else {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3592	__INST(position) = nil; /* i.e. do not know */
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3593	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3594	RETURN (__mkSmallInteger(byte));
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3595	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3596
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3597	if (ret == 0) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3598	__INST(hitEOF) = true;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3599	} else /* ret < 0 */ {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3600	__INST(position) = nil;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3601	error = __mkSmallInteger(__threadErrno);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3602	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3603	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3604	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3605	%}.
8614 88421fbd4ab6 pastEnd -> pastEndRead Claus Gittinger <cg@exept.de> parents: 8604 diff changeset	3606	hitEOF ifTrue:[^ self pastEndRead].
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	3607	error notNil ifTrue:[
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3608	lastErrorNumber := error.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3609	^ self readError:error
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	3610	].
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	3611	handle isNil ifTrue:[^ self errorNotOpen].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3612	^ self errorWriteOnly
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3613	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3614
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3615	nextBytes:count into:anObject startingAt:start
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3616	"read the next count bytes into an object and return the number of
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	3617	bytes read or the number of bytes read, if EOF is encountered before.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3618	If the receiver is some socket/pipe-like stream, an exception
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3619	is raised if the connection is broken.
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	3620
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3621	Warning: if used with a pipe/socket, this blocks until the requested number
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3622	of bytes have been read. See #nextAvailableBytes:into:startingAt:
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3623	to only read whats there.
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	3624
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	3625	Notice, that in contrast to other methods,
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	3626	this does NOT return nil on EOF, but the actual count.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3627	Thus allowing read of partial blocks.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3628
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	3629	The object must have non-pointer indexed instvars
3432 1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	3630	(i.e. it must be a ByteArray, String, Float- or DoubleArray),
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	3631	or an externalBytes object (with known size).
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3632	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	3633	fastest possible physical I/O (since no new objects are allocated).
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3634
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3635	Use with care - non object oriented I/O.
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	3636	Warning: in general, you cannot use this method to pass data from other
3432 1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	3637	architectures (unless you prepared the buffer with care),
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	3638	since it does not care for byte order or float representation."
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3639
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	3640	\|error\|
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3641	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	3642	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	3643	int cnt, offs, ret, _buffered;
15987 0fbfbdf4a0a5 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15921 diff changeset	3644	int objSize, nInstBytes;
3432 1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	3645	char *extPtr;
7195 755c46f9b774 also handle subclasses of ExternalBytes (Mapped..) Claus Gittinger <cg@exept.de> parents: 7118 diff changeset	3646	OBJ fp;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3647
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3648	__INST(lastErrorNumber) = nil;
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	3649	if ((__INST(handleType) == nil)
6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	3650	\|\| (__INST(handleType) == @symbol(filePointer))
6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	3651	\|\| (__INST(handleType) == @symbol(socketFilePointer))
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	3652	\|\| (__INST(handleType) == @symbol(socketHandle))
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	3653	\|\| (__INST(handleType) == @symbol(pipeFilePointer))) {
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3654	if (((fp = __INST(handle)) != nil)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3655	&& (__INST(mode) != @symbol(writeonly))
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3656	&& __bothSmallInteger(count, start)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3657	) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3658	f = __FILEVal(fp);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3659
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3660	cnt = __intVal(count);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3661	offs = __intVal(start) - 1;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3662
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3663	if (__isExternalBytesLike(anObject)) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3664	OBJ sz;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3665
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3666	nInstBytes = 0;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3667	extPtr = (char *)(__externalBytesAddress(anObject));
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3668	if (extPtr == NULL) goto bad;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3669	sz = __externalBytesSize(anObject);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3670	if (__isSmallInteger(sz)) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3671	objSize = __intVal(sz);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3672	} else {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3673	objSize = 0; /* unknown */
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3674	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3675	} else {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3676	OBJ oClass = __Class(anObject);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3677	int nInstVars = __intVal(__ClassInstPtr(oClass)->c_ninstvars);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3678
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3679	nInstBytes = OHDR_SIZE + __OBJS2BYTES__(nInstVars);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3680	switch (__intVal(__ClassInstPtr(oClass)->c_flags) & ARRAYMASK) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3681	case BYTEARRAY:
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3682	case WORDARRAY:
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3683	case LONGARRAY:
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3684	case SWORDARRAY:
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3685	case SLONGARRAY:
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3686	case FLOATARRAY:
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3687	break;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3688	case DOUBLEARRAY:
15987 0fbfbdf4a0a5 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15921 diff changeset	3689	#ifdef __NEED_DOUBLE_ALIGN
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3690	nInstBytes = (nInstBytes-1+__DOUBLE_ALIGN) &~ (__DOUBLE_ALIGN-1);
15987 0fbfbdf4a0a5 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15921 diff changeset	3691	#endif
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3692	break;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3693	case LONGLONGARRAY:
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3694	case SLONGLONGARRAY:
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	3695	#ifdef __NEED_LONGLONG_ALIGN
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3696	nInstBytes = (nInstBytes-1+__LONGLONG_ALIGN) &~ (__LONGLONG_ALIGN-1);
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	3697	#endif
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3698	break;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3699	default:
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3700	goto bad;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3701	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3702	extPtr = (char *)0;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3703	objSize = __Size(anObject) - nInstBytes;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3704	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3705	if ((offs >= 0) && (cnt >= 0) && (objSize >= (cnt + offs))) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3706	_buffered = (__INST(buffered) == true);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3707	if (_buffered) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3708	__READING__(f);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3709	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3710
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3711	if (extPtr) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3712	__READBYTES__(ret, f, extPtr+offs, cnt, _buffered, __INST(handleType));
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3713	} else {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3714	/*
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3715	* on interrupt, anObject may be moved to another location.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3716	* So we pass anObject, and the offset to the __READBYTES_OBJ__ macro.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3717	*/
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3718	offs += nInstBytes;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3719	__READBYTES_OBJ__(ret, f, anObject, offs, cnt, _buffered, __INST(handleType));
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3720	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3721
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3722	if (ret > 0) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3723	if (__isSmallInteger(__INST(position))) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3724	INT np = __intVal(__INST(position)) + ret;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3725	OBJ t = __MKINT(np); __INST(position) = t; __STORE(self, t);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3726	} else {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3727	__INST(position) = nil; /* i.e. do not know */
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3728	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3729	RETURN (__mkSmallInteger(ret));
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3730	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3731	if (ret == 0) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3732	__INST(hitEOF) = true;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3733	} else /* ret < 0 */ {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3734	__INST(position) = nil;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3735	error = __mkSmallInteger(__threadErrno);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3736	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3737	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3738	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3739	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3740	bad: ;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3741	%}.
8614 88421fbd4ab6 pastEnd -> pastEndRead Claus Gittinger <cg@exept.de> parents: 8604 diff changeset	3742	(hitEOF and:[self pastEndRead isNil]) ifTrue:[^ 0].
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	3743	error notNil ifTrue:[
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3744	lastErrorNumber := error.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3745	^ self readError:error
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	3746	].
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	3747	handle isNil ifTrue:[^ self errorNotOpen].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3748	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3749	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3750	count not integer or arg not bit-like (String, ByteArray etc)
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3751	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3752	^ self primitiveFailed
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	3753	!
0c73b48551ac * empty log message * claus parents: 88 diff changeset	3754
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3755	nextLong
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3756	"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	3757	The returned value may be a LargeInteger.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3758	(msb-first for compatibility with other smalltalks)"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3759
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3760	^ self nextUnsignedLongMSB:true
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3761	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3762
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3763	nextLongMSB:msbFlag
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	3764	"Read four bytes and return the value as a 32-bit signed Integer,
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3765	which may be a LargeInteger.
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	3766	If msbFlag is true, value is read with most-significant byte first,
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3767	otherwise least-significant byte comes first.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3768	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	3769	Works in both binary and text modes."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3770
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	3771	\|error\|
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	3772	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3773	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3774
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3775	__INST(lastErrorNumber) = nil;
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	3776	if ((__INST(handleType) == nil)
6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	3777	\|\| (__INST(handleType) == @symbol(filePointer))
6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	3778	\|\| (__INST(handleType) == @symbol(socketFilePointer))
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	3779	\|\| (__INST(handleType) == @symbol(socketHandle))
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	3780	\|\| (__INST(handleType) == @symbol(pipeFilePointer))) {
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3781	if (((fp = __INST(handle)) != nil)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3782	&& (__INST(mode) != @symbol(writeonly))
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3783	) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3784	FILEPOINTER f;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3785	int ret, _buffered;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3786	int value;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3787	union {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3788	unsigned char buffer[4];
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3789	int intVal;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3790	} u;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3791
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3792	f = __FILEVal(fp);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3793	_buffered = (__INST(buffered) == true);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3794	if (_buffered) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3795	__READING__(f)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3796	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3797	__READBYTES__(ret, f, u.buffer, 4, _buffered, __INST(handleType));
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3798
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3799	if (ret == 4) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3800	if (__isSmallInteger(__INST(position))) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3801	INT np = __intVal(__INST(position)) + 4;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3802	OBJ t;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3803
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3804	t = __MKINT(np); __INST(position) = t; __STORE(self, t);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3805	} else {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3806	__INST(position) = nil; /* i.e. do not know */
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3807	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3808	if (msbFlag == true) {
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8881 diff changeset	3809	#if defined(__MSBFIRST__)
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3810	value = u.intVal;
4383 7a5abc09fb39 slightly tuned nextXXXLongMSB: and nextUnsignedXXXMSB: Claus Gittinger <cg@exept.de> parents: 4368 diff changeset	3811	#else
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3812	value = (u.buffer[0] & 0xFF);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3813	value = (value << 8) \| (u.buffer[1] & 0xFF);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3814	value = (value << 8) \| (u.buffer[2] & 0xFF);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3815	value = (value << 8) \| (u.buffer[3] & 0xFF);
4383 7a5abc09fb39 slightly tuned nextXXXLongMSB: and nextUnsignedXXXMSB: Claus Gittinger <cg@exept.de> parents: 4368 diff changeset	3816	#endif
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3817	} else {
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8881 diff changeset	3818	#if defined(__LSBFIRST__)
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3819	value = u.intVal;
4383 7a5abc09fb39 slightly tuned nextXXXLongMSB: and nextUnsignedXXXMSB: Claus Gittinger <cg@exept.de> parents: 4368 diff changeset	3820	#else
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3821	value = (u.buffer[3] & 0xFF);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3822	value = (value << 8) \| (u.buffer[2] & 0xFF);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3823	value = (value << 8) \| (u.buffer[1] & 0xFF);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3824	value = (value << 8) \| (u.buffer[0] & 0xFF);
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	3825	#endif
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3826	}
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	3827	#if __POINTER_SIZE__ == 8
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3828	RETURN ( __mkSmallInteger(value));
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	3829	#else
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3830	if ((value >= _MIN_INT) && (value <= _MAX_INT)) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3831	RETURN ( __mkSmallInteger(value));
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3832	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3833	RETURN ( __MKLARGEINT(value) );
4383 7a5abc09fb39 slightly tuned nextXXXLongMSB: and nextUnsignedXXXMSB: Claus Gittinger <cg@exept.de> parents: 4368 diff changeset	3834	#endif
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3835	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3836
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3837	if (ret < 0) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3838	__INST(position) = nil;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3839	error = __mkSmallInteger(__threadErrno);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3840	} else /* ret == 0 */ {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3841	__INST(hitEOF) = true;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3842	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3843	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3844	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3845	%}.
8614 88421fbd4ab6 pastEnd -> pastEndRead Claus Gittinger <cg@exept.de> parents: 8604 diff changeset	3846	hitEOF ifTrue:[^ self pastEndRead].
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	3847	handle isNil ifTrue:[^ self errorNotOpen].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3848	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	3849	lastErrorNumber := error.
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	3850	^ self readError:error.
362 4131e87e79ec . claus parents: 360 diff changeset	3851	!
4131e87e79ec . claus parents: 360 diff changeset	3852
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3853	nextShortMSB:msbFlag
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3854	"Read two bytes and return the value as a 16-bit signed Integer.
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	3855	If msbFlag is true, value is read with most-significant byte first,
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3856	otherwise least-significant byte comes first.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3857	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	3858	Works in both binary and text modes."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3859
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	3860	\|error\|
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	3861	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3862	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3863
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3864	__INST(lastErrorNumber) = nil;
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	3865	if ((__INST(handleType) == nil)
6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	3866	\|\| (__INST(handleType) == @symbol(filePointer))
6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	3867	\|\| (__INST(handleType) == @symbol(socketFilePointer))
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	3868	\|\| (__INST(handleType) == @symbol(socketHandle))
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	3869	\|\| (__INST(handleType) == @symbol(pipeFilePointer))) {
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3870	if (((fp = __INST(handle)) != nil)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3871	&& (__INST(mode) != @symbol(writeonly))
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3872	) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3873	FILEPOINTER f;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3874	int ret, _buffered;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3875	short value;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3876	union {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3877	unsigned char buffer[2];
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3878	short shortVal;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3879	} u;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3880
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3881	f = __FILEVal(fp);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3882	_buffered = (__INST(buffered) == true);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3883	if (_buffered) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3884	__READING__(f)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3885	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3886	__READBYTES__(ret, f, u.buffer, 2, _buffered, __INST(handleType));
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3887
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3888	if (ret == 2) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3889	if (__isSmallInteger(__INST(position))) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3890	INT np = __intVal(__INST(position)) + 2;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3891	OBJ t;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3892
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3893	t = __MKINT(np); __INST(position) = t; __STORE(self, t);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3894	} else {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3895	__INST(position) = nil; /* i.e. do not know */
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3896	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3897	if (msbFlag == true) {
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	3898	#if defined(__MSBFIRST__)
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3899	value = u.shortVal;
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	3900	#else
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3901	value = ((u.buffer[0] & 0xFF) << 8) \| (u.buffer[1] & 0xFF);
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	3902	#endif
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3903	} else {
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	3904	#if defined(__LSBFIRST__)
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3905	value = u.shortVal;
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	3906	#else
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3907	value = ((u.buffer[1] & 0xFF) << 8) \| (u.buffer[0] & 0xFF);
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	3908	#endif
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3909	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3910	RETURN (__mkSmallInteger(value));
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3911	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3912
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3913	if (ret < 0) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3914	__INST(position) = nil; /* i.e. do not know */
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3915	error = __mkSmallInteger(__threadErrno);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3916	} else /* ret == 0 */ {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3917	__INST(hitEOF) = true;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3918	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3919	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3920	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3921	%}.
8614 88421fbd4ab6 pastEnd -> pastEndRead Claus Gittinger <cg@exept.de> parents: 8604 diff changeset	3922	hitEOF ifTrue:[^ self pastEndRead].
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	3923	handle isNil ifTrue:[^ self errorNotOpen].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3924	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	3925	lastErrorNumber := error.
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	3926	^ self readError:error.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3927	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3928
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3929	nextUnsignedLongMSB:msbFlag
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3930	"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	3931	a LargeInteger.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3932	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	3933	least-significant byte comes first.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3934	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	3935	Works in both binary and text modes."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3936
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	3937	\|error\|
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	3938	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3939	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	3940
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	3941	__INST(lastErrorNumber) = nil;
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	3942	if ((__INST(handleType) == nil)
6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	3943	\|\| (__INST(handleType) == @symbol(filePointer))
6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	3944	\|\| (__INST(handleType) == @symbol(socketFilePointer))
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	3945	\|\| (__INST(handleType) == @symbol(socketHandle))
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	3946	\|\| (__INST(handleType) == @symbol(pipeFilePointer))) {
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3947	if (((fp = __INST(handle)) != nil)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3948	&& (__INST(mode) != @symbol(writeonly))
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3949	) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3950	FILEPOINTER f;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3951	int ret, _buffered;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3952	unsigned INT value;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3953	union {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3954	unsigned char buffer[4];
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3955	unsigned int intVal;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3956	} u;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3957
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3958	f = __FILEVal(fp);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3959	_buffered = (__INST(buffered) == true);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3960	if (_buffered) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3961	__READING__(f)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3962	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3963	__READBYTES__(ret, f, u.buffer, 4, _buffered, __INST(handleType));
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3964
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3965	if (ret == 4) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3966	if (__isSmallInteger(__INST(position))) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3967	INT np = __intVal(__INST(position)) + 4;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3968	OBJ t;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3969
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3970	t = __MKINT(np); __INST(position) = t; __STORE(self, t);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3971	} else {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3972	__INST(position) = nil; /* i.e. do not know */
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3973	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3974	if (msbFlag == true) {
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8881 diff changeset	3975	#if defined(__MSBFIRST__)
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3976	value = u.intVal;
4383 7a5abc09fb39 slightly tuned nextXXXLongMSB: and nextUnsignedXXXMSB: Claus Gittinger <cg@exept.de> parents: 4368 diff changeset	3977	#else
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3978	value = u.buffer[0];
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3979	value = (value << 8) \| u.buffer[1];
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3980	value = (value << 8) \| u.buffer[2];
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3981	value = (value << 8) \| u.buffer[3];
4383 7a5abc09fb39 slightly tuned nextXXXLongMSB: and nextUnsignedXXXMSB: Claus Gittinger <cg@exept.de> parents: 4368 diff changeset	3982	#endif
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3983	} else {
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8881 diff changeset	3984	#if defined(__LSBFIRST__)
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3985	value = u.intVal;
4383 7a5abc09fb39 slightly tuned nextXXXLongMSB: and nextUnsignedXXXMSB: Claus Gittinger <cg@exept.de> parents: 4368 diff changeset	3986	#else
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3987	value = u.buffer[3];
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3988	value = (value << 8) \| u.buffer[2];
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3989	value = (value << 8) \| u.buffer[1];
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3990	value = (value << 8) \| u.buffer[0];
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	3991	#endif
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3992	}
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	3993	#if __POINTER_SIZE__ == 8
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3994	value &= 0xFFFFFFFF;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3995	RETURN (__mkSmallInteger(value));
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	3996	#else
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3997	if (value <= _MAX_INT) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3998	RETURN (__mkSmallInteger(value));
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	3999	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4000	RETURN (__MKULARGEINT(value) );
4383 7a5abc09fb39 slightly tuned nextXXXLongMSB: and nextUnsignedXXXMSB: Claus Gittinger <cg@exept.de> parents: 4368 diff changeset	4001	#endif
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4002	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4003
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4004	if (ret < 0) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4005	__INST(position) = nil; /* i.e. do not know */
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4006	error = __mkSmallInteger(__threadErrno);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4007	} else /* ret == 0 */ {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4008	__INST(hitEOF) = true;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4009	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4010	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4011	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4012	%}.
8614 88421fbd4ab6 pastEnd -> pastEndRead Claus Gittinger <cg@exept.de> parents: 8604 diff changeset	4013	hitEOF ifTrue:[^ self pastEndRead].
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	4014	handle isNil ifTrue:[^ self errorNotOpen].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4015	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	4016	lastErrorNumber := error.
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	4017	^ self readError:error.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4018	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4019
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4020	nextUnsignedShortMSB:msbFlag
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4021	"Read two bytes and return the value as a 16-bit unsigned Integer.
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	4022	If msbFlag is true, value is read with most-significant byte first,
1079 d47cd86b487b Make methods signal-proof. Stefan Vogel <sv@exept.de> parents: 1068 diff changeset	4023	otherwise least-significant byte comes first.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4024	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	4025	Works in both binary and text modes."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4026
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	4027	\|error\|
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	4028	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4029	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4030
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4031	__INST(lastErrorNumber) = nil;
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	4032	if ((__INST(handleType) == nil)
6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	4033	\|\| (__INST(handleType) == @symbol(filePointer))
6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	4034	\|\| (__INST(handleType) == @symbol(socketFilePointer))
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4035	\|\| (__INST(handleType) == @symbol(socketHandle))
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	4036	\|\| (__INST(handleType) == @symbol(pipeFilePointer))) {
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4037	if (((fp = __INST(handle)) != nil)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4038	&& (__INST(mode) != @symbol(writeonly))
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4039	) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4040	FILEPOINTER f;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4041	int ret, _buffered;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4042	unsigned int value;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4043	union {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4044	unsigned char buffer[2];
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4045	unsigned short shortVal;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4046	} u;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4047
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4048	f = __FILEVal(fp);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4049	_buffered = (__INST(buffered) == true);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4050	if (_buffered) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4051	__READING__(f)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4052	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4053	__READBYTES__(ret, f, u.buffer, 2, _buffered, __INST(handleType));
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4054
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4055	if (ret == 2) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4056	if (__isSmallInteger(__INST(position))) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4057	INT np = __intVal(__INST(position)) + 2;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4058	OBJ t;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4059
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4060	t = __MKINT(np); __INST(position) = t; __STORE(self, t);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4061	} else {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4062	__INST(position) = nil; /* i.e. do not know */
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4063	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4064	if (msbFlag == true) {
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	4065	#if defined(__MSBFIRST__)
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4066	value = u.shortVal;
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	4067	#else
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4068	value = (u.buffer[0] << 8) \| u.buffer[1];
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	4069	#endif
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4070	} else {
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	4071	#if defined(__LSBFIRST__)
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4072	value = u.shortVal;
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	4073	#else
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4074	value = (u.buffer[1] << 8) \| u.buffer[0];
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	4075	#endif
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4076	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4077	RETURN (__mkSmallInteger(value));
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4078	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4079
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4080	if (ret < 0) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4081	__INST(position) = nil; /* i.e. do not know */
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4082	error = __mkSmallInteger(__threadErrno);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4083	} else /* ret == 0 */ {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4084	__INST(hitEOF) = true;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4085	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4086	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4087	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4088	%}.
8614 88421fbd4ab6 pastEnd -> pastEndRead Claus Gittinger <cg@exept.de> parents: 8604 diff changeset	4089	hitEOF ifTrue:[^ self pastEndRead].
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	4090	handle isNil ifTrue:[^ self errorNotOpen].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4091	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	4092	lastErrorNumber := error.
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	4093	^ self readError:error.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4094	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4095
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4096	nextWord
15452 e2a3b2dc064b class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15435 diff changeset	4097	<resource: #obsolete>
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4098	"in text-mode:
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14603 diff changeset	4099	read the alphaNumeric next word (i.e. up to non letter-or-digit).
6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14603 diff changeset	4100	return a string containing those characters.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4101	in binary-mode:
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14603 diff changeset	4102	read two bytes (msb-first) and return the value as a 16-bit
6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14603 diff changeset	4103	unsigned Integer (for compatibility with other smalltalks)"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4104
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4105	binary ifTrue:[
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14603 diff changeset	4106	^ self nextUnsignedShortMSB:true
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	4107	].
14518 7dad78183779 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 14440 diff changeset	4108	self obsoleteMethodWarning:'use #nextAlphaNumericWord'.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4109	^ self nextAlphaNumericWord
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4110	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4111
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4112	!ExternalStream methodsFor:'non homogenous writing'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4113
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4114	nextPutByte:aByteValue
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4115	"write a byte.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4116	Works in both binary and text modes."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4117
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4118	\|error\|
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	4119
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	4120	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	4121	FILEPOINTER f;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4122	char c;
7875 eb7d48b0425d made all position-handling code 32bit save Claus Gittinger <cg@exept.de> parents: 7832 diff changeset	4123	OBJ fp;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4124	int cnt, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4125
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4126	__INST(lastErrorNumber) = nil;
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	4127	if ((__INST(handleType) == nil)
6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	4128	\|\| (__INST(handleType) == @symbol(filePointer))
6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	4129	\|\| (__INST(handleType) == @symbol(socketFilePointer))
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4130	\|\| (__INST(handleType) == @symbol(socketHandle))
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	4131	\|\| (__INST(handleType) == @symbol(pipeFilePointer))) {
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4132	if (((fp = __INST(handle)) != nil)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4133	&& (__INST(mode) != @symbol(readonly))
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4134	&& __isSmallInteger(aByteValue)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4135
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4136	) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4137	c = __intVal(aByteValue);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4138	f = __FILEVal(fp);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4139	if (_buffered = (__INST(buffered) == true)) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4140	__WRITING__(f)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4141	}
9053 f3f3d48d6f44 fix writing to stdout/stderr for winstx non-console operation Claus Gittinger <cg@exept.de> parents: 9024 diff changeset	4142	#ifdef WIN32
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4143	if ((f == __win32_stdout()) \|\| (f == __win32_stderr())) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4144	cnt = __win32_fwrite(&c, 1, 1, f);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4145	} else
9053 f3f3d48d6f44 fix writing to stdout/stderr for winstx non-console operation Claus Gittinger <cg@exept.de> parents: 9024 diff changeset	4146	#endif
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4147	{
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4148	__WRITEBYTE__(cnt, f, &c, _buffered, __INST(handleType));
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4149	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4150	if (cnt == 1) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4151	if (__isSmallInteger(__INST(position))) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4152	INT np = __intVal(__INST(position)) + 1;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4153	OBJ t;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4154
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4155	t = __MKINT(np); __INST(position) = t; __STORE(self, t);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4156	} else {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4157	__INST(position) = nil; /* i.e. do not know */
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4158	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4159	RETURN (self);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4160	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4161	if (cnt < 0) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4162	__INST(position) = nil; /* i.e. do not know */
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4163	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4164	error = __mkSmallInteger(__threadErrno);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4165	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4166	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4167	%}.
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	4168	handle isNil ifTrue:[self errorNotOpen. ^ self].
7801 d930c353588d writeError: care for EWOULDBLOCK in nonBlocking case. penk parents: 7737 diff changeset	4169	(mode == #readonly) ifTrue:[self errorReadOnly. ^ self].
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	4170	lastErrorNumber := error.
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	4171	self writeError:error.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4172	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4173
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4174	nextPutBytes:count from:anObject startingAt:start
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4175	"write count bytes from an object starting at index start.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4176	return the number of bytes written - which could be 0.
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	4177	The object must have non-pointer indexed instvars
3432 1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	4178	(i.e. be a ByteArray, String, Float- or DoubleArray),
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	4179	or an externalBytes object (with known size).
1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	4180
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4181	Use with care - non object oriented i/o.
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	4182	Warning:
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4183	in general, you cannot use this method to pass non-byte data to other
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4184	architectures (unless you prepared the buffer with care),
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4185	since it does not care for byte order or float representation."
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	4186
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	4187	\|error\|
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4188
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	4189	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	4190	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4191	int cnt, len, offs, ret;
15987 0fbfbdf4a0a5 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15921 diff changeset	4192	int objSize, nInstBytes, _buffered;
3432 1228d4ba9518 allow reading/writing from/to ExternalBytes Claus Gittinger <cg@exept.de> parents: 3420 diff changeset	4193	char *extPtr;
7875 eb7d48b0425d made all position-handling code 32bit save Claus Gittinger <cg@exept.de> parents: 7832 diff changeset	4194	OBJ fp;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4195
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4196	__INST(lastErrorNumber) = nil;
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	4197	if ((__INST(handleType) == nil)
6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	4198	\|\| (__INST(handleType) == @symbol(filePointer))
6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	4199	\|\| (__INST(handleType) == @symbol(socketFilePointer))
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4200	\|\| (__INST(handleType) == @symbol(socketHandle))
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	4201	\|\| (__INST(handleType) == @symbol(pipeFilePointer))) {
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4202	if (((fp = __INST(handle)) != nil)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4203	&& (__INST(mode) != @symbol(readonly))
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4204	&& __bothSmallInteger(count, start)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4205	) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4206	len = __intVal(count);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4207	offs = __intVal(start) - 1;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4208	f = __FILEVal(fp);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4209
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4210	if (__isExternalBytesLike(anObject)) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4211	OBJ sz;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4212
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4213	nInstBytes = 0;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4214	extPtr = (char *)__externalBytesAddress(anObject);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4215	if (extPtr == NULL) goto bad;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4216	sz = __externalBytesSize(anObject);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4217	if (__isSmallInteger(sz)) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4218	objSize = __intVal(sz);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4219	} else {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4220	objSize = 0; /* unknown */
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4221	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4222	} else {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4223	OBJ oClass = __Class(anObject);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4224	int nInstVars = __intVal(__ClassInstPtr(oClass)->c_ninstvars);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4225
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4226	nInstBytes = OHDR_SIZE + __OBJS2BYTES__(nInstVars);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4227	switch (__intVal(__ClassInstPtr(oClass)->c_flags) & ARRAYMASK) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4228	case BYTEARRAY:
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4229	case WORDARRAY:
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4230	case LONGARRAY:
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4231	case SWORDARRAY:
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4232	case SLONGARRAY:
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4233	case FLOATARRAY:
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4234	break;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4235	case DOUBLEARRAY:
15987 0fbfbdf4a0a5 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15921 diff changeset	4236	#ifdef __NEED_DOUBLE_ALIGN
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4237	nInstBytes = (nInstBytes-1+__DOUBLE_ALIGN) &~ (__DOUBLE_ALIGN-1);
15987 0fbfbdf4a0a5 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15921 diff changeset	4238	#endif
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4239	break;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4240	case LONGLONGARRAY:
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4241	case SLONGLONGARRAY:
15987 0fbfbdf4a0a5 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15921 diff changeset	4242	#ifdef __NEED_LONGLONG_ALIGN
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4243	nInstBytes = (nInstBytes-1+__LONGLONG_ALIGN) &~ (__LONGLONG_ALIGN-1);
15987 0fbfbdf4a0a5 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15921 diff changeset	4244	#endif
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4245	break;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4246	default:
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4247	goto bad;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4248	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4249	extPtr = (char *)0;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4250	objSize = __Size(anObject) - nInstBytes;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4251	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4252	if ( (offs >= 0) && (len >= 0) && (objSize >= (len + offs)) ) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4253	if (_buffered = (__INST(buffered) == true)) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4254	__WRITING__(f)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4255	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4256
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4257	if (extPtr) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4258	__WRITEBYTES__(cnt, f, extPtr+offs, len, _buffered, __INST(handleType));
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4259	} else {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4260	/*
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4261	* on interrupt, anObject may be moved to another location.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4262	* So we pass anObject, and the offset to the __WRITEBYTES_OBJ__ macro.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4263	*/
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4264	offs += nInstBytes;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4265	__WRITEBYTES_OBJ__(cnt, f, anObject, offs, len, _buffered, __INST(handleType));
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4266	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4267
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4268	if (cnt >= 0) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4269	if (__isSmallInteger(__INST(position))) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4270	INT np = __intVal(__INST(position)) + cnt;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4271	OBJ t;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4272
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4273	t = __MKINT(np); __INST(position) = t; __STORE(self, t);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4274	} else {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4275	__INST(position) = nil; /* i.e. do not know */
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4276	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4277	RETURN ( __mkSmallInteger(cnt) );
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4278	} else /* cnt < 0 */ {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4279	if (
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	4280	#ifdef EWOULDBLOCK
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4281	(__threadErrno == EWOULDBLOCK) \|\|
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	4282	#endif
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4283	(__threadErrno == EAGAIN)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4284	) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4285	RETURN ( __mkSmallInteger(0) );
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4286	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4287	__INST(position) = nil; /* i.e. do not know */
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4288	error = __mkSmallInteger(__threadErrno);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4289	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4290	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4291	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4292	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4293	bad: ;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4294	%}.
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	4295	error notNil ifTrue:[
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4296	lastErrorNumber := error.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4297	self writeError:error.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4298	^ self
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	4299	].
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	4300	handle isNil ifTrue:[^ self errorNotOpen].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4301	(mode == #readonly) ifTrue:[^ self errorReadOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4302	^ self primitiveFailed
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4303	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4304
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4305	nextPutLong:aNumber MSB:msbFlag
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4306	"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	4307	true, data is written most-significant byte first; otherwise least
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4308	first.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4309	Works in both binary and text modes."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4310
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	4311	\|error\|
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	4312
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	4313	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4314	int num;
4384 f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	4315	union {
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4316	char bytes[4];
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4317	int intVal;
4384 f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	4318	} u;
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	4319	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4320	int cnt, _buffered;
4384 f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	4321	OBJ fp;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4322
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4323	__INST(lastErrorNumber) = nil;
4384 f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	4324	if (__isSmallInteger(aNumber)) {
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4325	num = __intVal(aNumber);
4384 f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	4326	} else {
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8881 diff changeset	4327	#if __POINTER_SIZE__ == 8
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4328	goto badArg;
4384 f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	4329	#else
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4330	num = __longIntVal(aNumber);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4331	if (num == 0) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4332	num = __signedLongIntVal(aNumber);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4333	if (num == 0) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4334	/* bad arg or out-of-range integer
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4335	* (handled by the fallBack code)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4336	*/
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4337	goto badArg;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4338	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4339	}
4384 f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	4340	#endif
f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	4341	}
f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	4342
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	4343	if ((__INST(handleType) == nil)
6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	4344	\|\| (__INST(handleType) == @symbol(filePointer))
6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	4345	\|\| (__INST(handleType) == @symbol(socketFilePointer))
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4346	\|\| (__INST(handleType) == @symbol(socketHandle))
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	4347	\|\| (__INST(handleType) == @symbol(pipeFilePointer))) {
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4348	if (((fp = __INST(handle)) != nil)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4349	&& (__INST(mode) != @symbol(readonly))
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4350	) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4351	if (msbFlag == true) {
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8881 diff changeset	4352	#if defined(__MSBFIRST__)
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4353	u.intVal = num;
4384 f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	4354	#else
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4355	u.bytes[0] = (num >> 24) & 0xFF;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4356	u.bytes[1] = (num >> 16) & 0xFF;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4357	u.bytes[2] = (num >> 8) & 0xFF;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4358	u.bytes[3] = num & 0xFF;
4384 f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	4359	#endif
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4360	} else {
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8881 diff changeset	4361	#if defined(__LSBFIRST__)
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4362	u.intVal = num;
4384 f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	4363	#else
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4364	u.bytes[3] = (num >> 24) & 0xFF;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4365	u.bytes[2] = (num >> 16) & 0xFF;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4366	u.bytes[1] = (num >> 8) & 0xFF;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4367	u.bytes[0] = num & 0xFF;
4384 f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	4368	#endif
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4369	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4370
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4371	f = __FILEVal(fp);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4372	if (_buffered = (__INST(buffered) == true)) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4373	__WRITING__(f)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4374	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4375	__WRITEBYTES__(cnt, f, u.bytes, 4, _buffered, __INST(handleType));
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4376
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4377	if (cnt == 4) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4378	if (__isSmallInteger(__INST(position))) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4379	INT np = __intVal(__INST(position)) + 4;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4380	OBJ t;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4381
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4382	t = __MKINT(np); __INST(position) = t; __STORE(self, t);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4383	} else {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4384	__INST(position) = nil; /* i.e. do not know */
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4385	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4386	RETURN ( self );
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4387	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4388	__INST(position) = nil; /* i.e. do not know */
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4389	error = __mkSmallInteger(__threadErrno);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4390	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4391	}
4384 f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	4392	badArg: ;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4393	%}.
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	4394	handle isNil ifTrue:[self errorNotOpen. ^ self].
7801 d930c353588d writeError: care for EWOULDBLOCK in nonBlocking case. penk parents: 7737 diff changeset	4395	(mode == #readonly) ifTrue:[self errorReadOnly. ^ self].
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	4396	error notNil ifTrue:[
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4397	lastErrorNumber := error.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4398	self writeError:error.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4399	^ self
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	4400	].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4401
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4402	aNumber isInteger ifTrue:[
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4403	^ super nextPutLong:aNumber MSB:msbFlag
92 0c73b48551ac * empty log message * claus parents: 88 diff changeset	4404	].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4405	self argumentMustBeInteger
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4406	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4407
15655 a044910b6f38 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15619 diff changeset	4408	nextPutShort:anIntegerOrCharacter MSB:msbFlag
a044910b6f38 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15619 diff changeset	4409	"Write the argument, anIntegerOrCharacter as a short (two bytes). If msbFlag is
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4410	true, data is written most-significant byte first; otherwise least
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4411	first.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4412	Works in both binary and text modes."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4413
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	4414	\|error\|
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	4415	%{
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4416	int num;
4384 f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	4417	union {
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4418	char bytes[2];
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4419	short shortVal;
4384 f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	4420	} u;
f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	4421
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	4422	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4423	int cnt, _buffered;
4384 f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	4424	OBJ fp;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4425
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	4426	__INST(lastErrorNumber) = nil;
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	4427	if ((__INST(handleType) == nil)
6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	4428	\|\| (__INST(handleType) == @symbol(filePointer))
6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	4429	\|\| (__INST(handleType) == @symbol(socketFilePointer))
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4430	\|\| (__INST(handleType) == @symbol(socketHandle))
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	4431	\|\| (__INST(handleType) == @symbol(pipeFilePointer))) {
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4432	if (((fp = __INST(handle)) != nil)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4433	&& (__INST(mode) != @symbol(readonly))
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4434	) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4435	if (__isSmallInteger(anIntegerOrCharacter)) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4436	num = __intVal(anIntegerOrCharacter);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4437	} else if (__isCharacter(anIntegerOrCharacter)) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4438	num = __smallIntegerVal(__characterVal(anIntegerOrCharacter));
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4439	} else
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4440	goto out;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4441
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4442	if (msbFlag == true) {
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8881 diff changeset	4443	#if defined(__MSBFIRST__)
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4444	u.shortVal = num;
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	4445	#else
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4446	u.bytes[0] = (num >> 8) & 0xFF;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4447	u.bytes[1] = num & 0xFF;
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	4448	#endif
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4449	} else {
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	4450	#if defined(__LSBFIRST__)
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4451	u.shortVal = num;
4384 f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	4452	#else
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4453	u.bytes[1] = (num >> 8) & 0xFF;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4454	u.bytes[0] = num & 0xFF;
4384 f8e779b99b14 slightly tuned nextPutLongMSB: and nextPutShortMSB: Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	4455	#endif
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4456	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4457
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4458	f = __FILEVal(fp);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4459	if (_buffered = (__INST(buffered) == true)) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4460	__WRITING__(f)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4461	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4462	__WRITEBYTES__(cnt, f, u.bytes, 2, _buffered, __INST(handleType));
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4463
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4464	if (cnt == 2) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4465	if (__isSmallInteger(__INST(position))) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4466	INT np = __intVal(__INST(position)) + 2;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4467	OBJ t;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4468
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4469	t = __MKINT(np); __INST(position) = t; __STORE(self, t);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4470	} else {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4471	__INST(position) = nil; /* i.e. do not know */
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4472	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4473	RETURN ( self );
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4474	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4475	__INST(position) = nil; /* i.e. do not know */
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4476	error = __mkSmallInteger(__threadErrno);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4477	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4478	}
15655 a044910b6f38 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15619 diff changeset	4479	out:;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4480	%}.
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	4481	error notNil ifTrue:[
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4482	lastErrorNumber := error.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4483	self writeError:error.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4484	^ self
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	4485	].
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	4486	handle isNil ifTrue:[self errorNotOpen. ^ self].
7801 d930c353588d writeError: care for EWOULDBLOCK in nonBlocking case. penk parents: 7737 diff changeset	4487	(mode == #readonly) ifTrue:[self errorReadOnly. ^ self].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4488	self argumentMustBeInteger
10 4f1f9a91e406 2.8.1 claus parents: 5 diff changeset	4489	! !
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4490
7053 13e04c48e23c prep for 0-based stream position Claus Gittinger <cg@exept.de> parents: 7051 diff changeset	4491	!ExternalStream methodsFor:'positioning'!
13e04c48e23c prep for 0-based stream position Claus Gittinger <cg@exept.de> parents: 7051 diff changeset	4492
15619 3f2e6f5fab12 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15496 diff changeset	4493	position
7053 13e04c48e23c prep for 0-based stream position Claus Gittinger <cg@exept.de> parents: 7051 diff changeset	4494	self subclassResponsibility
13e04c48e23c prep for 0-based stream position Claus Gittinger <cg@exept.de> parents: 7051 diff changeset	4495	!
13e04c48e23c prep for 0-based stream position Claus Gittinger <cg@exept.de> parents: 7051 diff changeset	4496
15619 3f2e6f5fab12 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15496 diff changeset	4497	position:index0Based
7053 13e04c48e23c prep for 0-based stream position Claus Gittinger <cg@exept.de> parents: 7051 diff changeset	4498	self subclassResponsibility
13e04c48e23c prep for 0-based stream position Claus Gittinger <cg@exept.de> parents: 7051 diff changeset	4499	! !
13e04c48e23c prep for 0-based stream position Claus Gittinger <cg@exept.de> parents: 7051 diff changeset	4500
12631 9e55d449f787 added: #printOn: Stefan Vogel <sv@exept.de> parents: 12553 diff changeset	4501	!ExternalStream methodsFor:'printing & storing'!
9e55d449f787 added: #printOn: Stefan Vogel <sv@exept.de> parents: 12553 diff changeset	4502
9e55d449f787 added: #printOn: Stefan Vogel <sv@exept.de> parents: 12553 diff changeset	4503	printOn:aStream
14068 46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	4504	aStream
46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	4505	nextPutAll:self className;
46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	4506	nextPutAll:'(handle:('.
12631 9e55d449f787 added: #printOn: Stefan Vogel <sv@exept.de> parents: 12553 diff changeset	4507	handle printOn:aStream.
9e55d449f787 added: #printOn: Stefan Vogel <sv@exept.de> parents: 12553 diff changeset	4508	aStream nextPutAll:'))'
9e55d449f787 added: #printOn: Stefan Vogel <sv@exept.de> parents: 12553 diff changeset	4509	! !
9e55d449f787 added: #printOn: Stefan Vogel <sv@exept.de> parents: 12553 diff changeset	4510
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4511	!ExternalStream methodsFor:'private'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4512
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4513	clearEOF
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4514	hitEOF := false
16300 277c0cb1ecbc class: ExternalStream Stefan Vogel <sv@exept.de> parents: 16296 diff changeset	4515	! !
277c0cb1ecbc class: ExternalStream Stefan Vogel <sv@exept.de> parents: 16296 diff changeset	4516
277c0cb1ecbc class: ExternalStream Stefan Vogel <sv@exept.de> parents: 16296 diff changeset	4517	!ExternalStream protectedMethodsFor:'private'!
8471 e061e503bf03 Documentation: users shold never send #closeFile Stefan Vogel <sv@exept.de> parents: 8362 diff changeset	4518
e061e503bf03 Documentation: users shold never send #closeFile Stefan Vogel <sv@exept.de> parents: 8362 diff changeset	4519	closeFile
e061e503bf03 Documentation: users shold never send #closeFile Stefan Vogel <sv@exept.de> parents: 8362 diff changeset	4520	"low level close - may be redefined in subclasses
e061e503bf03 Documentation: users shold never send #closeFile Stefan Vogel <sv@exept.de> parents: 8362 diff changeset	4521	Don't send this message, send #close instead"
e061e503bf03 Documentation: users shold never send #closeFile Stefan Vogel <sv@exept.de> parents: 8362 diff changeset	4522
12674 80fbcc4be1d6 changed: #closeFile Stefan Vogel <sv@exept.de> parents: 12631 diff changeset	4523	\|fp error\|
8471 e061e503bf03 Documentation: users shold never send #closeFile Stefan Vogel <sv@exept.de> parents: 8362 diff changeset	4524
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4525	fp := handle.
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4526
8471 e061e503bf03 Documentation: users shold never send #closeFile Stefan Vogel <sv@exept.de> parents: 8362 diff changeset	4527	%{
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4528	int rslt;
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4529
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4530	if (fp == nil) {
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4531	error = @symbol(errorNotOpen);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4532	goto out;
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4533	}
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4534
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4535	if (__INST(handleType) == @symbol(socketHandle)) {
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4536	SOCKET sock = __FILEVal(fp);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4537
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4538	if (@global(FileOpenTrace) == true) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4539	fprintf(stderr, "close socket [ExternalStream] %"_lx_"\n", (INT)sock);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4540	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4541
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4542	// whether the close() will be successful or not - the handle is invalid now!
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4543	__INST(handle) = nil;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4544	do {
8471 e061e503bf03 Documentation: users shold never send #closeFile Stefan Vogel <sv@exept.de> parents: 8362 diff changeset	4545	#ifdef WIN32
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4546	rslt = __STX_WSA_NOINT_CALL1("closesocket", closesocket, sock);
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4547	#else
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4548	rslt = close(sock);
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4549	#endif
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4550	} while((rslt < 0) && (__threadErrno == EINTR));
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4551	} else if ((__INST(handleType) == nil)
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4552	\|\| (__INST(handleType) == @symbol(filePointer))
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4553	\|\| (__INST(handleType) == @symbol(socketFilePointer))
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4554	\|\| (__INST(handleType) == @symbol(pipeFilePointer)))
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4555	{
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4556	FILEPOINTER f = __FILEVal(fp);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4557
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4558	if (@global(FileOpenTrace) == true) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4559	fprintf(stderr, "fclose [ExternalStream] %"_lx_"\n", (INT)f);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4560	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4561	// whether the close() will be successful or not - the handle is invalid now!
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4562	__INST(handle) = nil;
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4563
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4564	#ifdef WIN32
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4565	if (__INST(mode) != @symbol(readonly) && __INST(buffered) != false) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4566	// do a fflush() first, so that fclose() doesn't block
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4567	// we suspect, that EINTR causes problems in fclose()
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4568	do {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4569	__threadErrno = 0;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4570	rslt = __STX_C_CALL1("fflush", fflush, f);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4571	} while((rslt < 0) && (__threadErrno == EINTR));
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4572	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4573	do {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4574	__threadErrno = 0;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4575	rslt = __STX_C_NOINT_CALL1("fclose", fclose, f);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4576	} while((rslt < 0) && (__threadErrno == EINTR));
8471 e061e503bf03 Documentation: users shold never send #closeFile Stefan Vogel <sv@exept.de> parents: 8362 diff changeset	4577	#else
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	4578	// cg: the pre Nov2014 code always did the fclose interruptable;
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	4579	// I am not sure, if fclose is actually prepared to do this;
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	4580	// at least when only reading, this should not block, and we
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	4581	// should be ableto do it without being interruptable.
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	4582	// Must watch this - if it leads to blockings, change and think about it.
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	4583	if (__INST(mode) != @symbol(readonly)) {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	4584	__BEGIN_INTERRUPTABLE__
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	4585	rslt = fclose(f);
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	4586	__END_INTERRUPTABLE__
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	4587	} else {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	4588	rslt = fclose(f);
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	4589	}
8471 e061e503bf03 Documentation: users shold never send #closeFile Stefan Vogel <sv@exept.de> parents: 8362 diff changeset	4590	#endif
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4591	} else {
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4592	error = @symbol(badHandleType);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4593	goto out;
8471 e061e503bf03 Documentation: users shold never send #closeFile Stefan Vogel <sv@exept.de> parents: 8362 diff changeset	4594	}
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4595
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4596	if (rslt < 0) {
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4597	error = __mkSmallInteger(__threadErrno);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4598	goto out;
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4599	}
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4600	RETURN (self);
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4601
12674 80fbcc4be1d6 changed: #closeFile Stefan Vogel <sv@exept.de> parents: 12631 diff changeset	4602	out:;
8471 e061e503bf03 Documentation: users shold never send #closeFile Stefan Vogel <sv@exept.de> parents: 8362 diff changeset	4603	%}.
12674 80fbcc4be1d6 changed: #closeFile Stefan Vogel <sv@exept.de> parents: 12631 diff changeset	4604
80fbcc4be1d6 changed: #closeFile Stefan Vogel <sv@exept.de> parents: 12631 diff changeset	4605	error notNil ifTrue:[
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4606	error == #errorNotOpen ifTrue:[
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4607	self errorNotOpen.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4608	].
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4609	error isInteger ifTrue:[
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4610	lastErrorNumber := error.
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	4611	mode == #readonly ifTrue:[
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	4612	self ioError:error.
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	4613	] ifFalse:[
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	4614	self writeError:error.
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	4615	].
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4616	^ self.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4617	].
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4618	self primitiveFailed:error.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4619	^ self.
12674 80fbcc4be1d6 changed: #closeFile Stefan Vogel <sv@exept.de> parents: 12631 diff changeset	4620	].
80fbcc4be1d6 changed: #closeFile Stefan Vogel <sv@exept.de> parents: 12631 diff changeset	4621
8471 e061e503bf03 Documentation: users shold never send #closeFile Stefan Vogel <sv@exept.de> parents: 8362 diff changeset	4622	"/ fallback for rel5
e061e503bf03 Documentation: users shold never send #closeFile Stefan Vogel <sv@exept.de> parents: 8362 diff changeset	4623
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	4624	fp := handle.
8471 e061e503bf03 Documentation: users shold never send #closeFile Stefan Vogel <sv@exept.de> parents: 8362 diff changeset	4625	fp notNil ifTrue:[
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4626	handle := nil.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4627	self closeFile:fp
8471 e061e503bf03 Documentation: users shold never send #closeFile Stefan Vogel <sv@exept.de> parents: 8362 diff changeset	4628	]
16300 277c0cb1ecbc class: ExternalStream Stefan Vogel <sv@exept.de> parents: 16296 diff changeset	4629	! !
277c0cb1ecbc class: ExternalStream Stefan Vogel <sv@exept.de> parents: 16296 diff changeset	4630
277c0cb1ecbc class: ExternalStream Stefan Vogel <sv@exept.de> parents: 16296 diff changeset	4631	!ExternalStream methodsFor:'private'!
8471 e061e503bf03 Documentation: users shold never send #closeFile Stefan Vogel <sv@exept.de> parents: 8362 diff changeset	4632
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	4633	closeFile:handle
8471 e061e503bf03 Documentation: users shold never send #closeFile Stefan Vogel <sv@exept.de> parents: 8362 diff changeset	4634	"for rel5 only"
e061e503bf03 Documentation: users shold never send #closeFile Stefan Vogel <sv@exept.de> parents: 8362 diff changeset	4635
e061e503bf03 Documentation: users shold never send #closeFile Stefan Vogel <sv@exept.de> parents: 8362 diff changeset	4636	self primitiveFailed
e061e503bf03 Documentation: users shold never send #closeFile Stefan Vogel <sv@exept.de> parents: 8362 diff changeset	4637	!
e061e503bf03 Documentation: users shold never send #closeFile Stefan Vogel <sv@exept.de> parents: 8362 diff changeset	4638
12706 47363ef2326c added: Stefan Vogel <sv@exept.de> parents: 12704 diff changeset	4639	connectTo:aFileDescriptor withMode:modeSymbol handleType:handleTypeSymbol
8966 0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4640	"connect a fileDescriptor; openmode is the string defining the way to open.
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4641	This can be used to connect an externally provided fileDescriptor (from
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4642	primitive code) or a pipeFileDescriptor (as returned by makePipe) to
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4643	a Stream object.
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4644	The openMode ('r', 'w' etc.) must match the mode in which
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4645	the fileDescriptor was originally opened (otherwise i/o errors will be reported later)."
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4646
12706 47363ef2326c added: Stefan Vogel <sv@exept.de> parents: 12704 diff changeset	4647	\|retVal error openmode\|
8966 0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4648
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	4649	handle notNil ifTrue:[^ self errorAlreadyOpen].
12706 47363ef2326c added: Stefan Vogel <sv@exept.de> parents: 12704 diff changeset	4650	mode := modeSymbol.
47363ef2326c added: Stefan Vogel <sv@exept.de> parents: 12704 diff changeset	4651	openmode := self fopenMode.
8966 0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4652	%{
12683 40b0a5cd3fd3 changed: Stefan Vogel <sv@exept.de> parents: 12678 diff changeset	4653	FILEPOINTER f = 0;
8966 0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4654	OBJ fp;
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4655	FILE *fdopen();
12683 40b0a5cd3fd3 changed: Stefan Vogel <sv@exept.de> parents: 12678 diff changeset	4656	int fd = -2;
40b0a5cd3fd3 changed: Stefan Vogel <sv@exept.de> parents: 12678 diff changeset	4657
40b0a5cd3fd3 changed: Stefan Vogel <sv@exept.de> parents: 12678 diff changeset	4658	if (__isStringLike(openmode)) {
12688 b429dc21d6b8 added: #openError: Stefan Vogel <sv@exept.de> parents: 12683 diff changeset	4659	#ifdef WIN32
15435 fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4660	__stxWrapApiEnterCritical();
12688 b429dc21d6b8 added: #openError: Stefan Vogel <sv@exept.de> parents: 12683 diff changeset	4661	#endif
15435 fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4662	if (__isSmallInteger(aFileDescriptor)) {
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4663	fd = __intVal(aFileDescriptor);
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4664	}
12683 40b0a5cd3fd3 changed: Stefan Vogel <sv@exept.de> parents: 12678 diff changeset	4665	#ifdef WIN32
15435 fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4666	else if (__isExternalAddressLike(aFileDescriptor)) {
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4667	fd = _open_osfhandle((long)__externalAddressVal(aFileDescriptor), O_BINARY);
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4668	if (fd < 0) {
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4669	if (__threadErrno == 0) {
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4670	// no more file descriptors
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4671	__threadErrno = EMFILE;
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4672	}
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4673	error = __mkSmallInteger(__threadErrno);
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4674	__stxWrapApiLeaveCritical();
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4675	goto out;
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4676	}
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4677	}
12683 40b0a5cd3fd3 changed: Stefan Vogel <sv@exept.de> parents: 12678 diff changeset	4678	#endif
15435 fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4679	f = (FILEPOINTER) fdopen(fd, (char *)__stringVal(openmode));
12688 b429dc21d6b8 added: #openError: Stefan Vogel <sv@exept.de> parents: 12683 diff changeset	4680	#ifdef WIN32
15435 fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4681	__stxWrapApiLeaveCritical();
12688 b429dc21d6b8 added: #openError: Stefan Vogel <sv@exept.de> parents: 12683 diff changeset	4682	#endif
15435 fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4683	if (f == NULL) {
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4684	error =__mkSmallInteger(__threadErrno);
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4685	} else {
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4686	if (@global(FileOpenTrace) == true) {
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4687	fprintf(stderr, "fdopen [ExternalStream] %"_ld_" (%"_lx_") -> %"_lx_"\n", (INT)fd, (INT)fd, (INT)f);
15435 fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4688	}
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4689
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4690	fp = __MKFILEPOINTER(f); __INST(handle) = fp; __STORE(self, fp);
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4691	retVal = self;
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4692	}
8966 0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4693	}
12688 b429dc21d6b8 added: #openError: Stefan Vogel <sv@exept.de> parents: 12683 diff changeset	4694	out:;
8966 0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4695	%}.
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4696	retVal notNil ifTrue:[
15435 fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4697	position := 0.
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4698	buffered isNil ifTrue:[
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4699	buffered := true. "default is buffered"
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4700	].
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4701	handleType := handleTypeSymbol.
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4702	Lobby register:self.
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4703	^ retVal
8966 0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4704	].
12688 b429dc21d6b8 added: #openError: Stefan Vogel <sv@exept.de> parents: 12683 diff changeset	4705	error notNil ifTrue:[
15435 fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4706	OperatingSystem closeFd:aFileDescriptor.
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4707	lastErrorNumber := error.
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4708	position := nil.
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4709	"
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4710	the open failed for some reason ...
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4711	"
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4712	^ self openError:error
8966 0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4713	].
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4714	!
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4715
10982 11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	4716	dupFd
11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	4717	"duplicate my file descriptor"
11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	4718
11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	4719	\|fd dupFd\|
11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	4720
11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	4721	fd := self fileHandle.
11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	4722	dupFd := OperatingSystem dup:fd.
10989 f7d1de91344b fix #setFileHandle:mode: Stefan Vogel <sv@exept.de> parents: 10988 diff changeset	4723	self setFileHandle:dupFd mode:self fopenMode.
10995 94ed80f3bfc7 changed #gotErrorOrEOF sr parents: 10989 diff changeset	4724	!
10989 f7d1de91344b fix #setFileHandle:mode: Stefan Vogel <sv@exept.de> parents: 10988 diff changeset	4725
f7d1de91344b fix #setFileHandle:mode: Stefan Vogel <sv@exept.de> parents: 10988 diff changeset	4726	fopenMode
f7d1de91344b fix #setFileHandle:mode: Stefan Vogel <sv@exept.de> parents: 10988 diff changeset	4727	"answer the mode for fopen.
f7d1de91344b fix #setFileHandle:mode: Stefan Vogel <sv@exept.de> parents: 10988 diff changeset	4728	Only used internally"
f7d1de91344b fix #setFileHandle:mode: Stefan Vogel <sv@exept.de> parents: 10988 diff changeset	4729
f7d1de91344b fix #setFileHandle:mode: Stefan Vogel <sv@exept.de> parents: 10988 diff changeset	4730	mode == #readonly ifTrue:[
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	4731	^ ReadMode
10989 f7d1de91344b fix #setFileHandle:mode: Stefan Vogel <sv@exept.de> parents: 10988 diff changeset	4732	].
f7d1de91344b fix #setFileHandle:mode: Stefan Vogel <sv@exept.de> parents: 10988 diff changeset	4733	mode == #writeonly ifTrue:[
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	4734	^ WriteMode
10989 f7d1de91344b fix #setFileHandle:mode: Stefan Vogel <sv@exept.de> parents: 10988 diff changeset	4735	].
f7d1de91344b fix #setFileHandle:mode: Stefan Vogel <sv@exept.de> parents: 10988 diff changeset	4736	mode == #readWrite ifTrue:[
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	4737	^ ReadWriteMode
10989 f7d1de91344b fix #setFileHandle:mode: Stefan Vogel <sv@exept.de> parents: 10988 diff changeset	4738	].
f7d1de91344b fix #setFileHandle:mode: Stefan Vogel <sv@exept.de> parents: 10988 diff changeset	4739	mode == #append ifTrue:[
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	4740	^ AppendMode
10989 f7d1de91344b fix #setFileHandle:mode: Stefan Vogel <sv@exept.de> parents: 10988 diff changeset	4741	].
f7d1de91344b fix #setFileHandle:mode: Stefan Vogel <sv@exept.de> parents: 10988 diff changeset	4742	^ ReadWriteMode
10995 94ed80f3bfc7 changed #gotErrorOrEOF sr parents: 10989 diff changeset	4743	!
10982 11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	4744
8966 0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4745	open:aPath withMode:openModeString
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	4746	"low level open; opens the file/device and sets the handle instance
8966 0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4747	variable. Careful: this does not care for any other state."
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4748
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	4749	\|ok error\|
8966 0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4750
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4751	ok := false.
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4752	%{
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4753	FILE *f;
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4754	OBJ fp;
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4755
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4756	if (__isStringLike(aPath) && __isStringLike(openModeString)) {
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4757	#ifdef WIN32
10339 972d0164125a * empty log message * Claus Gittinger <cg@exept.de> parents: 10328 diff changeset	4758	# if 1
8966 0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4759	f = fopen((char ) __stringVal(aPath), (char ) __stringVal(openModeString));
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4760	# else
15435 fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4761	__BEGIN_INTERRUPTABLE__
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4762	do {
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4763	f = fopen((char ) __stringVal(aPath), (char ) __stringVal(openModeString));
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4764	} while ((f == NULL) && (__threadErrno == EINTR));
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4765	__END_INTERRUPTABLE__
8966 0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4766	# endif
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4767	#else /* UNIX */
15435 fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4768	__BEGIN_INTERRUPTABLE__
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4769	do {
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4770	f = fopen((char ) __stringVal(aPath), (char ) __stringVal(openModeString));
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4771	} while ((f == NULL) && (__threadErrno == EINTR));
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4772	__END_INTERRUPTABLE__
8966 0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4773	#endif /* UNIX */
15435 fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4774	if (f == NULL) {
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	4775	error = __mkSmallInteger(__threadErrno);
15435 fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4776	} else {
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4777	if (@global(FileOpenTrace) == true) {
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4778	fprintf(stderr, "fopen %s [ExternalStream] -> %"_lx_"\n", __stringVal(aPath), (INT)f);
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4779	}
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4780	fp = __MKFILEPOINTER(f); __INST(handle) = fp; __STORE(self, fp);
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4781	__INST(handleType) = @symbol(filePointer);
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4782	ok = true;
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4783	}
8966 0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4784	}
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4785	%}.
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	4786	ok ifTrue:[
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	4787	position := 0.
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	4788	Lobby register:self.
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	4789	^ self.
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	4790	].
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	4791	error notNil ifTrue:[
15435 fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4792	"
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4793	the open failed for some reason ...
fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4794	"
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	4795	lastErrorNumber := error.
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	4796	self openError:error.
8966 0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4797	].
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	4798	self primitiveFailed.
8966 0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4799	!
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4800
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4801	reOpen
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4802	"USERS WILL NEVER INVOKE THIS METHOD
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4803	sent after snapin to reopen streams.
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4804	cannot reopen here since I am abstract and have no device knowledge"
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4805
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4806	self class name errorPrint. ' [warning]: automatic reOpen not supported - stream closed' errorPrintCR.
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	4807	handle := nil.
8966 0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4808	Lobby unregister:self.
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4809
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4810	"Modified: 10.1.1997 / 17:50:44 / cg"
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4811	!
0b299dd8759c Allow Symbols as pathname and openMode Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	4812
12398 7243f8014d98 * empty log message * Claus Gittinger <cg@exept.de> parents: 12395 diff changeset	4813	setAccessor:what to:something
7243f8014d98 * empty log message * Claus Gittinger <cg@exept.de> parents: 12395 diff changeset	4814	"set the filePointer/fileHandle to the given one;
7243f8014d98 * empty log message * Claus Gittinger <cg@exept.de> parents: 12395 diff changeset	4815	low level private & friend interface; may also be used to connect to some
7243f8014d98 * empty log message * Claus Gittinger <cg@exept.de> parents: 12395 diff changeset	4816	externally provided handle."
7243f8014d98 * empty log message * Claus Gittinger <cg@exept.de> parents: 12395 diff changeset	4817
7243f8014d98 * empty log message * Claus Gittinger <cg@exept.de> parents: 12395 diff changeset	4818	handle := something.
7243f8014d98 * empty log message * Claus Gittinger <cg@exept.de> parents: 12395 diff changeset	4819	handleType := what.
7243f8014d98 * empty log message * Claus Gittinger <cg@exept.de> parents: 12395 diff changeset	4820	!
7243f8014d98 * empty log message * Claus Gittinger <cg@exept.de> parents: 12395 diff changeset	4821
8471 e061e503bf03 Documentation: users shold never send #closeFile Stefan Vogel <sv@exept.de> parents: 8362 diff changeset	4822	setFileDescriptor:anInteger mode:openMode
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	4823	"set the handle based upon a given fileDescriptor -
8471 e061e503bf03 Documentation: users shold never send #closeFile Stefan Vogel <sv@exept.de> parents: 8362 diff changeset	4824	notice: this one is based on the underlying OSs fileDescriptor -
e061e503bf03 Documentation: users shold never send #closeFile Stefan Vogel <sv@exept.de> parents: 8362 diff changeset	4825	this may not be available on all platforms (i.e. non unix systems)."
e061e503bf03 Documentation: users shold never send #closeFile Stefan Vogel <sv@exept.de> parents: 8362 diff changeset	4826
10982 11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	4827	self setFileHandle:anInteger mode:openMode
11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	4828	!
11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	4829
12398 7243f8014d98 * empty log message * Claus Gittinger <cg@exept.de> parents: 12395 diff changeset	4830	setFileHandle:something
7243f8014d98 * empty log message * Claus Gittinger <cg@exept.de> parents: 12395 diff changeset	4831	"set the fileHandle to the given one;
7243f8014d98 * empty log message * Claus Gittinger <cg@exept.de> parents: 12395 diff changeset	4832	low level private & friend interface; may also be used to connect to some
7243f8014d98 * empty log message * Claus Gittinger <cg@exept.de> parents: 12395 diff changeset	4833	externally provided file handle."
7243f8014d98 * empty log message * Claus Gittinger <cg@exept.de> parents: 12395 diff changeset	4834
7243f8014d98 * empty log message * Claus Gittinger <cg@exept.de> parents: 12395 diff changeset	4835	self setAccessor:#fileHandle to:something
7243f8014d98 * empty log message * Claus Gittinger <cg@exept.de> parents: 12395 diff changeset	4836	!
7243f8014d98 * empty log message * Claus Gittinger <cg@exept.de> parents: 12395 diff changeset	4837
10982 11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	4838	setFileHandle:anIntegerOrExternalAddress mode:openMode
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	4839	"set the handle based upon a given fileHandle -
10982 11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	4840	notice: this one is based on the underlying OSs fileDescriptor -
11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	4841	this is a fileDescriptor (Integer) on Unix and Windows, or an Handle (ExternalAddres) on Windows only.
11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	4842	It may not be available on all platforms."
11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	4843
8471 e061e503bf03 Documentation: users shold never send #closeFile Stefan Vogel <sv@exept.de> parents: 8362 diff changeset	4844	%{
e061e503bf03 Documentation: users shold never send #closeFile Stefan Vogel <sv@exept.de> parents: 8362 diff changeset	4845	FILEPOINTER f;
e061e503bf03 Documentation: users shold never send #closeFile Stefan Vogel <sv@exept.de> parents: 8362 diff changeset	4846	OBJ fp;
e061e503bf03 Documentation: users shold never send #closeFile Stefan Vogel <sv@exept.de> parents: 8362 diff changeset	4847	FILE *fdopen();
10982 11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	4848	int fd;
11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	4849
11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	4850	if (!__isStringLike(openMode))
14068 46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	4851	goto err;
10982 11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	4852
11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	4853	#ifdef WIN32
12688 b429dc21d6b8 added: #openError: Stefan Vogel <sv@exept.de> parents: 12683 diff changeset	4854	__stxWrapApiEnterCritical();
10982 11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	4855	if (__isExternalAddressLike(anIntegerOrExternalAddress) ) {
14068 46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	4856	HANDLE __fileHandle = (HANDLE)__externalAddressVal(anIntegerOrExternalAddress);
46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	4857	fd = _open_osfhandle((long)__fileHandle, O_BINARY); /* should we handle readonly, append or text mode? */
46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	4858	if (fd < 0) {
46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	4859	__stxWrapApiLeaveCritical();
46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	4860	CloseHandle(__fileHandle);
46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	4861	goto err;
46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	4862	}
10982 11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	4863	} else
11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	4864	#endif
11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	4865	if (__isSmallInteger(anIntegerOrExternalAddress)) {
14068 46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	4866	fd = __smallIntegerVal(anIntegerOrExternalAddress);
10982 11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	4867	} else {
12688 b429dc21d6b8 added: #openError: Stefan Vogel <sv@exept.de> parents: 12683 diff changeset	4868	#ifdef WIN32
14068 46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	4869	__stxWrapApiLeaveCritical();
12688 b429dc21d6b8 added: #openError: Stefan Vogel <sv@exept.de> parents: 12683 diff changeset	4870	#endif
14068 46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	4871	goto err;
8471 e061e503bf03 Documentation: users shold never send #closeFile Stefan Vogel <sv@exept.de> parents: 8362 diff changeset	4872	}
10997 8ec53332c725 _fdopen -> fdopen() Stefan Vogel <sv@exept.de> parents: 10995 diff changeset	4873	f = fdopen(fd, __stringVal(openMode));
12688 b429dc21d6b8 added: #openError: Stefan Vogel <sv@exept.de> parents: 12683 diff changeset	4874	#ifdef WIN32
b429dc21d6b8 added: #openError: Stefan Vogel <sv@exept.de> parents: 12683 diff changeset	4875	__stxWrapApiLeaveCritical();
b429dc21d6b8 added: #openError: Stefan Vogel <sv@exept.de> parents: 12683 diff changeset	4876	#endif
10982 11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	4877	if (f != NULL) {
14068 46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	4878	if (@global(FileOpenTrace) == true) {
15435 fc902ce16af0 typecasts in printf for 64bit Claus Gittinger <cg@exept.de> parents: 15361 diff changeset	4879	fprintf(stderr, "fdopen [ExternalStream] %d -> %"_lx_"\n", fd, (INT)f);
14068 46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	4880	}
46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	4881	fp = __MKFILEPOINTER(f); __INST(handle) = fp; __STORE(self, fp);
46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	4882	__INST(handleType) = @symbol(filePointer);
46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	4883	RETURN (self);
10982 11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	4884	}
11fd48c1276d New: #copy duplicates the underlying file descriptor resp. file handle Stefan Vogel <sv@exept.de> parents: 10932 diff changeset	4885	err:;
8471 e061e503bf03 Documentation: users shold never send #closeFile Stefan Vogel <sv@exept.de> parents: 8362 diff changeset	4886	%}.
e061e503bf03 Documentation: users shold never send #closeFile Stefan Vogel <sv@exept.de> parents: 8362 diff changeset	4887	^ self primitiveFailed
e061e503bf03 Documentation: users shold never send #closeFile Stefan Vogel <sv@exept.de> parents: 8362 diff changeset	4888	!
e061e503bf03 Documentation: users shold never send #closeFile Stefan Vogel <sv@exept.de> parents: 8362 diff changeset	4889
e061e503bf03 Documentation: users shold never send #closeFile Stefan Vogel <sv@exept.de> parents: 8362 diff changeset	4890	setFilePointer:something
e061e503bf03 Documentation: users shold never send #closeFile Stefan Vogel <sv@exept.de> parents: 8362 diff changeset	4891	"set the filePointer to the given one;
e061e503bf03 Documentation: users shold never send #closeFile Stefan Vogel <sv@exept.de> parents: 8362 diff changeset	4892	low level private & friend interface; may also be used to connect to some
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	4893	externally provided file."
1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	4894
1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	4895	self setAccessor:#filePointer to:something
1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	4896	!
1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	4897
12398 7243f8014d98 * empty log message * Claus Gittinger <cg@exept.de> parents: 12395 diff changeset	4898	setLastError:aNumber
7243f8014d98 * empty log message * Claus Gittinger <cg@exept.de> parents: 12395 diff changeset	4899	lastErrorNumber := aNumber
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	4900	!
1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	4901
1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	4902	setSocketHandle:something
1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	4903	"set the socketHandle to the given one;
1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	4904	low level private & friend interface; may also be used to connect to some
1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	4905	externally provided socket handle."
1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	4906
1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	4907	self setAccessor:#socketHandle to:something
8471 e061e503bf03 Documentation: users shold never send #closeFile Stefan Vogel <sv@exept.de> parents: 8362 diff changeset	4908	! !
e061e503bf03 Documentation: users shold never send #closeFile Stefan Vogel <sv@exept.de> parents: 8362 diff changeset	4909
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4910	!ExternalStream methodsFor:'queries'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4911
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4912	nextError
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4913	"return the error by trying to read something.
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4914	Should only be used, when we know, that a read operation
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4915	will return an error (otherwise a character may be lost).
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4916	Return an integer (error number), 0 (EOF) or nil (no error)"
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4917
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4918	%{ /NOCONTEXT/
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4919	FILEPOINTER f;
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4920	int ret, _buffered;
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4921	OBJ fp;
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4922	unsigned char ch;
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4923
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4924	if ((__INST(handleType) == nil)
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4925	\|\| (__INST(handleType) == @symbol(filePointer))
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4926	\|\| (__INST(handleType) == @symbol(socketFilePointer))
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4927	\|\| (__INST(handleType) == @symbol(socketHandle))
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4928	\|\| (__INST(handleType) == @symbol(pipeFilePointer))) {
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4929	if (((fp = __INST(handle)) != nil)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4930	&& (__INST(mode) != @symbol(writeonly))
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4931	) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4932	f = __FILEVal(fp);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4933
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4934	_buffered = (__INST(buffered) == true);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4935	if (_buffered) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4936	__READING__(f)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4937	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4938	__READBYTE__(ret, f, &ch, _buffered, __INST(handleType));
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4939
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4940	if (ret > 0) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4941	RETURN(nil)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4942	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4943	if (ret < 0) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4944	RETURN(__mkSmallInteger(__threadErrno));
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4945	} else /* ret == 0 */ {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4946	RETURN(__mkSmallInteger(0)); /* EOF */
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4947	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4948	}
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4949	}
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4950	%}.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4951	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4952
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4953	numAvailable
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4954	"return the number of bytes available for reading"
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4955
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4956	\|fd\|
7804 7128efd3b504 isNonBlocking -> isBlocking Claus Gittinger <cg@exept.de> parents: 7801 diff changeset	4957
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	4958	handle isNil ifTrue:[^ self errorNotOpen].
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4959	mode == #writeonly ifTrue:[^ self errorWriteOnly].
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4960	fd := self fileDescriptor.
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4961
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4962	%{
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4963	#ifdef WIN32
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4964	int res = 1;
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4965	int success = 0;
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4966
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4967	if (__INST(handleType) == @symbol(socketHandle)) {
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4968	success = ioctlsocket((SOCKET)__externalAddressVal(fd), FIONREAD, &res) == 0;
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4969	} else if (__INST(handleType) == @symbol(socketFilePointer)) {
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4970	success = ioctlsocket((SOCKET)_get_osfhandle(__intVal(fd)), FIONREAD, &res) == 0;
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4971	} else if (__INST(handleType) == @symbol(pipeFilePointer)) {
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4972	success = PeekNamedPipe((HANDLE)_get_osfhandle(__intVal(fd)),0,0,0,&res,0);
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4973	}
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4974	if (success) {
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4975	if (__INST(readAhead) != nil) res++;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	4976	RETURN(__mkSmallInteger(res));
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4977	}
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4978	#endif
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4979	%}.
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4980
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4981	^ (readAhead notNil or:[OperatingSystem readCheck:fd]) ifTrue:[1] ifFalse:[0].
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4982
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4983	"Created: / 4.2.1998 / 16:56:01 / cg"
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	4984	"Modified: / 4.2.1998 / 17:31:11 / cg"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4985	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4986
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4987	!ExternalStream methodsFor:'reading'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4988
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4989	next
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4990	"return the next element; advance read position.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4991	In binary mode, an integer is returned, otherwise a character.
10348 7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	4992	If there are no more elements, either an exception is thrown or nil is returned
7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	4993	- see #pastEndRead."
1 a27a279701f8 Initial revision claus parents: diff changeset	4994
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	4995	\|c error\|
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	4996	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	4997	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	4998	int ret, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	4999	OBJ pos, fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5000	unsigned char ch;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5001
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	5002	__INST(lastErrorNumber) = nil;
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	5003	if ((__INST(handleType) == nil)
6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	5004	\|\| (__INST(handleType) == @symbol(filePointer))
6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	5005	\|\| (__INST(handleType) == @symbol(socketFilePointer))
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5006	\|\| (__INST(handleType) == @symbol(socketHandle))
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	5007	\|\| (__INST(handleType) == @symbol(pipeFilePointer))) {
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5008	if (((fp = __INST(handle)) != nil)
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5009	&& (__INST(mode) != @symbol(writeonly))
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5010	) {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5011	f = __FILEVal(fp);
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5012
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5013	_buffered = (__INST(buffered) == true);
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5014	if (_buffered) {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5015	__READING__(f)
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5016	}
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5017	__READBYTE__(ret, f, &ch, _buffered, __INST(handleType));
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5018
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5019	if (ret > 0) {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5020	pos = __INST(position);
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5021	if (__isSmallInteger(pos)) {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5022	OBJ t;
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5023
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5024	t = __MKINT(__intVal(pos) + 1); __INST(position) = t; __STORE(self, t);
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5025	} else {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5026	__INST(position) = nil; /* i.e. do not know */
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5027	}
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5028	if (__INST(binary) == true) {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5029	RETURN ( __mkSmallInteger(ch) );
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5030	}
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5031	RETURN ( __MKCHARACTER(ch) );
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5032	}
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5033
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5034	__INST(position) = nil;
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5035	if (ret < 0) {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5036	error = __mkSmallInteger(__threadErrno);
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5037	} else /* ret == 0 */ {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5038	__INST(hitEOF) = true;
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5039	}
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5040	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5041	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5042	%}.
8614 88421fbd4ab6 pastEnd -> pastEndRead Claus Gittinger <cg@exept.de> parents: 8604 diff changeset	5043	hitEOF == true ifTrue:[^ self pastEndRead].
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	5044	error notNil ifTrue:[
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5045	lastErrorNumber := error.
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5046	^ self readError:error
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	5047	].
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	5048	handle isNil ifTrue:[^ self errorNotOpen].
5420 cec8306dff39 migration Claus Gittinger <cg@exept.de> parents: 5417 diff changeset	5049	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
cec8306dff39 migration Claus Gittinger <cg@exept.de> parents: 5417 diff changeset	5050
cec8306dff39 migration Claus Gittinger <cg@exept.de> parents: 5417 diff changeset	5051	readAhead notNil ifTrue:[
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5052	c := readAhead.
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5053	readAhead := nil.
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5054	^ c.
5420 cec8306dff39 migration Claus Gittinger <cg@exept.de> parents: 5417 diff changeset	5055	].
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	5056	c := self nextByteFromFile:handle.
5430 7d0aa5fc6c22 checkin from browser Claus Gittinger <cg@exept.de> parents: 5420 diff changeset	5057	c isNil ifTrue:[
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5058	^ self pastEndRead.
5430 7d0aa5fc6c22 checkin from browser Claus Gittinger <cg@exept.de> parents: 5420 diff changeset	5059	].
5420 cec8306dff39 migration Claus Gittinger <cg@exept.de> parents: 5417 diff changeset	5060	binary == true ifTrue:[
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5061	^ c
5420 cec8306dff39 migration Claus Gittinger <cg@exept.de> parents: 5417 diff changeset	5062	].
cec8306dff39 migration Claus Gittinger <cg@exept.de> parents: 5417 diff changeset	5063	^ Character value:c
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5064	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5065
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5066	next:count
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5067	"return the next count elements of the stream as a collection.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5068	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	5069
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	5070	\|coll nRead\|
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5071
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5072	binary ifTrue:[
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5073	coll := ByteArray uninitializedNew:count
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5074	] ifFalse:[
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5075	coll := String new:count
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5076	].
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	5077	nRead := self nextBytes:count into:coll startingAt:1.
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	5078
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	5079	"/ for readStream protocol compatibility,
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	5080	"/ we must raise an exception here.
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	5081
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	5082	nRead < count ifTrue:[
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5083	^ self pastEndRead
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	5084	].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5085	^ coll
2151 5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	5086
5f1fd65f8c3b next: must raise pastEnd, if EOF is hit; Claus Gittinger <cg@exept.de> parents: 2134 diff changeset	5087	"Modified: 11.1.1997 / 17:44:17 / cg"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5088	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5089
10348 7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5090	nextOrNil
7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5091	"return the next element; advance read position.
7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5092	In binary mode, an integer is returned, otherwise a character.
7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5093	If there are no more elements, nil is returned.
7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5094	This is #atEnd and #next in a single operation - to speed up some code"
7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5095
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	5096	\|c error\|
10348 7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5097	%{
7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5098	FILEPOINTER f;
7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5099	int ret, _buffered;
7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5100	OBJ pos, fp;
7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5101	unsigned char ch;
7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5102
7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5103	__INST(lastErrorNumber) = nil;
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	5104	if ((__INST(handleType) == nil)
6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	5105	\|\| (__INST(handleType) == @symbol(filePointer))
6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	5106	\|\| (__INST(handleType) == @symbol(socketFilePointer))
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5107	\|\| (__INST(handleType) == @symbol(socketHandle))
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	5108	\|\| (__INST(handleType) == @symbol(pipeFilePointer))) {
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5109	if (((fp = __INST(handle)) != nil)
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5110	&& (__INST(mode) != @symbol(writeonly))
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5111	) {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5112	f = __FILEVal(fp);
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5113
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5114	_buffered = (__INST(buffered) == true);
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5115	if (_buffered) {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5116	__READING__(f)
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5117	}
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5118	__READBYTE__(ret, f, &ch, _buffered, __INST(handleType));
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5119
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5120	if (ret > 0) {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5121	pos = __INST(position);
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5122	if (__isSmallInteger(pos)) {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5123	OBJ t;
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5124
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5125	t = __MKINT(__intVal(pos) + 1); __INST(position) = t; __STORE(self, t);
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5126	} else {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5127	__INST(position) = nil; /* i.e. do not know */
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5128	}
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5129	if (__INST(binary) == true) {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5130	RETURN ( __mkSmallInteger(ch) );
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5131	}
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5132	RETURN ( __MKCHARACTER(ch) );
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5133	}
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5134
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5135	__INST(position) = nil;
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5136	if (ret < 0) {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5137	error = __mkSmallInteger(__threadErrno);
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5138	} else /* ret == 0 */ {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5139	__INST(hitEOF) = true;
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5140	}
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5141	}
10348 7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5142	}
7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5143	%}.
7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5144	hitEOF == true ifTrue:[^ nil].
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	5145	error notNil ifTrue:[
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5146	lastErrorNumber := error.
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5147	^ self readError:error.
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	5148	].
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	5149	handle isNil ifTrue:[^ self errorNotOpen].
10348 7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5150	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5151
7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5152	readAhead notNil ifTrue:[
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5153	c := readAhead.
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5154	readAhead := nil.
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5155	^ c.
10348 7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5156	].
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	5157	c := self nextByteFromFile:handle.
10348 7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5158	c isNil ifTrue:[
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5159	^ nil.
10348 7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5160	].
7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5161	binary == true ifTrue:[
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5162	^ c
10348 7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5163	].
7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5164	^ Character value:c
7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5165	!
7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5166
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5167	peek
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5168	"return the element to be read next without advancing read position.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5169	In binary mode, an integer is returned, otherwise a character.
10348 7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5170	If there are no more elements, either an exception is thrown or nil is returned
7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5171	- see #pastEndRead."
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5172
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	5173	\|error\|
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	5174	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	5175	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	5176	unsigned char c;
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	5177	int ret, _buffered;
216 a8abff749575 * empty log message * claus parents: 213 diff changeset	5178	OBJ fp;
3672 49dff0652a2c fixed readAhead in peek with non-binary mode Claus Gittinger <cg@exept.de> parents: 3569 diff changeset	5179	OBJ ra;
49dff0652a2c fixed readAhead in peek with non-binary mode Claus Gittinger <cg@exept.de> parents: 3569 diff changeset	5180
49dff0652a2c fixed readAhead in peek with non-binary mode Claus Gittinger <cg@exept.de> parents: 3569 diff changeset	5181	if ((ra = __INST(readAhead)) != nil) {
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5182	if (__INST(binary) == true) {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5183	RETURN ( ra );
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5184	}
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5185	c = __intVal(ra);
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5186	RETURN ( __MKCHARACTER(c) );
3029 aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	5187	}
aa14768e0e6a larger lineBuffer in #nextLine Claus Gittinger <cg@exept.de> parents: 3016 diff changeset	5188
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	5189	__INST(lastErrorNumber) = nil;
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	5190
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	5191	if ((__INST(handleType) == nil)
6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	5192	\|\| (__INST(handleType) == @symbol(filePointer))
6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	5193	\|\| (__INST(handleType) == @symbol(socketFilePointer))
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5194	\|\| (__INST(handleType) == @symbol(socketHandle))
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	5195	\|\| (__INST(handleType) == @symbol(pipeFilePointer))) {
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5196	if (((fp = __INST(handle)) != nil)
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5197	&& (__INST(mode) != @symbol(writeonly))
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5198	) {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5199	f = __FILEVal(fp);
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5200	_buffered = (__INST(buffered) == true);
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5201	if (_buffered) {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5202	__READING__(f)
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5203	}
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5204	__READBYTE__(ret, f, &c, _buffered, __INST(handleType));
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5205
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5206	if (ret > 0) {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5207	__UNGETC__(c, f, _buffered);
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5208
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5209	if (__INST(binary) == true) {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5210	RETURN ( __mkSmallInteger(c) );
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5211	}
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5212	RETURN ( __MKCHARACTER(c) );
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5213	}
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5214	if (ret < 0) {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5215	error = __mkSmallInteger(__threadErrno);
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5216	} else /* ret == 0 */ {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5217	__INST(hitEOF) = true;
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5218	}
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5219	}
1 a27a279701f8 Initial revision claus parents: diff changeset	5220	}
159 514c749165c3 * empty log message * claus parents: 108 diff changeset	5221	%}.
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	5222	hitEOF == true ifTrue:[^ self pastEndRead].
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	5223	error notNil ifTrue:[
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5224	lastErrorNumber := error.
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5225	^ self readError:error.
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	5226	].
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	5227	handle isNil ifTrue:[^ self errorNotOpen].
5420 cec8306dff39 migration Claus Gittinger <cg@exept.de> parents: 5417 diff changeset	5228	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
cec8306dff39 migration Claus Gittinger <cg@exept.de> parents: 5417 diff changeset	5229
10348 7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5230	readAhead isNil ifTrue:[
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5231	readAhead := self nextOrNil.
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5232	readAhead isNil ifTrue:[
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5233	^ self pastEndRead.
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5234	].
5420 cec8306dff39 migration Claus Gittinger <cg@exept.de> parents: 5417 diff changeset	5235	].
10348 7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5236	^ readAhead
7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5237	!
7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5238
7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5239	peekOrNil
7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5240	"return the element to be read next without advancing read position.
7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5241	In binary mode, an integer is returned, otherwise a character.
7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5242	If there are no more elements, nil is returned.
7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5243	Same as #atEnd and #peek in a single operation - speeding up some code"
7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5244
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	5245	\|error\|
10348 7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5246	%{
7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5247	FILEPOINTER f;
7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5248	unsigned char c;
7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5249	int ret, _buffered;
7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5250	OBJ fp;
7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5251	OBJ ra;
7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5252
7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5253	if ((ra = __INST(readAhead)) != nil) {
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5254	if (__INST(binary) == true) {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5255	RETURN ( ra );
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5256	}
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5257	c = __intVal(ra);
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5258	RETURN ( __MKCHARACTER(c) );
10348 7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5259	}
7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5260
7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5261	__INST(lastErrorNumber) = nil;
7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5262
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	5263	if ((__INST(handleType) == nil)
6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	5264	\|\| (__INST(handleType) == @symbol(filePointer))
6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	5265	\|\| (__INST(handleType) == @symbol(socketFilePointer))
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5266	\|\| (__INST(handleType) == @symbol(socketHandle))
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	5267	\|\| (__INST(handleType) == @symbol(pipeFilePointer))) {
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5268	if (((fp = __INST(handle)) != nil)
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5269	&& (__INST(mode) != @symbol(writeonly))
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5270	) {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5271	f = __FILEVal(fp);
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5272	_buffered = (__INST(buffered) == true);
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5273	if (_buffered) {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5274	__READING__(f)
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5275	}
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5276	__READBYTE__(ret, f, &c, _buffered, __INST(handleType));
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5277
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5278	if (ret > 0) {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5279	__UNGETC__(c, f, _buffered);
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5280
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5281	if (__INST(binary) == true) {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5282	RETURN ( __mkSmallInteger(c) );
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5283	}
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5284	RETURN ( __MKCHARACTER(c) );
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5285	}
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5286	if (ret < 0) {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5287	error = __mkSmallInteger(__threadErrno);
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5288	} else /* ret == 0 */ {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5289	__INST(hitEOF) = true;
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5290	}
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5291	}
10348 7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5292	}
7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5293	%}.
7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5294	hitEOF == true ifTrue:[^ nil].
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	5295	error notNil ifTrue:[
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5296	lastErrorNumber := error.
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5297	^ self readError:error.
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	5298	].
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	5299	handle isNil ifTrue:[^ self errorNotOpen].
10348 7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5300	(mode == #writeonly) ifTrue:[^ self errorWriteOnly].
7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5301
7ed317f7f2be Speedup ExternalStream>>#nextOrNil and ExternalStream>>#peekOrNil. Stefan Vogel <sv@exept.de> parents: 10339 diff changeset	5302	readAhead isNil ifTrue:[
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5303	readAhead := self nextOrNil.
5420 cec8306dff39 migration Claus Gittinger <cg@exept.de> parents: 5417 diff changeset	5304	].
cec8306dff39 migration Claus Gittinger <cg@exept.de> parents: 5417 diff changeset	5305	^ readAhead
1295 83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	5306	!
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	5307
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	5308	upToEnd
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	5309	"return a collection of the elements up-to the end.
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	5310	Return nil if the stream-end is reached before."
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	5311
6569 f8336e46ec9f Speedup #upToEnd Stefan Vogel <sv@exept.de> parents: 6563 diff changeset	5312	\|answerStream buffer count\|
f8336e46ec9f Speedup #upToEnd Stefan Vogel <sv@exept.de> parents: 6563 diff changeset	5313
f8336e46ec9f Speedup #upToEnd Stefan Vogel <sv@exept.de> parents: 6563 diff changeset	5314	buffer := self contentsSpecies new:4096.
1295 83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	5315	[self atEnd] whileFalse:[
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	5316	count := self nextAvailableBytes:4096 into:buffer startingAt:1.
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	5317	count ~~ 0 ifTrue:[
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	5318	answerStream isNil ifTrue:[
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	5319	answerStream := WriteStream with:buffer.
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	5320	answerStream position:count.
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	5321	buffer := self contentsSpecies new:4096.
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	5322	] ifFalse:[
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	5323	answerStream nextPutAll:buffer startingAt:1 to:count.
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	5324	].
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	5325	].
1295 83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	5326	].
6758 bc933037a1dc oops - upToEnd failed if already at the end Claus Gittinger <cg@exept.de> parents: 6661 diff changeset	5327	answerStream isNil ifTrue:[^ self contentsSpecies new].
1295 83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	5328	^ answerStream contents
83f594f05c52 documentation Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	5329
7054 685d359f9847 code rewritten to be independent of stream zero-base Claus Gittinger <cg@exept.de> parents: 7053 diff changeset	5330	"
685d359f9847 code rewritten to be independent of stream zero-base Claus Gittinger <cg@exept.de> parents: 7053 diff changeset	5331	('smalltalk.rc' asFilename readStream upToEnd)
685d359f9847 code rewritten to be independent of stream zero-base Claus Gittinger <cg@exept.de> parents: 7053 diff changeset	5332	=
685d359f9847 code rewritten to be independent of stream zero-base Claus Gittinger <cg@exept.de> parents: 7053 diff changeset	5333	('smalltalk.rc' asFilename readStream contentsOfEntireFile)
685d359f9847 code rewritten to be independent of stream zero-base Claus Gittinger <cg@exept.de> parents: 7053 diff changeset	5334	"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5335	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5336
5420 cec8306dff39 migration Claus Gittinger <cg@exept.de> parents: 5417 diff changeset	5337	!ExternalStream methodsFor:'rel5 protocol'!
cec8306dff39 migration Claus Gittinger <cg@exept.de> parents: 5417 diff changeset	5338
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	5339	atEndFile:handle
5420 cec8306dff39 migration Claus Gittinger <cg@exept.de> parents: 5417 diff changeset	5340	"for migration to rel5 only"
cec8306dff39 migration Claus Gittinger <cg@exept.de> parents: 5417 diff changeset	5341
cec8306dff39 migration Claus Gittinger <cg@exept.de> parents: 5417 diff changeset	5342	self primitiveFailed
cec8306dff39 migration Claus Gittinger <cg@exept.de> parents: 5417 diff changeset	5343	!
cec8306dff39 migration Claus Gittinger <cg@exept.de> parents: 5417 diff changeset	5344
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	5345	nextByteFromFile:handle
5420 cec8306dff39 migration Claus Gittinger <cg@exept.de> parents: 5417 diff changeset	5346	"for migration to rel5 only"
cec8306dff39 migration Claus Gittinger <cg@exept.de> parents: 5417 diff changeset	5347
cec8306dff39 migration Claus Gittinger <cg@exept.de> parents: 5417 diff changeset	5348	self primitiveFailed
cec8306dff39 migration Claus Gittinger <cg@exept.de> parents: 5417 diff changeset	5349	!
cec8306dff39 migration Claus Gittinger <cg@exept.de> parents: 5417 diff changeset	5350
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	5351	nextPutByte:aByte toFile:handle
5420 cec8306dff39 migration Claus Gittinger <cg@exept.de> parents: 5417 diff changeset	5352	"for migration to rel5 only"
cec8306dff39 migration Claus Gittinger <cg@exept.de> parents: 5417 diff changeset	5353
cec8306dff39 migration Claus Gittinger <cg@exept.de> parents: 5417 diff changeset	5354	self primitiveFailed
cec8306dff39 migration Claus Gittinger <cg@exept.de> parents: 5417 diff changeset	5355	! !
cec8306dff39 migration Claus Gittinger <cg@exept.de> parents: 5417 diff changeset	5356
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5357	!ExternalStream methodsFor:'testing'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5358
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5359	atEnd
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5360	"return true, if position is at end"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5361
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	5362	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	5363	FILEPOINTER f;
7875 eb7d48b0425d made all position-handling code 32bit save Claus Gittinger <cg@exept.de> parents: 7832 diff changeset	5364	OBJ fp, pos, lim;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	5365	char c;
2861 c098e5766682 Fix #atEnd: for signed chars. Stefan Vogel <sv@exept.de> parents: 2854 diff changeset	5366	int ret, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5367
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	5368	if (__INST(hitEOF) == true) {
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5369	RETURN (true);
3906 7f2d4a3b63e2 oops - readLimit was not handled in #atEnd Claus Gittinger <cg@exept.de> parents: 3878 diff changeset	5370	}
7051 984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	5371	pos = __INST(position);
7875 eb7d48b0425d made all position-handling code 32bit save Claus Gittinger <cg@exept.de> parents: 7832 diff changeset	5372	lim = __INST(readLimit);
eb7d48b0425d made all position-handling code 32bit save Claus Gittinger <cg@exept.de> parents: 7832 diff changeset	5373	if (lim != nil) {
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5374	off_t _pos, _readLimit;
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5375
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5376	_pos = __signedLongIntVal(pos);
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5377	_pos = _pos - __intVal( @global(PositionableStream:ZeroPosition)) + 1;
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5378	_readLimit = __signedLongIntVal(lim);
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5379	if (_pos > _readLimit) {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5380	RETURN (true);
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5381	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5382	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5383
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	5384	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	5385
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	5386	if ((__INST(handleType) == nil)
6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	5387	\|\| (__INST(handleType) == @symbol(filePointer))
6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	5388	\|\| (__INST(handleType) == @symbol(socketFilePointer))
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5389	\|\| (__INST(handleType) == @symbol(socketHandle))
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	5390	\|\| (__INST(handleType) == @symbol(pipeFilePointer))) {
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5391	if ((fp = __INST(handle)) != nil) {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5392	f = __FILEVal(fp);
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5393	if (_buffered = (__INST(buffered) == true)) {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5394	__READING__(f);
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5395	} else {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5396	if (__INST(readAhead) != nil) {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5397	RETURN (false);
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5398	}
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5399	}
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5400
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5401	/*
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5402	* read ahead ...
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5403	*/
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5404	do {
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	5405	#ifdef WIN32
10339 972d0164125a * empty log message * Claus Gittinger <cg@exept.de> parents: 10328 diff changeset	5406	# if 1
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5407	__READBYTE__(ret, f, &c, _buffered, __INST(handleType));
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	5408
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	5409	# else
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5410	__BEGIN_INTERRUPTABLE__
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5411	__READBYTE__(ret, f, &c, _buffered, __INST(handleType));
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5412	__END_INTERRUPTABLE__
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	5413	# endif
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	5414	#else /* not WIN32 */
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5415	__BEGIN_INTERRUPTABLE__
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5416	__READBYTE__(ret, f, &c, _buffered, __INST(handleType));
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5417	__END_INTERRUPTABLE__
4914 d7a4c89775a4 oops Claus Gittinger <cg@exept.de> parents: 4913 diff changeset	5418	#endif
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5419	} while ((ret < 0) && (__threadErrno == EINTR));
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5420
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5421	if (ret > 0) {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5422	__UNGETC__(c&0xff, f, _buffered);
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5423	RETURN (false);
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5424	}
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5425	if (ret == 0) {
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5426	__INST(hitEOF) = true;
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5427	RETURN (true);
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5428	}
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5429
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5430	/* ret < 0 */
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5431	__INST(lastErrorNumber) = __mkSmallInteger(__threadErrno);
2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5432	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5433	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5434	%}.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5435	lastErrorNumber notNil ifTrue:[^ self readError].
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	5436	handle isNil ifTrue:[^ self errorNotOpen].
5420 cec8306dff39 migration Claus Gittinger <cg@exept.de> parents: 5417 diff changeset	5437	mode == #writeonly ifTrue:[^ self errorWriteOnly].
cec8306dff39 migration Claus Gittinger <cg@exept.de> parents: 5417 diff changeset	5438	readAhead notNil ifTrue:[^ false].
cec8306dff39 migration Claus Gittinger <cg@exept.de> parents: 5417 diff changeset	5439
cec8306dff39 migration Claus Gittinger <cg@exept.de> parents: 5417 diff changeset	5440	"/ migration support
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	5441	^ self
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	5442	atEndFile:handle
3906 7f2d4a3b63e2 oops - readLimit was not handled in #atEnd Claus Gittinger <cg@exept.de> parents: 3878 diff changeset	5443
7f2d4a3b63e2 oops - readLimit was not handled in #atEnd Claus Gittinger <cg@exept.de> parents: 3878 diff changeset	5444	"Modified: / 30.10.1998 / 20:16:06 / cg"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5445	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5446
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5447	canReadWithoutBlocking
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5448	"return true, if any data is available for reading (i.e.
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5449	a read operation will not block the smalltalk process), false otherwise.
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5450	We know, that error conditions do not block, so return true for errors."
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5451
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5452	^ readAhead notNil
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5453	or:[handle isNil]
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5454	or:[mode == #writeonly
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5455	or:[OperatingSystem readCheck:self fileDescriptor]]
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5456
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5457	"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5458	\|pipe\|
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5459
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5460	pipe := PipeStream readingFrom:'(sleep 10; echo hello)'.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5461	pipe canReadWithoutBlocking ifTrue:[
7051 984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	5462	Transcript showCR:'data available'
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5463	] ifFalse:[
7051 984d8271d06b preps for 0-based stream positions Claus Gittinger <cg@exept.de> parents: 7017 diff changeset	5464	Transcript showCR:'no data available'
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5465	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5466	pipe close
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5467	"
2986 c6957cf6128f Handle readAhead in #canReadWithoutBlocking Stefan Vogel <sv@exept.de> parents: 2963 diff changeset	5468
c6957cf6128f Handle readAhead in #canReadWithoutBlocking Stefan Vogel <sv@exept.de> parents: 2963 diff changeset	5469	"Modified: 25.9.1997 / 13:08:45 / stefan"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5470	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5471
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5472	canWriteWithoutBlocking
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	5473	"return true, if data can be written into the stream
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5474	(i.e. a write operation will not block the smalltalk process).
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5475	We know, that error conditions do not block, so return true for errors."
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5476
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5477	^ handle isNil
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5478	or:[mode == #readonly
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5479	or:[OperatingSystem writeCheck:self fileDescriptor]]
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	5480	!
92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	5481
10995 94ed80f3bfc7 changed #gotErrorOrEOF sr parents: 10989 diff changeset	5482	gotErrorOrEOF
94ed80f3bfc7 changed #gotErrorOrEOF sr parents: 10989 diff changeset	5483	"answerv true, if amn error or eof has been occured on the stream"
94ed80f3bfc7 changed #gotErrorOrEOF sr parents: 10989 diff changeset	5484
94ed80f3bfc7 changed #gotErrorOrEOF sr parents: 10989 diff changeset	5485	^ hitEOF == true or:[lastErrorNumber notNil]
94ed80f3bfc7 changed #gotErrorOrEOF sr parents: 10989 diff changeset	5486	!
94ed80f3bfc7 changed #gotErrorOrEOF sr parents: 10989 diff changeset	5487
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5488	isBinary
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5489	"return true, if the stream is in binary (as opposed to text-) mode.
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5490	The default when created is false."
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5491
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5492	^ binary
6269 3a888523e3a6 #errorReporter and #reportOn class-methods Stefan Vogel <sv@exept.de> parents: 6255 diff changeset	5493	!
3a888523e3a6 #errorReporter and #reportOn class-methods Stefan Vogel <sv@exept.de> parents: 6255 diff changeset	5494
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5495	isBlocking
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5496	"return true, if O_NONBLOCK is NOT set in the fileDescriptor (probably UNIX specific)"
3274 92a24829f14a added #nextAvailableBytes - very useful for pipes & sockets. Claus Gittinger <cg@exept.de> parents: 3255 diff changeset	5497
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	5498	handle isNil ifTrue:[^ self errorNotOpen].
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5499	^ OperatingSystem isBlockingOn:self fileDescriptor
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5500	!
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5501
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5502	isExternalStream
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5503	"return true, if the receiver is some kind of externalStream;
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5504	true is returned here - the method redefined from Object."
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5505
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5506	^ true
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5507	!
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5508
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5509	isOpen
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5510	"return true, if this stream is open"
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5511
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5512	^ handle notNil
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5513	!
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5514
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5515	isReadable
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5516	"return true, if this stream can be read from"
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5517
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5518	^ (mode ~~ #writeonly)
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5519	!
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5520
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5521	isWritable
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5522	"return true, if this stream can be written to"
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5523
1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5524	^ (mode ~~ #readonly)
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5525	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5526
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5527	!ExternalStream methodsFor:'waiting for I/O'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5528
5101 901c91d6dd50 support to poll write-fds Claus Gittinger <cg@exept.de> parents: 4968 diff changeset	5529	canBeSelected
901c91d6dd50 support to poll write-fds Claus Gittinger <cg@exept.de> parents: 4968 diff changeset	5530	"return true, if this stream can be selected upon"
901c91d6dd50 support to poll write-fds Claus Gittinger <cg@exept.de> parents: 4968 diff changeset	5531
901c91d6dd50 support to poll write-fds Claus Gittinger <cg@exept.de> parents: 4968 diff changeset	5532	^ OperatingSystem supportsSelect
901c91d6dd50 support to poll write-fds Claus Gittinger <cg@exept.de> parents: 4968 diff changeset	5533	!
901c91d6dd50 support to poll write-fds Claus Gittinger <cg@exept.de> parents: 4968 diff changeset	5534
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	5535	readWaitWithTimeoutMs:timeout
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5536	"suspend the current process, until the receiver
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	5537	becomes ready for reading or a timeout (in milliseconds) expired.
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	5538	If data is already available, return immediate.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5539	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	5540	The other threads are not affected by the wait."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5541
16480 2b0c4915f31d class: ExternalStream Stefan Vogel <sv@exept.de> parents: 16463 diff changeset	5542	\|fd inputSema hasTimedout wasBlocked\|
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5543
2120 71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	5544	readAhead notNil ifTrue:[^ false].
71c1870df7ba implemented 1-character readAhead for unbuffered streams; Claus Gittinger <cg@exept.de> parents: 2045 diff changeset	5545
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	5546	handle isNil ifTrue:[^ self errorNotOpen].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5547	mode == #writeonly ifTrue:[^ self errorWriteOnly].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5548
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5549	fd := self fileDescriptor.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5550	(OperatingSystem readCheck:fd) ifTrue:[^ false].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5551
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5552	wasBlocked := OperatingSystem blockInterrupts.
16463 2b3728727f5e class: ExternalStream Stefan Vogel <sv@exept.de> parents: 16373 diff changeset	5553	inputSema := Semaphore new name:'readWait'.
2b3728727f5e class: ExternalStream Stefan Vogel <sv@exept.de> parents: 16373 diff changeset	5554	[
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5555	timeout notNil ifTrue:[
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5556	Processor signal:inputSema afterMilliseconds:timeout.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5557	].
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5558	Processor signal:inputSema onInput:fd.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5559	Processor activeProcess state:#ioWait.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5560	inputSema wait.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5561	hasTimedout := timeout notNil and:[(OperatingSystem readCheck:fd) not].
16463 2b3728727f5e class: ExternalStream Stefan Vogel <sv@exept.de> parents: 16373 diff changeset	5562	] ifCurtailed:[
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5563	Processor disableSemaphore:inputSema.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5564	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5565	].
16480 2b0c4915f31d class: ExternalStream Stefan Vogel <sv@exept.de> parents: 16463 diff changeset	5566	timeout notNil ifTrue:[
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5567	Processor disableSemaphore:inputSema.
16480 2b0c4915f31d class: ExternalStream Stefan Vogel <sv@exept.de> parents: 16463 diff changeset	5568	].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5569	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
16480 2b0c4915f31d class: ExternalStream Stefan Vogel <sv@exept.de> parents: 16463 diff changeset	5570	^ hasTimedout
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5571	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5572
3490 6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	5573	readWriteWaitWithTimeoutMs:timeout
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	5574	"suspend the current process, until the receiver
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	5575	becomes ready for reading or writing or a timeout (in milliseconds) expired.
3490 6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	5576	Return true if a timeout occured (i.e. false, if data is available).
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	5577	Return immediate if the receiver is already ready.
5506 ffa0d32f4a51 Comment Stefan Vogel <sv@exept.de> parents: 5494 diff changeset	5578	The other threads are not affected by the wait."
3490 6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	5579
16480 2b0c4915f31d class: ExternalStream Stefan Vogel <sv@exept.de> parents: 16463 diff changeset	5580	\|fd sema hasTimedout wasBlocked\|
3490 6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	5581
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	5582	handle isNil ifTrue:[
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5583	^ self errorNotOpen
3490 6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	5584	].
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	5585
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	5586	fd := self fileDescriptor.
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	5587	(OperatingSystem readWriteCheck:fd) ifTrue:[^ false].
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	5588
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	5589	wasBlocked := OperatingSystem blockInterrupts.
16463 2b3728727f5e class: ExternalStream Stefan Vogel <sv@exept.de> parents: 16373 diff changeset	5590	sema := Semaphore new name:'readWriteWait'.
2b3728727f5e class: ExternalStream Stefan Vogel <sv@exept.de> parents: 16373 diff changeset	5591	[
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5592	timeout notNil ifTrue:[
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5593	Processor signal:sema afterMilliseconds:timeout
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5594	].
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5595	Processor signal:sema onOutput:fd.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5596	Processor signal:sema onInput:fd.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5597	Processor activeProcess state:#ioWait.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5598	sema wait.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5599	hasTimedout := timeout notNil and:[(OperatingSystem readWriteCheck:fd) not].
16463 2b3728727f5e class: ExternalStream Stefan Vogel <sv@exept.de> parents: 16373 diff changeset	5600	] ifCurtailed:[
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5601	Processor disableSemaphore:sema.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5602	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
3490 6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	5603	].
16480 2b0c4915f31d class: ExternalStream Stefan Vogel <sv@exept.de> parents: 16463 diff changeset	5604	timeout notNil ifTrue:[
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5605	Processor disableSemaphore:sema.
16480 2b0c4915f31d class: ExternalStream Stefan Vogel <sv@exept.de> parents: 16463 diff changeset	5606	].
3490 6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	5607	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
16480 2b0c4915f31d class: ExternalStream Stefan Vogel <sv@exept.de> parents: 16463 diff changeset	5608	^ hasTimedout
3490 6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	5609	!
6a87c2b37fd4 added #readWriteWait methods. Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	5610
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5611	writeWaitWithTimeoutMs:timeout
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5612	"suspend the current process, until the receiver
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	5613	becomes ready for writing or a timeout (in milliseconds) expired.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5614	Return true if a timeout occured (i.e. false, if data is available).
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	5615	Return immediate if the receiver is already ready.
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5616	The other threads are not affected by the wait."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5617
16480 2b0c4915f31d class: ExternalStream Stefan Vogel <sv@exept.de> parents: 16463 diff changeset	5618	\|fd outputSema hasTimedout wasBlocked\|
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5619
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	5620	handle isNil ifTrue:[
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5621	^ self errorNotOpen
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5622	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5623	mode == #readonly ifTrue:[
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5624	^ self errorReadOnly
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5625	].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5626
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5627	fd := self fileDescriptor.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5628	(OperatingSystem writeCheck:fd) ifTrue:[^ false].
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5629
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5630	wasBlocked := OperatingSystem blockInterrupts.
16463 2b3728727f5e class: ExternalStream Stefan Vogel <sv@exept.de> parents: 16373 diff changeset	5631	outputSema := Semaphore new name:'writeWait'.
2b3728727f5e class: ExternalStream Stefan Vogel <sv@exept.de> parents: 16373 diff changeset	5632	[
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5633	timeout notNil ifTrue:[
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5634	Processor signal:outputSema afterMilliseconds:timeout
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5635	].
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5636	Processor signal:outputSema onOutput:fd.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5637	Processor activeProcess state:#ioWait.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5638	outputSema wait.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5639	hasTimedout := timeout notNil and:[(OperatingSystem writeCheck:fd) not].
16463 2b3728727f5e class: ExternalStream Stefan Vogel <sv@exept.de> parents: 16373 diff changeset	5640	] ifCurtailed:[
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5641	Processor disableSemaphore:outputSema.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5642	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5643	].
16480 2b0c4915f31d class: ExternalStream Stefan Vogel <sv@exept.de> parents: 16463 diff changeset	5644	timeout notNil ifTrue:[
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5645	Processor disableSemaphore:outputSema.
16480 2b0c4915f31d class: ExternalStream Stefan Vogel <sv@exept.de> parents: 16463 diff changeset	5646	].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5647	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
16480 2b0c4915f31d class: ExternalStream Stefan Vogel <sv@exept.de> parents: 16463 diff changeset	5648	^ hasTimedout
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5649	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5650
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5651	!ExternalStream methodsFor:'writing'!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5652
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5653	cr
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5654	"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	5655	reimplemented for speed"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5656
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	5657	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	5658	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	5659	int len, cnt, _buffered;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5660	OBJ fp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5661	char *cp;
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5662
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	5663	if ((__INST(handleType) == nil)
6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	5664	\|\| (__INST(handleType) == @symbol(filePointer))
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5665	\|\| (__INST(handleType) == @symbol(socketHandle))
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	5666	\|\| (__INST(handleType) == @symbol(socketFilePointer))
6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	5667	\|\| (__INST(handleType) == @symbol(pipeFilePointer))) {
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5668	__INST(lastErrorNumber) = nil;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5669	if (((fp = __INST(handle)) != nil)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5670	&& (__INST(mode) != @symbol(readonly))
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5671	&& (__INST(binary) != true)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5672	) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5673	f = __FILEVal(fp);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5674
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5675	if (_buffered = (__INST(buffered) == true)) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5676	__WRITING__(f)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5677	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5678	{
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5679	OBJ mode = __INST(eolMode);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5680
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5681	if (mode == @symbol(cr)) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5682	cp = "\r"; len = 1;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5683	} else if (mode == @symbol(crlf)) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5684	cp = "\r\n"; len = 2;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5685	} else {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5686	cp = "\n"; len = 1;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5687	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5688	}
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	5689	#ifdef WIN32
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5690	if ((f == __win32_stdout()) \|\| (f == __win32_stderr())) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5691	cnt = __win32_fwrite(cp, 1, len, f);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5692	} else
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	5693	#endif
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5694	{
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5695	__WRITEBYTES__(cnt, f, cp, len, _buffered, __INST(handleType));
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5696	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5697	if (cnt == len) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5698	if (__isSmallInteger(__INST(position))) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5699	INT np = __intVal(__INST(position)) + len;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5700	OBJ t;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5701
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5702	t = __MKINT(np); __INST(position) = t; __STORE(self, t);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5703	} else {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5704	__INST(position) = nil; /* i.e: dont know */
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5705	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5706	RETURN ( self );
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5707	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5708	__INST(lastErrorNumber) = __mkSmallInteger(__threadErrno);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5709	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5710	}
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5711	%}.
2326 01fa309e48d9 checkin from browser Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	5712	lastErrorNumber notNil ifTrue:[self writeError. ^ self].
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	5713	handle isNil ifTrue:[self errorNotOpen. ^ self].
2326 01fa309e48d9 checkin from browser Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	5714	(mode == #readonly) ifTrue:[self errorReadOnly. ^ self].
5414 8557e4e71e51 checkin from browser Claus Gittinger <cg@exept.de> parents: 5323 diff changeset	5715	(binary==true) ifTrue:[self errorBinary. ^ self].
8557e4e71e51 checkin from browser Claus Gittinger <cg@exept.de> parents: 5323 diff changeset	5716
8557e4e71e51 checkin from browser Claus Gittinger <cg@exept.de> parents: 5323 diff changeset	5717	(eolMode == #cr) ifTrue:[self nextPut:(Character return). ^ self].
8557e4e71e51 checkin from browser Claus Gittinger <cg@exept.de> parents: 5323 diff changeset	5718	(eolMode ~~ #crlf) ifTrue:[self nextPut:(Character nl). ^ self].
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	5719	self nextPut:(Character return).
4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	5720	self nextPut:(Character nl).
5414 8557e4e71e51 checkin from browser Claus Gittinger <cg@exept.de> parents: 5323 diff changeset	5721	^ self
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5722	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5723
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	5724	flush
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	5725	"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	5726
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	5727	%{
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	5728	OBJ fp;
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	5729
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	5730	__INST(lastErrorNumber) = nil;
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	5731	if ((__INST(handleType) == nil)
6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	5732	\|\| (__INST(handleType) == @symbol(filePointer))
6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	5733	\|\| (__INST(handleType) == @symbol(socketFilePointer))
6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	5734	\|\| (__INST(handleType) == @symbol(pipeFilePointer))) {
14068 46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	5735	if ((fp = __INST(handle)) != nil) {
46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	5736	if (__INST(mode) != @symbol(readonly)) {
46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	5737	if (__INST(buffered) == true) {
46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	5738	FILEPOINTER f = __FILEVal(fp);
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	5739	#ifdef WIN32
14068 46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	5740	if ((f == __win32_stdout()) \|\| (f == __win32_stderr())) {
46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	5741	__win32_fflush(f);
46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	5742	} else {
46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	5743	int rslt;
46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	5744
46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	5745	do {
46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	5746	__threadErrno = 0;
46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	5747	rslt = __STX_C_CALL1("fflush", fflush, f);
46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	5748	} while((rslt < 0) && (__threadErrno == EINTR));
46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	5749	}
12678 662465401b77 changed: Stefan Vogel <sv@exept.de> parents: 12674 diff changeset	5750	#else /* ! WIN32 */
14068 46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	5751	__BEGIN_INTERRUPTABLE__
46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	5752	FFLUSH(f);
46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	5753	__END_INTERRUPTABLE__
12678 662465401b77 changed: Stefan Vogel <sv@exept.de> parents: 12674 diff changeset	5754	#endif /* ! WIN32 */
14068 46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	5755	}
46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	5756	}
46a8289bf92a pass linenr to dumpObject Claus Gittinger <cg@exept.de> parents: 13940 diff changeset	5757	}
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	5758	}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	5759	%}
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	5760	!
ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	5761
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5762	nextPut:aCharacter
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5763	"write the argument, aCharacter - return nil if failed, self if ok.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5764	Only single-byte characters are currently supported"
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5765
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	5766	\|error\|
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	5767	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	5768	FILEPOINTER f;
8209 908ba4b9543e check for written characters to be in 00..FF Claus Gittinger <cg@exept.de> parents: 8074 diff changeset	5769	unsigned codePoint;
908ba4b9543e check for written characters to be in 00..FF Claus Gittinger <cg@exept.de> parents: 8074 diff changeset	5770	unsigned char c;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	5771	int cnt, _buffered;
7875 eb7d48b0425d made all position-handling code 32bit save Claus Gittinger <cg@exept.de> parents: 7832 diff changeset	5772	OBJ fp;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5773
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	5774	__INST(lastErrorNumber) = nil;
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	5775	if ((__INST(handleType) == nil)
6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	5776	\|\| (__INST(handleType) == @symbol(filePointer))
6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	5777	\|\| (__INST(handleType) == @symbol(socketFilePointer))
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5778	\|\| (__INST(handleType) == @symbol(socketHandle))
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	5779	\|\| (__INST(handleType) == @symbol(pipeFilePointer))) {
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5780	if (((fp = __INST(handle)) != nil)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5781	&& (__INST(mode) != @symbol(readonly))
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5782	) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5783	if (__INST(binary) != true) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5784	if (__isCharacter(aCharacter)) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5785	codePoint = __intVal(__characterVal(aCharacter));
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5786	if (codePoint <= 0xFF) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5787	c = codePoint;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5788	doWrite:
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5789	f = __FILEVal(fp);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5790	if (! f) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5791	fprintf(stderr, "oops - fileHandle is NULL in nextPut:\n");
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5792	__INST(handle) = nil;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5793	goto out;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5794	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5795
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5796	if (_buffered = (__INST(buffered) == true)) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5797	__WRITING__(f)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5798	}
9053 f3f3d48d6f44 fix writing to stdout/stderr for winstx non-console operation Claus Gittinger <cg@exept.de> parents: 9024 diff changeset	5799	#ifdef WIN32
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5800	if ((f == __win32_stdout()) \|\| (f == __win32_stderr())) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5801	cnt = __win32_fwrite(&c, 1, 1, f);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5802	} else
9053 f3f3d48d6f44 fix writing to stdout/stderr for winstx non-console operation Claus Gittinger <cg@exept.de> parents: 9024 diff changeset	5803	#endif
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5804	__WRITEBYTE__(cnt, f, &c, _buffered, __INST(handleType));
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5805	if (cnt == 1) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5806	if (__isSmallInteger(__INST(position))) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5807	INT np = __intVal(__INST(position)) + 1;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5808	OBJ t;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5809
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5810	t = __MKINT(np); __INST(position) = t; __STORE(self, t);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5811	} else {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5812	__INST(position) = nil; /* i.e. do not know */
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5813	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5814	RETURN ( self );
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5815	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5816	error = __mkSmallInteger(__threadErrno);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5817	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5818	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5819	} else {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5820	if (__isSmallInteger(aCharacter)) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5821	c = __intVal(aCharacter);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5822	goto doWrite;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5823	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5824	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5825	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5826	}
7737 616d849b7838 fileHandle check Claus Gittinger <cg@exept.de> parents: 7700 diff changeset	5827	out: ;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5828	%}.
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	5829	error notNil ifTrue:[
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5830	lastErrorNumber := error.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5831	self writeError:error.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5832	^ self
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	5833	].
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	5834	handle isNil ifTrue:[self errorNotOpen. ^ self].
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	5835	(mode == #readonly) ifTrue:[self errorReadOnly. ^ self].
5417 0478ac31e042 * empty log message * Claus Gittinger <cg@exept.de> parents: 5414 diff changeset	5836	binary == true ifFalse:[
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5837	(aCharacter isCharacter not
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5838	or:[aCharacter codePoint > 16rFF]) ifTrue:[
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5839	self argumentMustBeCharacter.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5840	^ self.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5841	].
5417 0478ac31e042 * empty log message * Claus Gittinger <cg@exept.de> parents: 5414 diff changeset	5842	] ifTrue:[
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5843	aCharacter isInteger ifFalse:[
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5844	self argumentMustBeInteger.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5845	^ self.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5846	].
5417 0478ac31e042 * empty log message * Claus Gittinger <cg@exept.de> parents: 5414 diff changeset	5847	].
0478ac31e042 * empty log message * Claus Gittinger <cg@exept.de> parents: 5414 diff changeset	5848	"/ migration support
8818 4b1ffc19e3ce remerged WIN32 and Unix versions into common source Claus Gittinger <cg@exept.de> parents: 8616 diff changeset	5849	self
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5850	nextPutByte:aCharacter asInteger
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5851	toFile:handle
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5852	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5853
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5854	nextPutAll:aCollection
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5855	"write all elements of the argument, aCollection.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5856	Reimplemented for speed when writing strings or byteArrays.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5857	For others, falls back to general method in superclass."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5858
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	5859	\|error\|
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	5860	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	5861	FILEPOINTER f;
14644 e5f19ef20dcd mingw changes Claus Gittinger <cg@exept.de> parents: 14632 diff changeset	5862	INT len, cnt;
7875 eb7d48b0425d made all position-handling code 32bit save Claus Gittinger <cg@exept.de> parents: 7832 diff changeset	5863	OBJ fp;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	5864	int _buffered;
14644 e5f19ef20dcd mingw changes Claus Gittinger <cg@exept.de> parents: 14632 diff changeset	5865	INT o_offs;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5866
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	5867	__INST(lastErrorNumber) = nil;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	5868
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	5869	if ((__INST(handleType) == nil)
6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	5870	\|\| (__INST(handleType) == @symbol(filePointer))
6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	5871	\|\| (__INST(handleType) == @symbol(socketFilePointer))
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5872	\|\| (__INST(handleType) == @symbol(socketHandle))
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	5873	\|\| (__INST(handleType) == @symbol(pipeFilePointer))) {
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5874	if (((fp = __INST(handle)) != nil)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5875	&& (__INST(mode) != @symbol(readonly))
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5876	) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5877	f = __FILEVal(fp);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5878	if (! f) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5879	fprintf(stderr, "oops - fileHandle is NULL in nextPutAll:\n");
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5880	__INST(handle) = nil;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5881	goto out;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5882	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5883	if (_buffered = (__INST(buffered) == true)) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5884	__WRITING__(f)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5885	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5886
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5887	if (__isStringLike(aCollection)) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5888	len = __stringSize(aCollection);
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	5889	#ifdef WIN32
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5890	if ((f == __win32_stdout()) \|\| (f == __win32_stderr())) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5891	cnt = __win32_fwrite(__stringVal(aCollection), 1, len, f);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5892	} else
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	5893	#endif
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5894	{
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5895	o_offs = (char )__stringVal(aCollection)-(char )__InstPtr(aCollection);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5896	__WRITEBYTES_OBJ__(cnt, f, aCollection, o_offs, len, _buffered, __INST(handleType));
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5897	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5898	} else {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5899	if (__INST(binary) == true) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5900	INT offs;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5901
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5902	if (__isByteArrayLike(aCollection)) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5903	offs = 0;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5904	len = __byteArraySize(aCollection);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5905	} else if (__isBytes(aCollection)) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5906	offs = __OBJS2BYTES__(__intVal(__ClassInstPtr(__qClass(aCollection))->c_ninstvars));
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5907	len = __byteArraySize(aCollection) - offs;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5908	} else
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5909	goto out;
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	5910	#ifdef WIN32
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5911	if ((f == __win32_stdout()) \|\| (f == __win32_stderr())) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5912	cnt = __win32_fwrite(__stringVal(aCollection), 1, len, f);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5913	} else
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	5914	#endif
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5915	{
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5916	o_offs = (char )(__ByteArrayInstPtr(aCollection)->ba_element) - (char )__InstPtr(aCollection);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5917	o_offs += offs;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5918	__WRITEBYTES_OBJ__(cnt, f, aCollection, o_offs, len, _buffered, __INST(handleType));
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5919	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5920	} else
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5921	goto out;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5922	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5923
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5924	if (cnt == len) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5925	if (__isSmallInteger(__INST(position))) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5926	INT np = __intVal(__INST(position)) + len;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5927	OBJ t;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5928
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5929	t = __MKINT(np); __INST(position) = t; __STORE(self, t);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5930	} else {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5931	__INST(position) = nil; /* i.e. do not know */
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5932	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5933	RETURN (self);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5934	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5935	error = __mkSmallInteger(__threadErrno);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5936	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5937	}
1478 aae07192b7d1 labels in empty statements need a semi Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	5938	out: ;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5939	%}.
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	5940	error notNil ifTrue:[
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5941	lastErrorNumber := error.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5942	self writeError:error.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5943	^ self
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	5944	].
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	5945	handle isNil ifTrue:[self errorNotOpen. ^ self].
2331 d6ddf452adc9 return codes in error cases Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	5946	(mode == #readonly) ifTrue:[self errorReadOnly. ^ self].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5947
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5948	^ super nextPutAll:aCollection
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5949	!
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5950
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5951	nextPutAll:aCollection startingAt:start to:stop
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5952	"write a range of elements of the argument, aCollection.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5953	Reimplemented for speed when writing strings or byteArrays.
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5954	For others, falls back to general method in superclass."
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5955
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	5956	\|error\|
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	5957
1067 1e7959af0821 removed all NOCONTEXT (last version did no good - PROTECT-stack overflow ...) Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	5958	%{
2593 d678527ef34e changes for NT; prepare to use HANDLES instead of FILES (NT) Claus Gittinger <cg@exept.de> parents: 2591 diff changeset	5959	FILEPOINTER f;
1463 ace6b72b6f4a Use common macros to make interruptable system calls signal proof. Stefan Vogel <sv@exept.de> parents: 1422 diff changeset	5960	int offs, len, cnt, iStart, iStop, _buffered;
7875 eb7d48b0425d made all position-handling code 32bit save Claus Gittinger <cg@exept.de> parents: 7832 diff changeset	5961	OBJ fp;
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	5962	int o_offs;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	5963
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	5964	__INST(lastErrorNumber) = nil;
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	5965	if ((__INST(handleType) == nil)
6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	5966	\|\| (__INST(handleType) == @symbol(filePointer))
6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	5967	\|\| (__INST(handleType) == @symbol(socketFilePointer))
16368 1efe4d36fd3f Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16308 diff changeset	5968	\|\| (__INST(handleType) == @symbol(socketHandle))
12548 6a2abe88a7a2 handleTypes Claus Gittinger <cg@exept.de> parents: 12460 diff changeset	5969	\|\| (__INST(handleType) == @symbol(pipeFilePointer))) {
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5970	if (((fp = __INST(handle)) != nil)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5971	&& (__INST(mode) != @symbol(readonly))
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5972	&& __bothSmallInteger(start, stop)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5973	) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5974	f = __FILEVal(fp);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5975	if (_buffered = (__INST(buffered) == true)) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5976	__WRITING__(f)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5977	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5978	iStart = __intVal(start);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5979	iStop = __intVal(stop);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5980	if ((iStart < 1) \|\| (iStop < iStart)) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5981	RETURN(self);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5982	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5983	if (__isStringLike(aCollection)) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5984	len = __stringSize(aCollection);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5985	if (iStop > len) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5986	RETURN(self);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5987	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5988	if (iStop > len)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5989	iStop = len;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5990	len = iStop - iStart + 1;
4913 4964b2c71d31 remerged ExtSTream_win32 into ExtStream. Claus Gittinger <cg@exept.de> parents: 4640 diff changeset	5991	#ifdef WIN32
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5992	if ((f == __win32_stdout()) \|\| (f == __win32_stderr())) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5993	cnt = __win32_fwrite(__stringVal(aCollection)+iStart-1, 1, len, f);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5994	} else
2513 a589586a3828 big bug: READBYTES & WRITEBYTES did not care for moving objects when interrupted. Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	5995	#endif
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5996	{
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5997	o_offs = (char )__stringVal(aCollection)-(char )__InstPtr(aCollection);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5998	__WRITEBYTES_OBJ__(cnt, f, aCollection, o_offs+iStart-1, len, _buffered, __INST(handleType));
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	5999	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	6000	} else {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	6001	if (__INST(binary) == true) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	6002	int offs;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	6003
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	6004	if (__isByteArrayLike(aCollection)) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	6005	offs = 0;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	6006	len = __byteArraySize(aCollection);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	6007	} else if (__isBytes(aCollection)) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	6008	offs = __OBJS2BYTES__(__intVal(__ClassInstPtr(__qClass(aCollection))->c_ninstvars));
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	6009	len = __byteArraySize(aCollection) - offs;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	6010	} else
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	6011	goto out;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	6012
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	6013	if (iStop > len) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	6014	RETURN(self);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	6015	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	6016	if (iStop > len)
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	6017	iStop = len;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	6018	len = iStop - iStart + 1;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	6019	offs += iStart - 1;
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	6020	#ifdef WIN32
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	6021	if ((f == __win32_stdout()) \|\| (f == __win32_stderr())) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	6022	cnt = __win32_fwrite(__stringVal(aCollection)+iStart-1, 1, len, f);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	6023	} else
12395 1db7ea277c93 filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 11751 diff changeset	6024	#endif
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	6025	{
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	6026	o_offs = (char )(__ByteArrayInstPtr(aCollection)->ba_element)-(char )__InstPtr(aCollection);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	6027	__WRITEBYTES_OBJ__(cnt, f, aCollection, o_offs+offs, len, _buffered, __INST(handleType));
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	6028	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	6029	} else
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	6030	goto out;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	6031	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	6032	if (cnt == len) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	6033	if (__isSmallInteger(__INST(position))) {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	6034	INT np = __intVal(__INST(position)) + len;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	6035	OBJ t;
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	6036
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	6037	t = __MKINT(np); __INST(position) = t; __STORE(self, t);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	6038	} else {
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	6039	__INST(position) = nil; /* i.e. do not know */
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	6040	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	6041	RETURN (self);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	6042	}
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	6043	error = __mkSmallInteger(__threadErrno);
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	6044	}
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	6045	}
1478 aae07192b7d1 labels in empty statements need a semi Claus Gittinger <cg@exept.de> parents: 1469 diff changeset	6046	out: ;
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	6047	%}.
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	6048	error notNil ifTrue:[
16508 f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	6049	lastErrorNumber := error.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	6050	self writeError:error.
f2d6afb19d35 added tcgetattr Claus Gittinger <cg@exept.de> parents: 16493 diff changeset	6051	^ self
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	6052	].
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	6053	^ super nextPutAll:aCollection startingAt:start to:stop
14662 adb9b387538e class: ExternalStream Stefan Vogel <sv@exept.de> parents: 14644 diff changeset	6054	!
adb9b387538e class: ExternalStream Stefan Vogel <sv@exept.de> parents: 14644 diff changeset	6055
adb9b387538e class: ExternalStream Stefan Vogel <sv@exept.de> parents: 14644 diff changeset	6056	nextPutAllUnicode:aString
adb9b387538e class: ExternalStream Stefan Vogel <sv@exept.de> parents: 14644 diff changeset	6057	"normal streams can not handle multi-byte characters, so convert them to utf8.
adb9b387538e class: ExternalStream Stefan Vogel <sv@exept.de> parents: 14644 diff changeset	6058	This is needed, so that you can do ('something' asUnicode16String errorPrintCR)"
adb9b387538e class: ExternalStream Stefan Vogel <sv@exept.de> parents: 14644 diff changeset	6059
adb9b387538e class: ExternalStream Stefan Vogel <sv@exept.de> parents: 14644 diff changeset	6060	aString do:[:eachCharacter\|
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	6061	self nextPutUtf8:eachCharacter.
14662 adb9b387538e class: ExternalStream Stefan Vogel <sv@exept.de> parents: 14644 diff changeset	6062	].
adb9b387538e class: ExternalStream Stefan Vogel <sv@exept.de> parents: 14644 diff changeset	6063
adb9b387538e class: ExternalStream Stefan Vogel <sv@exept.de> parents: 14644 diff changeset	6064	"
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	6065	'B�nnigheim' asUnicode16String errorPrintCR
14662 adb9b387538e class: ExternalStream Stefan Vogel <sv@exept.de> parents: 14644 diff changeset	6066	"
adb9b387538e class: ExternalStream Stefan Vogel <sv@exept.de> parents: 14644 diff changeset	6067	!
adb9b387538e class: ExternalStream Stefan Vogel <sv@exept.de> parents: 14644 diff changeset	6068
adb9b387538e class: ExternalStream Stefan Vogel <sv@exept.de> parents: 14644 diff changeset	6069	nextPutUnicode:aCharacter
adb9b387538e class: ExternalStream Stefan Vogel <sv@exept.de> parents: 14644 diff changeset	6070	"normal streams can not handle multi-byte characters, so convert them to utf8"
adb9b387538e class: ExternalStream Stefan Vogel <sv@exept.de> parents: 14644 diff changeset	6071
adb9b387538e class: ExternalStream Stefan Vogel <sv@exept.de> parents: 14644 diff changeset	6072	self nextPutUtf8:aCharacter.
15655 a044910b6f38 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15619 diff changeset	6073	!
a044910b6f38 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15619 diff changeset	6074
a044910b6f38 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15619 diff changeset	6075	nextPutUtf16:aCharacter
a044910b6f38 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15619 diff changeset	6076	"append my UTF-16 representation to the argument, aStream.
a044910b6f38 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15619 diff changeset	6077	UTF-16 can encode only characters with code points between 0 to 16r10FFFF."
a044910b6f38 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15619 diff changeset	6078
a044910b6f38 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15619 diff changeset	6079	\|codePoint\|
a044910b6f38 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15619 diff changeset	6080
a044910b6f38 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15619 diff changeset	6081	codePoint := aCharacter codePoint.
a044910b6f38 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15619 diff changeset	6082	(codePoint <= 16rD7FF
a044910b6f38 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15619 diff changeset	6083	or:[codePoint >= 16rE000 and:[codePoint <= 16rFFFF]]) ifTrue:[
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	6084	self nextPutShort:codePoint MSB:true.
15655 a044910b6f38 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15619 diff changeset	6085	] ifFalse:[codePoint <= 16r10FFFF ifTrue:[
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	6086	\|highBits lowBits\|
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	6087
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	6088	codePoint := codePoint - 16r100000.
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	6089	highBits := codePoint bitShift:-10.
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	6090	lowBits := codePoint bitAnd:16r3FF.
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	6091	self nextPutShort:highBits+16rD800 MSB:true.
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	6092	self nextPutShort:lowBits+16rDC00 MSB:true.
15655 a044910b6f38 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15619 diff changeset	6093	] ifFalse:[
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	6094	EncodingError raiseWith:aCharacter errorString:'Character cannot be encoded as UTF-16'.
15655 a044910b6f38 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15619 diff changeset	6095	]].
a044910b6f38 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15619 diff changeset	6096
a044910b6f38 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15619 diff changeset	6097	"
16296 f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	6098	(FileStream newTemporary
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	6099	nextPutUtf16:$B;
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	6100	nextPutUtf16:$�;
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	6101	nextPutUtf16:(Character codePoint:16r10CCCC);
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	6102	reset;
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	6103	binary;
f8548919e174 Fix error handling. Stefan Vogel <sv@exept.de> parents: 15994 diff changeset	6104	contents)
15655 a044910b6f38 class: ExternalStream Stefan Vogel <sv@exept.de> parents: 15619 diff changeset	6105	"
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	6106	! !
e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	6107
2045 1ad17ca6520f fall back to super>>nextPutLine: if argument is not a string. Claus Gittinger <cg@exept.de> parents: 2044 diff changeset	6108	!ExternalStream class methodsFor:'documentation'!
730 62643519bf68 checkin from browser Claus Gittinger <cg@exept.de> parents: 711 diff changeset	6109
62643519bf68 checkin from browser Claus Gittinger <cg@exept.de> parents: 711 diff changeset	6110	version
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	6111	^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.398 2014-11-24 14:37:58 cg Exp $'
12398 7243f8014d98 * empty log message * Claus Gittinger <cg@exept.de> parents: 12395 diff changeset	6112	!
7243f8014d98 * empty log message * Claus Gittinger <cg@exept.de> parents: 12395 diff changeset	6113
7243f8014d98 * empty log message * Claus Gittinger <cg@exept.de> parents: 12395 diff changeset	6114	version_CVS
17115 2ef08a902c34 did report error in close always as writeError - although it could also happen on a readonly stream Claus Gittinger <cg@exept.de> parents: 17078 diff changeset	6115	^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.398 2014-11-24 14:37:58 cg Exp $'
730 62643519bf68 checkin from browser Claus Gittinger <cg@exept.de> parents: 711 diff changeset	6116	! !
6804 caf6a4521d4c added utility: ExternalStream >> copyToEndInto: Claus Gittinger <cg@exept.de> parents: 6758 diff changeset	6117
14603 f73f90e25023 class: ExternalStream Claus Gittinger <cg@exept.de> parents: 14518 diff changeset	6118
612 e640bef6170e checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	6119	ExternalStream initialize!

author	Claus Gittinger <cg@exept.de>
	Mon, 24 Nov 2014 15:37:58 +0100
changeset 17115	2ef08a902c34
parent 17078	f3ded8a6f9d9
child 17332	f223abac93ca
permissions	-rw-r--r--