hg/stx-libbasic: UnixFileDescriptorHandle.st@358873f8b450 (annotated)

7595 89c4c7dba914 * empty log message * Claus Gittinger <cg@exept.de> parents: 7259 diff changeset	1	"
89c4c7dba914 * empty log message * Claus Gittinger <cg@exept.de> parents: 7259 diff changeset	2	COPYRIGHT (c) 1999 by eXept Software AG
14667 f6a830b971f3 care for externalAddress being NULL before accessing an external buffer's contents Claus Gittinger <cg@exept.de> parents: 7595 diff changeset	3	All Rights Reserved
7595 89c4c7dba914 * empty log message * Claus Gittinger <cg@exept.de> parents: 7259 diff changeset	4
89c4c7dba914 * empty log message * Claus Gittinger <cg@exept.de> parents: 7259 diff changeset	5	This software is furnished under a license and may be used
89c4c7dba914 * empty log message * Claus Gittinger <cg@exept.de> parents: 7259 diff changeset	6	only in accordance with the terms of that license and with the
89c4c7dba914 * empty log message * Claus Gittinger <cg@exept.de> parents: 7259 diff changeset	7	inclusion of the above copyright notice. This software may not
89c4c7dba914 * empty log message * Claus Gittinger <cg@exept.de> parents: 7259 diff changeset	8	be provided or otherwise made available to, or used by, any
89c4c7dba914 * empty log message * Claus Gittinger <cg@exept.de> parents: 7259 diff changeset	9	other person. No title to or ownership of the software is
89c4c7dba914 * empty log message * Claus Gittinger <cg@exept.de> parents: 7259 diff changeset	10	hereby transferred.
89c4c7dba914 * empty log message * Claus Gittinger <cg@exept.de> parents: 7259 diff changeset	11	"
5409 9b5890348f9c * empty log message * Claus Gittinger <cg@exept.de> parents: 4762 diff changeset	12	"{ Package: 'stx:libbasic' }"
9b5890348f9c * empty log message * Claus Gittinger <cg@exept.de> parents: 4762 diff changeset	13
4762 7c403263e1be initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	14	OSFileHandle subclass:#UnixFileDescriptorHandle
7c403263e1be initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	15	instanceVariableNames:''
7c403263e1be initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	16	classVariableNames:''
7c403263e1be initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	17	poolDictionaries:''
7c403263e1be initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	18	category:'OS-Unix'
7c403263e1be initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	19	!
7c403263e1be initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	20
7c403263e1be initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	21	!UnixFileDescriptorHandle primitiveDefinitions!
7c403263e1be initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	22	%{
7c403263e1be initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	23	#include <stdio.h>
5416 93b5fd7ec357 * empty log message * Claus Gittinger <cg@exept.de> parents: 5415 diff changeset	24	#include <errno.h>
4762 7c403263e1be initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	25	%}
7c403263e1be initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	26
7c403263e1be initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	27	! !
7c403263e1be initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	28
7595 89c4c7dba914 * empty log message * Claus Gittinger <cg@exept.de> parents: 7259 diff changeset	29	!UnixFileDescriptorHandle class methodsFor:'documentation'!
89c4c7dba914 * empty log message * Claus Gittinger <cg@exept.de> parents: 7259 diff changeset	30
89c4c7dba914 * empty log message * Claus Gittinger <cg@exept.de> parents: 7259 diff changeset	31	copyright
89c4c7dba914 * empty log message * Claus Gittinger <cg@exept.de> parents: 7259 diff changeset	32	"
89c4c7dba914 * empty log message * Claus Gittinger <cg@exept.de> parents: 7259 diff changeset	33	COPYRIGHT (c) 1999 by eXept Software AG
14667 f6a830b971f3 care for externalAddress being NULL before accessing an external buffer's contents Claus Gittinger <cg@exept.de> parents: 7595 diff changeset	34	All Rights Reserved
7595 89c4c7dba914 * empty log message * Claus Gittinger <cg@exept.de> parents: 7259 diff changeset	35
89c4c7dba914 * empty log message * Claus Gittinger <cg@exept.de> parents: 7259 diff changeset	36	This software is furnished under a license and may be used
89c4c7dba914 * empty log message * Claus Gittinger <cg@exept.de> parents: 7259 diff changeset	37	only in accordance with the terms of that license and with the
89c4c7dba914 * empty log message * Claus Gittinger <cg@exept.de> parents: 7259 diff changeset	38	inclusion of the above copyright notice. This software may not
89c4c7dba914 * empty log message * Claus Gittinger <cg@exept.de> parents: 7259 diff changeset	39	be provided or otherwise made available to, or used by, any
89c4c7dba914 * empty log message * Claus Gittinger <cg@exept.de> parents: 7259 diff changeset	40	other person. No title to or ownership of the software is
89c4c7dba914 * empty log message * Claus Gittinger <cg@exept.de> parents: 7259 diff changeset	41	hereby transferred.
89c4c7dba914 * empty log message * Claus Gittinger <cg@exept.de> parents: 7259 diff changeset	42	"
89c4c7dba914 * empty log message * Claus Gittinger <cg@exept.de> parents: 7259 diff changeset	43	! !
4762 7c403263e1be initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	44
5415 d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	45	!UnixFileDescriptorHandle methodsFor:'input/output'!
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	46
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	47	readBytes:count into:aByteBuffer startingAt:firstIndex
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	48	"read count bytes into a byte-buffer;
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	49	Return the number of bytes read (negative on error)"
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	50
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	51	%{
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	52	unsigned char *extPtr;
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	53	int nRead = -1;
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	54	INT fd = (INT)(__externalAddressVal(self));
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	55	INT cnt, offs;
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	56	int nInstBytes, objSize;
5416 93b5fd7ec357 * empty log message * Claus Gittinger <cg@exept.de> parents: 5415 diff changeset	57
5415 d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	58	if (! __bothSmallInteger(count, firstIndex)) {
15990 358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	59	goto bad;
5415 d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	60	}
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	61	cnt = __smallIntegerVal(count);
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	62	offs = __smallIntegerVal(firstIndex) - 1;
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	63
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	64	if (fd < 0) {
15990 358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	65	goto bad;
5415 d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	66	}
7198 62450598d208 also handle subclasses of ExternalBytes (Mapped..) Claus Gittinger <cg@exept.de> parents: 5416 diff changeset	67	if (__isExternalBytesLike(aByteBuffer)) {
15990 358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	68	OBJ sz;
5415 d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	69
15990 358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	70	nInstBytes = 0;
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	71	extPtr = (char *)(__externalBytesAddress(aByteBuffer));
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	72	if (extPtr == NULL) goto bad;
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	73	sz = __externalBytesSize(aByteBuffer);
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	74	if (__isSmallInteger(sz)) {
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	75	objSize = __smallIntegerVal(sz);
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	76	} else {
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	77	objSize = -1; /* unknown */
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	78	}
5415 d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	79	} else {
15990 358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	80	OBJ oClass = __Class(aByteBuffer);
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	81	int nInstVars = __intVal(__ClassInstPtr(oClass)->c_ninstvars);
5415 d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	82
15990 358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	83	nInstBytes = OHDR_SIZE + __OBJS2BYTES__(nInstVars);
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	84	switch (__intVal(__ClassInstPtr(oClass)->c_flags) & ARRAYMASK) {
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	85	case BYTEARRAY:
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	86	case WORDARRAY:
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	87	case LONGARRAY:
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	88	case SWORDARRAY:
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	89	case SLONGARRAY:
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	90	case FLOATARRAY:
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	91	case DOUBLEARRAY:
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	92	#ifdef __NEED_DOUBLE_ALIGN
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	93	nInstBytes = (nInstBytes-1+__DOUBLE_ALIGN) &~ (__DOUBLE_ALIGN-1);
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	94	#endif
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	95	break;
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	96	case LONGLONGARRAY:
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	97	case SLONGLONGARRAY:
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	98	#ifdef __NEED_LONGLONG_ALIGN
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	99	nInstBytes = (nInstBytes-1+__LONGLONG_ALIGN) &~ (__LONGLONG_ALIGN-1);
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	100	#endif
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	101	default:
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	102	goto bad;
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	103	}
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	104	extPtr = (char *)0;
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	105	objSize = __Size(aByteBuffer) - OHDR_SIZE - nInstBytes;
5415 d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	106	}
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	107	if ((offs >= 0)
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	108	&& (cnt >= 0)
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	109	&& ((objSize == -1) \|\| (objSize >= (cnt + offs)))) {
15990 358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	110	nRead = 0;
5415 d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	111
15990 358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	112	do {
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	113	int n;
5415 d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	114
15990 358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	115	if (extPtr) {
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	116	n = read(fd, extPtr+offs, cnt);
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	117	} else {
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	118	char *bp;
5415 d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	119
15990 358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	120	/*
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	121	* on interrupt, anObject may be moved to another location.
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	122	* So we recompute the byte-address here.
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	123	*/
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	124	bp = __ByteArrayInstPtr(aByteBuffer)->ba_element + nInstBytes;
5415 d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	125
15990 358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	126	n = read(fd, bp + offs, cnt);
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	127	}
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	128	if (n > 0) {
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	129	cnt -= n;
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	130	offs += n;
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	131	nRead += n;
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	132	} else {
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	133	if (n < 0) {
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	134	if (errno == EINTR) {
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	135	continue;
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	136	}
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	137	break;
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	138	}
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	139	}
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	140	} while (cnt > 0);
5415 d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	141
15990 358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	142	RETURN (__mkSmallInteger(nRead));
5415 d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	143	}
14667 f6a830b971f3 care for externalAddress being NULL before accessing an external buffer's contents Claus Gittinger <cg@exept.de> parents: 7595 diff changeset	144	bad: ;
5415 d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	145	%}.
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	146	^ self primitiveFailed
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	147
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	148	"
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	149	\|h buff n\|
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	150
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	151	h := self basicNew.
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	152	h setFileDescriptor:0.
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	153	buff := ByteArray new:10. buff inspect.
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	154	n := h readBytes:10 into:buff startingAt:1.
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	155	Transcript show:n; space; showCR:buff.
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	156	"
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	157	!
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	158
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	159	writeBytes:count from:aByteBuffer startingAt:firstIndex
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	160	"write count bytes from a byte-buffer;
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	161	Return the number of bytes written (negative on error)"
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	162
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	163	%{
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	164	unsigned char *extPtr;
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	165	int nWritten = -1;
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	166	INT fd = (INT)(__externalAddressVal(self));
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	167	INT cnt, offs;
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	168	int nInstBytes, objSize;
5416 93b5fd7ec357 * empty log message * Claus Gittinger <cg@exept.de> parents: 5415 diff changeset	169
5415 d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	170	if (! __bothSmallInteger(count, firstIndex)) {
15990 358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	171	goto bad;
5415 d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	172	}
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	173	cnt = __smallIntegerVal(count);
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	174	offs = __smallIntegerVal(firstIndex) - 1;
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	175
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	176	if (fd < 0) {
15990 358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	177	goto bad;
5415 d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	178	}
7198 62450598d208 also handle subclasses of ExternalBytes (Mapped..) Claus Gittinger <cg@exept.de> parents: 5416 diff changeset	179	if (__isExternalBytesLike(aByteBuffer)) {
15990 358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	180	OBJ sz;
5415 d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	181
15990 358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	182	nInstBytes = 0;
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	183	extPtr = (char *)(__externalBytesAddress(aByteBuffer));
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	184	if (extPtr == NULL) goto bad;
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	185	sz = __externalBytesSize(aByteBuffer);
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	186	if (__isSmallInteger(sz)) {
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	187	objSize = __smallIntegerVal(sz);
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	188	} else {
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	189	objSize = -1; /* unknown */
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	190	}
5415 d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	191	} else {
15990 358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	192	OBJ oClass = __Class(aByteBuffer);
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	193	int nInstVars = __intVal(__ClassInstPtr(oClass)->c_ninstvars);
5415 d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	194
15990 358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	195	nInstBytes = OHDR_SIZE + __OBJS2BYTES__(nInstVars);
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	196	switch (__intVal(__ClassInstPtr(oClass)->c_flags) & ARRAYMASK) {
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	197	case BYTEARRAY:
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	198	case WORDARRAY:
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	199	case LONGARRAY:
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	200	case SWORDARRAY:
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	201	case SLONGARRAY:
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	202	case FLOATARRAY:
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	203	case DOUBLEARRAY:
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	204	#ifdef __NEED_DOUBLE_ALIGN
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	205	nInstBytes = (nInstBytes-1+__DOUBLE_ALIGN) &~ (__DOUBLE_ALIGN-1);
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	206	#endif
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	207	break;
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	208	case LONGLONGARRAY:
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	209	case SLONGLONGARRAY:
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	210	#ifdef __NEED_LONGLONG_ALIGN
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	211	nInstBytes = (nInstBytes-1+__LONGLONG_ALIGN) &~ (__LONGLONG_ALIGN-1);
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	212	#endif
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	213	default:
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	214	goto bad;
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	215	}
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	216	extPtr = (char *)0;
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	217	objSize = __Size(aByteBuffer) - OHDR_SIZE - nInstBytes;
5415 d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	218	}
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	219	if ((offs >= 0)
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	220	&& (cnt >= 0)
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	221	&& ((objSize == -1) \|\| (objSize >= (cnt + offs)))) {
15990 358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	222	nWritten = 0;
5415 d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	223
15990 358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	224	do {
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	225	int n;
5415 d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	226
15990 358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	227	if (extPtr) {
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	228	n = write(fd, extPtr+offs, cnt);
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	229	} else {
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	230	char *bp;
5415 d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	231
15990 358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	232	/*
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	233	* on interrupt, anObject may be moved to another location.
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	234	* So we recompute the byte-address here.
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	235	*/
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	236	bp = __ByteArrayInstPtr(aByteBuffer)->ba_element + nInstBytes;
5415 d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	237
15990 358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	238	n = write(fd, bp + offs, cnt);
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	239	}
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	240	if (n > 0) {
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	241	cnt -= n;
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	242	offs += n;
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	243	nWritten += n;
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	244	} else {
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	245	if (n < 0) {
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	246	if (errno == EINTR) {
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	247	continue;
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	248	}
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	249	break;
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	250	}
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	251	}
358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	252	} while (cnt > 0);
5415 d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	253
15990 358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	254	RETURN (__mkSmallInteger(nWritten));
5415 d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	255	}
14667 f6a830b971f3 care for externalAddress being NULL before accessing an external buffer's contents Claus Gittinger <cg@exept.de> parents: 7595 diff changeset	256	bad: ;
5415 d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	257	%}.
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	258	^ self primitiveFailed
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	259
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	260	"
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	261	\|h buff n\|
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	262
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	263	h := self basicNew.
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	264	h setFileDescriptor:1.
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	265	buff := '12345678901234567890'.
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	266	n := h writeBytes:10 from:buff startingAt:1.
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	267	"
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	268	! !
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	269
7259 e8c3fc540c21 method category rename Claus Gittinger <cg@exept.de> parents: 7198 diff changeset	270	!UnixFileDescriptorHandle methodsFor:'private-accessing'!
5415 d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	271
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	272	setFileDescriptor:anInteger
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	273
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	274	%{
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	275	if (__isSmallInteger(anInteger)) {
14667 f6a830b971f3 care for externalAddress being NULL before accessing an external buffer's contents Claus Gittinger <cg@exept.de> parents: 7595 diff changeset	276	__externalAddressVal(self) = (OBJ)(__smallIntegerVal(anInteger));
5415 d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	277	}
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	278	%}
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	279
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	280
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	281	! !
d13be53ae32c * empty log message * Claus Gittinger <cg@exept.de> parents: 5413 diff changeset	282
5413 4e67713bf25a * empty log message * Claus Gittinger <cg@exept.de> parents: 5409 diff changeset	283	!UnixFileDescriptorHandle methodsFor:'release'!
4762 7c403263e1be initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	284
5409 9b5890348f9c * empty log message * Claus Gittinger <cg@exept.de> parents: 4762 diff changeset	285	closeFile
9b5890348f9c * empty log message * Claus Gittinger <cg@exept.de> parents: 4762 diff changeset	286	"close the underlying file"
4762 7c403263e1be initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	287
7c403263e1be initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	288	%{
7c403263e1be initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	289	INT fd = (INT)(__externalAddressVal(self));
7c403263e1be initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	290
7c403263e1be initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	291	if (fd > 0) {
14667 f6a830b971f3 care for externalAddress being NULL before accessing an external buffer's contents Claus Gittinger <cg@exept.de> parents: 7595 diff changeset	292	__externalAddressVal(self) = (OBJ)-1;
f6a830b971f3 care for externalAddress being NULL before accessing an external buffer's contents Claus Gittinger <cg@exept.de> parents: 7595 diff changeset	293	close(fd);
4762 7c403263e1be initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	294	}
7c403263e1be initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	295	%}.
7c403263e1be initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	296
7c403263e1be initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	297	! !
7c403263e1be initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	298
7c403263e1be initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	299	!UnixFileDescriptorHandle class methodsFor:'documentation'!
7c403263e1be initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	300
7c403263e1be initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	301	version
15990 358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	302	^ '$Header: /cvs/stx/stx/libbasic/UnixFileDescriptorHandle.st,v 1.10 2014-02-12 12:55:06 stefan Exp $'
4762 7c403263e1be initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	303	! !
15990 358873f8b450 class: UnixFileDescriptorHandle Stefan Vogel <sv@exept.de> parents: 14667 diff changeset	304

author	Stefan Vogel <sv@exept.de>
	Wed, 12 Feb 2014 13:55:06 +0100
changeset 15990	358873f8b450
parent 14667	f6a830b971f3
child 15995	c832f7a2b036
permissions	-rw-r--r--