initial commit

This commit is contained in:
l_samenv
2022-08-18 15:04:28 +02:00
commit 46dcf8e77c
591 changed files with 69282 additions and 0 deletions

27
tcl/drivers/drvpar.tcl Normal file
View File

@ -0,0 +1,27 @@
namespace eval drvpar {
}
proc stdConfig::drvpar {parpath} {
controller syncedprot
obj DRVPAR -drive rd
prop read drvpar::read
prop path $parpath
}
proc drvpar::update {path val} {
updateval $path $val
}
proc drvpar::read {} {
catch {
[sct controller] updatescript [sct path] "drvpar::update [sct]"
}
set err [silent "" hgetpropval [sct path] geterror]
if {$err ne ""} {
updateerror [sct] $err
} else {
updateval [sct] [hvali [sct]]
}
return idle
}