1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
|
(* Js_of_ocaml library
* http://www.ocsigen.org/js_of_ocaml/
* Copyright (C) 2011 Pierre Chambart
* Laboratoire PPS - CNRS Université Paris Diderot
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU Lesser General Public License as published by
* the Free Software Foundation, with linking exception;
* either version 2.1 of the License, or (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*)
(** File API
@see <https://developer.mozilla.org/en-US/docs/Web/API/File> the documentation of the API. *)
open Js
open Dom
class type blob = object
method size : int readonly_prop
method _type : js_string t readonly_prop
method slice : int -> int -> blob t meth
method slice_withContentType : int -> int -> js_string t -> blob t meth
end
type 'a make_blob =
?contentType:string -> ?endings:[ `Transparent | `Native ] -> 'a -> blob t
val blob_from_string : string make_blob
val blob_from_any :
[ `blob of blob t
| `arrayBuffer of Typed_array.arrayBuffer t
| `arrayBufferView of Typed_array.arrayBufferView t
| `string of string
| `js_string of js_string t
]
list
make_blob
class type file = object
inherit blob
method name : js_string t readonly_prop
method lastModifiedDate : js_string t readonly_prop
end
type file_any
module CoerceTo : sig
val document : file_any -> element document t Opt.t
val blob : file_any -> #blob t Opt.t
val json : file_any -> 'a Opt.t
val string : file_any -> js_string t Opt.t
val arrayBuffer : file_any -> Typed_array.arrayBuffer t Opt.t
end
class type fileList = object
inherit [file] Dom.nodeList
end
class type fileError = object
method code : int readonly_prop
end
(* {2 Events} *)
class type ['a] progressEvent = object
inherit ['a] event
method lengthComputable : bool t readonly_prop
method loaded : int readonly_prop
method total : int readonly_prop
end
class type progressEventTarget = object ('self)
method onloadstart : ('self t, 'self progressEvent t) event_listener writeonly_prop
method onprogress : ('self t, 'self progressEvent t) event_listener writeonly_prop
method onload : ('self t, 'self progressEvent t) event_listener writeonly_prop
method onabort : ('self t, 'self progressEvent t) event_listener writeonly_prop
method onerror : ('self t, 'self progressEvent t) event_listener writeonly_prop
method onloadend : ('self t, 'self progressEvent t) event_listener writeonly_prop
end
type readyState =
| EMPTY
| LOADING
| DONE
class type fileReader = object ('self)
method readAsArrayBuffer : #blob t -> unit meth
method readAsBinaryString : #blob t -> unit meth
method readAsText : #blob t -> unit meth
method readAsText_withEncoding : #blob t -> js_string t -> unit meth
method readAsDataURL : #blob t -> unit meth
method abort : unit meth
method readyState : readyState readonly_prop
method result : file_any readonly_prop
method error : fileError t readonly_prop
method onloadstart : ('self t, 'self progressEvent t) event_listener writeonly_prop
method onprogress : ('self t, 'self progressEvent t) event_listener writeonly_prop
method onload : ('self t, 'self progressEvent t) event_listener writeonly_prop
method onabort : ('self t, 'self progressEvent t) event_listener writeonly_prop
method onerror : ('self t, 'self progressEvent t) event_listener writeonly_prop
method onloadend : ('self t, 'self progressEvent t) event_listener writeonly_prop
inherit progressEventTarget
end
module ReaderEvent : sig
type typ = fileReader progressEvent t Dom.Event.typ
val loadstart : typ
val progress : typ
val abort : typ
val error : typ
val load : typ
val loadend : typ
end
val filename : file t -> js_string t
(** [filename] handles old firefox without name property *)
val fileReader : fileReader t constr
val addEventListener :
(#progressEventTarget t as 'a)
-> 'b Event.typ
-> ('a, 'b) event_listener
-> bool t
-> event_listener_id
(** Add an event listener. This function matches the
[addEventListener] DOM method, except that it returns
an id for removing the listener. *)
|
