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

First release (#10)
Some checks are pending
.NET / build (Debug) (push) Waiting to run
Details
.NET / build (Release) (push) Waiting to run
Details
.NET / analyzers (push) Waiting to run
Details
.NET / check-dotnet-format (push) Waiting to run
Details
.NET / check-nix-format (push) Waiting to run
Details
.NET / Check links (push) Waiting to run
Details
.NET / Check flake (push) Waiting to run
Details
.NET / nuget-pack (push) Waiting to run
Details
.NET / expected-pack (push) Blocked by required conditions
Details
.NET / check-accurate-generations (push) Waiting to run
Details
.NET / all-required-checks-complete (push) Blocked by required conditions
Details
.NET / nuget-publish (push) Blocked by required conditions
Details
.NET / nuget-publish-fantomas (push) Blocked by required conditions
Details
.NET / nuget-publish-json-plugin (push) Blocked by required conditions
Details
.NET / nuget-publish-json-attrs (push) Blocked by required conditions
Details
.NET / nuget-publish-argparser-plugin (push) Blocked by required conditions
Details
.NET / nuget-publish-argparser-attrs (push) Blocked by required conditions
Details

Browse Source
This commit is contained in:
Patrick Stevens
2024-10-07 13:35:43 +01:00
committed by GitHub
parent dc7a0f6fc2
commit da609db2ce
60 changed files with 14225 additions and 67 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
WoofWare.Whippet.Fantomas/Measure.fs Normal file
View File

@@ -0,0 +1,26 @@
namespace WoofWare.Whippet.Fantomas
open Fantomas.FCS.Syntax
/// Methods for manipulating units of measure.
[<RequireQualifiedAccess>]
module Measure =
/// Get the function that adds an arbitrary measure to the given fully-qualified type.
/// For example, ["System" ; "Single"] would result in `LanguagePrimitives.Float32WithMeasure`.
let getLanguagePrimitivesMeasure (typeName : LongIdent) : SynExpr =
match typeName |> List.map _.idText with
| [ "System" ; "Single" ] -> [ "LanguagePrimitives" ; "Float32WithMeasure" ]
| [ "System" ; "Double" ] -> [ "LanguagePrimitives" ; "FloatWithMeasure" ]
| [ "System" ; "Byte" ] -> [ "LanguagePrimitives" ; "ByteWithMeasure" ]
| [ "System" ; "SByte" ] -> [ "LanguagePrimitives" ; "SByteWithMeasure" ]
| [ "System" ; "Int16" ] -> [ "LanguagePrimitives" ; "Int16WithMeasure" ]
| [ "System" ; "Int32" ] -> [ "LanguagePrimitives" ; "Int32WithMeasure" ]
| [ "System" ; "Int64" ] -> [ "LanguagePrimitives" ; "Int64WithMeasure" ]
| [ "System" ; "UInt16" ] -> [ "LanguagePrimitives" ; "UInt16WithMeasure" ]
| [ "System" ; "UInt32" ] -> [ "LanguagePrimitives" ; "UInt32WithMeasure" ]
| [ "System" ; "UInt64" ] -> [ "LanguagePrimitives" ; "UInt64WithMeasure" ]
| l ->
let l = String.concat "." l
failwith $"unrecognised type for measure: %s{l}"
|> SynExpr.createLongIdent