mirror of
https://github.com/Smaug123/dotnet-classical-ciphers
synced 2025-10-05 04:28:42 +00:00
23 lines
703 B
Forth
23 lines
703 B
Forth
namespace CipherSuite
|
|
|
|
open System.IO
|
|
|
|
[<RequireQualifiedAccess>]
|
|
module internal Assembly =
|
|
let loadResource (name : string) =
|
|
let assembly = System.Reflection.Assembly.GetExecutingAssembly ()
|
|
|
|
if not (assembly.GetManifestResourceNames () |> Array.contains name) then
|
|
assembly.GetManifestResourceNames ()
|
|
|> String.concat ", "
|
|
|> failwithf "bad name %s, had: %s" name
|
|
|
|
seq {
|
|
use sr = new StreamReader (assembly.GetManifestResourceStream name)
|
|
let mutable line = sr.ReadLine ()
|
|
|
|
while not (obj.ReferenceEquals (null, line)) do
|
|
yield line
|
|
line <- sr.ReadLine ()
|
|
}
|