MiscMirror/lispect
1
0
Fork 0
mirror of https://github.com/hymkor/lispect.git synced 2026-09-01 22:57:46 -04:00
Code Issues Packages Projects Releases Wiki Activity

Implement (setenv KEY VAL)

Browse Source
This commit is contained in:
HAYAMA_Kaoru
2024-12-03 14:28:23 +09:00
parent d2549662e0
commit 4dc8a922c9
2 changed files with 20 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
global.go
+19
View File
@@ -190,3 +190,22 @@ func (g *Global) getenv(ctx context.Context, w *gmnlisp.World, arg gmnlisp.Node)
}
return gmnlisp.String(value), nil
}
func (g *Global) setenv(ctx context.Context, w *gmnlisp.World, __key, __val gmnlisp.Node) (gmnlisp.Node, error) {
_key, err := gmnlisp.ExpectClass[gmnlisp.String](ctx, w, __key)
if err != nil {
return nil, err
}
key := string(_key)
if gmnlisp.IsNull(__val) {
return gmnlisp.Null, os.Unsetenv(key)
}
_val, err := gmnlisp.ExpectClass[gmnlisp.String](ctx, w, __val)
if err != nil {
return nil, err
}
val := string(_val)
return gmnlisp.Null, os.Setenv(key, val)
}