MiscMirror/lispect
1
0
Fork 0
mirror of https://github.com/hymkor/lispect.git synced 2026-09-02 15:17:49 -04:00
Code Issues Packages Projects Releases Wiki Activity

Implement $PROGRAM_NAME for script name

Browse Source
This commit is contained in:
HAYAMA_Kaoru
2024-12-02 10:16:19 +09:00
parent 3c5630327a
commit 69968caa69
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
main.go
+4 -1
View File
@@ -54,7 +54,10 @@ func mains(args []string) error {
for _, s := range args[1:] { for _, s := range args[1:] {
posixArgv = append(posixArgv, gmnlisp.String(s)) posixArgv = append(posixArgv, gmnlisp.String(s))
} }
lisp = lisp.Let(&gmnlisp.Pair{Key: gmnlisp.NewSymbol("args"), Value: gmnlisp.List(posixArgv...)}) lisp = lisp.Let(gmnlisp.Variables{
gmnlisp.NewSymbol("args"): gmnlisp.List(posixArgv...),
gmnlisp.NewSymbol("$PROGRAM_NAME"): gmnlisp.String(args[0]),
})
ctx, cancel := context.WithCancel(context.Background()) ctx, cancel := context.WithCancel(context.Background())
_, err = lisp.Interpret(ctx, string(script)) _, err = lisp.Interpret(ctx, string(script))