frappy.config automatically connects to running frappy servers

tcl/frappy.config

@@ -1,11 +1,11 @@
-deviceDesc = SECoP test (version v1.0)
+deviceDesc = FRAPPY history recorder, with He pump
 
 set ::secop_version 4
 
-makenv frappy_main -driver secop
+foreach {service port} [exec frappy getports [result instrument]] {
-#makenv frappy_stick -driver secop -port localhost:15201
+  makenv frappy_$service -driver secop -port localhost:$port
-#makenv frappy_addons -driver secop
+}
-#debug _secop
+set hepump [silent undefined hval /cfg_env/_hepump]
-
+if {$hepump ne "undefined"} {
-#dolater 0 _secop poll /secop 1 read test
+  makeHePump
-
+}

tcl/mb11.config

@@ -2,6 +2,11 @@ deviceDesc = FRAPPY history recorder, with stick
 
 set ::secop_version 4
 
-makenv frappy_main -driver secop -port localhost:15101
+set ins [result instrument]
-makenv frappy_stick -driver secop -port localhost:15201
+if {[string match "prep*" $ins]} {
+  set nr [string range $ins end end]
+} else {
+  error "runs on prep0-9 only"
+}
+makenv frappy_main -driver secop -port localhost:1511$nr
 makeHePump

tcl/seainit.tcl

@@ -57,6 +57,7 @@ ServerOption TelWord    sealogin
 allowexec [pwd]/plugin/safeplugin
 allowexec ping
 allowexec dig
+allowexec frappy
 
 definealias tem temperature