diff options
| author | P. J. McDermott <pj@pehjota.net> | 2016-02-20 02:11:59 (EST) |
|---|---|---|
| committer | P. J. McDermott <pj@pehjota.net> | 2016-02-20 02:11:59 (EST) |
| commit | a872bf87e2949019e457242a3099a22087ef79e9 (patch) | |
| tree | cb9c1e84d28190893d986ba99568e6031352717a | |
| parent | 899b2d00b7e26699c68d8b73cf6e85ce755a28b4 (diff) | |
| download | eggshell-a872bf87e2949019e457242a3099a22087ef79e9.zip eggshell-a872bf87e2949019e457242a3099a22087ef79e9.tar.gz eggshell-a872bf87e2949019e457242a3099a22087ef79e9.tar.bz2 | |
Implement "case" construct
| -rw-r--r-- | parsing/parse.sh | 46 |
1 files changed, 40 insertions, 6 deletions
diff --git a/parsing/parse.sh b/parsing/parse.sh index 93699f8..5ac622d 100644 --- a/parsing/parse.sh +++ b/parsing/parse.sh @@ -176,37 +176,70 @@ wordlist() case_clause() { - : TODO: Implement + if accept T_CASE; then + if expect T_WORD && linebreak && expect T_IN && linebreak; then + case_list || case_list_ns + expect T_ESAC + return 0 + fi + fi return 1 } case_list_ns() { - : TODO: Implement + if case_list && case_item_ns; then + return 0 + elif case_item_ns; then + return 0 + fi return 1 } case_list() { - : TODO: Implement + if case_item; then + while case_item; do + : + done + return 0 + fi return 1 } case_item_ns() { - : TODO: Implement + accept T_LPAREN + if pattern && expect RPAREN; then + compound_list + if linebreak; then + return 0 + fi + fi return 1 } case_item() { - : TODO: Implement + accept T_LPAREN + if pattern && expect T_RPAREN; then + if compound_list || linebreak; then + if expect T_DSEMI && linebreak; then + return 0 + fi + fi + fi return 1 } pattern() { - : TODO: Implement + if accept T_CMDNAME; then + while accept T_PIPE; do + expect T_WORD + done + return 0 + fi return 1 } @@ -486,3 +519,4 @@ try() #try 'while foo; do bar; done' #try 'while ; do ; done' #try 'foo(){ bar; }' +try 'case foo in bar) baz;; (qux) quux;; quux);; esac' |