[PATCH] gnu: Add ntp

[PATCH] gnu: Add ntp

[John Darrington]

* gnu/packages/ntp.scm: New file.
* gnu-system.am (gnu/packages/ntp.scm): Add it.
---
 gnu-system.am        |    1 +
 gnu/packages/ntp.scm |   47 +++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 48 insertions(+)
 create mode 100644 gnu/packages/ntp.scm

diff --git a/gnu-system.am b/gnu-system.am
index 52c8343..c808c16 100644
--- a/gnu-system.am
+++ b/gnu-system.am
@@ -182,6 +182,7 @@ GNU_SYSTEM_MODULES =				\
   gnu/packages/nettle.scm			\
   gnu/packages/node.scm				\
   gnu/packages/noweb.scm			\
+  gnu/packages/ntp.scm				\
   gnu/packages/nvi.scm				\
   gnu/packages/ocaml.scm			\
   gnu/packages/ocrad.scm			\
diff --git a/gnu/packages/ntp.scm b/gnu/packages/ntp.scm
new file mode 100644
index 0000000..be35208
--- /dev/null
+++ b/gnu/packages/ntp.scm
@@ -0,0 +1,47 @@
+;;; GNU Guix --- Functional package management for GNU
+;;; Copyright 2014  John Darrington <jmd@gnu.org>
+;;;
+;;; This file is part of GNU Guix.
+;;;
+;;; GNU Guix is free software; you can redistribute it and/or modify it
+;;; under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 3 of the License, or (at
+;;; your option) any later version.
+;;;
+;;; GNU Guix is distributed in the hope that it will be useful, but
+;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
+
+(define-module (gnu packages ntp)
+  #:use-module (gnu packages)
+  #:use-module (gnu packages which)
+  #:use-module (guix licenses)
+  #:use-module (guix packages)
+  #:use-module (guix download)
+  #:use-module (guix build-system gnu))
+
+(define-public ntp
+  (package
+   (name "ntp")
+   (version "4.2.6p5")
+   (source (origin
+	    (method url-fetch)
+	    (uri (string-append "http://www.eecis.udel.edu/~ntp/ntp_spool/ntp4/ntp-"
+                                (string-take version 3) "/ntp-" 
+                                version ".tar.gz"))
+	    (sha256
+	     (base32
+	      "077r69a41hasl8zf5c44km7cqgfhrkaj6a4jnr75j7nkz5qq7ayn"))))
+   (native-inputs `(("which" ,which)))
+   (build-system gnu-build-system)
+   (synopsis "Real time clock synchonization system")
+   (description "NTP is a system designed to synchronize the clocks of
+computers over a network.")
+   (license (x11-style 
+             "http://www.eecis.udel.edu/~mills/ntp/html/copyright.html"
+             "A non-copyleft free licence from the University of Delaware"))
+   (home-page "http://www.ntp.org")))
-- 
1.7.10.4

Re: [PATCH] gnu: Add ntp

[Mark H Weaver]

John Darrington <jmd@gnu.org> writes:

> +(define-public ntp
> +  (package
> +   (name "ntp")
> +   (version "4.2.6p5")
> +   (source (origin
> +	    (method url-fetch)
> +	    (uri (string-append "http://www.eecis.udel.edu/~ntp/ntp_spool/ntp4/ntp-"
> +                                (string-take version 3) "/ntp-" 

Instead of 'string-take', please import (srfi srfi-1) and then do this:

  (string-join (take (string-split version #\.) 2)
               ".")

We use this pattern in a number of other places -- search for
"string-join" in gnu/packages/*.scm to find them.  I suppose we should
add a procedure specifically for this, but it can wait, and it should be
in a separate commit anyway.

> +                                version ".tar.gz"))
> +	    (sha256
> +	     (base32
> +	      "077r69a41hasl8zf5c44km7cqgfhrkaj6a4jnr75j7nkz5qq7ayn"))))
> +   (native-inputs `(("which" ,which)))
> +   (build-system gnu-build-system)
> +   (synopsis "Real time clock synchonization system")
> +   (description "NTP is a system designed to synchronize the clocks of
> +computers over a network.")
> +   (license (x11-style 
> +             "http://www.eecis.udel.edu/~mills/ntp/html/copyright.html"
> +             "A non-copyleft free licence from the University of Delaware"))
> +   (home-page "http://www.ntp.org")))

Okay to commit with the change above.

    Thanks!
      Mark

Re: [PATCH] gnu: Add ntp

[Ian Denhardt]

[-- Attachment #1: Type: text/plain, Size: 410 bytes --]

Quoting Mark H Weaver (2014-10-18 12:24:56)
>   (string-join (take (string-split version #\.) 2)
>                ".")

<snip>

> I suppose we should add a procedure specifically for this, but
> it can wait, and it should be in a separate commit anyway.

I'm going to grab this and try to have a patch submitted today or
tomorrow. Does guix/utils.scm seem like a sensible place to put this?

-Ian

[-- Attachment #2: signature --]
[-- Type: application/pgp-signature, Size: 819 bytes --]

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v2

iQIcBAABAgAGBQJUQqyNAAoJEPZUuMfUyjy43CYP/R1LPUDdtDIgojVEEooQ5AiM
rPb9wBO4Q/Rn6ct7eEydt777guixAEjPDIIBK/6NUncOQ56bY9sbrYeAkObV/+2v
NP/2RKyBs1C2clNBYUeV+WVx0i1kAtfWZOUe4l7OnKOKaLcZ2yh6GfZXkTd6Oz33
GFI2mj7RYvgHYjrRytXVMya0IM3q/hz3cGLTTVxipFtqno0blG9x+SySZVSVHW26
KXiiVkAxbreIeGmCPprKr2F16IeKfiZPP538wtR4CyVJkL+mtosL1UboEZi2Ehe5
l8oalk8H0HHKqQvMVzJBn1y32nxSBsowuZ1N+Ye6JjLFA6Ket68BZP1X4KKusx3r
iPzJnYz2g9g8Tr+1Qy9DseOZGEcmhhYrpZFFKlYtDvoXataPpBUJ671KWJUmnuAR
CjTosO/F7C1DuFrBpZz0jZ0tDY1JiqpRNZw+TRjiBWm2R/CTN39++KwEeavTNQ2l
jIUhSM133Ay15zdzgS4CGnPXbbbkL9ol5R2y+rtlM/VcTFlCuxu2nlrYl5JWuXzg
7JdQ/CooPkrgs7yZ71KBaPWEdTMv8k712WbjwA/8qOuwScAJYvBUUhShyCyVUE6b
KLHcoXqkeEBxhTZE6kununmKe/p67bvsfKt2XjagHP1xiq0JbyOWOzUy6ty1TNBC
rGotZ4lAGBUodv43MGfo
=DMux
-----END PGP SIGNATURE-----

Re: [PATCH] gnu: Add ntp

[Mark H Weaver]

Ian Denhardt <ian@zenhack.net> writes:

> Quoting Mark H Weaver (2014-10-18 12:24:56)
>>   (string-join (take (string-split version #\.) 2)
>>                ".")
>
> <snip>
>
>> I suppose we should add a procedure specifically for this, but
>> it can wait, and it should be in a separate commit anyway.
>
> I'm going to grab this and try to have a patch submitted today or
> tomorrow.

Sounds good!

> Does guix/utils.scm seem like a sensible place to put this?

Yes, it fits in well with 'version-compare' and 'version>?'.

    Thanks,
      Mark