SMALLTALK K1ex127-.45ex51275ahler/Bothner

292 14 Langfristige Sicherung von Objekten
Ein Datenstrom wird dadurch gefüllt, daß ein erstes Objekt eingetragen wird, danach
ein zweites Objekt, usw. Anschließend kann ein Zugriff auf die Objekte durchgeführt
werden, der entweder über eine vorgegebene Positionsnummer oder aber
sequentiell erfolgt, indem von einem Objekt auf das unmittelbar nachfolgende Objekt
positioniert wird.
Sofern der Inhalt eines Datenstroms die Form einer Zeichenkette besitzt, kann er in
einer Datei gesichert werden.
Dieser Sachverhalt versetzt uns in die Lage, die Persistenz von Objekten auch
für den Fall zu ermöglichen, in dem eine Anwendung allein auf den Einsatz eines
Laufzeit-Systems gegründet werden soll.
14.2.2 Einrichtung und Bearbeitung einer Ausgabe-Datei
Zur Einrichtung einer Datei stellt das SMALLTALK-System die Basis-Klasse “File”
zur Verfügung. Durch eine Instanziierung dieser Klasse läßt sich ein Datenstrom
einrichten, dessen Inhalt die Form einer Zeichenkette besitzt. Dieser Datenstrom
wird nicht im Speicherbereich des Laufzeit-Systems, sondern extern unter Einsatz
des Betriebssystems als Datei auf einem magnetischen Datenträger verwaltet.
Um eine Datei einzurichten, kann die Message “pathName:” verwendet werden, bei
der der jeweils gewählte Dateiname als Argument aufzuführen ist.
ˆ “pathName:”:
Durch den Einsatz der Klassen-Methode “pathName:” wird ein externer Datenstrom
in Form einer Datei eingerichtet, deren Dateiname als Argument des
Selektors “pathName:” in Form einer Zeichenkette anzugeben ist.
Zum Beispiel wird durch die Anforderung
|ausgabeDatei|
ausgabeDatei := File pathName: ’bag.dat’
eine Datei namens “bag.dat” als externer Datenstrom vereinbart und zur Bearbeitung
eröffnet.
Soll z.B. der Inhalt eines Bags, in dem mehrere Zeichenketten – wie z.B. “33”, “31”
und “34” – gesammelt sind, in die Datei “bag.dat” übertragen werden, so können
die folgenden Anforderungen gestellt werden:
|ausgabeDatei bag|
bag := Bag new.
bag add: ’33’.
bag add: ’31’.
bag add: ’34’.
ausgabeDatei := File pathName: ’bag.dat’.
bag do: [:einObjekt|ausgabeDatei space; nextPutAll: einObjekt].
ausgabeDatei close