mirror of
https://github.com/Smaug123/WoofWare.PawPrint
synced 2025-10-05 14:18:40 +00:00
22 lines
666 B
Forth
22 lines
666 B
Forth
namespace WoofWare.PawPrint.Test
|
|
|
|
open System
|
|
open System.IO
|
|
open System.Reflection
|
|
|
|
[<RequireQualifiedAccess>]
|
|
module Assembly =
|
|
|
|
let getEmbeddedResource (name : string) (assy : Assembly) : Stream =
|
|
let resourceName =
|
|
assy.GetManifestResourceNames ()
|
|
|> Seq.filter (fun a -> a.EndsWith (name, StringComparison.Ordinal))
|
|
|> Seq.exactlyOne
|
|
|
|
assy.GetManifestResourceStream resourceName
|
|
|
|
let getEmbeddedResourceAsString (name : string) (assy : Assembly) : string =
|
|
use stream = getEmbeddedResource name assy
|
|
use reader = new StreamReader (stream, leaveOpen = true)
|
|
reader.ReadToEnd ()
|