[augeas-devel] A typo fix, and generic allow-

[Matt Palmer]

Haven't tested it against multiple different sorts of allows yet, but it
feels solid.

--- interfaces.aug.orig 2009-05-11 08:05:16.000000000 +1000
+++ interfaces.aug      2009-05-11 10:31:13.000000000 +1000
@@ -39,7 +39,7 @@
 (* Define reseverved words *)
 let stanza_word = /(iface|auto|allow-[a-z-]+|mapping)/

-(* Define additional lines for mluti-line stanzas *)
+(* Define additional lines for multi-line stanzas *)
 let stanza_option = [  del /[ \t]*/ "   "
                      . key  ( /[a-z_-]+/ - stanza_word )
                      . sep_spc
@@ -55,10 +55,10 @@
 let auto = [ array /(allow-)?auto/ "auto" . (comment|eol) ]

 (************************************************************************
- *                              HOTPLUG
+ *                              GENERIC ALLOW
  *************************************************************************)

-let hotplug = [ stanza_id "allow-hotplug" . (comment|eol) ]
+let allow = [ key /allow-[a-z-]+/ . counter "allow_seq" . [ sep_spc . seq "allow_seq" . sto_to_spc ]+ ]

 (************************************************************************
  *                              MAPPING
@@ -89,7 +89,7 @@
    come after an auto or hotplug stanza, otherwise they are considered part
    of a iface or mapping block *)

-let stanza_single = (auto|hotplug) . (comment|empty)*
+let stanza_single = (auto|allow) . (comment|empty)*
 let stanza_multi  = iface|mapping

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