feat: add support for ThisParameterType

[converter]

=== changelog ===
```ts
declare function toHex(this: number): string;
declare function numberToString(n: ThisParameterType<typeof toHex>): string;
```

```fs
[<AbstractClass>]
[<Erase>]
type Exports =
    [<Import("toHex", "REPLACE_ME_WITH_MODULE_NAME")>]
    static member toHex (this: float) : string = nativeOnly
    [<Import("numberToString", "REPLACE_ME_WITH_MODULE_NAME")>]
    static member numberToString (n: float) : string = nativeOnly
```
=== changelog ===

Author: MangelMaxime

src/Glutinum.Converter/GlueAST.fs

@@ -271,6 +271,7 @@ type GlueUtilityType =
     | Partial of GlueInterface
     | Record of GlueRecord
     | ReturnType of GlueType
+    | ThisParameterType of GlueType
 
 type GlueMappedType =
     {
@@ -374,4 +375,5 @@ type GlueType =
             | GlueUtilityType.Partial _
             | GlueUtilityType.Record _ -> "obj"
             | GlueUtilityType.ReturnType returnType -> returnType.Name
+            | GlueUtilityType.ThisParameterType thisType -> thisType.Name
         | MappedType _ -> "obj"

src/Glutinum.Converter/Reader/TypeNode.fs

@@ -166,6 +166,22 @@ module UtilityType =
             |> GlueUtilityType.ReturnType
             |> GlueType.UtilityType
 
+    let thisParameterType
+        (reader: ITypeScriptReader)
+        (typeReferenceNode: Ts.TypeReferenceNode)
+        =
+        let typ = reader.checker.getTypeFromTypeNode typeReferenceNode
+
+        match reader.checker.typeToTypeNode (typ, None, None) with
+        | Some typeNode ->
+            reader.ReadTypeNode typeNode
+            |> GlueUtilityType.ThisParameterType
+            |> GlueType.UtilityType
+        | None ->
+            readTypeUsingFlags reader typ
+            |> GlueUtilityType.ThisParameterType
+            |> GlueType.UtilityType
+
 let readTypeNode
     (reader: ITypeScriptReader)
     (typeNode: Ts.TypeNode)
@@ -213,6 +229,8 @@ let readTypeNode
             | "Record" -> UtilityType.readRecord reader typeReferenceNode
             | "ReturnType" ->
                 UtilityType.readReturnType reader typeReferenceNode
+            | "ThisParameterType" ->
+                UtilityType.thisParameterType reader typeReferenceNode
             | _ -> readTypeReference true
         else
             readTypeReference false

src/Glutinum.Converter/Transform.fs

@@ -728,8 +728,9 @@ let rec private transformType
             : FSharpMapped)
             |> FSharpType.Mapped
 
-        | GlueUtilityType.ReturnType returnType ->
-            transformType context returnType
+        | GlueUtilityType.ReturnType innerType
+        | GlueUtilityType.ThisParameterType innerType ->
+            transformType context innerType
 
     | GlueType.TypeAliasDeclaration typeAliasDeclaration ->
         ({
@@ -2136,6 +2137,9 @@ let private transformTypeAliasDeclaration
 
             transformType context returnType |> makeTypeAlias
 
+        | GlueUtilityType.ThisParameterType innerType ->
+            transformType context innerType |> makeTypeAlias
+
     | GlueType.FunctionType functionType ->
         {
             Attributes =

src/Glutinum.Web/Pages/Editors.GlueAST.GlueASTViewer.fs

@@ -491,6 +491,12 @@ type GlueASTViewer =
                     [ GlueASTViewer.Type returnType ]
                     context
 
+            | GlueUtilityType.ThisParameterType thisParameterType ->
+                ASTViewer.renderNode
+                    "ThisParameterType"
+                    [ GlueASTViewer.Type thisParameterType ]
+                    context
+
         | GlueType.ThisType thisTypeInfo ->
             ASTViewer.renderNode
                 "ThisType"

tests/specs/references/thisParameterType/simple.d.ts

@@ -0,0 +1,2 @@
+declare function toHex(this: number): string;
+declare function numberToString(n: ThisParameterType<typeof toHex>): string;

tests/specs/references/thisParameterType/simple.fsx

@@ -0,0 +1,18 @@
+module rec Glutinum
+
+open Fable.Core
+open Fable.Core.JsInterop
+open System
+
+[<AbstractClass>]
+[<Erase>]
+type Exports =
+    [<Import("toHex", "REPLACE_ME_WITH_MODULE_NAME")>]
+    static member toHex (this: float) : string = nativeOnly
+    [<Import("numberToString", "REPLACE_ME_WITH_MODULE_NAME")>]
+    static member numberToString (n: float) : string = nativeOnly
+
+(***)
+#r "nuget: Fable.Core"
+#r "nuget: Glutinum.Types"
+(***)