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

Fix another test

Browse Source
This commit is contained in:
Smaug123
2025-04-17 11:05:08 +01:00
parent 54e3f17d9c
commit c14f89f807
2 changed files with 179 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

168
ConsumePlugin/GeneratedArgs.fs
View File

@@ -3381,6 +3381,14 @@ module PassThruArgParse =
go ParseState_PassThru.AwaitingKey args
if 0 = errors_.Count then
()
else
errors_
|> String.concat System.Environment.NewLine
|> (fun x -> "Errors during parse!\n" + x)
|> failwith
match inProgress.Assemble_ getEnvironmentVariable (positionals |> Seq.toList) with
| Ok (result, _) -> result
| Error e ->
@@ -3478,6 +3486,14 @@ module FlagsIntoPositionalArgs'ArgParse =
go ParseState_FlagsIntoPositionalArgs'.AwaitingKey args
if 0 = errors_.Count then
()
else
errors_
|> String.concat System.Environment.NewLine
|> (fun x -> "Errors during parse!\n" + x)
|> failwith
match inProgress.Assemble_ getEnvironmentVariable (positionals |> Seq.toList) with
| Ok (result, _) -> result
| Error e ->
@@ -3575,6 +3591,14 @@ module FlagsIntoPositionalArgsIntChoiceArgParse =
go ParseState_FlagsIntoPositionalArgsIntChoice.AwaitingKey args
if 0 = errors_.Count then
()
else
errors_
|> String.concat System.Environment.NewLine
|> (fun x -> "Errors during parse!\n" + x)
|> failwith
match inProgress.Assemble_ getEnvironmentVariable (positionals |> Seq.toList) with
| Ok (result, _) -> result
| Error e ->
@@ -3672,6 +3696,14 @@ module FlagsIntoPositionalArgsIntArgParse =
go ParseState_FlagsIntoPositionalArgsInt.AwaitingKey args
if 0 = errors_.Count then
()
else
errors_
|> String.concat System.Environment.NewLine
|> (fun x -> "Errors during parse!\n" + x)
|> failwith
match inProgress.Assemble_ getEnvironmentVariable (positionals |> Seq.toList) with
| Ok (result, _) -> result
| Error e ->
@@ -3769,6 +3801,14 @@ module FlagsIntoPositionalArgsChoiceArgParse =
go ParseState_FlagsIntoPositionalArgsChoice.AwaitingKey args
if 0 = errors_.Count then
()
else
errors_
|> String.concat System.Environment.NewLine
|> (fun x -> "Errors during parse!\n" + x)
|> failwith
match inProgress.Assemble_ getEnvironmentVariable (positionals |> Seq.toList) with
| Ok (result, _) -> result
| Error e ->
@@ -3866,6 +3906,14 @@ module FlagsIntoPositionalArgsArgParse =
go ParseState_FlagsIntoPositionalArgs.AwaitingKey args
if 0 = errors_.Count then
()
else
errors_
|> String.concat System.Environment.NewLine
|> (fun x -> "Errors during parse!\n" + x)
|> failwith
match inProgress.Assemble_ getEnvironmentVariable (positionals |> Seq.toList) with
| Ok (result, _) -> result
| Error e ->
@@ -3957,6 +4005,14 @@ module ManyLongFormsArgParse =
go ParseState_ManyLongForms.AwaitingKey args
if 0 = errors_.Count then
()
else
errors_
|> String.concat System.Environment.NewLine
|> (fun x -> "Errors during parse!\n" + x)
|> failwith
match inProgress.Assemble_ getEnvironmentVariable (positionals |> Seq.toList) with
| Ok (result, _) -> result
| Error e ->
@@ -4054,6 +4110,14 @@ module ContainsFlagDefaultValueArgParse =
go ParseState_ContainsFlagDefaultValue.AwaitingKey args
if 0 = errors_.Count then
()
else
errors_
|> String.concat System.Environment.NewLine
|> (fun x -> "Errors during parse!\n" + x)
|> failwith
match inProgress.Assemble_ getEnvironmentVariable (positionals |> Seq.toList) with
| Ok (result, _) -> result
| Error e ->
@@ -4147,6 +4211,14 @@ module ContainsFlagEnvVarArgParse =
go ParseState_ContainsFlagEnvVar.AwaitingKey args
if 0 = errors_.Count then
()
else
errors_
|> String.concat System.Environment.NewLine
|> (fun x -> "Errors during parse!\n" + x)
|> failwith
match inProgress.Assemble_ getEnvironmentVariable (positionals |> Seq.toList) with
| Ok (result, _) -> result
| Error e ->
@@ -4238,6 +4310,14 @@ module WithFlagDuArgParse =
go ParseState_WithFlagDu.AwaitingKey args
if 0 = errors_.Count then
()
else
errors_
|> String.concat System.Environment.NewLine
|> (fun x -> "Errors during parse!\n" + x)
|> failwith
match inProgress.Assemble_ getEnvironmentVariable (positionals |> Seq.toList) with
| Ok (result, _) -> result
| Error e ->
@@ -4331,6 +4411,14 @@ module ContainsBoolEnvVarArgParse =
go ParseState_ContainsBoolEnvVar.AwaitingKey args
if 0 = errors_.Count then
()
else
errors_
|> String.concat System.Environment.NewLine
|> (fun x -> "Errors during parse!\n" + x)
|> failwith
match inProgress.Assemble_ getEnvironmentVariable (positionals |> Seq.toList) with
| Ok (result, _) -> result
| Error e ->
@@ -4424,6 +4512,14 @@ module ChoicePositionalsArgParse =
go ParseState_ChoicePositionals.AwaitingKey args
if 0 = errors_.Count then
()
else
errors_
|> String.concat System.Environment.NewLine
|> (fun x -> "Errors during parse!\n" + x)
|> failwith
match inProgress.Assemble_ getEnvironmentVariable (positionals |> Seq.toList) with
| Ok (result, _) -> result
| Error e ->
@@ -4517,6 +4613,14 @@ module ParentRecordSelfPosArgParse =
go ParseState_ParentRecordSelfPos.AwaitingKey args
if 0 = errors_.Count then
()
else
errors_
|> String.concat System.Environment.NewLine
|> (fun x -> "Errors during parse!\n" + x)
|> failwith
match inProgress.Assemble_ getEnvironmentVariable (positionals |> Seq.toList) with
| Ok (result, _) -> result
| Error e ->
@@ -4610,6 +4714,14 @@ module ParentRecordChildPosArgParse =
go ParseState_ParentRecordChildPos.AwaitingKey args
if 0 = errors_.Count then
()
else
errors_
|> String.concat System.Environment.NewLine
|> (fun x -> "Errors during parse!\n" + x)
|> failwith
match inProgress.Assemble_ getEnvironmentVariable (positionals |> Seq.toList) with
| Ok (result, _) -> result
| Error e ->
@@ -4701,6 +4813,14 @@ module ParentRecordArgParse =
go ParseState_ParentRecord.AwaitingKey args
if 0 = errors_.Count then
()
else
errors_
|> String.concat System.Environment.NewLine
|> (fun x -> "Errors during parse!\n" + x)
|> failwith
match inProgress.Assemble_ getEnvironmentVariable (positionals |> Seq.toList) with
| Ok (result, _) -> result
| Error e ->
@@ -4792,6 +4912,14 @@ module DatesAndTimesArgParse =
go ParseState_DatesAndTimes.AwaitingKey args
if 0 = errors_.Count then
()
else
errors_
|> String.concat System.Environment.NewLine
|> (fun x -> "Errors during parse!\n" + x)
|> failwith
match inProgress.Assemble_ getEnvironmentVariable (positionals |> Seq.toList) with
| Ok (result, _) -> result
| Error e ->
@@ -4878,6 +5006,14 @@ module LoadsOfTypesNoPositionals =
go ParseState_LoadsOfTypesNoPositionals.AwaitingKey args
if 0 = errors_.Count then
()
else
errors_
|> String.concat System.Environment.NewLine
|> (fun x -> "Errors during parse!\n" + x)
|> failwith
match inProgress.Assemble_ getEnvironmentVariable (positionals |> Seq.toList) with
| Ok (result, _) -> result
| Error e ->
@@ -4962,6 +5098,14 @@ module LoadsOfTypes =
go ParseState_LoadsOfTypes.AwaitingKey args
if 0 = errors_.Count then
()
else
errors_
|> String.concat System.Environment.NewLine
|> (fun x -> "Errors during parse!\n" + x)
|> failwith
match inProgress.Assemble_ getEnvironmentVariable (positionals |> Seq.toList) with
| Ok (result, _) -> result
| Error e ->
@@ -5048,6 +5192,14 @@ module BasicWithIntPositionals =
go ParseState_BasicWithIntPositionals.AwaitingKey args
if 0 = errors_.Count then
()
else
errors_
|> String.concat System.Environment.NewLine
|> (fun x -> "Errors during parse!\n" + x)
|> failwith
match inProgress.Assemble_ getEnvironmentVariable (positionals |> Seq.toList) with
| Ok (result, _) -> result
| Error e ->
@@ -5132,6 +5284,14 @@ module Basic =
go ParseState_Basic.AwaitingKey args
if 0 = errors_.Count then
()
else
errors_
|> String.concat System.Environment.NewLine
|> (fun x -> "Errors during parse!\n" + x)
|> failwith
match inProgress.Assemble_ getEnvironmentVariable (positionals |> Seq.toList) with
| Ok (result, _) -> result
| Error e ->
@@ -5218,6 +5378,14 @@ module BasicNoPositionals =
go ParseState_BasicNoPositionals.AwaitingKey args
if 0 = errors_.Count then
()
else
errors_
|> String.concat System.Environment.NewLine
|> (fun x -> "Errors during parse!\n" + x)
|> failwith
match inProgress.Assemble_ getEnvironmentVariable (positionals |> Seq.toList) with
| Ok (result, _) -> result
| Error e ->

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

