patrick/WoofWare.Myriad
1
0
Fork 0
mirror of https://github.com/Smaug123/WoofWare.Myriad synced 2025-10-06 12:38:40 +00:00
Code Issues Packages Projects Releases Wiki Activity

More

Browse Source
This commit is contained in:
Smaug123
2025-04-16 23:04:23 +01:00
parent aa2ef830c3
commit 4013271254
2 changed files with 561 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

454
ConsumePlugin/GeneratedArgs.fs
View File

@@ -88,7 +88,7 @@ module internal ArgParseHelpers_ConsumePlugin =
/// Processes the key-value pair, returning Error if no key was matched.
/// If the key is an arg which can have arity 1, but throws when consuming that arg, we return Error(<the message>).
/// This can nevertheless be a successful parse, e.g. when the key may have arity 0.
member this.ProcessKeyValue_
member this.ProcessKeyValueSelf_
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
@@ -151,11 +151,21 @@ module internal ArgParseHelpers_ConsumePlugin =
else
Error None
member this.ProcessKeyValue
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
: Result<unit, string option>
=
match this.ProcessKeyValueSelf_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromLeaf -> Error None
/// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool =
if System.String.Equals (key, sprintf "--%s" "baz", System.StringComparison.OrdinalIgnoreCase) then
match this.Baz with
| Some x ->
| Some _ ->
sprintf "Flag '%s' was supplied multiple times" (sprintf "--%s" "baz")
|> errors_.Add
@@ -244,7 +254,7 @@ module internal ArgParseHelpers_ConsumePlugin =
/// Processes the key-value pair, returning Error if no key was matched.
/// If the key is an arg which can have arity 1, but throws when consuming that arg, we return Error(<the message>).
/// This can nevertheless be a successful parse, e.g. when the key may have arity 0.
member this.ProcessKeyValue_
member this.ProcessKeyValueSelf_
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
@@ -307,11 +317,21 @@ module internal ArgParseHelpers_ConsumePlugin =
else
Error None
member this.ProcessKeyValue
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
: Result<unit, string option>
=
match this.ProcessKeyValueSelf_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromLeaf -> Error None
/// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool =
if System.String.Equals (key, sprintf "--%s" "baz", System.StringComparison.OrdinalIgnoreCase) then
match this.Baz with
| Some x ->
| Some _ ->
sprintf "Flag '%s' was supplied multiple times" (sprintf "--%s" "baz")
|> errors_.Add
@@ -400,7 +420,7 @@ module internal ArgParseHelpers_ConsumePlugin =
/// Processes the key-value pair, returning Error if no key was matched.
/// If the key is an arg which can have arity 1, but throws when consuming that arg, we return Error(<the message>).
/// This can nevertheless be a successful parse, e.g. when the key may have arity 0.
member this.ProcessKeyValue_
member this.ProcessKeyValueSelf_
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
@@ -463,11 +483,21 @@ module internal ArgParseHelpers_ConsumePlugin =
else
Error None
member this.ProcessKeyValue
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
: Result<unit, string option>
=
match this.ProcessKeyValueSelf_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromLeaf -> Error None
/// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool =
if System.String.Equals (key, sprintf "--%s" "baz", System.StringComparison.OrdinalIgnoreCase) then
match this.Baz with
| Some x ->
| Some _ ->
sprintf "Flag '%s' was supplied multiple times" (sprintf "--%s" "baz")
|> errors_.Add
@@ -609,7 +639,7 @@ module internal ArgParseHelpers_ConsumePlugin =
/// Processes the key-value pair, returning Error if no key was matched.
/// If the key is an arg which can have arity 1, but throws when consuming that arg, we return Error(<the message>).
/// This can nevertheless be a successful parse, e.g. when the key may have arity 0.
member this.ProcessKeyValue_
member this.ProcessKeyValueSelf_
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
@@ -805,13 +835,23 @@ module internal ArgParseHelpers_ConsumePlugin =
else
Error None
member this.ProcessKeyValue
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
: Result<unit, string option>
=
match this.ProcessKeyValueSelf_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromLeaf -> Error None
/// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool =
if
System.String.Equals (key, sprintf "--%s" "optional-thing", System.StringComparison.OrdinalIgnoreCase)
then
match this.OptionalThing with
| Some x ->
| Some _ ->
sprintf "Flag '%s' was supplied multiple times" (sprintf "--%s" "optional-thing")
|> errors_.Add
@@ -821,7 +861,7 @@ module internal ArgParseHelpers_ConsumePlugin =
true
else if System.String.Equals (key, sprintf "--%s" "baz", System.StringComparison.OrdinalIgnoreCase) then
match this.Baz with
| Some x ->
| Some _ ->
sprintf "Flag '%s' was supplied multiple times" (sprintf "--%s" "baz")
|> errors_.Add
@@ -951,7 +991,7 @@ module internal ArgParseHelpers_ConsumePlugin =
/// Processes the key-value pair, returning Error if no key was matched.
/// If the key is an arg which can have arity 1, but throws when consuming that arg, we return Error(<the message>).
/// This can nevertheless be a successful parse, e.g. when the key may have arity 0.
member this.ProcessKeyValue_
member this.ProcessKeyValueSelf_
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
@@ -1142,13 +1182,23 @@ module internal ArgParseHelpers_ConsumePlugin =
else
Error None
member this.ProcessKeyValue
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
: Result<unit, string option>
=
match this.ProcessKeyValueSelf_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromLeaf -> Error None
/// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool =
if
System.String.Equals (key, sprintf "--%s" "optional-thing", System.StringComparison.OrdinalIgnoreCase)
then
match this.OptionalThing with
| Some x ->
| Some _ ->
sprintf "Flag '%s' was supplied multiple times" (sprintf "--%s" "optional-thing")
|> errors_.Add
@@ -1158,7 +1208,7 @@ module internal ArgParseHelpers_ConsumePlugin =
true
else if System.String.Equals (key, sprintf "--%s" "baz", System.StringComparison.OrdinalIgnoreCase) then
match this.Baz with
| Some x ->
| Some _ ->
sprintf "Flag '%s' was supplied multiple times" (sprintf "--%s" "baz")
|> errors_.Add
@@ -1245,7 +1295,7 @@ module internal ArgParseHelpers_ConsumePlugin =
/// Processes the key-value pair, returning Error if no key was matched.
/// If the key is an arg which can have arity 1, but throws when consuming that arg, we return Error(<the message>).
/// This can nevertheless be a successful parse, e.g. when the key may have arity 0.
member this.ProcessKeyValue_
member this.ProcessKeyValueSelf_
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
@@ -1350,6 +1400,16 @@ module internal ArgParseHelpers_ConsumePlugin =
else
Error None
member this.ProcessKeyValue
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
: Result<unit, string option>
=
match this.ProcessKeyValueSelf_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromLeaf -> Error None
/// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool = false
@@ -1409,7 +1469,7 @@ module internal ArgParseHelpers_ConsumePlugin =
/// Processes the key-value pair, returning Error if no key was matched.
/// If the key is an arg which can have arity 1, but throws when consuming that arg, we return Error(<the message>).
/// This can nevertheless be a successful parse, e.g. when the key may have arity 0.
member this.ProcessKeyValue_
member this.ProcessKeyValueSelf_
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
@@ -1452,6 +1512,16 @@ module internal ArgParseHelpers_ConsumePlugin =
else
Error None
member this.ProcessKeyValue
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
: Result<unit, string option>
=
match this.ProcessKeyValueSelf_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromLeaf -> Error None
/// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool = false
@@ -1516,7 +1586,7 @@ module internal ArgParseHelpers_ConsumePlugin =
/// Processes the key-value pair, returning Error if no key was matched.
/// If the key is an arg which can have arity 1, but throws when consuming that arg, we return Error(<the message>).
/// This can nevertheless be a successful parse, e.g. when the key may have arity 0.
member this.ProcessKeyValue_
member this.ProcessKeyValueSelf_
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
@@ -1542,11 +1612,39 @@ module internal ArgParseHelpers_ConsumePlugin =
else
Error None
/// Passes the key-value pair to any child records, returning Error if no key was matched.
/// If the key is an arg which can have arity 1, but throws when consuming that arg, we return Error(<the message>).
/// This can nevertheless be a successful parse, e.g. when the key may have arity 0.
member this.ProcessKeyValueRecord_
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
: Result<unit, string option>
=
let errors : ResizeArray<string> = ResizeArray ()
match this.Child.ProcessKeyValue errors_ key value with
| Ok () -> Ok ()
| Error e -> Error None
member this.ProcessKeyValue
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
: Result<unit, string option>
=
match this.ProcessKeyValueSelf_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromLeaf ->
match this.ProcessKeyValueRecord_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromRecord -> Error None
/// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool =
if System.String.Equals (key, sprintf "--%s" "and-another", System.StringComparison.OrdinalIgnoreCase) then
match this.AndAnother with
| Some x ->
| Some _ ->
sprintf "Flag '%s' was supplied multiple times" (sprintf "--%s" "and-another")
|> errors_.Add
@@ -1615,7 +1713,7 @@ module internal ArgParseHelpers_ConsumePlugin =
/// Processes the key-value pair, returning Error if no key was matched.
/// If the key is an arg which can have arity 1, but throws when consuming that arg, we return Error(<the message>).
/// This can nevertheless be a successful parse, e.g. when the key may have arity 0.
member this.ProcessKeyValue_
member this.ProcessKeyValueSelf_
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
@@ -1644,6 +1742,16 @@ module internal ArgParseHelpers_ConsumePlugin =
else
Error None
member this.ProcessKeyValue
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
: Result<unit, string option>
=
match this.ProcessKeyValueSelf_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromLeaf -> Error None
/// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool = false
@@ -1708,7 +1816,7 @@ module internal ArgParseHelpers_ConsumePlugin =
/// Processes the key-value pair, returning Error if no key was matched.
/// If the key is an arg which can have arity 1, but throws when consuming that arg, we return Error(<the message>).
/// This can nevertheless be a successful parse, e.g. when the key may have arity 0.
member this.ProcessKeyValue_
member this.ProcessKeyValueSelf_
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
@@ -1734,11 +1842,39 @@ module internal ArgParseHelpers_ConsumePlugin =
else
Error None
/// Passes the key-value pair to any child records, returning Error if no key was matched.
/// If the key is an arg which can have arity 1, but throws when consuming that arg, we return Error(<the message>).
/// This can nevertheless be a successful parse, e.g. when the key may have arity 0.
member this.ProcessKeyValueRecord_
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
: Result<unit, string option>
=
let errors : ResizeArray<string> = ResizeArray ()
match this.Child.ProcessKeyValue errors_ key value with
| Ok () -> Ok ()
| Error e -> Error None
member this.ProcessKeyValue
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
: Result<unit, string option>
=
match this.ProcessKeyValueSelf_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromLeaf ->
match this.ProcessKeyValueRecord_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromRecord -> Error None
/// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool =
if System.String.Equals (key, sprintf "--%s" "and-another", System.StringComparison.OrdinalIgnoreCase) then
match this.AndAnother with
| Some x ->
| Some _ ->
sprintf "Flag '%s' was supplied multiple times" (sprintf "--%s" "and-another")
|> errors_.Add
@@ -1812,7 +1948,7 @@ module internal ArgParseHelpers_ConsumePlugin =
/// Processes the key-value pair, returning Error if no key was matched.
/// If the key is an arg which can have arity 1, but throws when consuming that arg, we return Error(<the message>).
/// This can nevertheless be a successful parse, e.g. when the key may have arity 0.
member this.ProcessKeyValue_
member this.ProcessKeyValueSelf_
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
@@ -1824,6 +1960,34 @@ module internal ArgParseHelpers_ConsumePlugin =
else
Error None
/// Passes the key-value pair to any child records, returning Error if no key was matched.
/// If the key is an arg which can have arity 1, but throws when consuming that arg, we return Error(<the message>).
/// This can nevertheless be a successful parse, e.g. when the key may have arity 0.
member this.ProcessKeyValueRecord_
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
: Result<unit, string option>
=
let errors : ResizeArray<string> = ResizeArray ()
match this.Child.ProcessKeyValue errors_ key value with
| Ok () -> Ok ()
| Error e -> Error None
member this.ProcessKeyValue
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
: Result<unit, string option>
=
match this.ProcessKeyValueSelf_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromLeaf ->
match this.ProcessKeyValueRecord_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromRecord -> Error None
/// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool = false
@@ -1874,7 +2038,7 @@ module internal ArgParseHelpers_ConsumePlugin =
/// Processes the key-value pair, returning Error if no key was matched.
/// If the key is an arg which can have arity 1, but throws when consuming that arg, we return Error(<the message>).
/// This can nevertheless be a successful parse, e.g. when the key may have arity 0.
member this.ProcessKeyValue_
member this.ProcessKeyValueSelf_
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
@@ -1886,6 +2050,16 @@ module internal ArgParseHelpers_ConsumePlugin =
else
Error None
member this.ProcessKeyValue
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
: Result<unit, string option>
=
match this.ProcessKeyValueSelf_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromLeaf -> Error None
/// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool = false
@@ -1938,7 +2112,7 @@ module internal ArgParseHelpers_ConsumePlugin =
/// Processes the key-value pair, returning Error if no key was matched.
/// If the key is an arg which can have arity 1, but throws when consuming that arg, we return Error(<the message>).
/// This can nevertheless be a successful parse, e.g. when the key may have arity 0.
member this.ProcessKeyValue_
member this.ProcessKeyValueSelf_
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
@@ -1964,11 +2138,21 @@ module internal ArgParseHelpers_ConsumePlugin =
else
Error None
member this.ProcessKeyValue
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
: Result<unit, string option>
=
match this.ProcessKeyValueSelf_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromLeaf -> Error None
/// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool =
if System.String.Equals (key, sprintf "--%s" "bool-var", System.StringComparison.OrdinalIgnoreCase) then
match this.BoolVar with
| Some x ->
| Some _ ->
sprintf "Flag '%s' was supplied multiple times" (sprintf "--%s" "bool-var")
|> errors_.Add
@@ -2025,7 +2209,7 @@ module internal ArgParseHelpers_ConsumePlugin =
/// Processes the key-value pair, returning Error if no key was matched.
/// If the key is an arg which can have arity 1, but throws when consuming that arg, we return Error(<the message>).
/// This can nevertheless be a successful parse, e.g. when the key may have arity 0.
member this.ProcessKeyValue_
member this.ProcessKeyValueSelf_
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
@@ -2060,11 +2244,21 @@ module internal ArgParseHelpers_ConsumePlugin =
else
Error None
member this.ProcessKeyValue
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
: Result<unit, string option>
=
match this.ProcessKeyValueSelf_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromLeaf -> Error None
/// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool =
if System.String.Equals (key, sprintf "--%s" "dry-run", System.StringComparison.OrdinalIgnoreCase) then
match this.DryRun with
| Some x ->
| Some _ ->
sprintf "Flag '%s' was supplied multiple times" (sprintf "--%s" "dry-run")
|> errors_.Add
@@ -2135,7 +2329,7 @@ module internal ArgParseHelpers_ConsumePlugin =
/// Processes the key-value pair, returning Error if no key was matched.
/// If the key is an arg which can have arity 1, but throws when consuming that arg, we return Error(<the message>).
/// This can nevertheless be a successful parse, e.g. when the key may have arity 0.
member this.ProcessKeyValue_
member this.ProcessKeyValueSelf_
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
@@ -2170,11 +2364,21 @@ module internal ArgParseHelpers_ConsumePlugin =
else
Error None
member this.ProcessKeyValue
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
: Result<unit, string option>
=
match this.ProcessKeyValueSelf_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromLeaf -> Error None
/// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool =
if System.String.Equals (key, sprintf "--%s" "dry-run", System.StringComparison.OrdinalIgnoreCase) then
match this.DryRun with
| Some x ->
| Some _ ->
sprintf "Flag '%s' was supplied multiple times" (sprintf "--%s" "dry-run")
|> errors_.Add
@@ -2235,7 +2439,7 @@ module internal ArgParseHelpers_ConsumePlugin =
/// Processes the key-value pair, returning Error if no key was matched.
/// If the key is an arg which can have arity 1, but throws when consuming that arg, we return Error(<the message>).
/// This can nevertheless be a successful parse, e.g. when the key may have arity 0.
member this.ProcessKeyValue_
member this.ProcessKeyValueSelf_
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
@@ -2270,11 +2474,21 @@ module internal ArgParseHelpers_ConsumePlugin =
else
Error None
member this.ProcessKeyValue
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
: Result<unit, string option>
=
match this.ProcessKeyValueSelf_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromLeaf -> Error None
/// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool =
if System.String.Equals (key, sprintf "--%s" "dry-run", System.StringComparison.OrdinalIgnoreCase) then
match this.DryRun with
| Some x ->
| Some _ ->
sprintf "Flag '%s' was supplied multiple times" (sprintf "--%s" "dry-run")
|> errors_.Add
@@ -2347,7 +2561,7 @@ module internal ArgParseHelpers_ConsumePlugin =
/// Processes the key-value pair, returning Error if no key was matched.
/// If the key is an arg which can have arity 1, but throws when consuming that arg, we return Error(<the message>).
/// This can nevertheless be a successful parse, e.g. when the key may have arity 0.
member this.ProcessKeyValue_
member this.ProcessKeyValueSelf_
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
@@ -2436,13 +2650,23 @@ module internal ArgParseHelpers_ConsumePlugin =
else
Error None
member this.ProcessKeyValue
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
: Result<unit, string option>
=
match this.ProcessKeyValueSelf_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromLeaf -> Error None
/// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool =
if
System.String.Equals (key, sprintf "--%s" "dont-turn-it-off", System.StringComparison.OrdinalIgnoreCase)
then
match this.SomeFlag with
| Some x ->
| Some _ ->
sprintf
"Flag '%s' was supplied multiple times"
(sprintf "--%s / --%s" "turn-it-on" "dont-turn-it-off")
@@ -2456,7 +2680,7 @@ module internal ArgParseHelpers_ConsumePlugin =
System.String.Equals (key, sprintf "--%s" "turn-it-on", System.StringComparison.OrdinalIgnoreCase)
then
match this.SomeFlag with
| Some x ->
| Some _ ->
sprintf
"Flag '%s' was supplied multiple times"
(sprintf "--%s / --%s" "turn-it-on" "dont-turn-it-off")
@@ -2527,7 +2751,7 @@ module internal ArgParseHelpers_ConsumePlugin =
/// Processes the key-value pair, returning Error if no key was matched.
/// If the key is an arg which can have arity 1, but throws when consuming that arg, we return Error(<the message>).
/// This can nevertheless be a successful parse, e.g. when the key may have arity 0.
member this.ProcessKeyValue_
member this.ProcessKeyValueSelf_
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
@@ -2558,6 +2782,16 @@ module internal ArgParseHelpers_ConsumePlugin =
else
Error None
member this.ProcessKeyValue
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
: Result<unit, string option>
=
match this.ProcessKeyValueSelf_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromLeaf -> Error None
/// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool = false
@@ -2618,7 +2852,7 @@ module internal ArgParseHelpers_ConsumePlugin =
/// Processes the key-value pair, returning Error if no key was matched.
/// If the key is an arg which can have arity 1, but throws when consuming that arg, we return Error(<the message>).
/// This can nevertheless be a successful parse, e.g. when the key may have arity 0.
member this.ProcessKeyValue_
member this.ProcessKeyValueSelf_
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
@@ -2649,6 +2883,16 @@ module internal ArgParseHelpers_ConsumePlugin =
else
Error None
member this.ProcessKeyValue
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
: Result<unit, string option>
=
match this.ProcessKeyValueSelf_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromLeaf -> Error None
/// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool = false
@@ -2710,7 +2954,7 @@ module internal ArgParseHelpers_ConsumePlugin =
/// Processes the key-value pair, returning Error if no key was matched.
/// If the key is an arg which can have arity 1, but throws when consuming that arg, we return Error(<the message>).
/// This can nevertheless be a successful parse, e.g. when the key may have arity 0.
member this.ProcessKeyValue_
member this.ProcessKeyValueSelf_
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
@@ -2741,6 +2985,16 @@ module internal ArgParseHelpers_ConsumePlugin =
else
Error None
member this.ProcessKeyValue
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
: Result<unit, string option>
=
match this.ProcessKeyValueSelf_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromLeaf -> Error None
/// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool = false
@@ -2801,7 +3055,7 @@ module internal ArgParseHelpers_ConsumePlugin =
/// Processes the key-value pair, returning Error if no key was matched.
/// If the key is an arg which can have arity 1, but throws when consuming that arg, we return Error(<the message>).
/// This can nevertheless be a successful parse, e.g. when the key may have arity 0.
member this.ProcessKeyValue_
member this.ProcessKeyValueSelf_
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
@@ -2832,6 +3086,16 @@ module internal ArgParseHelpers_ConsumePlugin =
else
Error None
member this.ProcessKeyValue
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
: Result<unit, string option>
=
match this.ProcessKeyValueSelf_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromLeaf -> Error None
/// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool = false
@@ -2893,7 +3157,7 @@ module internal ArgParseHelpers_ConsumePlugin =
/// Processes the key-value pair, returning Error if no key was matched.
/// If the key is an arg which can have arity 1, but throws when consuming that arg, we return Error(<the message>).
/// This can nevertheless be a successful parse, e.g. when the key may have arity 0.
member this.ProcessKeyValue_
member this.ProcessKeyValueSelf_
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
@@ -2928,8 +3192,124 @@ module internal ArgParseHelpers_ConsumePlugin =
else
Error None
member this.ProcessKeyValue
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
: Result<unit, string option>
=
match this.ProcessKeyValueSelf_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromLeaf -> Error None
/// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool = false
/// A partially-parsed PassThru.
type internal PassThru_InProgress =
{
mutable A : ParentRecordChildPos_InProgress
}
/// Freeze this in-progress type. On success, returns the frozen type and the arg (if any) which consumed the input positional args.
member this.Assemble_
(getEnvironmentVariable : string -> string)
(positionals : Choice<string, string> list)
: Result<PassThru * string option, string list>
=
let errors = ResizeArray<string> ()
let positionalConsumers = ResizeArray<string> ()
let arg0 : ParentRecordChildPos =
match this.A.Assemble_ getEnvironmentVariable positionals with
| Ok (result, consumedPositional) ->
match consumedPositional with
| None -> ()
| Some positionalConsumer -> positionalConsumers.Add positionalConsumer
result
| Error err ->
errors.AddRange err
Unchecked.defaultof<_>
if errors.Count = 0 then
if positionalConsumers.Count <= 1 then
Ok (
{
A = arg0
},
Seq.tryExactlyOne positionalConsumers
)
else
("Multiple parsers consumed positional args: "
+ String.concat ", " positionalConsumers)
|> List.singleton
|> Error
else
errors |> Seq.toList |> Error
static member _Empty () : PassThru_InProgress =
{
A = ParentRecordChildPos_InProgress._Empty ()
}
/// Passes the key-value pair to any child records, returning Error if no key was matched.
/// If the key is an arg which can have arity 1, but throws when consuming that arg, we return Error(<the message>).
/// This can nevertheless be a successful parse, e.g. when the key may have arity 0.
member this.ProcessKeyValueRecord_
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
: Result<unit, string option>
=
let errors : ResizeArray<string> = ResizeArray ()
match this.A.ProcessKeyValue errors_ key value with
| Ok () -> Ok ()
| Error e -> Error None
member this.ProcessKeyValue
(errors_ : ResizeArray<string>)
(key : string)
(value : string)
: Result<unit, string option>
=
match this.ProcessKeyValueRecord_ errors_ key value with
| Ok () -> Ok ()
| Error errorFromRecord -> Error None
/// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool = false
namespace ConsumePlugin
open ArgParserHelpers
open System
open System.IO
open WoofWare.Myriad.Plugins
/// Methods to parse arguments for the type PassThru
[<AutoOpen>]
module PassThruArgParse =
type internal ParseState_PassThru =
/// Ready to consume a key or positional arg
| AwaitingKey
/// Waiting to receive a value for the key we've already consumed
| AwaitingValue of key : string
/// Extension methods for argument parsing
type PassThru with
static member parse' (getEnvironmentVariable : string -> string) (args : string list) : PassThru =
let inProgress = ArgParseHelpers_ConsumePlugin.PassThru_InProgress._Empty ()
let positionals : ResizeArray<string> = ResizeArray ()
let parseAttempt = failwith "TODO"
match parseAttempt with
| Ok result -> result
| Error e -> e |> String.concat System.Environment.NewLine |> failwith
static member parse (args : string list) : PassThru =
PassThru.parse' System.Environment.GetEnvironmentVariable args
namespace ConsumePlugin
open ArgParserHelpers

