mirror of
https://github.com/Smaug123/WoofWare.Whippet
synced 2025-10-05 15:58:39 +00:00
da609db2ce
Some checks are pending
.NET / build (Debug) (push) Waiting to run
.NET / build (Release) (push) Waiting to run
.NET / analyzers (push) Waiting to run
.NET / check-dotnet-format (push) Waiting to run
.NET / check-nix-format (push) Waiting to run
.NET / Check links (push) Waiting to run
.NET / Check flake (push) Waiting to run
.NET / nuget-pack (push) Waiting to run
.NET / expected-pack (push) Blocked by required conditions
.NET / check-accurate-generations (push) Waiting to run
.NET / all-required-checks-complete (push) Blocked by required conditions
.NET / nuget-publish (push) Blocked by required conditions
.NET / nuget-publish-fantomas (push) Blocked by required conditions
.NET / nuget-publish-json-plugin (push) Blocked by required conditions
.NET / nuget-publish-json-attrs (push) Blocked by required conditions
.NET / nuget-publish-argparser-plugin (push) Blocked by required conditions
.NET / nuget-publish-argparser-attrs (push) Blocked by required conditions
48 lines
1.3 KiB
Forth
48 lines
1.3 KiB
Forth
namespace WoofWare.Whippet
|
|
|
|
open System
|
|
|
|
type FrameworkDescription =
|
|
{
|
|
Name : string
|
|
Version : string
|
|
}
|
|
|
|
type RuntimeOptions =
|
|
{
|
|
Tfm : string
|
|
Framework : FrameworkDescription option
|
|
Frameworks : FrameworkDescription list option
|
|
RollForward : string option
|
|
}
|
|
|
|
type RuntimeConfig =
|
|
{
|
|
RuntimeOptions : RuntimeOptions
|
|
}
|
|
|
|
[<RequireQualifiedAccess>]
|
|
type RollForward =
|
|
| Minor
|
|
| Major
|
|
| LatestPatch
|
|
| LatestMinor
|
|
| LatestMajor
|
|
| Disable
|
|
|
|
static member Parse (s : string) : RollForward =
|
|
if s.Equals ("minor", StringComparison.OrdinalIgnoreCase) then
|
|
RollForward.Minor
|
|
elif s.Equals ("major", StringComparison.OrdinalIgnoreCase) then
|
|
RollForward.Major
|
|
elif s.Equals ("latestpatch", StringComparison.OrdinalIgnoreCase) then
|
|
RollForward.LatestPatch
|
|
elif s.Equals ("latestminor", StringComparison.OrdinalIgnoreCase) then
|
|
RollForward.LatestMinor
|
|
elif s.Equals ("latestmajor", StringComparison.OrdinalIgnoreCase) then
|
|
RollForward.LatestMajor
|
|
elif s.Equals ("disable", StringComparison.OrdinalIgnoreCase) then
|
|
RollForward.Disable
|
|
else
|
|
failwith $"Could not interpret '%s{s}' as a RollForward"
|