@@ -1929,8 +1929,8 @@ module internal ShibaGenerator =
SynPat.named "args"
|> SynPat.annotateType (SynType.appPostfix "list" SynType.string)
let raiseErrors =
SynExpr.createIdent "e"
let raiseErrors (errorIdent : Ident) =
SynExpr.createIdent' errorIdent
|> SynExpr.pipeThroughFunction (
SynExpr.applyFunction
(SynExpr.createLongIdent [ "String" ; "concat" ])
@@ -1950,11 +1950,19 @@ module internal ShibaGenerator =
(SynExpr.createLongIdent' [ parseStateIdent ; Ident.create "AwaitingKey" ])
|> SynExpr.applyTo (SynExpr.createIdent "args")
SynExpr.ifThenElse
(SynExpr.dotGet "Count" (SynExpr.createIdent "errors_")
|> SynExpr.equals (SynExpr.CreateConst 0))
(raiseErrors (Ident.create "errors_"))
(SynExpr.CreateConst ())
[
SynMatchClause.create
(SynPat.nameWithArgs "Ok" [ SynPat.tuple [ SynPat.named "result" ; SynPat.anon ] ])
(SynExpr.createIdent "result")
SynMatchClause.create (SynPat.nameWithArgs "Error" [ SynPat.named "e" ]) raiseErrors
SynMatchClause.create
(SynPat.nameWithArgs "Error" [ SynPat.named "e" ])
(raiseErrors (Ident.create "e"))
]
|> SynExpr.createMatch (
SynExpr.callMethodArg