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

Add help text placeholder

Browse Source
This commit is contained in:
Smaug123
2025-04-17 21:38:44 +01:00
parent 75ce8c1f64
commit 3ed8d4db00
2 changed files with 75 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

58
ConsumePlugin/GeneratedArgs.fs
View File

@@ -196,6 +196,9 @@ module internal ArgParseHelpers_ConsumePlugin =
else else
false false
/// Compute help text for this parser, optionally noting the given prefix on each argument and indenting each line by this many spaces.
static member HelpText_ (prefix : string option) (indent : int) : string = failwith "TODO"
/// A partially-parsed Basic. /// A partially-parsed Basic.
type internal Basic_InProgress = type internal Basic_InProgress =
{ {
@@ -393,6 +396,9 @@ module internal ArgParseHelpers_ConsumePlugin =
else else
false false
/// Compute help text for this parser, optionally noting the given prefix on each argument and indenting each line by this many spaces.
static member HelpText_ (prefix : string option) (indent : int) : string = failwith "TODO"
/// A partially-parsed BasicWithIntPositionals. /// A partially-parsed BasicWithIntPositionals.
type internal BasicWithIntPositionals_InProgress = type internal BasicWithIntPositionals_InProgress =
{ {
@@ -594,6 +600,9 @@ module internal ArgParseHelpers_ConsumePlugin =
else else
false false
/// Compute help text for this parser, optionally noting the given prefix on each argument and indenting each line by this many spaces.
static member HelpText_ (prefix : string option) (indent : int) : string = failwith "TODO"
/// A partially-parsed LoadsOfTypes. /// A partially-parsed LoadsOfTypes.
type internal LoadsOfTypes_InProgress = type internal LoadsOfTypes_InProgress =
{ {
@@ -998,6 +1007,9 @@ module internal ArgParseHelpers_ConsumePlugin =
else else
false false
/// Compute help text for this parser, optionally noting the given prefix on each argument and indenting each line by this many spaces.
static member HelpText_ (prefix : string option) (indent : int) : string = failwith "TODO"
/// A partially-parsed LoadsOfTypesNoPositionals. /// A partially-parsed LoadsOfTypesNoPositionals.
type internal LoadsOfTypesNoPositionals_InProgress = type internal LoadsOfTypesNoPositionals_InProgress =
{ {
@@ -1370,6 +1382,9 @@ module internal ArgParseHelpers_ConsumePlugin =
else else
false false
/// Compute help text for this parser, optionally noting the given prefix on each argument and indenting each line by this many spaces.
static member HelpText_ (prefix : string option) (indent : int) : string = failwith "TODO"
/// A partially-parsed DatesAndTimes. /// A partially-parsed DatesAndTimes.
type internal DatesAndTimes_InProgress = type internal DatesAndTimes_InProgress =
{ {
@@ -1584,6 +1599,8 @@ module internal ArgParseHelpers_ConsumePlugin =
/// Returns false if we didn't set a value. /// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool = false member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool = false
/// Compute help text for this parser, optionally noting the given prefix on each argument and indenting each line by this many spaces.
static member HelpText_ (prefix : string option) (indent : int) : string = failwith "TODO"
/// A partially-parsed ChildRecord. /// A partially-parsed ChildRecord.
type internal ChildRecord_InProgress = type internal ChildRecord_InProgress =
@@ -1716,6 +1733,8 @@ module internal ArgParseHelpers_ConsumePlugin =
/// Returns false if we didn't set a value. /// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool = false member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool = false
/// Compute help text for this parser, optionally noting the given prefix on each argument and indenting each line by this many spaces.
static member HelpText_ (prefix : string option) (indent : int) : string = failwith "TODO"
/// A partially-parsed ParentRecord. /// A partially-parsed ParentRecord.
type internal ParentRecord_InProgress = type internal ParentRecord_InProgress =
@@ -1868,6 +1887,9 @@ module internal ArgParseHelpers_ConsumePlugin =
else else
false false
/// Compute help text for this parser, optionally noting the given prefix on each argument and indenting each line by this many spaces.
static member HelpText_ (prefix : string option) (indent : int) : string = failwith "TODO"
/// A partially-parsed ChildRecordWithPositional. /// A partially-parsed ChildRecordWithPositional.
type internal ChildRecordWithPositional_InProgress = type internal ChildRecordWithPositional_InProgress =
{ {
@@ -1998,6 +2020,8 @@ module internal ArgParseHelpers_ConsumePlugin =
/// Returns false if we didn't set a value. /// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool = false member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool = false
/// Compute help text for this parser, optionally noting the given prefix on each argument and indenting each line by this many spaces.
static member HelpText_ (prefix : string option) (indent : int) : string = failwith "TODO"
/// A partially-parsed ParentRecordChildPos. /// A partially-parsed ParentRecordChildPos.
type internal ParentRecordChildPos_InProgress = type internal ParentRecordChildPos_InProgress =
@@ -2150,6 +2174,9 @@ module internal ArgParseHelpers_ConsumePlugin =
else else
false false
/// Compute help text for this parser, optionally noting the given prefix on each argument and indenting each line by this many spaces.
static member HelpText_ (prefix : string option) (indent : int) : string = failwith "TODO"
/// A partially-parsed ParentRecordSelfPos. /// A partially-parsed ParentRecordSelfPos.
type internal ParentRecordSelfPos_InProgress = type internal ParentRecordSelfPos_InProgress =
{ {
@@ -2291,6 +2318,8 @@ module internal ArgParseHelpers_ConsumePlugin =
/// Returns false if we didn't set a value. /// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool = false member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool = false
/// Compute help text for this parser, optionally noting the given prefix on each argument and indenting each line by this many spaces.
static member HelpText_ (prefix : string option) (indent : int) : string = failwith "TODO"
/// A partially-parsed ChoicePositionals. /// A partially-parsed ChoicePositionals.
type internal ChoicePositionals_InProgress = type internal ChoicePositionals_InProgress =
@@ -2385,6 +2414,8 @@ module internal ArgParseHelpers_ConsumePlugin =
/// Returns false if we didn't set a value. /// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool = false member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool = false
/// Compute help text for this parser, optionally noting the given prefix on each argument and indenting each line by this many spaces.
static member HelpText_ (prefix : string option) (indent : int) : string = failwith "TODO"
/// A partially-parsed ContainsBoolEnvVar. /// A partially-parsed ContainsBoolEnvVar.
type internal ContainsBoolEnvVar_InProgress = type internal ContainsBoolEnvVar_InProgress =
@@ -2513,6 +2544,9 @@ module internal ArgParseHelpers_ConsumePlugin =
else else
false false
/// Compute help text for this parser, optionally noting the given prefix on each argument and indenting each line by this many spaces.
static member HelpText_ (prefix : string option) (indent : int) : string = failwith "TODO"
/// A partially-parsed WithFlagDu. /// A partially-parsed WithFlagDu.
type internal WithFlagDu_InProgress = type internal WithFlagDu_InProgress =
{ {
@@ -2645,6 +2679,9 @@ module internal ArgParseHelpers_ConsumePlugin =
else else
false false
/// Compute help text for this parser, optionally noting the given prefix on each argument and indenting each line by this many spaces.
static member HelpText_ (prefix : string option) (indent : int) : string = failwith "TODO"
/// A partially-parsed ContainsFlagEnvVar. /// A partially-parsed ContainsFlagEnvVar.
type internal ContainsFlagEnvVar_InProgress = type internal ContainsFlagEnvVar_InProgress =
{ {
@@ -2799,6 +2836,9 @@ module internal ArgParseHelpers_ConsumePlugin =
else else
false false
/// Compute help text for this parser, optionally noting the given prefix on each argument and indenting each line by this many spaces.
static member HelpText_ (prefix : string option) (indent : int) : string = failwith "TODO"
/// A partially-parsed ContainsFlagDefaultValue. /// A partially-parsed ContainsFlagDefaultValue.
type internal ContainsFlagDefaultValue_InProgress = type internal ContainsFlagDefaultValue_InProgress =
{ {
@@ -2929,6 +2969,9 @@ module internal ArgParseHelpers_ConsumePlugin =
else else
false false
/// Compute help text for this parser, optionally noting the given prefix on each argument and indenting each line by this many spaces.
static member HelpText_ (prefix : string option) (indent : int) : string = failwith "TODO"
/// A partially-parsed ManyLongForms. /// A partially-parsed ManyLongForms.
type internal ManyLongForms_InProgress = type internal ManyLongForms_InProgress =
{ {
@@ -3138,6 +3181,9 @@ module internal ArgParseHelpers_ConsumePlugin =
else else
false false
/// Compute help text for this parser, optionally noting the given prefix on each argument and indenting each line by this many spaces.
static member HelpText_ (prefix : string option) (indent : int) : string = failwith "TODO"
/// A partially-parsed FlagsIntoPositionalArgs. /// A partially-parsed FlagsIntoPositionalArgs.
type internal FlagsIntoPositionalArgs_InProgress = type internal FlagsIntoPositionalArgs_InProgress =
{ {
@@ -3270,6 +3316,8 @@ module internal ArgParseHelpers_ConsumePlugin =
/// Returns false if we didn't set a value. /// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool = false member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool = false
/// Compute help text for this parser, optionally noting the given prefix on each argument and indenting each line by this many spaces.
static member HelpText_ (prefix : string option) (indent : int) : string = failwith "TODO"
/// A partially-parsed FlagsIntoPositionalArgsChoice. /// A partially-parsed FlagsIntoPositionalArgsChoice.
type internal FlagsIntoPositionalArgsChoice_InProgress = type internal FlagsIntoPositionalArgsChoice_InProgress =
@@ -3393,6 +3441,8 @@ module internal ArgParseHelpers_ConsumePlugin =
/// Returns false if we didn't set a value. /// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool = false member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool = false
/// Compute help text for this parser, optionally noting the given prefix on each argument and indenting each line by this many spaces.
static member HelpText_ (prefix : string option) (indent : int) : string = failwith "TODO"
/// A partially-parsed FlagsIntoPositionalArgsInt. /// A partially-parsed FlagsIntoPositionalArgsInt.
type internal FlagsIntoPositionalArgsInt_InProgress = type internal FlagsIntoPositionalArgsInt_InProgress =
@@ -3530,6 +3580,8 @@ module internal ArgParseHelpers_ConsumePlugin =
/// Returns false if we didn't set a value. /// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool = false member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool = false
/// Compute help text for this parser, optionally noting the given prefix on each argument and indenting each line by this many spaces.
static member HelpText_ (prefix : string option) (indent : int) : string = failwith "TODO"
/// A partially-parsed FlagsIntoPositionalArgsIntChoice. /// A partially-parsed FlagsIntoPositionalArgsIntChoice.
type internal FlagsIntoPositionalArgsIntChoice_InProgress = type internal FlagsIntoPositionalArgsIntChoice_InProgress =
@@ -3657,6 +3709,8 @@ module internal ArgParseHelpers_ConsumePlugin =
/// Returns false if we didn't set a value. /// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool = false member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool = false
/// Compute help text for this parser, optionally noting the given prefix on each argument and indenting each line by this many spaces.
static member HelpText_ (prefix : string option) (indent : int) : string = failwith "TODO"
/// A partially-parsed FlagsIntoPositionalArgs'. /// A partially-parsed FlagsIntoPositionalArgs'.
type internal FlagsIntoPositionalArgs'_InProgress = type internal FlagsIntoPositionalArgs'_InProgress =
@@ -3794,6 +3848,8 @@ module internal ArgParseHelpers_ConsumePlugin =
/// Returns false if we didn't set a value. /// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool = false member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool = false
/// Compute help text for this parser, optionally noting the given prefix on each argument and indenting each line by this many spaces.
static member HelpText_ (prefix : string option) (indent : int) : string = failwith "TODO"
/// A partially-parsed PassThru. /// A partially-parsed PassThru.
type internal PassThru_InProgress = type internal PassThru_InProgress =
@@ -3889,6 +3945,8 @@ module internal ArgParseHelpers_ConsumePlugin =
/// Returns false if we didn't set a value. /// Returns false if we didn't set a value.
member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool = false member this.SetFlagValue_ (errors_ : ResizeArray<string>) (key : string) : bool = false
/// Compute help text for this parser, optionally noting the given prefix on each argument and indenting each line by this many spaces.
static member HelpText_ (prefix : string option) (indent : int) : string = failwith "TODO"
namespace ConsumePlugin namespace ConsumePlugin
open ArgParserHelpers open ArgParserHelpers

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

@@ -1339,6 +1339,22 @@ module internal ShibaGenerator =
) )
|> SynMemberDefn.memberImplementation |> SynMemberDefn.memberImplementation
let helpText =
SynExpr.createIdent "failwith"
|> SynExpr.applyTo (SynExpr.CreateConst "TODO")
|> SynBinding.basic
[ Ident.create "HelpText_" ]
[
SynPat.named "prefix" |> SynPat.annotateType (SynType.option SynType.string)
SynPat.named "indent" |> SynPat.annotateType SynType.int
]
|> SynBinding.withXmlDoc (
PreXmlDoc.create
"Compute help text for this parser, optionally noting the given prefix on each argument and indenting each line by this many spaces."
)
|> SynBinding.withReturnAnnotation SynType.string
|> SynMemberDefn.staticMember
let emptyConstructor = let emptyConstructor =
[ [
for KeyValue (nodeName, leaf) in record.LeafNodes do for KeyValue (nodeName, leaf) in record.LeafNodes do
@@ -1501,6 +1517,7 @@ module internal ShibaGenerator =
processKeyValueChildRecords processKeyValueChildRecords
Some processKeyValue Some processKeyValue
Some setFlagValue Some setFlagValue
Some helpText
] ]
|> List.choose id |> List.choose id
|> Some |> Some