153
WoofWare.Myriad.Plugins/ShibaGenerator.fs
View File

@@ -593,11 +593,67 @@ module internal ShibaGenerator =
|> SynBinding.withXmlDoc (PreXmlDoc.create "Returns false if we didn't set a value.")
|> SynBinding.makeInstanceMember
/// `member this.ProcessKeyValue_ (errors_ : ResizeArray<string>) (key : string) (value : string) : Result<unit, string option> = ...`
/// `member this.ProcessKeyValueRecord_ (errors_ : ResizeArray<string>) (key : string) (value : string) : Result<unit, string option> = ...`
/// Returns a possible error.
/// A parse failure might not be fatal (e.g. maybe the input was optionally of arity 0, and we failed to do
/// the parse because in fact the key decided not to take this argument); in that case we return Error None.
let private processKeyValue<'choice> (args : LeafData<'choice> list) : SynBinding =
///
/// `args` is a list of the name of the field and the structure which is that field's contents.
let private processKeyValueRecord<'choice> (args : (string * ParsedRecordStructure<'choice>) list) : SynBinding =
(SynExpr.applyFunction (SynExpr.createIdent "Error") (SynExpr.createIdent "None"), args)
||> List.fold (fun finalBranch (fieldName, _record) ->
[
SynMatchClause.create
(SynPat.nameWithArgs "Ok" [ SynPat.unit ])
(SynExpr.applyFunction (SynExpr.createIdent "Ok") (SynExpr.CreateConst ()))
SynMatchClause.create
(SynPat.nameWithArgs "Error" [ SynPat.named "e" ])
(SynExpr.sequential
[
finalBranch
])
]
|> SynExpr.createMatch (
SynExpr.createLongIdent [ "this" ; fieldName ; "ProcessKeyValue" ]
|> SynExpr.applyTo (SynExpr.createIdent "errors_")
|> SynExpr.applyTo (SynExpr.createIdent "key")
|> SynExpr.applyTo (SynExpr.createIdent "value")
)
)
|> SynExpr.createLet
[
SynBinding.basic
[ Ident.create "errors" ]
[]
(SynExpr.applyFunction (SynExpr.createIdent "ResizeArray") (SynExpr.CreateConst ()))
|> SynBinding.withReturnAnnotation (SynType.app "ResizeArray" [ SynType.string ])
]
|> SynBinding.basic
[ Ident.create "this" ; Ident.create "ProcessKeyValueRecord_" ]
[
SynPat.annotateType (SynType.app "ResizeArray" [ SynType.string ]) (SynPat.named "errors_")
SynPat.annotateType SynType.string (SynPat.named "key")
SynPat.annotateType SynType.string (SynPat.named "value")
]
|> SynBinding.withReturnAnnotation (
SynType.app "Result" [ SynType.unit ; SynType.appPostfix "option" SynType.string ]
)
|> SynBinding.withXmlDoc (
[
" Passes the key-value pair to any child records, returning Error if no key was matched."
" If the key is an arg which can have arity 1, but throws when consuming that arg, we return Error(<the message>)."
" This can nevertheless be a successful parse, e.g. when the key may have arity 0."
]
|> PreXmlDoc.create'
)
|> SynBinding.makeInstanceMember
/// `member this.ProcessKeyValueSelf_ (errors_ : ResizeArray<string>) (key : string) (value : string) : Result<unit, string option> = ...`
/// Returns a possible error.
/// A parse failure might not be fatal (e.g. maybe the input was optionally of arity 0, and we failed to do
/// the parse because in fact the key decided not to take this argument); in that case we return Error None.
let private processKeyValueSelf<'choice> (args : LeafData<'choice> list) : SynBinding =
let args =
args
|> List.map (fun arg ->
@@ -700,7 +756,7 @@ module internal ShibaGenerator =
)
)
|> SynBinding.basic
[ Ident.create "this" ; Ident.create "ProcessKeyValue_" ]
[ Ident.create "this" ; Ident.create "ProcessKeyValueSelf_" ]
[
SynPat.annotateType (SynType.app "ResizeArray" [ SynType.string ]) (SynPat.named "errors_")
SynPat.annotateType SynType.string (SynPat.named "key")
@@ -1105,12 +1161,81 @@ module internal ShibaGenerator =
|> SynBinding.withReturnAnnotation (SynType.createLongIdent [ record.NameOfInProgressType ])
|> SynMemberDefn.staticMember
let processKeyValueSelf =
if record.LeafNodes.IsEmpty then
None
else
record.LeafNodes
|> Map.toSeq
|> Seq.map snd
|> Seq.toList
|> processKeyValueSelf
|> SynMemberDefn.memberImplementation
|> Some
let processKeyValueChildRecords =
if record.Records.IsEmpty then
None
else
record.Records
|> Map.toSeq
|> Seq.toList
|> processKeyValueRecord
|> SynMemberDefn.memberImplementation
|> Some
let processKeyValue =
record.LeafNodes
|> Map.toSeq
|> Seq.map snd
|> Seq.toList
|> processKeyValue
let afterErrorFromRecord =
SynExpr.applyFunction (SynExpr.createIdent "Error") (SynExpr.createIdent "None")
let afterErrorFromLeaf =
match processKeyValueChildRecords with
| None -> afterErrorFromRecord
| Some _ ->
[
SynMatchClause.create
(SynPat.nameWithArgs "Ok" [ SynPat.unit ])
(SynExpr.applyFunction (SynExpr.createIdent "Ok") (SynExpr.CreateConst ()))
SynMatchClause.create
(SynPat.nameWithArgs "Error" [ SynPat.named "errorFromRecord" ])
afterErrorFromRecord
]
|> SynExpr.createMatch (
SynExpr.createLongIdent [ "this" ; "ProcessKeyValueRecord_" ]
|> SynExpr.applyTo (SynExpr.createIdent "errors_")
|> SynExpr.applyTo (SynExpr.createIdent "key")
|> SynExpr.applyTo (SynExpr.createIdent "value")
)
let firstMatch =
match processKeyValueSelf with
| None -> afterErrorFromLeaf
| Some _ ->
[
SynMatchClause.create
(SynPat.nameWithArgs "Ok" [ SynPat.unit ])
(SynExpr.applyFunction (SynExpr.createIdent "Ok") (SynExpr.CreateConst ()))
SynMatchClause.create
(SynPat.nameWithArgs "Error" [ SynPat.named "errorFromLeaf" ])
afterErrorFromLeaf
]
|> SynExpr.createMatch (
SynExpr.createLongIdent [ "this" ; "ProcessKeyValueSelf_" ]
|> SynExpr.applyTo (SynExpr.createIdent "errors_")
|> SynExpr.applyTo (SynExpr.createIdent "key")
|> SynExpr.applyTo (SynExpr.createIdent "value")
)
firstMatch
|> SynBinding.basic
[ Ident.create "this" ; Ident.create "ProcessKeyValue" ]
[
SynPat.annotateType (SynType.app "ResizeArray" [ SynType.string ]) (SynPat.named "errors_")
SynPat.annotateType SynType.string (SynPat.named "key")
SynPat.annotateType SynType.string (SynPat.named "value")
]
|> SynBinding.withReturnAnnotation (SynType.app "Result" [ SynType.unit ; SynType.option SynType.string ])
|> SynBinding.makeInstanceMember
|> SynMemberDefn.memberImplementation
let flags =
@@ -1144,7 +1269,17 @@ module internal ShibaGenerator =
{
Name = record.NameOfInProgressType
Fields = fields
Members = [ assembleMethod ; emptyConstructor ; processKeyValue ; setFlagValue ] |> Some
Members =
[
Some assembleMethod
Some emptyConstructor
processKeyValueSelf
processKeyValueChildRecords
Some processKeyValue
Some setFlagValue
]
|> List.choose id
|> Some
XmlDoc = PreXmlDoc.create $"A partially-parsed %s{record.Original.Name.idText}." |> Some
Generics =
match record.Original.Generics with