github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-29 18:06:14 +03:00
Code Issues Projects Releases Wiki Activity

Add a help command.

Browse Source
This commit is contained in:
Rob Rix 2018-08-03 09:24:25 -04:00
parent 9f8850ee71
commit 8fda3f8336
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/Semantic/REPL.hs
View File

@ -121,10 +121,18 @@ step blobs recur term = do
path <- asks modulePath
span <- ask
maybe (pure ()) (\ blob -> output (showExcerpt True span blob "")) (Prelude.lookup path blobs)
help = do
output "Commands available from the prompt:"
output ""
output " :help, :? display this list of commands"
output " :list show the source code around current breakpoint"
output " :step single-step after stopping at a breakpoint"
runCommand run ":step" = run
runCommand run ":list" = list >> runCommands run
runCommand run ":help" = help >> runCommands run
runCommand run ":?" = help >> runCommands run
runCommand run s | all isSpace s = runCommands run
runCommand run other = output ("unknown command '" <> other <> "'") >> runCommands run
runCommand run other = output ("unknown command '" <> other <> "'") >> output "use :? for help" >> runCommands run
runCommands run = do
str <- prompt
runCommand run str