From 7bad1f085369de5544f8b06e7e0704d7030c3506 Mon Sep 17 00:00:00 2001 From: Kaarle Ritvanen Date: Mon, 13 Jul 2015 14:51:37 +0300 Subject: [PATCH 11/15] Shellvars: allow && and || constructs after condition --- lenses/shellvars.aug | 8 ++++++-- lenses/tests/test_shellvars.aug | 8 ++++++++ 2 files changed, 14 insertions(+), 2 deletions(-) diff --git a/lenses/shellvars.aug b/lenses/shellvars.aug index bb0e875..3fce699 100644 --- a/lenses/shellvars.aug +++ b/lenses/shellvars.aug @@ -34,7 +34,7 @@ module Shellvars = let xchgs = Build.xchgs let semicol = del /;?/ "" - let char = /[^`;()'"|\n\\# \t]#*|\\\\(.|\n)/ + let char = /[^`;()'"&|\n\\# \t]#*|\\\\(.|\n)/ let dquot = let char = /[^"\\]|\\\\./ | Rx.cl in "\"" . char* . "\"" (* " Emacs, relax *) @@ -98,9 +98,13 @@ module Shellvars = . ( Util.del_ws_spc . store Rx.integer )? let condition = - let cond (start:string) (end:string) = [ label "type" . store start ] + let action (operator:string) (lbl:string) = + [ Sep.opt_space . Util.del_str operator . Sep.opt_space + . label lbl . sto_to_semicol ] + in let cond (start:string) (end:string) = [ label "type" . store start ] . Util.del_ws_spc . sto_to_semicol . Util.del_ws_spc . Util.del_str end + . ( action "&&" "@and" | action "||" "@or" )* in Util.indent . label "@condition" . (cond "[" "]" | cond "[[" "]]") diff --git a/lenses/tests/test_shellvars.aug b/lenses/tests/test_shellvars.aug index a397431..ae432fa 100644 --- a/lenses/tests/test_shellvars.aug +++ b/lenses/tests/test_shellvars.aug @@ -596,6 +596,14 @@ esac\n" = } } + (* Allow && and || constructs after condition *) + test Shellvars.lns get "[ -f $FILENAME ] && do this || or that\n" = + { "@condition" = "-f $FILENAME" + { "type" = "[" } + { "@and" = "do this" } + { "@or" = "or that" } + } + (* Local Variables: *) (* mode: caml *) (* End: *) -- 2.1.0