hg/stx-libbasic: OSHandle.st@881e5090c287 (annotated)

7593 e7550b9ef84a * empty log message * Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	1	"
e7550b9ef84a * empty log message * Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	2	COPYRIGHT (c) 1999 by eXept Software AG
e7550b9ef84a * empty log message * Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	3	All Rights Reserved
e7550b9ef84a * empty log message * Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	4
e7550b9ef84a * empty log message * Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	5	This software is furnished under a license and may be used
e7550b9ef84a * empty log message * Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	6	only in accordance with the terms of that license and with the
e7550b9ef84a * empty log message * Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	7	inclusion of the above copyright notice. This software may not
e7550b9ef84a * empty log message * Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	8	be provided or otherwise made available to, or used by, any
e7550b9ef84a * empty log message * Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	9	other person. No title to or ownership of the software is
e7550b9ef84a * empty log message * Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	10	hereby transferred.
e7550b9ef84a * empty log message * Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	11	"
e7550b9ef84a * empty log message * Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	12
5409 9b5890348f9c * empty log message * Claus Gittinger <cg@exept.de> parents: 4763 diff changeset	13	"{ Package: 'stx:libbasic' }"
9b5890348f9c * empty log message * Claus Gittinger <cg@exept.de> parents: 4763 diff changeset	14
4763 d15c41a66ec4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	15	ExternalAddress subclass:#OSHandle
d15c41a66ec4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	16	instanceVariableNames:''
9103 b934315bb0b1 * empty log message * Claus Gittinger <cg@exept.de> parents: 7593 diff changeset	17	classVariableNames:'Lobby'
4763 d15c41a66ec4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	18	poolDictionaries:''
5740 a634006d10be checkin from browser Claus Gittinger <cg@exept.de> parents: 5409 diff changeset	19	category:'Compatibility-ST80'
4763 d15c41a66ec4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	20	!
d15c41a66ec4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	21
6226 d45b429492ec documentation Claus Gittinger <cg@exept.de> parents: 6124 diff changeset	22	!OSHandle class methodsFor:'documentation'!
d45b429492ec documentation Claus Gittinger <cg@exept.de> parents: 6124 diff changeset	23
7593 e7550b9ef84a * empty log message * Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	24	copyright
e7550b9ef84a * empty log message * Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	25	"
e7550b9ef84a * empty log message * Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	26	COPYRIGHT (c) 1999 by eXept Software AG
e7550b9ef84a * empty log message * Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	27	All Rights Reserved
e7550b9ef84a * empty log message * Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	28
e7550b9ef84a * empty log message * Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	29	This software is furnished under a license and may be used
e7550b9ef84a * empty log message * Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	30	only in accordance with the terms of that license and with the
e7550b9ef84a * empty log message * Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	31	inclusion of the above copyright notice. This software may not
e7550b9ef84a * empty log message * Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	32	be provided or otherwise made available to, or used by, any
e7550b9ef84a * empty log message * Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	33	other person. No title to or ownership of the software is
e7550b9ef84a * empty log message * Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	34	hereby transferred.
e7550b9ef84a * empty log message * Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	35	"
e7550b9ef84a * empty log message * Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	36	!
e7550b9ef84a * empty log message * Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	37
6226 d45b429492ec documentation Claus Gittinger <cg@exept.de> parents: 6124 diff changeset	38	documentation
d45b429492ec documentation Claus Gittinger <cg@exept.de> parents: 6124 diff changeset	39	"
9103 b934315bb0b1 * empty log message * Claus Gittinger <cg@exept.de> parents: 7593 diff changeset	40	Ongoing work:
b934315bb0b1 * empty log message * Claus Gittinger <cg@exept.de> parents: 7593 diff changeset	41	extract handle specific operations and rewrite Streams, Sockets etc.
b934315bb0b1 * empty log message * Claus Gittinger <cg@exept.de> parents: 7593 diff changeset	42	to pass all work to these handles.
6226 d45b429492ec documentation Claus Gittinger <cg@exept.de> parents: 6124 diff changeset	43
d45b429492ec documentation Claus Gittinger <cg@exept.de> parents: 6124 diff changeset	44	[author:]
d45b429492ec documentation Claus Gittinger <cg@exept.de> parents: 6124 diff changeset	45	Claus Gittinger
d45b429492ec documentation Claus Gittinger <cg@exept.de> parents: 6124 diff changeset	46	"
d45b429492ec documentation Claus Gittinger <cg@exept.de> parents: 6124 diff changeset	47	! !
4763 d15c41a66ec4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	48
9103 b934315bb0b1 * empty log message * Claus Gittinger <cg@exept.de> parents: 7593 diff changeset	49	!OSHandle class methodsFor:'initialization'!
b934315bb0b1 * empty log message * Claus Gittinger <cg@exept.de> parents: 7593 diff changeset	50
b934315bb0b1 * empty log message * Claus Gittinger <cg@exept.de> parents: 7593 diff changeset	51	initialize
b934315bb0b1 * empty log message * Claus Gittinger <cg@exept.de> parents: 7593 diff changeset	52	Lobby := Registry new.
b934315bb0b1 * empty log message * Claus Gittinger <cg@exept.de> parents: 7593 diff changeset	53	! !
b934315bb0b1 * empty log message * Claus Gittinger <cg@exept.de> parents: 7593 diff changeset	54
7298 9b3c69eb2c5d category Claus Gittinger <cg@exept.de> parents: 6439 diff changeset	55	!OSHandle class methodsFor:'Compatibility-VW'!
5740 a634006d10be checkin from browser Claus Gittinger <cg@exept.de> parents: 5409 diff changeset	56
a634006d10be checkin from browser Claus Gittinger <cg@exept.de> parents: 5409 diff changeset	57	currentOS
a634006d10be checkin from browser Claus Gittinger <cg@exept.de> parents: 5409 diff changeset	58	"ST-80 compatibility."
a634006d10be checkin from browser Claus Gittinger <cg@exept.de> parents: 5409 diff changeset	59
a634006d10be checkin from browser Claus Gittinger <cg@exept.de> parents: 5409 diff changeset	60	"/ mhmh what does ST80/VW returned here ?
a634006d10be checkin from browser Claus Gittinger <cg@exept.de> parents: 5409 diff changeset	61
a634006d10be checkin from browser Claus Gittinger <cg@exept.de> parents: 5409 diff changeset	62	OperatingSystem isUNIXlike ifTrue:[^ #unix].
a634006d10be checkin from browser Claus Gittinger <cg@exept.de> parents: 5409 diff changeset	63	OperatingSystem isOS2like ifTrue:[^ #os2].
a634006d10be checkin from browser Claus Gittinger <cg@exept.de> parents: 5409 diff changeset	64	OperatingSystem isMSWINDOWSlike ifTrue:[^ #windows].
a634006d10be checkin from browser Claus Gittinger <cg@exept.de> parents: 5409 diff changeset	65	^ #unknown
6295 8cd84857b5bb * empty log message * Claus Gittinger <cg@exept.de> parents: 6226 diff changeset	66
8cd84857b5bb * empty log message * Claus Gittinger <cg@exept.de> parents: 6226 diff changeset	67	"
8cd84857b5bb * empty log message * Claus Gittinger <cg@exept.de> parents: 6226 diff changeset	68	OSHandle currentOS
8cd84857b5bb * empty log message * Claus Gittinger <cg@exept.de> parents: 6226 diff changeset	69	"
6124 81baa6b991c3 currentProcessID - for VW compatibility Claus Gittinger <cg@exept.de> parents: 5966 diff changeset	70	!
81baa6b991c3 currentProcessID - for VW compatibility Claus Gittinger <cg@exept.de> parents: 5966 diff changeset	71
81baa6b991c3 currentProcessID - for VW compatibility Claus Gittinger <cg@exept.de> parents: 5966 diff changeset	72	currentProcessID
81baa6b991c3 currentProcessID - for VW compatibility Claus Gittinger <cg@exept.de> parents: 5966 diff changeset	73	"ST-80 compatibility."
81baa6b991c3 currentProcessID - for VW compatibility Claus Gittinger <cg@exept.de> parents: 5966 diff changeset	74
81baa6b991c3 currentProcessID - for VW compatibility Claus Gittinger <cg@exept.de> parents: 5966 diff changeset	75	^ OperatingSystem getProcessId
81baa6b991c3 currentProcessID - for VW compatibility Claus Gittinger <cg@exept.de> parents: 5966 diff changeset	76
6295 8cd84857b5bb * empty log message * Claus Gittinger <cg@exept.de> parents: 6226 diff changeset	77	"
8cd84857b5bb * empty log message * Claus Gittinger <cg@exept.de> parents: 6226 diff changeset	78	OSHandle currentProcessID
8cd84857b5bb * empty log message * Claus Gittinger <cg@exept.de> parents: 6226 diff changeset	79	"
8cd84857b5bb * empty log message * Claus Gittinger <cg@exept.de> parents: 6226 diff changeset	80
6124 81baa6b991c3 currentProcessID - for VW compatibility Claus Gittinger <cg@exept.de> parents: 5966 diff changeset	81	"Created: / 30.10.2001 / 17:31:55 / cg"
5740 a634006d10be checkin from browser Claus Gittinger <cg@exept.de> parents: 5409 diff changeset	82	! !
a634006d10be checkin from browser Claus Gittinger <cg@exept.de> parents: 5409 diff changeset	83
4763 d15c41a66ec4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	84	!OSHandle methodsFor:'finalization'!
d15c41a66ec4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	85
9103 b934315bb0b1 * empty log message * Claus Gittinger <cg@exept.de> parents: 7593 diff changeset	86	finalizationLobby
b934315bb0b1 * empty log message * Claus Gittinger <cg@exept.de> parents: 7593 diff changeset	87	"answer a Registry used for finalization."
b934315bb0b1 * empty log message * Claus Gittinger <cg@exept.de> parents: 7593 diff changeset	88
b934315bb0b1 * empty log message * Claus Gittinger <cg@exept.de> parents: 7593 diff changeset	89	^ Lobby
b934315bb0b1 * empty log message * Claus Gittinger <cg@exept.de> parents: 7593 diff changeset	90	!
b934315bb0b1 * empty log message * Claus Gittinger <cg@exept.de> parents: 7593 diff changeset	91
6439 0f841258ec4a Use #finalize instead of #disposed Stefan Vogel <sv@exept.de> parents: 6295 diff changeset	92	finalize
4763 d15c41a66ec4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	93	self subclassResponsibility
d15c41a66ec4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	94	! !
d15c41a66ec4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	95
9103 b934315bb0b1 * empty log message * Claus Gittinger <cg@exept.de> parents: 7593 diff changeset	96	!OSHandle methodsFor:'queries'!
b934315bb0b1 * empty log message * Claus Gittinger <cg@exept.de> parents: 7593 diff changeset	97
b934315bb0b1 * empty log message * Claus Gittinger <cg@exept.de> parents: 7593 diff changeset	98	isValid
b934315bb0b1 * empty log message * Claus Gittinger <cg@exept.de> parents: 7593 diff changeset	99	^ self address ~~0
b934315bb0b1 * empty log message * Claus Gittinger <cg@exept.de> parents: 7593 diff changeset	100	! !
b934315bb0b1 * empty log message * Claus Gittinger <cg@exept.de> parents: 7593 diff changeset	101
4763 d15c41a66ec4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	102	!OSHandle class methodsFor:'documentation'!
d15c41a66ec4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	103
d15c41a66ec4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	104	version
9103 b934315bb0b1 * empty log message * Claus Gittinger <cg@exept.de> parents: 7593 diff changeset	105	^ '$Header: /cvs/stx/stx/libbasic/OSHandle.st,v 1.11 2006-02-08 18:27:36 cg Exp $'
4763 d15c41a66ec4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	106	! !
9103 b934315bb0b1 * empty log message * Claus Gittinger <cg@exept.de> parents: 7593 diff changeset	107
b934315bb0b1 * empty log message * Claus Gittinger <cg@exept.de> parents: 7593 diff changeset	108	OSHandle initialize!

author	Claus Gittinger <cg@exept.de>
	Mon, 17 Mar 2014 22:20:38 +0100
changeset 16263	881e5090c287
parent 9103	b934315bb0b1
child 16341	5d233b3b858c
child 17711	39faaaf888b4
permissions	-rw-r--r--