Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Environment-variables/Mercury/environment-variables.mercury
+++ b/Task/Environment-variables/Mercury/environment-variables.mercury
@ -0,0 +1,18 @@
+:- module env_var.
+:- interface.
+
+:- import_module io.
+:- pred main(io::di, io::uo) is det.
+
+:- implementation.
+:- import_module maybe, string.
+
+main(!IO) :-
+    io.get_environment_var("HOME", MaybeValue, !IO),
+    (
+        MaybeValue = yes(Value),
+        io.write_string("HOME is " ++ Value ++ "\n", !IO)
+    ;
+        MaybeValue = no,
+        io.write_string("environment variable HOME not set\n", !IO)
+    ).