atagen/culr
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

create env module

Browse source
This commit is contained in:
atagen 2024-12-03 12:46:28 +11:00
parent 11df13e394
commit f897e0cbb8
2 changed files with 18 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

16
bin/main.ml
View file

@ -1,17 +1,3 @@
open Culr
let to_sixteen = Seq.ints 0 |> Seq.take 16 |> Array.of_seq
let colours =
let init_default =
to_sixteen |> Array.map (fun x -> Types.Simple x)
in
Sys.getenv_opt "CULRS"
|> Option.fold ~none:init_default ~some:Parse.parse_env_colours
let order =
let init_default = to_sixteen in
Sys.getenv_opt "CULR_ORDER"
|> Option.fold ~none:init_default ~some:Parse.parse_env_order
let () = Pipes.read_all colours order
let () = Pipes.read_all Env.colours Env.order