Tcl одновременный секундомер и счетчик не работает - PullRequest
Новая
       53

Tcl одновременный секундомер и счетчик не работает

0 голосов
/ 21 октября 2019

У меня есть секундомер TK / TCL, запускающий счетчик unix с xterm, но он не отображает счетчик на изображении счетчика. После того, как счетчик Unix закончил (он имеет 4 итерации), затем отображается дисплей в секундомере и идет подсчет. Как продолжать отображать счет после нажатия кнопки запуска?

секундомер с кнопками управления

Вот код (замените ваше соответствующее «желание» в строке 3): 

#!/bin/sh
####################################################################### \
exec /sw/freetools/tk/8.5.6/Linux/rh5/x86_64/bin/wish8.5 "$0" ${1+"$@"}
package require Tk

wm title . "TEST-GUI"
. configure -padx 50 -pady 50 -relief raised -borderwidth 2

###STOPWATCH -begin-
set COLOR_BACKGROUND "black"
set COLOR_FOREGROUND "sky blue"
font create FONT0 -family {VL PGothic} -size -20 -weight normal
set ::time 00:00:00

proc every {ms body} {
 eval $body
 after $ms [namespace code [info level 0]]
}
proc Start {} {
 if {$::time eq {00:00:00}} {
  set ::time0 [clock clicks -milliseconds]
 }
 every 10 {
  set m [expr {[clock clicks -milliseconds] - $::time0}]
  set ::time [format %2.2d:%2.2d:%2.2d [expr {$m/60000}] [expr {($m/1000)%60}] [expr {$m%1000/10}]]
 }
 .frame1.run config -state disabled
}
proc Stop {} {
 if {[llength [after info]]} {
  after cancel [after info]
 } else {set ::time 00:00:00}
 .frame1.run config -state normal
}
###STOPWATCH -end-


frame .frame1 -highlightbackground black \
              -highlightthickness 1 \
              -width 200 -height 200

label .frame1.time -textvar ::time -font FONT0 -background $COLOR_BACKGROUND -foreground $COLOR_FOREGROUND

button .frame1.run -text "RUN" -foreground black -bg coral \
                               -borderwidth 3 -height 0 -width 3 -font {-family symbol -size 8} -pady 2 \
                               -command {
                             Start
                         gui_run
                                        }

button .frame1.exit -text "EXIT" -foreground black \
                     -borderwidth 3 -height 0 -width 3 -font {-family symbol -size 8} -pady 2 \
                                 -command {exit}

pack .frame1
pack .frame1.run -side top
pack .frame1.exit -side bottom
pack .frame1.time

proc xterm_counter {} {
 set fileid [open "./xterm_counter.txt" w]
 puts $fileid "#!/bin/csh -f"
 puts $fileid ""
 puts $fileid "set i = 0"
 puts $fileid "echo \"testing programm counting -start- \`date +%X\`\""
 puts $fileid "while (\$i <= 3)"
 puts $fileid " sleep 2"
 puts $fileid " set i = \`expr \$i + 1\`"
 puts $fileid " echo \"testing programm counting here => \$i\""
 puts $fileid "end"
 puts $fileid "echo \"testing programm counting -end-   \`date +%X\`\""
 close $fileid
}

proc gui_run {} {
 xterm_counter
 exec chmod 744 "./xterm_counter.txt"
 if {[catch {exec ./xterm_counter.txt >@ stdout}]} {
  puts "RUN FAILED, exit programm"
  exit
 } else {
  puts "RUN SUCCESSFULL, stop stopwatch now"
 }
}

1 Ответ

0 голосов
/ 27 октября 2019

Проблема в том, что команда exec приостанавливает процесс Tcl, пока другой процесс не завершит свою работу. Это не большая проблема для чего-то быстрого, такого как chmod, но для долгого отображения таймера это большая проблема.

Самое простое исправление, особенно если вас действительно не волнуетто, работает ли подпроцесс очень часто, означает поставить слово & в конце exec, чтобы код выполнялся в фоновом режиме, отключенный от Tcl. 

exec ./xterm_counter.txt >@stdout &

(Если я правильно помню, это возвращает идентификатор процесса, позволяя периодически извлекать данные для завершения.)

Если это не сработает, вы можете либо запуститькод в конвейере (с таким перенаправлением это будет канал только для записи) или для запуска его из рабочего потока.

...