scsh-conservatory
/
commander-s
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Minor enhancements for printenv/setenv; drop getenv 

part of darcs patch Thu Sep 22 21:06:35 EEST 2005  Martin Gasbichler <gasbichl@informatik.uni-tuebingen.de>
This commit is contained in:
eknauel 2005-09-27 16:36:38 +00:00
parent 6d3470be25
commit 89766e74db
1 changed files with 17 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
scheme/std-command.scm
View File

@ -236,19 +236,28 @@
(make-command-plugin "setenv" (make-command-plugin "setenv"
no-completer no-completer
(lambda (command args) (lambda (command args)
(setenv (car args) (cadr args))))) (case (length args)
((0) (printenv))
(register-plugin! ((1) (getenv (car args)))
(make-command-plugin "getenv" ((2)
no-completer (setenv (car args) (cadr args))
(lambda (command args) 0)
(getenv (car args))))) (else
(error "too many arguments to setenv" args))))))
(register-plugin! (register-plugin!
(make-command-plugin "printenv" (make-command-plugin "printenv"
no-completer no-completer
(lambda (command args) (lambda (command args)
(env->alist)))) (case (length args)
((0) (printenv))
((1) (getenv (car args)))
(else
(error "too many arguments to printenv"
args))))))
(define (printenv)
(env->alist))
(register-plugin! (register-plugin!
(make-command-plugin "exit" (make-command-plugin "exit"