mirror of
https://github.com/Smaug123/WoofWare.Myriad
synced 2025-10-05 20:18:43 +00:00
95 lines
2.4 KiB
Forth
95 lines
2.4 KiB
Forth
namespace ConsumePlugin
|
|
|
|
open System
|
|
open System.Collections.Generic
|
|
open System.Text.Json.Serialization
|
|
|
|
[<WoofWare.Myriad.Plugins.JsonParse true>]
|
|
[<WoofWare.Myriad.Plugins.JsonSerialize true>]
|
|
type InnerTypeWithBoth =
|
|
{
|
|
[<JsonPropertyName("it's-a-me")>]
|
|
Thing : Guid
|
|
Map : Map<string, Uri>
|
|
ReadOnlyDict : IReadOnlyDictionary<string, char list>
|
|
Dict : IDictionary<Uri, bool>
|
|
ConcreteDict : Dictionary<string, InnerTypeWithBoth>
|
|
}
|
|
|
|
[<WoofWare.Myriad.Plugins.JsonParse true>]
|
|
[<WoofWare.Myriad.Plugins.JsonSerialize true>]
|
|
type SomeEnum =
|
|
| Blah = 1
|
|
| Thing = 0
|
|
|
|
[<Measure>]
|
|
type measure
|
|
|
|
[<WoofWare.Myriad.Plugins.JsonParse true>]
|
|
[<WoofWare.Myriad.Plugins.JsonSerialize true>]
|
|
type JsonRecordTypeWithBoth =
|
|
{
|
|
A : int
|
|
B : string
|
|
C : int list
|
|
D : InnerTypeWithBoth
|
|
E : string array
|
|
Arr : int[]
|
|
Byte : byte<measure>
|
|
Sbyte : sbyte<measure>
|
|
I : int<measure>
|
|
I32 : int32<measure>
|
|
I64 : int64<measure>
|
|
U : uint<measure>
|
|
U32 : uint32<measure>
|
|
U64 : uint64<measure>
|
|
F : float<measure>
|
|
F32 : float32<measure>
|
|
Single : single<measure>
|
|
IntMeasureOption : int<measure> option
|
|
IntMeasureNullable : int<measure> Nullable
|
|
Enum : SomeEnum
|
|
Timestamp : DateTimeOffset
|
|
Unit : unit
|
|
}
|
|
|
|
[<WoofWare.Myriad.Plugins.JsonSerialize true>]
|
|
[<WoofWare.Myriad.Plugins.JsonParse true>]
|
|
type FirstDu =
|
|
| EmptyCase
|
|
| Case1 of data : string
|
|
| Case2 of record : JsonRecordTypeWithBoth * i : int
|
|
|
|
[<WoofWare.Myriad.Plugins.JsonParse true>]
|
|
[<WoofWare.Myriad.Plugins.JsonSerialize true>]
|
|
type HeaderAndValue =
|
|
{
|
|
Header : string
|
|
Value : string
|
|
}
|
|
|
|
[<WoofWare.Myriad.Plugins.JsonSerialize true>]
|
|
[<WoofWare.Myriad.Plugins.JsonParse true>]
|
|
type Foo =
|
|
{
|
|
Message : HeaderAndValue option
|
|
}
|
|
|
|
[<WoofWare.Myriad.Plugins.JsonSerialize true>]
|
|
[<WoofWare.Myriad.Plugins.JsonParse true>]
|
|
type CollectRemaining =
|
|
{
|
|
Message : HeaderAndValue option
|
|
[<JsonExtensionData>]
|
|
Rest : Dictionary<string, System.Text.Json.Nodes.JsonNode>
|
|
}
|
|
|
|
[<WoofWare.Myriad.Plugins.JsonSerialize true>]
|
|
[<WoofWare.Myriad.Plugins.JsonParse true>]
|
|
type OuterCollectRemaining =
|
|
{
|
|
[<JsonExtensionData>]
|
|
Others : Dictionary<string, int>
|
|
Remaining : CollectRemaining
|
|
}
|