You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
86 lines
3.2 KiB
86 lines
3.2 KiB
7 years ago
|
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.13.6
|