Die Kommandozeile wird selbstständig

Darf's auch etwas mehr sein?

Nun brauchen Sie eine Möglichkeit, die Eingabe des Nutzers mit einem von Ihnen gewählten Wert zu vergleichen. Dies können Sie mit dem Befehl string. Mit dem Argument match vergleicht er zwei Zeichenketten, die danach angegeben werden. Sind die Zeichenketten gleich, so ist sein Ergebnis eine 1, sind sie ungleich, so liefert er eine 0 zurück. Die genaue Befehlssyntax lautet:

string match erste_Zeichenkette
 zweite_Zeichenkette

Probieren Sie auch das beim Trockenschwimmen mit dem Interpreter aus:

%
% # zwei gleiche Zeichenketten
% string match j j
1
% string match ja ja
1
%
% # zwei ungleiche Zeichenketten
% string match j n
0
% string match ja j
0
%

Um den Befehl string in der if-Kontrollstruktur als Abfrage zu verwenden, müssen Sie ihn in eckige Klammern schreiben. Der Interpreter wertet zunächst den zwischen den Klammern stehenden Befehl aus und reicht dann das Ergebnis an if weiter. War es eine 1, so interpretiert das if dies als ja, kam eine 0 heraus, so wertet if das als nein.

Nun können Sie den Quellcode Ihres poff-Programms um die Abfrage erweitern. Die öffnende Klammer des Skripts, {, muss dabei in der selben Zeile wie das if stehen. Nur so erkennt der Interpreter das Skript als zweites Argument für if an. Das else wiederum muss sich mit der schließenden Klammer } auf einer Zeile befinden, um als Option von if akzeptiert zu werden.

puts "Möchten Sie die Bildgröße eingeben (j/n)?"
gets stdin bildgroesse
if { [ string match j $bildgroesse ] } {
   puts "Geben Sie bitte die Breite des Bildes ein"
   gets stdin bildbreite
   puts "Geben Sie bitte die Höhe des Bildes ein"
   gets stdin bildhoehe
   # Aufruf von povray mit Groessenangabe
} else {
   # Aufruf von povray ohne explizite Groessenangabe
}

Das macht dann …

Nun bleibt nur noch Punkt 5 auf der Liste: das Starten von povray – entweder mit Angabe der Bildgröße oder ohne.

Der Befehl exec kann alle ausführbaren Programme aufrufen, also auch das Programm povray. Als erstes Argument benötigt exec den Namen des auszuführenden Programms. Tcl startet dieses dann mit den restlichen Optionen. Der korrekte Aufruf lautet:

# Mit Groessenangaben:
exec povray +I$dateiname +O$bildname +W$bildbreite +H$bildhoehe &
# Ohne explizite Groessenangaben:
exec povray +I$dateiname +O$bildname &

Wenn Sie die if- und else-Skripte noch um den jeweiligen Povray-Aufruf ergänzen, haben Sie Ihr komplettes Programm fertig! Sie finden es vollständig in Listing 1 abgedruckt, die gelernten Befehle sind in Tabelle 1 noch einmal beschrieben. Experimentieren Sie damit, bevor Sie in Heft 08/2000 die letzte Folge unserer kleinen Programmierreihe erwartet.

#!/usr/bin/tclsh
# Vorstellung des Frontends
puts "Willkommen bei poff, dem interaktiven Povray-Frontend"
# Aufforderung an den Nutzer
puts ""
puts "Geben Sie bitte den Namen der zu rendernden Datei ein"
# Einlesen der Nutzer-Eingabe
gets stdin dateiname
# Erstellen des Namens für die Bilddatei
set bildname [ file rootname $dateiname ]
set bildname $bildname.tga
# Erfragen, ob Bildgroesse gewuenscht
puts "Möchten Sie die Bildgröße eingeben (j/n)?"
gets stdin bildgroesse
# Wenn Bildgroesse gewuenscht, dann erfragen
if { [ string match j $bildgroesse ] } {
   puts "Geben Sie bitte die Breite des Bildes ein"
   gets stdin bildbreite
   puts "Geben Sie bitte die Höhe des Bildes ein"
   gets stdin bildhoehe
   # Aufruf von povray mit Groessenangabe
   exec povray +I$dateiname +O$bildname +W$bildbreite +H$bildhoehe &
} else {
   # Aufruf von povray ohne Groessenangabe
   exec povray +I$dateiname +O$bildname &
}