'From Croquet1.0beta of 11 April 2006 [latest update: #0] on 23 December 2006 at 7:54:41 pm'!

!KMessageRouter class methodsFor: 'running' stamp: 'strick 12/13/2006 00:47'!
runRouters: port serverName: serverName serverPassword: serverPassword log: logging
	| router |

	Dispatcher ifNotNil: [^nil].
	Dispatcher := TExampleDispatcher new.
	Dispatcher listenOn: port.
	Dispatcher autoCreate: false.

	router := KCacheRouter new.
	router autoStop: false.
	logging ifTrue: [router log: (self logDirectory forceNewFileNamed: 'cache.log')].
	router logMessage: 'Starting'.
	router addUser: (KMessageRouterUser localCacheNamed: 'global' password: 'cache').
	Dispatcher addRouter: router id: KCacheRouter defaultRouterID.

	KCroquetParticipant worlds do: 
		[:ctrl |
		router := self new.
		logging ifTrue: [router log: (self logDirectory forceNewFileNamed: ctrl name, '.log')].
		router 
			autoStop: false;
			logMessage: 'Starting';
			addGuest: 'guest' password: 'guest';
			addParticipant: 'howard' password: 'stearns';
			addParticipant: 'joshua' password: 'gargus';
			addParticipant: 'jack' password: 'keel';
			addParticipant: 'everyone' password: 'else';
			addServer: serverName password: serverPassword.
			Dispatcher addRouter: router id: ctrl islandID.
		].
	^ '127.0.0.1'  "NetNameResolver localAddressString"
! !


!OpenAL methodsFor: 'testing' stamp: 'strick 12/11/2006 18:34'!
isCurrent

	(self hasContext and: [self alcGetCurrentContext notNil]) ifTrue: [
		
		^ (handle getHandle) = ((self alcGetCurrentContext) getHandle)

	] ifFalse: [
		^ false  "strick guesses that false is the correct fallback"
	]
! !