SMALLTALK K1ex127-.45ex51275ahler/Bothner

15.1 Prüfung von Direktverbindungen 315
ein Knoten erreicht wird, der keine Nachfolger hat, wird zum unmittelbar vorausgehenden
Verzweigungsknoten im Suchgraphen zurückgesetzt und gegebenenfalls von
dort aus die nächste Direktverbindung des IC-Netzes überprüft.
Gemäß der Struktogramme vereinbaren wir die Methode “nachfolgerTiefen:” durch
nachfolgerTiefen: sammlerVonStationen
| erstesObjekt nachfolgerSammler |
nachfolgerSammler := OrderedCollection new.
erstesObjekt := sammlerVonStationen first.
sammlerVonStationen remove: erstesObjekt.
nachfolgerSammler addAll: erstesObjekt bereitstellenDirektverbindung.
sammlerVonStationen do: [:einObjekt|nachfolgerSammler add: einObjekt].
∧ nachfolgerSammler
und die Methode “verbindungTiefen:” durch
verbindungTiefen: ankunft
| nachfolgerSammler |
nachfolgerSammler := OrderedCollection new.
nachfolgerSammler add: self.
self verbindungTiefen: nachfolgerSammler rek: ankunft
sowie die Methode “verbindungTiefen:rek:” durch:
verbindungTiefen: nachfolgerSammler rek: ankunft
(nachfolgerSammler isEmpty)
ifTrue: [Transcript cr;show:’keine IC-Verb’]
ifFalse: [(nachfolgerSammler includes: ankunft)
ifTrue: [Transcript cr;show:’IC-Verb existiert’]
ifFalse: [self verbindungTiefen:
(self nachfolgerTiefen:nachfolgerSammler)
rek: ankunft]
]
Insgesamt ist die Klasse “Suchverfahren” jetzt wie folgt aufgebaut: