Packages

ca

5.10.2
7.6.2 7.4.14 7.1.4 7.1.3 7.1.2 7.1.1 6.1.1 5.11.22 5.11.15 5.11.13 5.11.5 5.11.1 5.10.4 5.10.3 5.10.2 5.10.1 4.8.2 4.7.26 4.7.14 4.7.13 4.7.12 4.7.2 4.7.1 4.6.1 4.6.0 2.7.14 1.11.0 1.10.0 1.2.1 1.2.0 1.1.1 1.1.0 0.10.0 0.9.0 0.8.2 0.8.1 0.8.0 0.1.0

CA CXC 138 21 Certificate Authority

HexDocs

Current section

Files

Jump to
Readme
38 Versions
1 Dependency
Dependants
Files
Activity
ca priv dstu Program.fs
Raw

priv/dstu/Program.fs 

// MIT License



open System

open System.IO

open System.Text

open UA.Cryptography

open FSharp.Data



let split (ss:#seq<obj>) (s:string) =

    s.Split(ss |> Seq.map string |> Seq.toArray, StringSplitOptions.None)



let eval args =

    match split [|"-vars"; "-in"; "-out"|] (args |> String.concat " ") with

    | _ -> ()



let ret (_:unit) = 0



[<EntryPoint>]

let main args = args |> eval |> ret