[augeas-devel] [PATCH 3 of 4] Allow indentation for every field

[Raphael Pinson]

# HG changeset patch
# User Raphael Pinson <raphink at gmail.com>
# Date 1218542252 -7200
# Node ID a3d968442eb9796287b00092a65c5dd6768d6302
# Parent  a4d10e80f1b9cced80837440a00e3ac5cbee30b4
Allow indentation for every field

diff -r a4d10e80f1b9 -r a3d968442eb9 lenses/sudoers.aug
--- a/lenses/sudoers.aug	Tue Aug 12 13:52:36 2008 +0200
+++ b/lenses/sudoers.aug	Tue Aug 12 13:57:32 2008 +0200
@@ -27,6 +27,7 @@ module Sudoers =
     ***********************************************************************************)
 
     let eol       = del /[ \t]*\n/ "\n"
+    let indent    = del /[ \t]+/ ""
 
     (* Define separators *)
     let sep_spc  = del /[ \t]+/ " " 
@@ -80,7 +81,7 @@ module Sudoers =
     (***********************************************************************************
     *  Alias_Type NAME = item1, item2, item3 : NAME = item4, item5
     ***********************************************************************************)
-    let alias_entry (kw:string) (field:string) (sto:lens)        = [ key kw . sep_cont . alias_entry_single field sto
+    let alias_entry (kw:string) (field:string) (sto:lens)        = [ indent? . key kw . sep_cont . alias_entry_single field sto
                                                                  . ( sep_col . alias_entry_single field sto )* . eol ]
 
     (* TODO: go further in user definitions *)
@@ -139,7 +140,7 @@ module Sudoers =
     (***********************************************************************************
     *  Default_Entry ::= Default_Type Parameter_List
     ***********************************************************************************)
-    let defaults = [ key "Defaults" . default_type? . sep_cont . parameter_list . eol ]
+    let defaults = [ indent? . key "Defaults" . default_type? . sep_cont . parameter_list . eol ]
 
 
 
@@ -176,7 +177,7 @@ module Sudoers =
     ***********************************************************************************)
     let spec_list = [ label "host_group" . alias_list "host" sto_to_com . sep_eq . cmnd_spec_list ]
 
-    let spec = [ label "spec" 
+    let spec = [ label "spec" . indent?
                               . alias_list "user" sto_to_com_user . sep_cont
                               . spec_list
 			      . ( sep_col . spec_list )* . eol ]