{"id":74,"date":"2007-11-30T13:32:33","date_gmt":"2007-11-30T11:32:33","guid":{"rendered":"http:\/\/www.kosmala.pl\/?p=74"},"modified":"2008-03-12T10:24:59","modified_gmt":"2008-03-12T08:24:59","slug":"info-o-temperaturze-procesora","status":"publish","type":"post","link":"http:\/\/www.kosmala.pl\/?p=74","title":{"rendered":"Info o temperaturze procesora"},"content":{"rendered":"

A oto kolejna zabawka Tcl\/Tk<\/a>, sklecona w pal\u0105cej potrzebie na moim kwadratowym kolanie. Skrypcik co p\u00f3\u0142 minuty na cztery sekundy wy\u015bwietla w lewym dolnym rogu ekranu aktualn\u0105 temperatur\u0119 procesora, pobran\u0105 z informacji udost\u0119pnionych przez ACPI<\/a> w katalogu \/proc (przynajmniej w moim SlackWare<\/a>…) <\/p>\n

A wygl\u0105da to tak:<\/p>\n

\"proc_tmp.png\"<\/p>\n

Kod programu:<\/p>\n

——————————– ODT\u0104D ———————————–<\/p>\n

#!\/usr\/bin\/wish
\n## Czcionka
\nfont create fant -family helvetica -size 10<\/p>\n

# Okno robocze
\nwm geometry . 0x0+4+[expr [winfo screenheight .]-60]
\nwm overrideredirect . yes
\nlabel .l -text „” -font fant -background #00899f -foreground #95e0f5
\npack .l -expand 1 -fill both<\/p>\n

# Funkcja wy\u015bwietlaj\u0105ca informacj\u0119
\nproc show_temperature {} {<\/p>\n

wm geometry . 40×25
\nset fdes [open „\/proc\/acpi\/thermal_zone\/THRM\/temperature” r]
\nset temperature [gets $fdes]
\nclose $fdes
\n.l configure -text [string range $temperature [expr [string length $temperature]-4] end]<\/p>\n

after 4000 { ;# Wy\u015bwietlaj info przez oko\u0142o 4 sekundy<\/p>\n

wm geometry . 0x0<\/p><\/blockquote>\n

}<\/p><\/blockquote>\n

}<\/p>\n

# Pracuj
\nset flaga 0
\nshow_temperature<\/p>\n

# W\u0142\u0105czaj co jaki\u015b czas
\nwhile {$flaga == 0} {<\/p>\n

after 32000 { ;# Wy\u015bwietlaj info co oko\u0142o 30 sekund<\/p>\n

show_temperature
\nset flaga 1<\/p><\/blockquote>\n

}
\nvwait flaga
\nset flaga 0<\/p><\/blockquote>\n

}<\/p><\/blockquote>\n

——————————– DOT\u0104D ———————————-<\/p>\n

Mo\u017cna go sobie uruchomi\u0107 w trybie demona konsolowym:<\/p>\n

BASH>nazwa_programu.tcl &<\/p><\/blockquote>\n

Koniec i tr\u0105ba, a kto czyta\u0142, ten kryje.<\/p>\n","protected":false},"excerpt":{"rendered":"

A oto kolejna zabawka Tcl\/Tk, sklecona w pal\u0105cej potrzebie na moim kwadratowym kolanie. Skrypcik co p\u00f3\u0142 minuty na cztery sekundy wy\u015bwietla w lewym dolnym rogu ekranu aktualn\u0105 temperatur\u0119 procesora, pobran\u0105 z informacji udost\u0119pnionych przez ACPI w katalogu \/proc (przynajmniej w moim SlackWare…)<\/p>\n","protected":false},"author":3,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[21,14,22,13],"tags":[],"class_list":["post-74","post","type-post","status-publish","format-standard","hentry","category-linux","category-programy","category-slackware","category-tcltk"],"_links":{"self":[{"href":"http:\/\/www.kosmala.pl\/index.php?rest_route=\/wp\/v2\/posts\/74","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/www.kosmala.pl\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.kosmala.pl\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.kosmala.pl\/index.php?rest_route=\/wp\/v2\/users\/3"}],"replies":[{"embeddable":true,"href":"http:\/\/www.kosmala.pl\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=74"}],"version-history":[{"count":0,"href":"http:\/\/www.kosmala.pl\/index.php?rest_route=\/wp\/v2\/posts\/74\/revisions"}],"wp:attachment":[{"href":"http:\/\/www.kosmala.pl\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=74"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.kosmala.pl\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=74"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.kosmala.pl\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=74"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}