[augeas-devel] augeas: master - Ntp: add fudge directive

[David Lutterkort]

Gitweb:        http://git.fedorahosted.org/git/augeas.git?p=augeas.git;a=commitdiff;h=0f07863af8f2eddca215c4595bd27c9437841c0d
Commit:        0f07863af8f2eddca215c4595bd27c9437841c0d
Parent:        42a3094a1ff61ac2c4e2bb8de6e3443660c658eb
Author:        Raphael Pinson <raphink at gmail.com>
AuthorDate:    Tue Apr 7 16:16:07 2009 -0700
Committer:     David Lutterkort <lutter at redhat.com>
CommitterDate: Tue Apr 7 16:16:07 2009 -0700

Ntp: add fudge directive

Fixes ticket #59
---
 lenses/ntp.aug            |   10 +++++++++-
 lenses/tests/test_ntp.aug |    3 +++
 2 files changed, 12 insertions(+), 1 deletions(-)

diff --git a/lenses/ntp.aug b/lenses/ntp.aug
index 86bd69d..08641fb 100644
--- a/lenses/ntp.aug
+++ b/lenses/ntp.aug
@@ -30,6 +30,12 @@ module Ntp =
                    | [ sep_spc . key "dynamic" ]
     let server_record   = record "server" server_opt?
 
+
+    (* Define a fudge record *)
+    let fudge_opt_re = "refid" | "stratum"
+    let fudge_opt  = [ sep_spc . key fudge_opt_re . sep_spc . store word ]
+    let fudge_record = record "fudge" fudge_opt?
+
     (* Define simple settings *)
     let simple_setting (kw:string) = [ key kw . sep_spc . store word . eol ]
 
@@ -73,7 +79,9 @@ module Ntp =
 
     (* Define lens *)
 
-    let lns = ( comment | empty | server_record | restrict_record | simple_settings | statistics_record | filegen_record | files)*
+    let lns = ( comment | empty | server_record | fudge_record
+              | restrict_record | simple_settings | statistics_record
+              | filegen_record | files)*
 
     let filter = (incl "/etc/ntp.conf")
         . Util.stdexcl
diff --git a/lenses/tests/test_ntp.aug b/lenses/tests/test_ntp.aug
index 862491d..257bb2a 100644
--- a/lenses/tests/test_ntp.aug
+++ b/lenses/tests/test_ntp.aug
@@ -112,3 +112,6 @@ filegen clockstats file clockstats type day enable nolink
   test Ntp.lns get
     "includefile /etc/ntp/crypto/pw\n" =
     { "includefile" = "/etc/ntp/crypto/pw" }
+
+  test Ntp.lns get "fudge  127.127.1.0 stratum 10\n" =
+    { "fudge" = "127.127.1.0" { "stratum" = "10" } }