Skip to content

Parse inline endpoint response schemas #542

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
Smaug123 merged 3 commits into from
Jul 9, 2026
Merged

Parse inline endpoint response schemas #542

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
140b508
Parse inline endpoint response schemas
Smaug123 Jul 9, 2026
57a533c
Reserve spec-defined names before generating anonymous type names
Smaug123 Jul 9, 2026
a196b18
Allocate anonymous type names from an occupied-name set
Smaug123 Jul 9, 2026
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
10 changes: 10 additions & 0 deletions ConsumePlugin/ConsumePlugin.fsproj
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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>
Expand Down
294 changes: 290 additions & 4 deletions ConsumePlugin/Generated2SwaggerGitea.fs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -27373,6 +27373,138 @@ module LanguageStatisticsJsonSerializeExtension =
)

node :> _
namespace Gitea

open WoofWare.Myriad.Plugins

/// Module containing JSON serializing extension members for the Type9 type
[<AutoOpen>]
module Type9JsonSerializeExtension =
/// Extension methods for JSON parsing
type Type9 with

/// Serialize to a JSON node
static member toJsonNode (input : Type9) : System.Text.Json.Nodes.JsonNode =
let node = System.Text.Json.Nodes.JsonObject ()

do
for KeyValue (key, value) in input.AdditionalProperties do
node.Add (key, id value)

node.Add (
"data",
(input.Data
|> (fun field ->
match field with
| None -> None
| Some field ->
(field
|> (fun field ->
let arr = System.Text.Json.Nodes.JsonArray ()

for mem in field do
arr.Add (Team.toJsonNode mem)

arr
))
:> System.Text.Json.Nodes.JsonNode
|> Some
)
|> Option.toObj)
)

node.Add (
"ok",
(input.Ok
|> (fun field ->
match field with
| None -> None
| Some field ->
(field
|> (fun field ->
let field = System.Text.Json.Nodes.JsonValue.Create<bool> field

(match field with
| null ->
raise (
System.ArgumentNullException
"Expected type bool to be non-null, but received a null value when serialising"
)
| field -> field)
))
:> System.Text.Json.Nodes.JsonNode
|> Some
)
|> Option.toObj)
)

node :> _
namespace Gitea

open WoofWare.Myriad.Plugins

/// Module containing JSON serializing extension members for the Type10 type
[<AutoOpen>]
module Type10JsonSerializeExtension =
/// Extension methods for JSON parsing
type Type10 with

/// Serialize to a JSON node
static member toJsonNode (input : Type10) : System.Text.Json.Nodes.JsonNode =
let node = System.Text.Json.Nodes.JsonObject ()

do
for KeyValue (key, value) in input.AdditionalProperties do
node.Add (key, id value)

node.Add (
"data",
(input.Data
|> (fun field ->
match field with
| None -> None
| Some field ->
(field
|> (fun field ->
let arr = System.Text.Json.Nodes.JsonArray ()

for mem in field do
arr.Add (User.toJsonNode mem)

arr
))
:> System.Text.Json.Nodes.JsonNode
|> Some
)
|> Option.toObj)
)

node.Add (
"ok",
(input.Ok
|> (fun field ->
match field with
| None -> None
| Some field ->
(field
|> (fun field ->
let field = System.Text.Json.Nodes.JsonValue.Create<bool> field

(match field with
| null ->
raise (
System.ArgumentNullException
"Expected type bool to be non-null, but received a null value when serialising"
)
| field -> field)
))
:> System.Text.Json.Nodes.JsonNode
|> Some
)
|> Option.toObj)
)

node :> _

namespace Gitea

Expand Down Expand Up @@ -41543,6 +41675,128 @@ module LanguageStatisticsJsonParseExtension =
{
AdditionalProperties = arg_0
}
namespace Gitea

/// Module containing JSON parsing extension members for the Type9 type
[<AutoOpen>]
module Type9JsonParseExtension =
/// Extension methods for JSON parsing
type Type9 with

/// Parse from a JSON node.
static member jsonParse (node : System.Text.Json.Nodes.JsonNode) : Type9 =
let arg_2 =
match node.["ok"] |> Option.ofObj with
| None -> None
| Some v -> v.AsValue().GetValue<System.Boolean> () |> Some

let arg_1 =
match node.["data"] |> Option.ofObj with
| None -> None
| Some v ->
v.AsArray ()
|> Seq.map (fun elt ->
(match elt with
| null ->
raise (
System.ArgumentNullException
"Expected element of array (element type Team) to be non-null, but found a null element"
)
| elt -> Team.jsonParse elt)
)
|> List.ofSeq
|> Some

