Skip to content
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
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
21 changes: 15 additions & 6 deletions TS.fsx
Original file line number Diff line number Diff line change
Expand Up @@ -714,6 +714,7 @@ module Emit =
| "DOMString" -> "string"
| "DOMTimeStamp" -> "number"
| "EndOfStreamError" -> "number"
| "EventListener" -> "EventListenerOrEventListenerObject"
| "double" | "float" -> "number"
| "object" -> "any"
| "ReadyState" -> "string"
Expand Down Expand Up @@ -870,11 +871,16 @@ module Emit =
let EmitCallBackInterface flavor (i:Browser.Interface) =
if ShouldKeep flavor i then
if getRemovedItemsByInterfaceName ItemKind.Interface flavor i.Name |> Array.isEmpty then
let m = i.Methods.Value.Methods.[0]
let overload = (GetOverloads (Function.Method m) false).[0]
let paramsString = ParamsToString overload.ParamCombinations
let returnType = DomTypeToTsType m.Type
Pt.Printl "type %s = (%s) => %s | { %s(%s): %s; };" i.Name paramsString returnType m.Name.Value paramsString returnType
if i.Name = "EventListener" then
Pt.Printl "interface %s {" i.Name
Pt.PrintWithAddedIndent "(evt: Event): void;"
Pt.Printl "}"
else
let m = i.Methods.Value.Methods.[0]
let overload = (GetOverloads (Function.Method m) false).[0]
let paramsString = ParamsToString overload.ParamCombinations
let returnType = DomTypeToTsType m.Type
Pt.Printl "type %s = ((%s) => %s) | { %s(%s): %s; };" i.Name paramsString returnType m.Name.Value paramsString returnType
Pt.Printl ""

let EmitCallBackFunctions flavor =
Expand Down Expand Up @@ -1097,7 +1103,7 @@ module Emit =

let emitStringEventHandler (addOrRemove: string) =
Pt.Printl
"%s%sEventListener(type: string, listener: EventListener, options?: boolean | %s): void;"
"%s%sEventListener(type: string, listener: EventListenerOrEventListenerObject, options?: boolean | %s): void;"
fPrefix addOrRemove (getOptionsType addOrRemove)

let tryEmitTypedEventHandlerForInterface (addOrRemove: string) =
Expand Down Expand Up @@ -1523,6 +1529,9 @@ module Emit =
// Add missed interface definition from the spec
InputJson.getAddedItems InputJson.Interface flavor |> Array.iter EmitAddedInterface

Pt.Printl "declare type EventListenerOrEventListenerObject = EventListener | EventListenerObject;"
Pt.Printl ""

EmitCallBackFunctions flavor

if flavor <> Worker then
Expand Down
Loading