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 $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:] { for _, s := range args[1:] {
posixArgv = append(posixArgv, gmnlisp.String(s)) posixArgv = append(posixArgv, gmnlisp.String(s))
} }
executable := os.Args[0]
if value, err := os.Executable(); err == nil {
executable = value
}
lisp = lisp.Let(gmnlisp.Variables{ lisp = lisp.Let(gmnlisp.Variables{
gmnlisp.NewSymbol("args"): gmnlisp.List(posixArgv...), gmnlisp.NewSymbol("args"): gmnlisp.List(posixArgv...),
gmnlisp.NewSymbol("$PROGRAM_NAME"): gmnlisp.String(args[0]), gmnlisp.NewSymbol("$PROGRAM_NAME"): gmnlisp.String(args[0]),
gmnlisp.NewSymbol("$EXECUTABLE_NAME"): gmnlisp.String(executable),
}) })
ctx, cancel := context.WithCancel(context.Background()) ctx, cancel := context.WithCancel(context.Background())