Liite 2. Autolaskuri-esimerkki Tcl-kielellä.
#####################################################
# Autolaskuri
#
# Autolaskuri-esimerkki. Käyttöliittymä tehty Tcl-kielellä.
#
# Taru Väisänen, tehty 14.8.1998
#####################################################
#!/usr/local/bin/tclsh
#Autolaskuri
global henkilo_autot
global kuorma_autot
#Otetaan parametreina annetut luvut talteen (esim. auto.tcl 5 10)
#Jos parametria ei anneta alustetaan autojen määrät nollaksi
if {$argc > 0} {
set henkilo_autot [lindex $argv 0]
if {$argc == 1} {
set kuorma_autot 0
} else {
set kuorma_autot [lindex $argv 1]
}
} else {
set henkilo_autot 0
set kuorma_autot 0
}
#Tulostetaan näytölle tämän hetkinen autotilanne
puts "Henkilöautoja: $henkilo_autot"
puts "Kuorma-autoja: $kuorma_autot"
set syote ""
#luetaan komentoriviltä käyttäjän syöte
gets stdin syote
while { $syote != "q" } {
#Luetaan silmukassa käytäjän syötteitä niin kauan kunnes käyttäjä antaa "q"
switch $syote {
h {incr henkilo_autot}
k {incr kuorma_autot}
n {set henkilo_autot 0; set kuorma_autot 0}
}
puts "Henkilöautoja: $henkilo_autot"
puts "Kuorma-autoja: $kuorma_autot"
gets stdin syote
}
puts "Kiitos käytöstä !"