Emit castng helpers

Author: nojaf

src/CSSFontLoadingAPI/FontFaceSet.res

@@ -1,6 +1,7 @@
 open EventAPI
 open CSSFontLoadingAPI
 
+external asEventTarget: fontFaceSet => eventTarget = "%identity"
 /**
 Appends an event listener for events whose type attribute value is type. The callback argument sets the callback that will be invoked when the event is dispatched.
 

src/CanvasAPI/OffscreenCanvas.res

@@ -10,6 +10,7 @@ open FileAPI
 @new
 external make: (~width: int, ~height: int) => offscreenCanvas = "OffscreenCanvas"
 
+external asEventTarget: offscreenCanvas => eventTarget = "%identity"
 /**
 Appends an event listener for events whose type attribute value is type. The callback argument sets the callback that will be invoked when the event is dispatched.
 

src/ChannelMessagingAPI/MessagePort.res

@@ -2,6 +2,7 @@ open EventAPI
 open ChannelMessagingAPI
 open Prelude
 
+external asEventTarget: messagePort => eventTarget = "%identity"
 /**
 Appends an event listener for events whose type attribute value is type. The callback argument sets the callback that will be invoked when the event is dispatched.
 

src/ClipboardAPI/Clipboard.res

@@ -1,6 +1,7 @@
 open EventAPI
 open ClipboardAPI
 
+external asEventTarget: clipboard => eventTarget = "%identity"
 /**
 Appends an event listener for events whose type attribute value is type. The callback argument sets the callback that will be invoked when the event is dispatched.
 

src/DOMAPI/Animation.res

@@ -8,6 +8,7 @@ open DOMAPI
 external make: (~effect: animationEffect=?, ~timeline: animationTimeline=?) => animation =
   "Animation"
 
+external asEventTarget: animation => eventTarget = "%identity"
 /**
 Appends an event listener for events whose type attribute value is type. The callback argument sets the callback that will be invoked when the event is dispatched.
 

src/DOMAPI/CSSStyleSheet.res

@@ -6,6 +6,7 @@ open DOMAPI
 @new
 external make: (~options: cssStyleSheetInit=?) => cssStyleSheet = "CSSStyleSheet"
 
+external asStyleSheet: cssStyleSheet => styleSheet = "%identity"
 /**
 [Read more on MDN](https://developer.mozilla.org/docs/Web/API/CSSStyleSheet/insertRule)
 */

src/DOMAPI/CharacterData.res

@@ -1,6 +1,8 @@
 open DOMAPI
 open EventAPI
 
+external asNode: characterData => node = "%identity"
+external asEventTarget: characterData => eventTarget = "%identity"
 /**
 Inserts nodes just before node, while replacing strings in nodes with equivalent Text nodes.
 

src/DOMAPI/Comment.res

@@ -7,6 +7,9 @@ open EventAPI
 @new
 external make: (~data: string=?) => comment = "Comment"
 
+external asCharacterData: comment => characterData = "%identity"
+external asNode: comment => node = "%identity"
+external asEventTarget: comment => eventTarget = "%identity"
 /**
 Inserts nodes just before node, while replacing strings in nodes with equivalent Text nodes.
 

src/DOMAPI/DOMMatrix.res

@@ -13,6 +13,7 @@ external make: (~init: string=?) => domMatrix = "DOMMatrix"
 @new
 external make2: (~init: array<float>=?) => domMatrix = "DOMMatrix"
 
+external asDOMMatrixReadOnly: domMatrix => domMatrixReadOnly = "%identity"
 @scope("DOMMatrix")
 external fromMatrix: (~other: domMatrixInit=?) => domMatrixReadOnly = "fromMatrix"
 

src/DOMAPI/DOMPoint.res

@@ -6,6 +6,7 @@ open DOMAPI
 @new
 external make: (~x: float=?, ~y: float=?, ~z: float=?, ~w: float=?) => domPoint = "DOMPoint"
 
+external asDOMPointReadOnly: domPoint => domPointReadOnly = "%identity"
 /**
 [Read more on MDN](https://developer.mozilla.org/docs/Web/API/DOMPointReadOnly/fromPoint_static)
 */