'From Squeak2.8alpha of 19 January 2000 [latest update: #2299] on 7 June 2000 at 7:47:38 pm'!
"Change Set:		JMM-Socket-Network Tests P
Date:			5 June 2000
Author:			John M McIntosh
				johnmci@smalltalkconsulting.com

This change set is required to use the JMM-SUnit-Network Tests test suite. It adds a number of accessors to the network classes and Semaphore so we can understand and track some of their instance variables"!


!NetNameResolver class methodsFor: 'lookups' stamp: 'JMM 5/3/2000 11:25'!
resolverError
	^self primNameResolverError
! !

!NetNameResolver class methodsFor: 'lookups' stamp: 'JMM 5/3/2000 11:25'!
resolverStatus
	^self primNameResolverStatus
! !


!Semaphore methodsFor: 'accessing' stamp: 'JMM 5/9/2000 15:31'!
excessSignals
	^excessSignals
! !


!Socket methodsFor: 'accessing' stamp: 'JMM 5/10/2000 14:37'!
localAddress
	self waitForConnectionUntil: Socket standardDeadline.
	self isConnected ifFalse: [^ByteArray new: 4].
	^ self primSocketLocalAddress: socketHandle
! !

!Socket methodsFor: 'accessing' stamp: 'JMM 5/10/2000 14:31'!
localPort
	self waitForConnectionUntil: Socket standardDeadline.
	self isConnected ifFalse: [^0 ].
	^ self primSocketLocalPort: socketHandle
! !

!Socket methodsFor: 'accessing' stamp: 'JMM 5/9/2000 15:32'!
semaphore
	^semaphore! !

!Socket methodsFor: 'queries' stamp: 'JMM 5/5/2000 12:15'!
isOtherEndClosed
	"Return true if this socket had the other end closed."

	socketHandle == nil ifTrue: [^ false].
	^ (self primSocketConnectionStatus: socketHandle) == OtherEndClosed
! !

!Socket methodsFor: 'queries' stamp: 'JMM 5/5/2000 12:17'!
isThisEndClosed
	"Return true if this socket had the this end closed."

	socketHandle == nil ifTrue: [^ false].
	^ (self primSocketConnectionStatus: socketHandle) == ThisEndClosed
! !

!Socket methodsFor: 'queries' stamp: 'JMM 5/8/2000 23:24'!
socketError
	^self primSocketError: socketHandle! !