11'use strict' ;
22
3+ var Curry = require ( "rescript/lib/js/curry.js" ) ;
4+ var Caml_option = require ( "rescript/lib/js/caml_option.js" ) ;
35var TestHelpers = require ( "../../testHelpers.js" ) ;
6+ var Webapi__Dom__Types = require ( "../../../src/Webapi/Dom/Webapi__Dom__Types.js" ) ;
47var Webapi__Dom__Document = require ( "../../../src/Webapi/Dom/Webapi__Dom__Document.js" ) ;
8+ var Webapi__Dom__NodeFilter = require ( "../../../src/Webapi/Dom/Webapi__Dom__NodeFilter.js" ) ;
59var Webapi__Dom__HtmlDocument = require ( "../../../src/Webapi/Dom/Webapi__Dom__HtmlDocument.js" ) ;
610
711var el = document . createElement ( "strong" ) ;
@@ -14,50 +18,308 @@ if (!(e == null)) {
1418 console . log ( e ) ;
1519}
1620
21+ var activeElement = htmlDocument . activeElement ;
22+
23+ var body = htmlDocument . body ;
24+
1725htmlDocument . body = el ;
1826
27+ var cookie = htmlDocument . cookie ;
28+
1929htmlDocument . cookie = "foo=bar;reason=ml" ;
2030
21- Webapi__Dom__HtmlDocument . designMode ( htmlDocument ) ;
31+ var defaultView = htmlDocument . defaultView ;
2232
23- Webapi__Dom__HtmlDocument . setDesignMode ( htmlDocument , /* On */ 0 ) ;
33+ var designMode = Webapi__Dom__HtmlDocument . designMode ( htmlDocument ) ;
2434
25- Webapi__Dom__HtmlDocument . dir ( htmlDocument ) ;
35+ var setDesignMode = Webapi__Dom__HtmlDocument . setDesignMode ( htmlDocument , /* On */ 0 ) ;
2636
27- Webapi__Dom__HtmlDocument . setDir ( htmlDocument , /* Ltr */ 0 ) ;
37+ var dir = Webapi__Dom__HtmlDocument . dir ( htmlDocument ) ;
38+
39+ var setDir = Webapi__Dom__HtmlDocument . setDir ( htmlDocument , /* Ltr */ 0 ) ;
40+
41+ var domain = htmlDocument . domain ;
2842
2943htmlDocument . domain = "reason.ml" ;
3044
45+ var embeds = htmlDocument . embeds ;
46+
47+ var forms = htmlDocument . forms ;
48+
49+ var head = htmlDocument . head ;
50+
51+ var images = htmlDocument . images ;
52+
53+ var lastModified = htmlDocument . lastModified ;
54+
55+ var links = htmlDocument . links ;
56+
57+ var $$location = htmlDocument . location ;
58+
3159htmlDocument . location = "http://reason.ml" ;
3260
33- Webapi__Dom__HtmlDocument . readyState ( htmlDocument ) ;
61+ var plugins = htmlDocument . plugins ;
62+
63+ var readyState = Webapi__Dom__HtmlDocument . readyState ( htmlDocument ) ;
64+
65+ var referrer = htmlDocument . referrer ;
66+
67+ var scripts = htmlDocument . scripts ;
68+
69+ var title = htmlDocument . title ;
3470
3571htmlDocument . title = "Reason: Rapid Expressive Systems Programming." ;
3672
37- htmlDocument . close ( ) ;
73+ var url = htmlDocument . URL ;
3874
39- Webapi__Dom__HtmlDocument . execCommand ( htmlDocument , "copy" , false , undefined ) ;
75+ htmlDocument . close ( ) ;
4076
41- htmlDocument . getElementsByName ( "angry-joe" ) ;
77+ var execCommand = Webapi__Dom__HtmlDocument . execCommand ( htmlDocument , "copy" , false , undefined ) ;
4278
43- htmlDocument . getSelection ( ) ;
79+ var getElementsByName = htmlDocument . getElementsByName ( "angry-joe" ) ;
4480
45- htmlDocument . hasFocus ( ) ;
81+ var getSelection = htmlDocument . getSelection ( ) ;
4682
4783htmlDocument . open ( ) ;
4884
49- htmlDocument . queryCommandEnabled ( "copy" ) ;
85+ var queryCommandEnabled = htmlDocument . queryCommandEnabled ( "copy" ) ;
5086
51- htmlDocument . queryCommandIndeterm ( "cut" ) ;
87+ var queryCommandIndeterm = htmlDocument . queryCommandIndeterm ( "cut" ) ;
5288
53- htmlDocument . queryCommandSupported ( "paste" ) ;
89+ var queryCommandSupported = htmlDocument . queryCommandSupported ( "paste" ) ;
5490
55- htmlDocument . queryCommandValue ( "fontName" ) ;
91+ var queryCommandValue = htmlDocument . queryCommandValue ( "fontName" ) ;
5692
5793htmlDocument . write ( "Hello World!" ) ;
5894
5995htmlDocument . writeln ( "Hello Newline!" ) ;
6096
97+ var characterSet = htmlDocument . characterSet ;
98+
99+ var compatMode = Curry . _1 ( Webapi__Dom__HtmlDocument . compatMode , htmlDocument ) ;
100+
101+ var doctype = htmlDocument . doctype ;
102+
103+ var documentElement = htmlDocument . documentElement ;
104+
105+ var documentURI = htmlDocument . documentURI ;
106+
107+ var hidden = htmlDocument . hidden ;
108+
109+ var implementation = htmlDocument . implementation ;
110+
111+ var lastStyleSheetSet = htmlDocument . lastStyleSheetSet ;
112+
113+ var pointerLockElement = htmlDocument . pointerLockElement ;
114+
115+ var preferredStyleSheetSet = htmlDocument . preferredStyleSheetSet ;
116+
117+ var scrollingElement = htmlDocument . scrollingElement ;
118+
119+ var selectedStyleSheetSet = htmlDocument . selectedStyleSheetSet ;
120+
121+ htmlDocument . selectedStyleSheetSet = "muh-stylesheet" ;
122+
123+ var styleSheets = htmlDocument . styleSheets ;
124+
125+ var styleSheetSets = htmlDocument . styleSheetSets ;
126+
127+ var visibilityState = Curry . _1 ( Webapi__Dom__HtmlDocument . visibilityState , htmlDocument ) ;
128+
129+ var adoptNode = htmlDocument . adoptNode ( el ) ;
130+
131+ var createAttribute = htmlDocument . createAttribute ( "data-foo" ) ;
132+
133+ var createAttributeNS = htmlDocument . createAttributeNS ( "http://..." , "foo" ) ;
134+
135+ var createComment = htmlDocument . createComment ( "witty comment" ) ;
136+
137+ var createDocumentFragment = htmlDocument . createDocumentFragment ( ) ;
138+
139+ var createElement = htmlDocument . createElement ( "div" ) ;
140+
141+ var elementWithOptions = htmlDocument . createElement ( "div" , { } ) ;
142+
143+ var elementNS = htmlDocument . createElementNS ( "http://..." , "foo" ) ;
144+
145+ var elementNsWithOptions = htmlDocument . createElementNS ( "http://..." , "div" , { } ) ;
146+
147+ var createEvent = htmlDocument . createEvent ( "MyCustomEvent" ) ;
148+
149+ var createNodeIterator = htmlDocument . createNodeIterator ( el ) ;
150+
151+ var createNodeIteratorWithWhatToShow = htmlDocument . createNodeIterator ( el , Webapi__Dom__Types . WhatToShow . _All ) ;
152+
153+ var createNodeIteratorWithWhatToShowFilter = htmlDocument . createNodeIterator ( el , Webapi__Dom__Types . WhatToShow . many ( {
154+ hd : Webapi__Dom__Types . WhatToShow . _Element ,
155+ tl : {
156+ hd : Webapi__Dom__Types . WhatToShow . _Attribute ,
157+ tl : /* [] */ 0
158+ }
159+ } ) , Webapi__Dom__NodeFilter . make ( function ( param ) {
160+ return 0 ;
161+ } ) ) ;
162+
163+ var createRange = htmlDocument . createRange ( ) ;
164+
165+ var createTextNode = htmlDocument . createTextNode ( "Very reasonable!" ) ;
166+
167+ var createTreeWalker = htmlDocument . createTreeWalker ( el ) ;
168+
169+ var createTreeWalkerWithWhatToShow = htmlDocument . createTreeWalker ( el , Webapi__Dom__Types . WhatToShow . _All ) ;
170+
171+ var createTreeWalkerWithWhatToShowFilter = htmlDocument . createTreeWalker ( el , Webapi__Dom__Types . WhatToShow . many ( {
172+ hd : Webapi__Dom__Types . WhatToShow . _Element ,
173+ tl : {
174+ hd : Webapi__Dom__Types . WhatToShow . _Attribute ,
175+ tl : /* [] */ 0
176+ }
177+ } ) , Webapi__Dom__NodeFilter . make ( function ( param ) {
178+ return 0 ;
179+ } ) ) ;
180+
181+ var el$1 = htmlDocument . elementFromPoint ( 0 , 0 ) ;
182+
183+ if ( ! ( el$1 == null ) ) {
184+ console . log ( el$1 ) ;
185+ }
186+
187+ var elementsFromPoint = htmlDocument . elementsFromPoint ( 0 , 0 ) ;
188+
189+ htmlDocument . enableStyleSheetsForSet ( "my-stylesheet-set" ) ;
190+
191+ htmlDocument . exitPointerLock ( ) ;
192+
193+ var getAnimations = htmlDocument . getAnimations ( ) ;
194+
195+ var getElementsByClassName = htmlDocument . getElementsByClassName ( "lstlisting" ) ;
196+
197+ var getElementsByTagName = htmlDocument . getElementsByTagName ( "code" ) ;
198+
199+ var getElementsByTagNameNS = htmlDocument . getElementsByTagNameNS ( "http://..." , "foo" ) ;
200+
201+ var hasFocus = htmlDocument . hasFocus ( ) ;
202+
203+ var importNode = htmlDocument . importNode ( el ) ;
204+
205+ var importNodeDeep = htmlDocument . importNode ( el , true ) ;
206+
207+ var getElementById = htmlDocument . getElementById ( "root" ) ;
208+
209+ var querySelector = htmlDocument . querySelector ( ".lstlisting" ) ;
210+
211+ var querySelectorAll = htmlDocument . querySelectorAll ( ".lstlisting" ) ;
212+
213+ var activeElement$1 = ( activeElement == null ) ? undefined : Caml_option . some ( activeElement ) ;
214+
215+ var body$1 = ( body == null ) ? undefined : Caml_option . some ( body ) ;
216+
217+ var setBody ;
218+
219+ var setCookie ;
220+
221+ var defaultView$1 = ( defaultView == null ) ? undefined : Caml_option . some ( defaultView ) ;
222+
223+ var domain$1 = ( domain == null ) ? undefined : Caml_option . some ( domain ) ;
224+
225+ var setDomain ;
226+
227+ var setLocation ;
228+
229+ var setTitle ;
230+
231+ var pointerLockElement$1 = ( pointerLockElement == null ) ? undefined : Caml_option . some ( pointerLockElement ) ;
232+
233+ var scrollingElement$1 = ( scrollingElement == null ) ? undefined : Caml_option . some ( scrollingElement ) ;
234+
235+ var enableStyleSheetsForSet ;
236+
237+ var exitPointerLock ;
238+
239+ var getElementById$1 = ( getElementById == null ) ? undefined : Caml_option . some ( getElementById ) ;
240+
241+ var querySelector$1 = ( querySelector == null ) ? undefined : Caml_option . some ( querySelector ) ;
242+
61243exports . el = el ;
62244exports . htmlDocument = htmlDocument ;
245+ exports . activeElement = activeElement$1 ;
246+ exports . body = body$1 ;
247+ exports . setBody = setBody ;
248+ exports . cookie = cookie ;
249+ exports . setCookie = setCookie ;
250+ exports . defaultView = defaultView$1 ;
251+ exports . designMode = designMode ;
252+ exports . setDesignMode = setDesignMode ;
253+ exports . dir = dir ;
254+ exports . setDir = setDir ;
255+ exports . domain = domain$1 ;
256+ exports . setDomain = setDomain ;
257+ exports . embeds = embeds ;
258+ exports . forms = forms ;
259+ exports . head = head ;
260+ exports . images = images ;
261+ exports . lastModified = lastModified ;
262+ exports . links = links ;
263+ exports . $$location = $$location ;
264+ exports . setLocation = setLocation ;
265+ exports . plugins = plugins ;
266+ exports . readyState = readyState ;
267+ exports . referrer = referrer ;
268+ exports . scripts = scripts ;
269+ exports . title = title ;
270+ exports . setTitle = setTitle ;
271+ exports . url = url ;
272+ exports . execCommand = execCommand ;
273+ exports . getElementsByName = getElementsByName ;
274+ exports . getSelection = getSelection ;
275+ exports . queryCommandEnabled = queryCommandEnabled ;
276+ exports . queryCommandIndeterm = queryCommandIndeterm ;
277+ exports . queryCommandSupported = queryCommandSupported ;
278+ exports . queryCommandValue = queryCommandValue ;
279+ exports . characterSet = characterSet ;
280+ exports . compatMode = compatMode ;
281+ exports . doctype = doctype ;
282+ exports . documentElement = documentElement ;
283+ exports . documentURI = documentURI ;
284+ exports . hidden = hidden ;
285+ exports . implementation = implementation ;
286+ exports . lastStyleSheetSet = lastStyleSheetSet ;
287+ exports . pointerLockElement = pointerLockElement$1 ;
288+ exports . preferredStyleSheetSet = preferredStyleSheetSet ;
289+ exports . scrollingElement = scrollingElement$1 ;
290+ exports . selectedStyleSheetSet = selectedStyleSheetSet ;
291+ exports . styleSheets = styleSheets ;
292+ exports . styleSheetSets = styleSheetSets ;
293+ exports . visibilityState = visibilityState ;
294+ exports . adoptNode = adoptNode ;
295+ exports . createAttribute = createAttribute ;
296+ exports . createAttributeNS = createAttributeNS ;
297+ exports . createComment = createComment ;
298+ exports . createDocumentFragment = createDocumentFragment ;
299+ exports . createElement = createElement ;
300+ exports . elementWithOptions = elementWithOptions ;
301+ exports . elementNS = elementNS ;
302+ exports . elementNsWithOptions = elementNsWithOptions ;
303+ exports . createEvent = createEvent ;
304+ exports . createNodeIterator = createNodeIterator ;
305+ exports . createNodeIteratorWithWhatToShow = createNodeIteratorWithWhatToShow ;
306+ exports . createNodeIteratorWithWhatToShowFilter = createNodeIteratorWithWhatToShowFilter ;
307+ exports . createRange = createRange ;
308+ exports . createTextNode = createTextNode ;
309+ exports . createTreeWalker = createTreeWalker ;
310+ exports . createTreeWalkerWithWhatToShow = createTreeWalkerWithWhatToShow ;
311+ exports . createTreeWalkerWithWhatToShowFilter = createTreeWalkerWithWhatToShowFilter ;
312+ exports . elementsFromPoint = elementsFromPoint ;
313+ exports . enableStyleSheetsForSet = enableStyleSheetsForSet ;
314+ exports . exitPointerLock = exitPointerLock ;
315+ exports . getAnimations = getAnimations ;
316+ exports . getElementsByClassName = getElementsByClassName ;
317+ exports . getElementsByTagName = getElementsByTagName ;
318+ exports . getElementsByTagNameNS = getElementsByTagNameNS ;
319+ exports . hasFocus = hasFocus ;
320+ exports . importNode = importNode ;
321+ exports . importNodeDeep = importNodeDeep ;
322+ exports . getElementById = getElementById$1 ;
323+ exports . querySelector = querySelector$1 ;
324+ exports . querySelectorAll = querySelectorAll ;
63325/* el Not a pure module */
0 commit comments