WADispatcher

• handlerForRequest:
• initialize

• basePath:
• configurationComponent
• entryPoints
• handleRequest:
• registerEntryPoint:at:
• removeEntryPoint:

• default
• description
• new

InitialValue:

a Dictionary()

inferredType:

Dictionary

InitialValue:

a WADispatcher(/seaside)

inferredType:

WADispatcher

	| path name |
	path _ aRequest url.
	(path beginsWith: basePath)
		ifTrue: [name _ ((path allButFirst: basePath size) findTokens: '/') at: 1 ifAbsent: [].
				entryPoints at: name ifPresent: [:n | ^ n]].
	^ WANotFoundHandler new

	entryPoints _ Dictionary new

	| base |
	basePath _ newPath.
	base _ (newPath isEmpty or: [newPath last ~= $/])
				ifTrue: [newPath, '/']
				ifFalse: [newPath].
	entryPoints keysAndValuesDo: [:key :component | component basePath: base, key]

	^ WADispatcherEditor new dispatcher: self

	^ entryPoints

	^ (self handlerForRequest: aRequest) handleRequest: aRequest

	| path |
	entryPoints at: aString put: entryPoint.
	path _ basePath last = $/
		ifTrue: [basePath, aString]
		ifFalse: [basePath, '/', aString].
	entryPoint basePath: path

	entryPoints removeKey: (entryPoints keyAtValue: anObject)

	default ifNil: [default _ self new].
	default basePath ifNil: [default basePath: '/seaside'].
	
	^ default

	^ 'Subdirectory'

	^ super new initialize