mirror of
https://github.com/Smaug123/WoofWare.PawPrint
synced 2025-10-05 22:28:38 +00:00
31 lines
793 B
Forth
31 lines
793 B
Forth
namespace WoofWare.PawPrint
|
|
|
|
open System
|
|
open System.Reflection
|
|
open System.Reflection.Metadata
|
|
|
|
type AssemblyReference =
|
|
{
|
|
/// A handle relative to the specified assembly.
|
|
Handle : AssemblyReferenceHandle * AssemblyName
|
|
Culture : StringToken
|
|
Flags : AssemblyFlags
|
|
Name : AssemblyName
|
|
Version : Version
|
|
}
|
|
|
|
[<RequireQualifiedAccess>]
|
|
module AssemblyReference =
|
|
let make
|
|
(handle : AssemblyReferenceHandle * AssemblyName)
|
|
(ref : System.Reflection.Metadata.AssemblyReference)
|
|
: AssemblyReference
|
|
=
|
|
{
|
|
Handle = handle
|
|
Culture = StringToken.String ref.Culture
|
|
Flags = ref.Flags
|
|
Name = ref.GetAssemblyName ()
|
|
Version = ref.Version
|
|
}
|