Dzialanie vwait

Thread View: pl.comp.lang.tcl

2 messages

[T] Back to Threads [V] Tree View [G] Group Articles

2 total messages Started by Marek Mon, 08 May 2006 06:14

#367

Author: Marek
Date: Mon, 08 May 2006 06:14

26 lines
1665 bytes

Witam,

Mam problem. Ucze sie tcl'a o pewnego czasu. Co przeczytam chce wyprobowac.
Nie wiem dlaczego, ale ponizszy kod nie dziala jak bym chcial. Zamierzeniem
moim bylo zakonczenie programu po wpisaniu sekwencji aa. Co jest nie tak? Po
wpisaniu aa program dalej jest w petli? Czy ktos moze mi wyjasnic gdzie
robie blad? Po sekwencji aa ustawiam przeciez globalna zmienna koniec i
petla zdarzen vwait powinna sie przerwac?

proc pisz {} {
  global koniec
  gets stdin test
  puts $test
  if {$test=="aa"} {
     puts "if"
     set koniec 1
     }
}

set koniec 0
fileevent stdin readable pisz
vwait $koniec
puts "KONIEC"


Pozdrawiam i dziekuje z gory za wszelkie podpowiedzi

Re: Dzialanie vwait

#368

Author: Wojciech Kocjan
Date: Mon, 08 May 2006 13:41

34 lines
1467 bytes

On Mon, 08 May 2006 08:14:30 +0200, Marek <listydyskusyjne@onet.eu> wrote:
> proc pisz {} {
>   global koniec
>   gets stdin test
>   puts $test
>   if {$test=="aa"} {
>      puts "if"
>      set koniec 1
>      }
> }
>
> set koniec 0
> fileevent stdin readable pisz
> vwait $koniec

Zmien na:

   vwait koniec

> puts "KONIEC"
>
>
> Pozdrawiam i dziekuje z gory za wszelkie podpowiedzi

Nie ma sprawy :)

ps. http://wiki.tcl.tk/vwait - polecam
"This little program demonstrates what Chris Nelson stated above (vwaits  
nest):"

vwait jest bardzo zgubnym poleceniem w zlozonych przypadkach :)

-- 
WK

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads