Add request.status.

CHANGES.md

@@ -82,6 +82,7 @@ New:
 - Added `time.up`.
 - Added `video.cover`.
 - Added `video.still_frame`.
+- Added `request.status`.
 
 Changed:
 

src/lang/builtins_request.ml

@@ -179,3 +179,19 @@ let () =
     [("", Lang.request_t, None, None)] Lang.int_t (fun p ->
       let r = Lang.to_request (List.assoc "" p) in
       Lang.int (Request.get_id r))
+
+let () =
+  add_builtin "request.status" ~cat:Liq
+    ~descr:
+      "Current status of a request. Can be idle, resolving, ready, playing or \
+       destroyed." [("", Lang.request_t, None, None)] Lang.string_t (fun p ->
+      let r = Lang.to_request (List.assoc "" p) in
+      let s =
+        match Request.status r with
+          | Request.Idle -> "idle"
+          | Request.Resolving -> "resolving"
+          | Request.Ready -> "ready"
+          | Request.Playing -> "playing"
+          | Request.Destroyed -> "destroyed"
+      in
+      Lang.string s)

src/request.ml

@@ -148,8 +148,9 @@ type t = {
   mutable decoder : (unit -> Decoder.file_decoder_ops) option;
 }
 
-let ctype x = x.ctype
-let initial_uri x = x.initial_uri
+let ctype r = r.ctype
+let initial_uri r = r.initial_uri
+let status r = r.status
 
 let indicator ?(metadata = Hashtbl.create 10) ?temporary s =
   { string = home_unrelate s; temporary = temporary = Some true; metadata }

src/request.mli

@@ -58,6 +58,12 @@ val initial_uri : t -> string
     staticity, and in [src/sources/one_file.ml] for an example of use). *)
 val destroy : ?force:bool -> t -> unit
 
+(** Status of a request. *)
+type status = Idle | Resolving | Ready | Playing | Destroyed
+
+(** Current status of a request. *)
+val status : t -> status
+
 (** {1 General management} *)
 
 (** Called at exit, for cleaning temporary files and destroying all the