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

initial commit

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

13
tcl/startup/stickrotconn.tcl Normal file
View File

@@ -0,0 +1,13 @@
proc setstickrot {{hostport unconnected}} {
device stickrot_hostport $hostport
if {[sicsdescriptor sics] eq "RemServer"} {
catch {sics stickrot reconnect $hostport}
}
}
proc getstickrot {} {
return [silent "unconnected" result device stickrot_hostport]
}
publishLazy setstickrot
publishLazy getstickrot