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

Implement $EXECUTABLE_NAME

Browse Source
This commit is contained in:
HAYAMA_Kaoru
2024-12-02 10:28:27 +09:00
parent ab0e2b12a3
commit 9c73fd4215
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
main.go
+7 -2
View File
@@ -54,9 +54,14 @@ func mains(args []string) error {
for _, s := range args[1:] {
posixArgv = append(posixArgv, gmnlisp.String(s))
}
executable := os.Args[0]
if value, err := os.Executable(); err == nil {
executable = value
}
lisp = lisp.Let(gmnlisp.Variables{
gmnlisp.NewSymbol("args"): gmnlisp.List(posixArgv...),
gmnlisp.NewSymbol("$PROGRAM_NAME"): gmnlisp.String(args[0]),
gmnlisp.NewSymbol("args"): gmnlisp.List(posixArgv...),
gmnlisp.NewSymbol("$PROGRAM_NAME"): gmnlisp.String(args[0]),
gmnlisp.NewSymbol("$EXECUTABLE_NAME"): gmnlisp.String(executable),
})
ctx, cancel := context.WithCancel(context.Background())