Changeset 7145

Timestamp:

02/09/10 00:03:29 (7 months ago)

Author:

dbaelde

Message:

Two more builtins for manipulating sources: is_ready and remaining.

Files:

• trunk/liquidsoap/src/lang/lang_builtins.ml (modified) (1 diff)

trunk/liquidsoap/src/lang/lang_builtins.ml

@@ -1116 +1116 @@
 
 let () =
+  add_builtin "source.is_ready" ~cat:Liq
+    ~descr:"Indicate if a source is ready to stream, or currently streaming."
+    [ "", Lang.source_t (Lang.univ_t 1), None, None ] Lang.bool_t
+    (fun p -> Lang.bool (Lang.to_source (List.assoc "" p))#is_ready)
+
+let () =
+  add_builtin "source.remaining" ~cat:Liq
+    ~descr:"Estimation of remaining time in the current track."
+    [ "", Lang.source_t (Lang.univ_t 1), None, None ] Lang.float_t
+    (fun p ->
+       let r = (Lang.to_source (List.assoc "" p))#remaining in
+       let f = if r = -1 then infinity else Frame.seconds_of_master r in
+         Lang.float f)
+
+let () =
   add_builtin "request.create.raw" ~cat:Liq
     ~descr:"Create a raw request, i.e. for files that should not be decoded \