File persist_net_rules.patch of Package netcf

From:Patrick Mullaney <pmullaney@novell.com>

netcf: augeas lens for persistent net rules

    Signed-off-by: Patrick Mullaney <pmullaney@novell.com>
---

 0 files changed, 0 insertions(+), 0 deletions(-)


diff --git a/data/lenses/persist_net_rules.aug b/data/lenses/persist_net_rules.aug
new file mode 100644
index 0000000..6ff1080
--- /dev/null
+++ b/data/lenses/persist_net_rules.aug
@@ -0,0 +1,46 @@
+(*
+Module: Persist_Net_Rules
+  Parses /etc/udev/rules.d/70-persistent-net.rules
+*)
+module Persist_Net_Rules =
+autoload xfm
+
+let comment = Util.comment
+let empty = Util.empty
+let eol = Util.eol | Util.comment
+
+(* A separator is either whitespace or \ followed by newline *)
+let sep_ch = /[ \t]|\\\\\n/
+(* Anything that's not a separator is part of a token *)
+let tok_ch = /[^ \t\n#\\",]|\\\\[^ \t\n]/
+let optok_ch = /==/
+let optok = del optok_ch "=="
+let eq_optok_ch = /=/
+let eq_optok = del eq_optok_ch "="
+let indent = Util.del_opt_ws ""
+let comma_ch = /,/
+let commatok (n:string) = indent . del n n . indent
+
+let token = store tok_ch+
+let key_token = key /[a-z0-9]/+
+let quote_ch = /"/
+let quote = del quote_ch "\""
+
+let name_arg (n:string) = Util.del_str n . indent . eq_optok . indent . quote . key_token . quote
+let arg (n:string) = [ label n . Util.del_str n . indent . optok . indent . quote . token . quote ]
+
+let entry = [ arg "SUBSYSTEM" . commatok "," .
+		arg "ACTION" . commatok "," .
+		arg "DRIVERS" . commatok "," .
+		arg "ATTR{address}" . commatok "," .
+		( arg "ATTR{dev_id}" . commatok "," |
+		arg "ATTR{type}" . commatok "," |
+		arg "KERNEL" . commatok "," )* .
+		name_arg "NAME" .  eol ]
+
+let lns = (comment|empty|entry)*
+
+let filter = incl "/etc/udev/rules.d/70-persistent-net.rules" .
+  Util.stdexcl
+
+let xfm = transform lns filter