support multiple constructors

Author: saschanaz

TS.fsx

@@ -1078,19 +1078,25 @@ module Emit =
         let emitConstructorSigFromJson (c: InputJsonType.Root) =
             c.Signatures |> Array.iter (Pt.Printl "%s;")
 
+        let emitConstructorSingleSignature (ctor: Browser.Constructor) = 
+            for { ParamCombinations = pCombList } in GetOverloads (Ctor ctor) false do
+                let paramsString = ParamsToString pCombList
+                Pt.Printl "new(%s): %s;" paramsString i.Name
+
         let removedCtor = getRemovedItems ItemKind.Constructor Flavor.All  |> Array.tryFind (matchInterface i.Name)
         if Option.isNone removedCtor then
             let overriddenCtor = getOverriddenItems ItemKind.Constructor Flavor.All  |> Array.tryFind (matchInterface i.Name)
             match overriddenCtor with
             | Some c' -> emitConstructorSigFromJson c'
             | _ ->
                 //Emit constructor signature
-                match i.Constructor with
-                | Some ctor ->
-                    for { ParamCombinations = pCombList } in GetOverloads (Ctor ctor) false do
-                        let paramsString = ParamsToString pCombList
-                        Pt.Printl "new(%s): %s;" paramsString i.Name
-                | _ -> Pt.Printl "new(): %s;" i.Name
+                match i.Constructors with
+                | Some ctors ->
+                    i.Constructors.Value.Constructors |> Array.iter emitConstructorSingleSignature
+                | _ ->
+                    match i.Constructor with
+                    | Some ctor -> emitConstructorSingleSignature ctor
+                    | _ -> Pt.Printl "new(): %s;" i.Name
 
         getAddedItems ItemKind.Constructor Flavor.All
         |> Array.filter (matchInterface i.Name)

sample.xml

@@ -6275,14 +6275,21 @@
       </methods>
     </interface>
     <interface name="ImageData" extends="Object">
-      <constructor>
-        <param name="width" type="unsigned long" />
-        <param name="height" type="unsigned long" />
-      </constructor>
-      <properties>
-        <property name="data" read-only="1" type="Uint8ClampedArray" />
-        <property name="height" read-only="1" type="unsigned long" />
-        <property name="width" read-only="1" type="unsigned long" />
+      <constructors>
+        <constructor>
+          <param name="sw" type="unsigned long"/>
+          <param name="sh" type="unsigned long"/>
+        </constructor>
+        <constructor>
+          <param name="data" type="Uint8ClampedArray"/>
+          <param name="sw" type="unsigned long"/>
+          <param name="sh" optional="1" type="unsigned long"/>
+        </constructor>
+      </constructors>
+      <properties>
+        <property name="width" read-only="1" type="unsigned long"/>
+        <property name="height" read-only="1" type="unsigned long"/>
+        <property name="data" read-only="1" type="Uint8ClampedArray"/>
       </properties>
     </interface>
     <interface name="IntersectionObserver" exposed="Window" extends="Object">