jutty/tori-rs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

OCaml: Add a configuration lexer

Browse source
This commit is contained in:
Juno Takano 2025-04-30 19:46:12 -03:00
commit 902734d610
4 changed files with 129 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
ocaml/lib/system/os.ml
View file

@ -1,8 +1,7 @@
(* the side effect could be extracted to a log list in the schema *)
let identify : string =
let os_release = String.split_on_char '\n' (File.read "/etc/os-release") in
Utilities.Log.elog (String.concat "\n" os_release);
let os_equals = List.find (String.starts_with ~prefix:"NAME=") os_release in
match String.split_on_char '=' os_equals with
| [ _; s ] ->