tildetown
/
nicethings
2
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Simplified pattern matching with match expander

cleanup
m455 2020-07-16 10:26:22 -04:00
parent c54b8a0d6b
commit 6274772069
1 changed files with 11 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
src/nicethings.rkt
View File

@ -304,35 +304,19 @@
(define (args-ref number)
(vector-ref vectorof-args number))
(match vectorof-args
[(vector a)
(cond
[(ormap (lambda (x) (equal? a x))
(list help-command-1
help-command-2
help-command-3))
(help)]
[(equal? a ls-command)
(ls)]
[(equal? a init-command)
(init)]
[else (displayln-messages-ref 'error-incorrect-usage)])]
[(vector a _)
(cond
[(equal? a add-command)
(add (args-ref 1))]
[(equal? a rm-command)
(rm (args-ref 1))]
[else (displayln-messages-ref 'error-incorrect-usage)])]
[(or (vector (== help-command-1))
(vector (== help-command-2))
(vector (== help-command-3))) (help)]
[(vector (== ls-command)) (ls)]
[(vector (== init-command)) (init)]
[(vector (== add-command) _) (add (args-ref 1))]
[(vector (== rm-command) _) (rm (args-ref 1))]
[(vector _ _ _ ...)
(displayln-messages-ref 'error-too-many-arguments)]
[(vector _ _)
(displayln-messages-ref 'error-incorrect-usage)]
[(vector _)
(displayln-messages-ref 'error-incorrect-usage)]
[_ (random-message)]))
(define (main vectorof-args)