Minimal support for TypeQuery

src/Glutinum.Converter/Read.fs

@@ -282,6 +282,20 @@ let private readTypeNode
             }
             |> GlueType.FunctionType
 
+        | Ts.SyntaxKind.TypeQuery ->
+            let typeNodeQuery = typeNode :?> Ts.TypeQueryNode
+
+            let typ = checker.getTypeAtLocation typeNodeQuery
+
+            if TypeFlags.hasFlag typ.flags Ts.TypeFlags.Object then
+                {
+                    Name = typ.symbol.name
+                    Constructors = []
+                    Members = []
+                }
+                |> GlueType.ClassDeclaration
+            else
+                GlueType.Primitive GluePrimitive.Any
 
         | _ -> failwith $"readTypeNode: Unsupported kind {typeNode.kind}"
     | None -> GlueType.Primitive GluePrimitive.Unit

src/Glutinum.Converter/Transform.fs

@@ -80,7 +80,14 @@ let rec private transformType (glueType: GlueType) : FSharpType =
     | GlueType.Array glueType ->
         transformType glueType |> FSharpType.ResizeArray
 
-    | GlueType.ClassDeclaration _
+    | GlueType.ClassDeclaration classDeclaration ->
+         ({
+            Name = classDeclaration.Name
+            FullName = classDeclaration.Name
+        }
+        : FSharpTypeReference)
+        |> FSharpType.TypeReference
+
     | GlueType.ModuleDeclaration _
     | GlueType.IndexedAccessType _
     | GlueType.Literal _

tests/specs/typeQuery/class.d.ts

@@ -0,0 +1,5 @@
+export class DayJs {
+    constructor()
+}
+
+export type PluginFunc = (c: typeof DayJs) => void

tests/specs/typeQuery/class.fsx

@@ -0,0 +1,22 @@
+module rec Glutinum
+
+(***)
+#r "nuget: Fable.Core"
+(***)
+
+open Fable.Core
+open System
+
+[<Erase>]
+type Exports =
+    [<Import("DayJs", "module"); EmitConstructor>]
+    static member DayJs () : DayJs = nativeOnly
+
+[<AllowNullLiteral>]
+type DayJs =
+    interface end
+
+[<AllowNullLiteral>]
+type PluginFunc =
+    [<Emit("$0($1...)")>]
+    abstract member Invoke: c: DayJs -> unit