Added missing XmlDoc comments (#4024)

Author: ncave

src/Fable.Transforms/BabelPrinter.fs

@@ -664,7 +664,7 @@ module PrinterExtensions =
                 printer.PrintFunction(Some id, parameters, body, typeParameters, returnType, loc, isDeclaration = true)
 
                 printer.PrintNewLine()
-            | InterfaceDeclaration(id, body, extends, typeParameters, _) ->
+            | InterfaceDeclaration(id, body, extends, typeParameters, _doc) ->
                 printer.PrintInterfaceDeclaration(id, body, extends, typeParameters)
             | EnumDeclaration(name, cases, isConst) ->
                 if isConst then

src/Fable.Transforms/Fable2Babel.fs

@@ -3454,7 +3454,7 @@ module Util =
             else
                 returnType
 
-        ClassMember.classMethod (kind, args, body, isStatic = isStatic, ?returnType = returnType) //, ?typeParameters=typeParamDecl)
+        ClassMember.classMethod (kind, args, body, isStatic = isStatic, ?returnType = returnType, ?doc = memb.XmlDoc) //, ?typeParameters=typeParamDecl)
         |> Array.singleton
 
     let transformAttachedMethod
@@ -3475,7 +3475,8 @@ module Util =
                 body,
                 isStatic = isStatic,
                 ?returnType = returnType,
-                ?typeParameters = typeParamDecl
+                ?typeParameters = typeParamDecl,
+                ?doc = memb.XmlDoc
             )
 
         let args, body, returnType, typeParamDecl =
@@ -3742,7 +3743,7 @@ module Util =
         (com: IBabelCompiler)
         ctx
         (ent: Fable.Entity)
-        (entName: string)
+        (decl: Fable.ClassDecl)
         classMembers
         =
         let fieldIds = getEntityFieldsAsIdents ent |> List.toArray
@@ -3780,13 +3781,13 @@ module Util =
                 Parameter.parameter (fi.Name, ?typeAnnotation = makeFieldAnnotationIfTypeScript com ctx fi.Type)
             )
 
-        declareType com ctx ent entName args body baseExpr classMembers
+        declareType com ctx ent decl.Name args body baseExpr classMembers
 
     let transformParamObjectClassPatternToInterface
         (com: IBabelCompiler)
         ctx
-        (classDecl: Fable.ClassDecl)
         (ent: Fable.Entity)
+        (decl: Fable.ClassDecl)
         =
 
         let constructors =
