Changeset 6645

Timestamp:

06/18/09 17:11:29 (15 months ago)

Author:

metamorph68

Message:

Merged new command for strip_blank

Location:

branches/bugfix-0.9.1

Files:

• CHANGES (modified) (1 diff)
• src/operators/noblank.ml (modified) (2 diffs, 1 prop)

branches/bugfix-0.9.1/CHANGES

@@ -9 +9 @@
  - Disconnect idle harbor sources after timeout has expired.
    Thanks to Roman Savrulin for reporting and fixing !
+New: 
+ - Get a node's striping status when stripping
+   blank with strip_blank (#260).
 
 0.9.0 (01-03-2009)

branches/bugfix-0.9.1/src/operators/noblank.ml

@@ -120 +120 @@
   val mutable stripping = false
 
+  val mutable ns = []
+
   method stype = Fallible
   method is_ready = not stripping && source#is_ready
@@ -148 +150 @@
     if stripping && AFrame.is_partial memo then self#get_frame memo
 
-  method output_get_ready = ()
+  method output_get_ready = 
+    if ns = [] then
+      ns <- Server.register [self#id] "strip_blank" ;
+    let status _ = string_of_bool stripping in
+    Server.add
+      ~ns "is_stripping" ~descr:"Check if the source is stripping." status 
+
   method output_reset = ()
   method is_active = true