FirstStep - Eine Ausbildungssprache

Inhalt

1. Die Struktur von FirstStep
2. Link-Definitionen
3. Schreibweise
4. Blöcke
5. Definitionen
6. Deklarationen
7. Anweisungen
8. Funktionen und Prozeduren
9. Klassen
10. Ein- und Ausgabe, Dateien und Verbindungen
11. Syntax

Anhang:

1. Beispiele
2. Module
3. Dokumentation zu FirstStep in Word 6.0
   Dokumentation zu FirstStep in Word 7.0
   Dokumentation zu FirstStep in PostScript

zurück Index vor

10 Ein- und Ausgabe, Dateien und Verbindungen

Dateien werden mit dem Schlüsselwort file deklariert:

file DateiName1, DateiName2 DateiName3;

Es handelt sich bei Dateien logisch um Textobjekte, die eine beliebige Anzahl von Zeichen aufnehmen können. Allerdings können Zeichen nur geschrieben werden, wenn die Datei zum Schreiben geöffnet wurde, und nur gelesen werden. wenn die Datei zum Lesen geöffnet wurde. Durch die Beispielanweisungen:

open DateiName1 to read from "Datei1"; -- Öffne zum sequentiellen Lesen
open DateiName2 to write on "Datei2"; -- Öffne zum sequentiellen Schreiben
open DateiName3 to append to "Datei3"; -- Öffne zum sequentiellen Anhängen
close DateiName1; -- Schließe Datei

werden Dateien, die im Betriebssystem den Namen Datei.. haben, zum Lesen bzw. Schreiben geöffnet, bzw. mit der letzten Anweisung werden geöffnete Dateien geschlossen. Nach dem Schließen kann eine Datei wieder geöffnet werden (sonst nicht!).

Durch die Anweisungen write bzw. read kann auf Dateien^geschrieben bzw. von ihnen gelesen werden. Dabei ist die Darstellung auf den Dateien rein textuell. Die folgenden Befehle eigenen sich auch für die Ausgabe auf das Standardausgabemedium bzw. für die Eingabe vom Standardeingabemedium, wobei jedoch die Zusätze "to DateiName" bzw. "from DateiName" entfallen. Für das Lesen gilt:

read from <dateiname> <variablenlist>;

bzw. zum Lesen vom Standardeingabemedium:

read <variablenlist>;

Für das Schreiben gilt:

write to <dateiname> <list>;

bzw. zum Lesen vom Standardeingabemedium:

write <list>;

In diesem Fall ist <list> eine Liste von Konstanten oder Variablen.

Beispiel

Folgendes sind legale FirstStep-Anweisungen:

declare
file EingabeDatei; -- Deklariere Datei
integer Wert, Anzahl;
text [] Name;
do
EingabeDatei := read from "KundenHaben"; -- Öffne zum sequentl. Lesen
write "Wie oft lesen? ";
read Anzahl; -- Lese Häufigkeit
for Lauf to Anzahl do
read from EingabeDatei Wert, Name; -- Lese Wert und Name
write "Kunde ", Name, " besitzt ", -- Drucke Ergebnis
Wert, " DM", newline;
done for Lauf;

In diesem Beispiel werden von der Datei "KundenHaben" die Kundendaten eingelesen und in einem speziellen Format wieder ausgegeben.

Während beim Lesen nur der Befehl "read" sinnvoll ist, ist beim Schreiben auf die jeweilige Formatierung zu achten. Diese kann häufig sehr differenziert gehandhabt werden. Hier seien die folgenden Konstrukte erlaubt:

Zahl := 12; RealZahl := 12.25;
write Zahl; -- Ausgabe: "12"
write hex Zahl; -- Ausgabe: "xC"
write octal Zahl; -- Ausgabe: "o14"
write dual Zahl; -- Ausgabe: "d1100"
write Zahl:4; -- Ausgabe: " 12"
write RealZahl:8:3; -- Ausgabe: " 12.250"
write + RealZahl:8:3; -- Ausgabe: " +12.250"
write - RealZahl:8:3; -- Ausgabe: "--12.250"
write 0 RealZahl:8:3; -- Ausgabe: "0012.250"

Steht schließlich statt eines Dateinames ein Text, so wird der jeweilige Wert auf diesen Text ausgegeben:

declare
text [132] Text;
do
write on Text 24, "+", Zahl, "=", 24+Zahl;
-- Text == "24+23=36"
read from Text Zahl; -- Zahl == 24, d.h. die früheste längste ..
-- .. Zeichenfolge, die eine Zahl ist

Daneben gibt es ein Formatierungszeichen:

• newline (abgekürzt nl) für "Gehe auf nächste Zeile"

Um eine Nachricht an ein anderes Programm zu schicken, kann zwischen den Programmen eine Verbindung (connection) aufgebaut werden. Ein sogenannter “Kunde”, der von einem Dienstleister eine Information haben will, baut eine Verbindung folgendermaßen auf.

declare
connection Client;
text [132] Ergebnis;
do -- Verbinde mit Rechner “einstein”
connect Client to "einstein" via 4747; -- über Port Nummer 4747.
write on Client "Information?"; -- Sende Anfrage.
read from Client Ergebnis; -- Warte auf Ergebnis.
write Ergebnis,newline; -- Gebe Ergebnis zur Konteolle aus.
close Client; -- Schließe die Verbindung wieder.
done

Der Server, der stets empfangsbereit sein muß, baut folgende Verbindung auf:

declare
connection Server;
text [132] Anfrage;
do
connect Server via 4747; -- Verbinder über Port Nummer 4747.
read from Server Anfrage; -- Erwarte Anfragen.
if Anfrage == "Information?" then -- Wähle Antwort aus.
write on Server "E = m*c**2"; -- Sende Antwort ab.
end if;
close Client; -- Schließe die Verbindung wieder.
done

Dem Kunden muß der sogenannte “Port”, über den der Server seine Dienstleistung anbietet, bekannt sein; außerdem muß er den Namen des Rechners kennen. Der Server arbeit normalerweise im Endlosbetrieb, d.h. er ist stets bereit, eine Anfrage entgegenzunehmen und zu antworten. Beim Aufbau einer Verbindung kann durch connectionOK abgefragt werden, ob die (letzte) Verbindung aufgebaut wurde. Außerdem kann durch die logische Funktion messageOK(VerbindungsName) abgefragt werden, ob eine Nachricht empfangen wurde und gelesen erden kann.

Die beiden Anweisungen read und write sind somit mehrfach überladen. Dennoch sollte aufgrund der grammatischen Konstruktion jeweils eindeutig erkennbar sein, wie sie verwendet werden, so daß hierdurch keine Fehler entstehen sollten.

Weitere Informationen zu FirstStep finden Sie in dem Buch "System, Model, Programm".

zurück Index vor