SECoP: add sea_recorder command and setups for sea recorder

NICOS might call this in order to start SEA recording from
SECoP servers

tcl/drivers/secop_4.tcl

@@ -740,6 +740,17 @@ proc secop::update_ {} {
           clientlog ACTIVE
         }
       }
+      set act [silent 0 sct activate_stick]
+      if {$act} {
+        sct activate_stick 0
+        dolater 0 activate_stick
+      } else {
+        set act [silent 0 sct activate_addon]
+        if {$act} {
+          sct activate_addon 0
+          dolater 0 activate_addon
+        }
+      }
       sct active 1
       sct end_fast 0
     }

tcl/secop.addon

@@ -0,0 +1,8 @@
+addonDesc = SECoP test (version v1.0)
+
+set ::secop_version 4
+
+makenv secopaddon -driver secop
+#debug _secopaddon
+
+#dolater 0 _secop poll /secop 1 read test

tcl/secop.config

@@ -0,0 +1,8 @@
+deviceDesc = SECoP test (version v1.0)
+
+set ::secop_version 4
+
+makenv secop -driver secop
+#debug _secop
+
+#dolater 0 _secop poll /secop 1 read test

tcl/secop.stick

@@ -0,0 +1,8 @@
+stickDesc = SECoP test (version v1.0)
+
+set ::secop_version 4
+
+makenv secopstick -driver secop
+#debug _secopstick
+
+#dolater 0 _secop poll /secop 1 read test

tcl/startup/frappy.tcl

@@ -481,3 +481,4 @@ publishLazy frappy_remove Spy
 publishLazy check_config Spy
 publishLazy describe_obj Spy
 publishLazy treatvars
+publishLazy sea_recorder