Skip to content

Lib: complete audio/videoElement #164

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 1 commit into from
May 13, 2014
Merged

Lib: complete audio/videoElement #164

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
58 changes: 56 additions & 2 deletions lib/dom_html.ml
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -814,14 +814,56 @@ class type tableElement = object
method deleteRow : int -> unit meth
end

class type timeRanges = object
method length : int readonly_prop
method start : int -> float meth
method end_ : int -> float meth
end

type networkState =
| NETWORK_EMPTY
| NETWORK_IDLE
| NETWORK_LOADING
| NETWORK_NO_SOURCE

type readyState =
| HAVE_NOTHING
| HAVE_METADATA
| HAVE_CURRENT_DATA
| HAVE_FUTURE_DATA
| HAVE_ENOUGH_DATA

(* http://www.w3schools.com/tags/ref_av_dom.asp *)
(* only features supported by all browser. (IE9+) *)
class type mediaElement = object
inherit element
method currentTime : float prop
method duration : float prop
method canPlayType : js_string t -> js_string t meth
method load : unit meth
method play : unit meth
method pause : unit meth

method autoplay : bool t prop
method buffered : timeRanges t readonly_prop
method controls : bool t prop
method currentSrc : js_string t readonly_prop
method currentTime : float prop
method duration : float readonly_prop
method ended : bool t readonly_prop
method loop : bool t prop
method mediagroup : js_string t prop
method muted : bool t prop
method networkState_int : int readonly_prop
method networkState : networkState readonly_prop
method paused : bool t readonly_prop
method playbackRate : float prop
method played : timeRanges t readonly_prop
method preload : js_string t prop
method readyState_int : int readonly_prop
method readyState : readyState readonly_prop
method seekable : timeRanges t readonly_prop
method seeking : bool t readonly_prop
method src : js_string t prop
method volume : float prop
end

class type audioElement = object
Expand Down Expand Up @@ -1296,6 +1338,8 @@ let createAddress doc = createElement doc "address"
let createFrameset doc : frameSetElement t = unsafeCreateElement doc "frameset"
let createFrame doc : frameElement t = unsafeCreateElement doc "frame"
let createIframe doc : iFrameElement t = unsafeCreateElement doc "iframe"
let createAudio doc : audioElement t = unsafeCreateElement doc "audio"
let createVideo doc : audioElement t = unsafeCreateElement doc "video"

exception Canvas_not_available

Expand Down Expand Up @@ -1385,6 +1429,8 @@ module CoerceTo = struct
let title e = unsafeCoerce "title" e
let tr e = unsafeCoerce "tr" e
let ul e = unsafeCoerce "ul" e
let audio e = unsafeCoerce "audio" e
let video e = unsafeCoerce "video" e

let unsafeCoerceEvent constr (ev : #event t) =
if def constr != undefined && Js.instanceof ev constr then
Expand Down Expand Up @@ -1478,6 +1524,7 @@ let element : #Dom.element t -> element t = Js.Unsafe.coerce
type taggedElement =
| A of anchorElement t
| Area of areaElement t
| Audio of audioElement t
| Base of baseElement t
| Blockquote of quoteElement t
| Body of bodyElement t
Expand Down Expand Up @@ -1535,6 +1582,7 @@ type taggedElement =
| Title of titleElement t
| Tr of tableRowElement t
| Ul of uListElement t
| Video of videoElement t
| Other of element t

let other e = Other (e : #element t :> element t)
Expand All @@ -1549,6 +1597,7 @@ let tagged (e : #element t) =
begin match tag with
| "a" -> A (Js.Unsafe.coerce e)
| "area" -> Area (Js.Unsafe.coerce e)
| "audio" -> Audio (Js.Unsafe.coerce e)
| _ -> other e
end
| 'b' ->
Expand Down Expand Up @@ -1668,6 +1717,11 @@ let tagged (e : #element t) =
| "ul" -> Ul (Js.Unsafe.coerce e)
| _ -> other e
end
| 'v' ->
begin match tag with
| "video" -> Video (Js.Unsafe.coerce e)
| _ -> other e
end
| _ ->
other e

Expand Down
50 changes: 48 additions & 2 deletions lib/dom_html.mli
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -763,14 +763,54 @@ class type tableElement = object
method deleteRow : int -> unit meth
end

class type timeRanges = object
method length : int readonly_prop
method start : int -> float meth
method end_ : int -> float meth
end

type networkState =
| NETWORK_EMPTY
| NETWORK_IDLE
| NETWORK_LOADING
| NETWORK_NO_SOURCE

type readyState =
| HAVE_NOTHING
| HAVE_METADATA
| HAVE_CURRENT_DATA
| HAVE_FUTURE_DATA
| HAVE_ENOUGH_DATA

class type mediaElement = object
inherit element
method currentTime : float prop
method duration : float prop
method canPlayType : js_string t -> js_string t meth
method load : unit meth
method play : unit meth
method pause : unit meth

method autoplay : bool t prop
method buffered : timeRanges t readonly_prop
method controls : bool t prop
method currentSrc : js_string t readonly_prop
method currentTime : float prop
method duration : float readonly_prop
method ended : bool t readonly_prop
method loop : bool t prop
method mediagroup : js_string t prop
method muted : bool t prop
method networkState_int : int readonly_prop
method networkState : networkState readonly_prop
method paused : bool t readonly_prop
method playbackRate : float prop
method played : timeRanges t readonly_prop
method preload : js_string t prop
method readyState_int : int readonly_prop
method readyState : readyState readonly_prop
method seekable : timeRanges t readonly_prop
method seeking : bool t readonly_prop
method src : js_string t prop
method volume : float prop
end

class type audioElement = object
Expand Down Expand Up @@ -1335,6 +1375,8 @@ val createAddress : document t -> element t
val createFrameset : document t -> frameSetElement t
val createFrame : document t -> frameElement t
val createIframe : document t -> iFrameElement t
val createAudio : document t -> audioElement t
val createVideo : document t -> videoElement t

exception Canvas_not_available
val createCanvas : document t -> canvasElement t
Expand All @@ -1352,6 +1394,7 @@ val element : #Dom.element t -> element t
type taggedElement =
| A of anchorElement t
| Area of areaElement t
| Audio of audioElement t
| Base of baseElement t
| Blockquote of quoteElement t
| Body of bodyElement t
Expand Down Expand Up @@ -1409,6 +1452,7 @@ type taggedElement =
| Title of titleElement t
| Tr of tableRowElement t
| Ul of uListElement t
| Video of videoElement t
| Other of element t

val tagged : #element t -> taggedElement
Expand Down Expand Up @@ -1437,6 +1481,7 @@ module CoerceTo : sig

val a : #element t -> anchorElement t opt
val area : #element t -> areaElement t opt
val audio : #element t -> audioElement t opt
val base : #element t -> baseElement t opt
val blockquote : #element t -> quoteElement t opt
val body : #element t -> bodyElement t opt
Expand Down Expand Up @@ -1494,6 +1539,7 @@ module CoerceTo : sig
val title : #element t -> titleElement t opt
val tr : #element t -> tableRowElement t opt
val ul : #element t -> uListElement t opt
val video : #element t -> videoElement t opt

(** Event *)

Expand Down