Committed as <meta http-equiv="content-type" content="text/html; charset=utf-8"><span class="Apple-style-span" style="font-family: monospace; font-size: 12px; ">ec6ae8dc3013a7d4157374e3c3e94ba321da692b</span><br><br><div class="gmail_quote">
On Fri, Oct 29, 2010 at 5:27 AM, Raphael Pinson <span dir="ltr"><<a href="mailto:raphink@gmail.com">raphink@gmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
This patch maps service names in xinetd.aug as node values instead of node names to prevent variable node names in the tree and comply with the new inetd.aug tree.<br>
<br>
As this is done, there is no need to exclude /include|includedir|defaults/ from the service regexp anymore.<br>
<br>
---<br>
 lenses/tests/test_xinetd.aug |    7 ++++---<br>
 lenses/xinetd.aug            |    4 ++--<br>
 2 files changed, 6 insertions(+), 5 deletions(-)<br>
<br>
diff --git a/lenses/tests/test_xinetd.aug b/lenses/tests/test_xinetd.aug<br>
index c49496b..d728d73 100644<br>
--- a/lenses/tests/test_xinetd.aug<br>
+++ b/lenses/tests/test_xinetd.aug<br>
@@ -45,7 +45,7 @@ test Xinetd.lns get cvs =<br>
   { "#comment" = "files. CVS stores all the versions of a file in a single" }<br>
   { "#comment" = "file in a clever way that only stores the differences" }<br>
   { "#comment" = "between versions." }<br>
-  { "cvspserver"<br>
+  { "service" = "cvspserver"<br>
       { "disable" = "yes" }<br>
       { "port" = "2401" }<br>
       { "socket_type" = "stream" }<br>
@@ -63,11 +63,12 @@ test Xinetd.lns get cvs =<br>
       { "log_on_failure" { "add" } { "value" = "HOST" } } }<br>
<br>
 (* Switch the '+=' to a simple '=' *)<br>
-test Xinetd.lns put lst_add after rm "/svc_add/log_on_failure/add" =<br>
+test Xinetd.lns put lst_add after rm "/service/log_on_failure/add" =<br>
   "service svc_add\n{\n   log_on_failure = HOST\n}\n"<br>
<br>
 test Xinetd.lns put "" after<br>
-  set "/svc/instances" "UNLIMITED" = "service svc<br>
+  set "/service" "svc";<br>
+  set "/service/instances" "UNLIMITED" = "service svc<br>
 {<br>
 \tinstances = UNLIMITED<br>
 }<br>
diff --git a/lenses/xinetd.aug b/lenses/xinetd.aug<br>
index f0a7f2c..07748f8 100644<br>
--- a/lenses/xinetd.aug<br>
+++ b/lenses/xinetd.aug<br>
@@ -102,8 +102,8 @@ module Xinetd =<br>
                      . Util.del_ws_spc . store /[^ \t\n]+/ . eol ]<br>
<br>
   let service =<br>
-     let key_re = /[^# \t\n\/]+/ - /include|includedir|defaults/ in<br>
-     [ del /service[ \t]+/ "service " . key key_re . body service_attr ]<br>
+     let sto_re = /[^# \t\n\/]+/ in<br>
+     [ key "service" . Sep.space . store sto_re . body service_attr ]<br>
<br>
   let defaults = [ key "defaults" . del /[ \t]*/ "" . body default_attr ]<br>
<font color="#888888"><br>
--<br>
1.7.0.4<br>
<br>
</font></blockquote></div><br>