From 2765da41b09cdfcf2f28653a484462ee7109116a Mon Sep 17 00:00:00 2001

From: Dominic Cleal <dcleal@redhat.com>

Date: Fri, 12 Jun 2015 09:32:56 +0100

Subject: [PATCH] Revert "Use Quote module in dovecot"

This reverts commit 735caf587959019d214a51a7c0cce57da9bb88f6 for

compatibility with Augeas 1.1.0.

Values will have quotes in them as they did in 1.1.0, not stripped out.

Conflicts:

	lenses/dovecot.aug

---

 lenses/dovecot.aug            | 28 +++++-----------------------

 lenses/tests/test_dovecot.aug |  2 +-

 2 files changed, 6 insertions(+), 24 deletions(-)

diff --git a/lenses/dovecot.aug b/lenses/dovecot.aug

index f7afc8f9..c6376e4b 100644

--- a/lenses/dovecot.aug

+++ b/lenses/dovecot.aug

@@ -56,6 +56,9 @@ let value = any . (Rx.space . any)*

 (* View: command_start *)

 let command_start = Util.del_str "!"

+(* View: block_args 

+Map block arguments after block name and before "{" *)

+let block_args = Sep.space . store /([A-Za-z0-9\/\\_-]+|\"[A-Za-z0-9 ]*\")/

 (******************************************************************

  * Group:                        ENTRIES

@@ -79,28 +82,7 @@ let entry = [ indent . key keys. eq . (Sep.opt_space . store value)? . eol ]

 Map commands started with "!". *)

 let command = [ command_start . key commands . Sep.space . store Rx.fspath . eol ]

-(*

-View: dquote_spaces

-  Make double quotes mandatory if value contains spaces,

-  and optional if value doesn't contain spaces.

-

-Based off Quote.dquote_spaces

-

-Parameters:

-  lns1:lens - the lens before

-  lns2:lens - the lens after

-*)

-let dquote_spaces (lns1:lens) (lns2:lens) =

-     (* bare has no spaces, and is optionally quoted *)

-     let bare = Quote.do_dquote_opt (store /[^" \t\n]+/)

-     (* quoted has at least one space, and must be quoted *)

-  in let quoted = Quote.do_dquote (store /[^"\n]*[ \t]+[^"\n]*/)

-  in [ lns1 . bare . lns2 ] | [ lns1 . quoted . lns2 ]

-

-let mailbox = indent

-            . dquote_spaces

-               (key /mailbox/ . Sep.space)

-               (Build.block_newlines_spc entry comment . eol)

+let mailbox = [ indent . key /mailbox/ . block_args? . Build.block_newlines_spc (entry) comment . eol ]

 let block_ldelim_newlines_re = /[ \t]+\{([ \t\n]*\n)?/

@@ -114,7 +96,7 @@ let block_newlines (entry:lens) (comment:lens) =

 Map block enclosed in brackets recursively.

 Block may be indented and have optional argument.

 Block body may have entries, comments, empty lines, and nested blocks recursively. *)

-let rec block = [ indent . key block_names . (Sep.space . Quote.do_dquote_opt (store /[\/A-Za-z0-9_-]+/))? . block_newlines (entry|block|mailbox) comment . eol ]

+let rec block = [ indent . key block_names . block_args? . block_newlines (entry|block|mailbox) comment . eol ]

 (******************************************************************

diff --git a/lenses/tests/test_dovecot.aug b/lenses/tests/test_dovecot.aug

index 33ea16f1..8e8c083b 100644

--- a/lenses/tests/test_dovecot.aug

+++ b/lenses/tests/test_dovecot.aug

@@ -536,7 +536,7 @@ test Dovecot.lns get mail_conf =

     { "hidden" = "no" }

     { "list" = "yes" }

     { "subscriptions" = "yes" }

-    { "mailbox" = "Sent Messages" 

+    { "mailbox" = "\"Sent Messages\"" 

       { "special_use" = "\Sent" }

     }

   }

-- 

2.17.2