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

Split WoofWare.PawPrint.Domain into a new subtree (#41)

Browse Source
This commit is contained in:
Patrick Stevens
2025-06-04 20:13:16 +01:00
committed by GitHub
parent 15bae6f3aa
commit 19eb7c245d
26 changed files with 62 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
WoofWare.PawPrint.Domain/StringToken.fs Normal file
View File

@@ -0,0 +1,16 @@
namespace WoofWare.PawPrint
open System.Reflection.Metadata
open System.Reflection.Metadata.Ecma335
type StringToken =
| UserString of UserStringHandle
| String of StringHandle
[<RequireQualifiedAccess>]
module StringToken =
let ofInt (value : int) : StringToken =
match LanguagePrimitives.EnumOfValue<byte, HandleKind> (byte (value &&& 0xFF000000 >>> 24)) with
| HandleKind.UserString -> StringToken.UserString (MetadataTokens.UserStringHandle value)
| HandleKind.String -> StringToken.String (MetadataTokens.StringHandle value)
| v -> failwith $"Unrecognised string handle kind: {v}"