Setenv for Plan 9.

1 files changed, 12 insertions, 2 deletions

diff --git a/lib/std/env+plan9.myr b/lib/std/env+plan9.myr
index bc9bd3d..23d3714 100644
--- a/lib/std/env+plan9.myr
+++ b/lib/std/env+plan9.myr
@@ -12,11 +12,13 @@ use "sldup"
 use "sleq"
 use "slpush"
 use "slurp"
+use "blat"
 use "threadhooks"
 
 pkg std =
-	const getenv :	(name : byte[:] -> option(byte[:]))
-	const getenvv :	(name : byte[:], default : byte[:] -> byte[:])
+	const getenv	: (name : byte[:] -> option(byte[:]))
+	const getenvv	: (name : byte[:], default : byte[:] -> byte[:])
+	const setenv	: (name : byte[:], val : byte[:] -> void)
 ;;
 
 var envkey 	: byte[:][:]
@@ -64,3 +66,11 @@ const getenvv = {name, default
 	| `None:	-> default
 	;;
 }
+
+const setenv = {name, val
+	var p
+
+	p = fmt("/env/{}", name)
+	blat(p, val, 0o644)
+	slfree(p)
+}