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

Expand README, including spec, plus a few minor adjustments to match spec

Browse source
This commit is contained in:
Juno Takano 2025-04-09 03:13:17 -03:00
commit 90ff49cb90
4 changed files with 76 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

2
ocaml/lib/parsers/argument.ml
View file

@ -13,7 +13,7 @@ let interpret (past: Schema.schema) (input: string list): Schema.schema =
match input with
| "pkg" :: tail -> System.Package.merge past tail
| "os" :: _ -> say (System.File.read "/etc/os-release")
| "host" :: _ -> say (System.Process.Reader.read [||] "hostname").output
| "user" :: _ -> say (System.Process.Reader.read [||] "whoami").output
| "echo" :: tail -> say (String.concat " " tail)
| ("version" | "-v" | "--version") :: _ ->
say (Schema.format_version future.meta.version)