Reserve spec-defined names before generating anonymous type names

Anonymous inline schemas were named Type1, Type2, ... without checking
the names already taken by the spec's definitions and responses, so a
valid spec defining a type called "Type1" alongside an inline object
schema generated two `type Type1` declarations and failed to compile
with FS0037. The anonymous-name counter now starts past any sanitised
definition/response name of the form Type{N}.

Verified at the level the repo's generators are tested at: the new
swagger-anonymous-types.json in ConsumePlugin defines "Type1" plus an
inline object response, so a regression here fails the build. (An
in-process generate test isn't currently possible: WoofWare.Expect
forces Fantomas.FCS 7.0.3 in the test project, which is binary-
incompatible with the Fantomas.FCS 6.1.1 that WoofWare.Whippet.Fantomas
0.7.3 was compiled against, so calling the generator's AST construction
from the test host throws MissingMethodException.)

Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>

Author: Smaug123

ConsumePlugin/ConsumePlugin.fsproj

@@ -118,6 +118,16 @@
     <Compile Include="Generated2SwaggerGitea.fs">
       <MyriadFile>GeneratedSwaggerGitea.fs</MyriadFile>
     </Compile>
+    <!-- Regression test: this spec defines a type named "Type1", which must not
+         collide with the names invented for anonymous inline schemas. If they
+         collide, this project fails to compile with a duplicate-definition error. -->
+    <None Include="swagger-anonymous-types.json" />
+    <Compile Include="GeneratedSwaggerAnonymousTypes.fs">
+      <MyriadFile>swagger-anonymous-types.json</MyriadFile>
+      <MyriadParams>
+        <ClassName>AnonymousTypes</ClassName>
+      </MyriadParams>
+    </Compile>
   </ItemGroup>
 
   <ItemGroup>

ConsumePlugin/GeneratedSwaggerAnonymousTypes.fs

@@ -0,0 +1,41 @@
+//------------------------------------------------------------------------------
+//        This code was generated by myriad.
+//        Changes to this file will be lost when the code is regenerated.
+//------------------------------------------------------------------------------
+
+
+
+
+
+
+
+
+namespace AnonymousTypes
+
+open WoofWare.Myriad.Plugins
+
+[<JsonParse true ; JsonSerialize true>]
+type Type1 =
+    {
+        [<System.Text.Json.Serialization.JsonExtensionData>]
+        AdditionalProperties : System.Collections.Generic.Dictionary<string, System.Text.Json.Nodes.JsonNode>
+        [<System.Text.Json.Serialization.JsonPropertyName "name">]
+        Name : string option
+    }
+
+[<JsonParse true ; JsonSerialize true>]
+type Type2 =
+    {
+        [<System.Text.Json.Serialization.JsonExtensionData>]
+        AdditionalProperties : System.Collections.Generic.Dictionary<string, System.Text.Json.Nodes.JsonNode>
+        [<System.Text.Json.Serialization.JsonPropertyName "data">]
+        Data : string option
+    }
+
+/// An API whose spec explicitly defines a type called "Type1", the first name WoofWare.Myriad would otherwise invent for the anonymous inline response schema below.
+[<HttpClient false ; RestEase.BasePath "/v1">]
+type IAnonymousTypes =
+    /// Gets a foo
+    [<RestEase.Get "foo">]
+    [<RestEase.Header("Content-Type", "json")>]
+    abstract GetFoo : ?ct : System.Threading.CancellationToken -> Type2 System.Threading.Tasks.Task

ConsumePlugin/swagger-anonymous-types.json

@@ -0,0 +1,56 @@
+{
+    "swagger": "2.0",
+    "info": {
+        "description": "An API whose spec explicitly defines a type called \"Type1\", the first name WoofWare.Myriad would otherwise invent for the anonymous inline response schema below.",
+        "title": "Anonymous type collision test",
+        "license": {
+            "name": "MIT"
+        },
+        "version": "1.0.0"
+    },
+    "consumes": [
+        "application/json"
+    ],
+    "produces": [
+        "application/json"
+    ],
+    "schemes": [
+        "https"
+    ],
+    "basePath": "/v1",
+    "paths": {
+        "/foo": {
+            "get": {
+                "tags": [
+                    "foo"
+                ],
+                "summary": "Gets a foo",
+                "operationId": "getFoo",
+                "responses": {
+                    "200": {
+                        "description": "ok",
+                        "schema": {
+                            "type": "object",
+                            "properties": {
+                                "data": {
+                                    "type": "string"
+                                }
+                            }
+                        }
+                    }
+                }
+            }
+        }
+    },
+    "definitions": {
+        "Type1": {
+            "type": "object",
+            "properties": {
+                "name": {
+                    "type": "string"
+                }
+            }
+        }
+    },
+    "responses": {}
+}

WoofWare.Myriad.Plugins/SwaggerClientGenerator.fs

@@ -542,6 +542,26 @@ module internal SwaggerV2Generator =
             let byHandle = Dictionary ()
             let anonymousTypeCount = ref 0
 
+            // A spec is free to define types whose (sanitised) names look like the
+            // "Type{N}" names we invent for anonymous inline schemas; start counting
+            // past any such name so we never collide with them.
+            let namedTypes =
+                seq {
+                    for KeyValue (k, _) in contents.Definitions do
+                        yield k
+
+                    for KeyValue (k, _) in contents.Responses do
+                        yield k
+                }
+
+            for name in namedTypes do
+                let name = (Ident.createSanitisedTypeName name).idText
+
+                if name.StartsWith ("Type", System.StringComparison.Ordinal) then
+                    match System.Int32.TryParse (name.Substring "Type".Length) with
+                    | true, n -> anonymousTypeCount.Value <- max anonymousTypeCount.Value n
+                    | false, _ -> ()
+
             let rec go (contents : ((string option * SwaggerV2.Definition) * string) list) =
                 let lastRound = countAll ()