@@ -3803,7 +3804,7 @@ module Util =
                     |> List.mapi (fun index arg ->
                         let name = defaultArg arg.Name $"arg{index}"
 
-                        /// Try to find getter/setter in f# syntax for POJOs. If found propagate its xml doc to interface.
+                        /// Try to find getter/setter in F# syntax for POJOs. If found propagate its xml doc to interface.
                         let tryXmlDoc =
                             ent.MembersFunctionsAndValues
                             |> Seq.tryFind (fun s -> s.DisplayName = name)
@@ -3846,11 +3847,11 @@ module Util =
             []
         | members :: [] ->
             Declaration.interfaceDeclaration (
-                Identifier.identifier classDecl.Name,
+                Identifier.identifier decl.Name,
                 members,
                 [||],
                 typeParameters,
-                ?doc = classDecl.XmlDoc
+                ?doc = decl.XmlDoc
             )
             |> asModuleDeclaration ent.IsPublic
             |> List.singleton
@@ -3860,7 +3861,7 @@ module Util =
                 |> Array.ofList
                 |> UnionTypeAnnotation
 
-            TypeAliasDeclaration(classDecl.Name, typeParameters, typ)
+            TypeAliasDeclaration(decl.Name, typeParameters, typ)
             |> asModuleDeclaration ent.IsPublic
             |> List.singleton
 
@@ -4075,7 +4076,13 @@ module Util =
         let typeParameters =
             FSharp2Fable.Util.getEntityGenArgs ent |> makeTypeParamDecl com ctx
 
-        Declaration.interfaceDeclaration (Identifier.identifier decl.Name, members, extends, typeParameters)
+        Declaration.interfaceDeclaration (
+            Identifier.identifier decl.Name,
+            members,
+            extends,
+            typeParameters,
+            ?doc = decl.XmlDoc
+        )
         |> asModuleDeclaration ent.IsPublic
 
     let transformStringEnumDeclaration (decl: Fable.ClassDecl) (ent: Fable.Entity) (attArgs: obj list) =
@@ -4211,7 +4218,7 @@ module Util =
                     Compiler.Language = TypeScript
                     && FSharp2Fable.Helpers.isParamObjectClassPattern ent
                 then
-                    transformParamObjectClassPatternToInterface com ctx decl ent
+                    transformParamObjectClassPatternToInterface com ctx ent decl
                 else
 
                     let classMembers =
@@ -4240,7 +4247,7 @@ module Util =
                         if ent.IsFSharpUnion then
                             transformUnion com ctx ent decl.Name classMembers
                         else
-                            transformClassWithCompilerGeneratedConstructor com ctx ent decl.Name classMembers
+                            transformClassWithCompilerGeneratedConstructor com ctx ent decl classMembers
 
     let transformImports (imports: Import seq) : ModuleDeclaration list =
         let statefulImports = ResizeArray()

src/Fable.Transforms/Rust/Fable2Rust.fs

@@ -4255,21 +4255,17 @@ module Util =
             | _ -> body
         | _ -> body
 
-    let transformAssocMember
-        com
-        ctx
-        (memb: Fable.MemberFunctionOrValue)
-        (membName: string)
-        (args: Fable.Ident list)
-        (body: Fable.Expr)
-        =
+    let transformAssocMember com ctx (memb: Fable.MemberFunctionOrValue) (decl: Fable.MemberDecl) =
         let ctx = { ctx with IsAssocMember = true }
 
         let name =
             if isInterfaceMember com memb then
                 memb.CompiledName // no name mangling for interfaces
             else
-                Fable.Naming.splitLast membName
+                Fable.Naming.splitLast decl.Name
+
+        let args = decl.Args
+        let body = decl.Body
 
         let body =
             if memb.IsInstance && not (memb.IsConstructor) then
@@ -4301,7 +4297,7 @@ module Util =
 
         let generics = makeGenerics com ctx genArgs
         let fnKind = mkFnKind DEFAULT_FN_HEADER fnDecl generics (Some fnBody)
-        let attrs = transformAttributes com ctx memb.Attributes memb.XmlDoc
+        let attrs = transformAttributes com ctx memb.Attributes decl.XmlDoc
         let fnItem = mkFnAssocItem attrs name fnKind
         fnItem
 
@@ -4438,9 +4434,23 @@ module Util =
         let memberRef =
             Fable.GeneratedMember.Function(entName, paramTypes, body.Type, isInstance = false, entRef = ent.Ref)
 
-        let memb = com.GetMember(memberRef)
         let name = "new"
-        let fnItem = transformAssocMember com ctx memb name args body
+        let memb = com.GetMember(memberRef)
+
+        let ctor: Fable.MemberDecl =
+            {
+                Name = name
+                Args = args
+                Body = body
+                MemberRef = memberRef
+                IsMangled = false
+                ImplementedSignatureRef = None
+                UsedNames = Set.empty
+                XmlDoc = None
+                Tags = []
+            }
+
+        let fnItem = transformAssocMember com ctx memb ctor
         let fnItem = fnItem |> memberAssocItemWithVis com ctx memb
         fnItem
 
@@ -4512,7 +4522,7 @@ module Util =
 
         let ctor = { ctor with Body = body }
         let memb = com.GetMember(ctor.MemberRef)
-        let fnItem = transformAssocMember com ctx memb ctor.Name ctor.Args ctor.Body
+        let fnItem = transformAssocMember com ctx memb ctor
         let fnItem = fnItem |> memberAssocItemWithVis com ctx memb
         fnItem
 
@@ -4791,7 +4801,7 @@ module Util =
     let makeMemberItem (com: IRustCompiler) ctx withVis (decl: Fable.MemberDecl, memb: Fable.MemberFunctionOrValue) =
         withCurrentScope ctx decl.UsedNames
         <| fun ctx ->
-            let memberItem = transformAssocMember com ctx memb decl.Name decl.Args decl.Body
+            let memberItem = transformAssocMember com ctx memb decl
 
             if withVis then
                 memberItem |> memberAssocItemWithVis com ctx memb