let arg_0 =
let result =
System.Collections.Generic.Dictionary<string, System.Text.Json.Nodes.JsonNode> ()

let node = node.AsObject ()

for KeyValue (key, value) in node do
if key = "data" || key = "ok" then
()
else
result.Add (
key,
match node.[key] |> Option.ofObj with
| None ->
raise (
System.Collections.Generic.KeyNotFoundException (
sprintf "Required key '%s' not found on JSON object" (key)
)
)
| Some node -> node
)

result

{
AdditionalProperties = arg_0
Data = arg_1
Ok = arg_2
}
namespace Gitea

/// Module containing JSON parsing extension members for the Type10 type
[<AutoOpen>]
module Type10JsonParseExtension =
/// Extension methods for JSON parsing
type Type10 with

/// Parse from a JSON node.
static member jsonParse (node : System.Text.Json.Nodes.JsonNode) : Type10 =
let arg_2 =
match node.["ok"] |> Option.ofObj with
| None -> None
| Some v -> v.AsValue().GetValue<System.Boolean> () |> Some

let arg_1 =
match node.["data"] |> Option.ofObj with
| None -> None
| Some v ->
v.AsArray ()
|> Seq.map (fun elt ->
(match elt with
| null ->
raise (
System.ArgumentNullException
"Expected element of array (element type User) to be non-null, but found a null element"
)
| elt -> User.jsonParse elt)
)
|> List.ofSeq
|> Some

let arg_0 =
let result =
System.Collections.Generic.Dictionary<string, System.Text.Json.Nodes.JsonNode> ()

let node = node.AsObject ()

for KeyValue (key, value) in node do
if key = "data" || key = "ok" then
()
else
result.Add (
key,
match node.[key] |> Option.ofObj with
| None ->
raise (
System.Collections.Generic.KeyNotFoundException (
sprintf "Required key '%s' not found on JSON object" (key)
)
)
| Some node -> node
)

result

{
AdditionalProperties = arg_0
Data = arg_1
Ok = arg_2
}

namespace Gitea

Expand Down Expand Up @@ -44765,7 +45019,22 @@ module Gitea =
let! response = client.SendAsync (httpMessage, ct) |> Async.AwaitTask
let response = response.EnsureSuccessStatusCode ()
use response = response
return ()
let! responseStream = response.Content.ReadAsStreamAsync ct |> Async.AwaitTask

let! jsonNode =
System.Text.Json.Nodes.JsonNode.ParseAsync (responseStream, cancellationToken = ct)
|> Async.AwaitTask

let jsonNode =
(match jsonNode with
| null ->
raise (
System.ArgumentNullException
"Response from server was the JSON null object; expected a non-nullable type Type9"
)
| jsonNode -> jsonNode)

return Type9.jsonParse jsonNode
}
|> (fun a -> Async.StartAsTask (a, ?cancellationToken = ct))

Expand Down Expand Up @@ -54663,7 +54932,8 @@ module Gitea =
let! response = client.SendAsync (httpMessage, ct) |> Async.AwaitTask
let response = response.EnsureSuccessStatusCode ()
use response = response
return ()
let! responseString = response.Content.ReadAsStringAsync ct |> Async.AwaitTask
return responseString
}
|> (fun a -> Async.StartAsTask (a, ?cancellationToken = ct))

Expand Down Expand Up @@ -56846,7 +57116,8 @@ module Gitea =
let! response = client.SendAsync (httpMessage, ct) |> Async.AwaitTask
let response = response.EnsureSuccessStatusCode ()
use response = response
return ()
let! responseString = response.Content.ReadAsStringAsync ct |> Async.AwaitTask
return responseString
}
|> (fun a -> Async.StartAsTask (a, ?cancellationToken = ct))

Expand Down Expand Up @@ -59389,7 +59660,22 @@ module Gitea =
let! response = client.SendAsync (httpMessage, ct) |> Async.AwaitTask
let response = response.EnsureSuccessStatusCode ()
use response = response
return ()
let! responseStream = response.Content.ReadAsStreamAsync ct |> Async.AwaitTask

let! jsonNode =
System.Text.Json.Nodes.JsonNode.ParseAsync (responseStream, cancellationToken = ct)
|> Async.AwaitTask

let jsonNode =
(match jsonNode with
| null ->
raise (
System.ArgumentNullException
"Response from server was the JSON null object; expected a non-nullable type Type10"
)
| jsonNode -> jsonNode)

return Type10.jsonParse jsonNode
}
|> (fun a -> Async.StartAsTask (a, ?cancellationToken = ct))

Expand Down
Loading
Loading