Programmeinheiten

Prozedur

proc download {url file { qu ""}} {
    set out [open $file w]
    set token [http::geturl $url -channel $out  \
        -query $qu -blocksize 4096]
    close $out
    http::cleanup $token
    return $token
}

    set ret [download …]

    download …

Für einen formalen Parameter kann in der Prozedurdefinition ein Standardwert angegeben werden. Dies wurde im obigen Beispiel für qu getan. Dann kann man beim Prozeduraufruf diesen Parameter weglassen, wenn der Standardwert gelten soll, z.B.

    set ret [download &aktuelleDatei]

Das Weglassen ist jedoch nur am Ende der Parameterliste möglich. Wenn man allerdings versehentlich nur zwei Parameter angibt, wird dies nicht mehr als Formalfehler erkannt.

Man kann als letzten formalen Parameter auch den festen Namen args angeben. Dann können als entsprechendem aktuellen Parameter beliebig viele Werte angegeben werden. Diese stehen dem aufgerufenen Programm als Liste zur Verfügung. Beispiel:

proc psatz {args} {
    set satz ""
    set nr 0
    foreach w $args {
        append satz ${w}_
        incr nr
    }
    return "${satz} ($nr)"
}
puts [psatz Amsel Drossel Fink und Star]

Wie erwähnt wird beim Aufruf eine Umformung gemacht zwischen "beliebig vielen Parametern" und einer "Liste von Parametern" (= ein Parameter). Wollte man in psatz eine weitere Prozedur aufrufen, die ebenfalls einen args-Parameter hat, so kann man diesen nicht einfach durchreichen.

Parameter werden normalerweise mit call-by-value übergeben, d.h. es ist keine Änderung der aktuellen Parameter des Aufrufers möglich. call-by-reference ist auch vorgesehen, jedoch ist die Syntax dazu etwas gewöhnungsbedürftig. Beispiel:

proc doppelt {aPar} {
    upvar $aPar a
    set a [expr 2*$a]
}
set a 10
doppelt a
puts $a

1. Beim Aufruf von doppelt wird nicht der Inhalt, sondern der Name einer Variablen übergeben (also kein $-Zeichen!).
2. Mit dem upvar-Befehl wird der formale Parameter aPar, der einer Variablen des Aufrufers entspricht, lokal mit dem Symbol a verknüpft. Dass hier der gleiche Name verwandt wie für die Variable im Hauptprogramm, ist ohne Bedeutung.
3. Die lokale Variable a kann in weiteren Befehlen der Prozedur benutzt werden und ist identisch mit der verknüpften Variablen. Der puts-Befehl zeigt somit 20 als Inhalt von a an.

Modul

Mit dem Befehl

source Modul.tcl

1. Die Prozeduren sind dem Interpreter bekannt.
2. Die Befehle außerhalb von Prozeduren (üblicherweise irgendwelche Initialisierungen) werden ausgeführt.

Mit dem Befehl

info globals

Zurück zum source-Befehl: Folgendes ist zu beachten:

1. Wenn man während der Entwicklung an einem Modul etwas geändert hat, muss man ihn neu "sourcen", damit die Änderungen wirksam werden.
2. Mit

   info procs

   kann man die Namen der Prozeduren abfragen, die dem Interpreter im Augenblick bekannt sind.
3. Besteht eine Änderung im Löschen einer Prozedur procA, so ist diese trotzdem weiterhin vorhanden. Um sie zu löschen, könnte man den Befehl

   rename procA ""

   verwenden oder die Tcl-Shell neu starten.

Damit der Sourcecode durchschaubar bleibt, sollte man dies jedoch nicht ohne triftigen Grund tun.

Package

Um eine Sourcedatei einem Package zuzuordnen, wird an den Anfang der Datei der Befehl

package provide packName

Bevor ein fremdes Sourcemodul Prozeduren aus einem Package aufrufen kann, muss es dieses referenzieren mit dem Befehl

package require packName

Es sind noch Vorkehrungen zu treffen, damit alle benötigten Sourcedateien gefunden werden. Es gibt die vordefinierte globale Variable auto_path, die mit einer Liste von Suchpfaden versorgt werden muss. In diesen Pfaden wird nach Dateien pkgIndex.tcl geschaut und diese ggf. "gesourced".

Beispiel für eine pkgIndex.tcl-Datei:

package ifneeded sql 1.0 [list load c:/Tcl/bin/sql.dll sql]
package ifneeded GlpkAPI 4.1 [list source c:/Entwick/VCPP/glpk-4.1/glpk41Tcl/glpkAPI.tcl]

Wie man erkennt, enthält die Datei Informationen zu vorhandenen Packages und welche Souredateien dazugehören. Die Dateien enthalten Tcl-Code und können somit manuell gepflegt werden. Einfacher kann man sie mit dem Befehl pkg_mkIndex erstellen.

In der einfachsten Form, wenn alle Tcl-Dateien und auch die zu erzeugende Datei pkgIndex.tcl im Arbeitsverzeichnis liegen, lautet der Befehl:

pkg_mkIndex .

Beispiel: Referenzieren eines Package:

if {[lsearch $auto_path Pfad] == -1} {
    lappend auto_path Pfad
}
if {![info exist Prozedur]} {
    package require UBL 1.0
}

Durch die Abfragen soll verhindert werden, dass die Befehle mehrfach ausgeführt werden. Prozedur ist der Name einer charakteristische Prozedur, die in dem fraglichen Package enthalten ist.

Weitere Informationen zum package-Befehl.

Design by Gottfried Lindner

zuletzt geändert am 30.04.2005.