linse/sea
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add manualfill to ccu4ext

Browse Source
This commit is contained in:
l_samenv
2023-03-31 14:34:37 +02:00
parent 7c4e787150
commit 969bfe95f1
1 changed files with 10 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
tcl/drivers/ccu4ext.tcl
View File

@ -15,7 +15,7 @@ proc stdConfig::ccu4ext {type {readlevel 0}} {
prop write ccu4ext::writeExt $type
prop read ccu4ext::fillExt $type
prop enum watching=0,filling=1,inactive=2
prop enum watching=0,filling=1,inactive=2,manualfill=3
prop label "filling state"
if {$type eq "n2"} {
@ -72,6 +72,7 @@ proc ccu4ext::changestate {type state} {
cc $auto 1
}
fill {
clientlog FILL$type
cc $cmd 1
cc $auto 1
}
@ -144,7 +145,6 @@ proc ccu4ext::fillExt {type} {
set valve [sctval /cc/hv]
set auto [sctval /cc/ha]
}
set enumtxt "watching,fill,inactive"
set errtxt ""
set sm [expr [DoubleTime] > [silent 0 sct change_time] + 10]
switch -- $valve {
@ -165,7 +165,6 @@ proc ccu4ext::fillExt {type} {
2 {
set txt "no fill valve"
if {$sm} {setmode $type 2}
set enumtxt "$txt=2"
}
3 {
set errtxt timeout
@ -177,7 +176,6 @@ proc ccu4ext::fillExt {type} {
set errtxt "unknown error"
}
}
sct enum ${enumtxt}
if {$errtxt eq ""} {
updateval [sct]/state $txt
hupdate [sct]/status ""
@ -185,7 +183,10 @@ proc ccu4ext::fillExt {type} {
hupdate [sct]/status $errtxt
updateval [sct]/state $errtxt
}
if {[sctval [sct]] == 3} { # manualfill
changestate $type fill
return idle
}
set level [silent invalid result [hvali [sct]/readlevel]]
if {! [string is double $level]} {
hsetprop [sct]/readlevel geterror "illegal $type level reading"
@ -375,6 +376,10 @@ proc ccu4ext::writeExt {type {activate 1}} {
}
return idle
}
# manualfill
3 {
changestate $type fill
}
}
return idle
}