reformatted args.rkt
parent
d56570dcc2
commit
38e14b967e
12
args.rkt
12
args.rkt
|
@ -10,19 +10,20 @@
|
||||||
(provide (all-defined-out))
|
(provide (all-defined-out))
|
||||||
|
|
||||||
(define (check-args args)
|
(define (check-args args)
|
||||||
(let
|
(let([args-length (vector-length args)])
|
||||||
([args-length (vector-length args)])
|
(cond [(equal? args-length 0)
|
||||||
(cond
|
|
||||||
[(equal? args-length 0)
|
|
||||||
(util:display-hash-ref messages:messages 'show-usage)]
|
(util:display-hash-ref messages:messages 'show-usage)]
|
||||||
|
|
||||||
[(and
|
[(and
|
||||||
(equal? args-length 1)
|
(equal? args-length 1)
|
||||||
(equal? (vector:vector-member config:list-command args) 0))
|
(equal? (vector:vector-member config:list-command args) 0))
|
||||||
(util:show-list)]
|
(util:show-list)]
|
||||||
|
|
||||||
[(and
|
[(and
|
||||||
(equal? args-length 2)
|
(equal? args-length 2)
|
||||||
(equal? (vector-ref args 0) config:add-command))
|
(equal? (vector-ref args 0) config:add-command))
|
||||||
(util:add-item args)]
|
(util:add-item args)]
|
||||||
|
|
||||||
[(and
|
[(and
|
||||||
(equal? args-length 2)
|
(equal? args-length 2)
|
||||||
(equal? (vector:vector-member config:remove-command args) 0)
|
(equal? (vector:vector-member config:remove-command args) 0)
|
||||||
|
@ -32,13 +33,16 @@
|
||||||
(list->vector
|
(list->vector
|
||||||
(map number->string (list:rest (list:range (length (util:file->string-list config:path))))))))
|
(map number->string (list:rest (list:range (length (util:file->string-list config:path))))))))
|
||||||
(util:remove-item args)]
|
(util:remove-item args)]
|
||||||
|
|
||||||
[(and
|
[(and
|
||||||
(equal? args-length 1)
|
(equal? args-length 1)
|
||||||
(equal? (vector:vector-member config:initialize-command args) 0))
|
(equal? (vector:vector-member config:initialize-command args) 0))
|
||||||
(init:initialize)]
|
(init:initialize)]
|
||||||
|
|
||||||
[(and
|
[(and
|
||||||
(equal? args-length 1)
|
(equal? args-length 1)
|
||||||
(member (vector-ref args 0) config:help-command))
|
(member (vector-ref args 0) config:help-command))
|
||||||
(util:display-hash-ref messages:messages 'show-help)]
|
(util:display-hash-ref messages:messages 'show-help)]
|
||||||
|
|
||||||
[else
|
[else
|
||||||
(util:display-hash-ref messages:messages 'show-usage)])))
|
(util:display-hash-ref messages:messages 'show-usage)])))
|
||||||
|
|
Loading…
Reference in New Issue