andrius
/
gash
mirror of https://git.savannah.gnu.org/git/gash.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

resurrect help WIP

This commit is contained in:
Jan Nieuwenhuizen 2018-07-14 14:50:41 +02:00
parent 40aa82fca9
commit 3ea368ab2f
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gash/builtins.scm
View File

@ -90,14 +90,14 @@
(define (help-command . _)
(display "\
Hello, this is gash, Guile As SHell.
Hello, this is GASH, Guile As SHell.
Gash is work in progress; many language constructs work, globbing
GASH is work in progress; many language constructs work, globbing
mostly works, pipes work, some redirections work.
")
(when (or %prefer-builtins? (not (PATH-search-path "ls")))
(display "\nIt features the following, somewhat naive builtin commands\n")
(display-tabulated (map car %commands))))
(display-tabulated (map car %builtin-commands))))
(define (cp-command-implementation source dest . rest)
(copy-file source dest))
@ -110,7 +110,7 @@ mostly works, pipes work, some redirections work.
("cat" . ,cat-command)
("cd" . ,cd-command)
("cp" . ,cp-command)
("echo" . ,echo-command) BROKEN wrt variables for now
("echo" . ,echo-command)
("exit" . ,exit-command)
("fg" . ,fg-command)
("help" . ,help-command)