Paste number 322961: mtr.scm

Index of paste annotations: 1 | 2 | 3 | 4

Paste number 322961: mtr.scm
Pasted by: kocio_
When:3 years, 9 months ago
Share:Tweet this! | http://paste.lisp.org/+6X75
Channel:None
Paste contents:
Raw Source | XML | Display As
(define-module (gnu packages mtr)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build-system gnu)
  #:use-module (gnu packages autotools)
  #:use-module (guix licenses))

(define-public mtr
  (package
    (name "mtr")
    (version "0.87")
    (source (origin
              (method url-fetch)
              (uri (string-append "https://github.com/traviscross/" name
                                  "/archive/v" version ".tar.gz"))
              (sha256
               (base32
                "10z18izbha8675b7a0dqbp8442vdgcvn6bf5dwrdad68wx9pj5xc"))))
    (arguments
     `(#:phases
       (modify-phases %standard-phases
	  (add-after 'unpack 'bootstrap
              (lambda _ (zero? (system* "./bootstrap.sh")))))))
    (build-system gnu-build-system)
    (synopsis "Network diagnostic tool combining the functionality of
               'traceroute' and 'ping'")
    (description "Network diagnostic tool combining the functionality of
               'traceroute' and 'ping'")
    (home-page "http://www.bitwizard.nl/mtr/")
    (license gpl2)))

Annotations for this paste:

Annotation number 1: untitled
Pasted by: kocio_
When:3 years, 9 months ago
Share:Tweet this! | http://paste.lisp.org/+6X75/1
Paste contents:
Raw Source | Display As
Looks like lambda code (which should be executed between unpack and configure) is omitted:

phase `unpack' succeeded after 0.0 seconds
starting phase `patch-usr-bin-file'
phase `patch-usr-bin-file' succeeded after 0.0 seconds
starting phase `patch-source-shebangs'
patch-shebang: ./bootstrap.sh: changing `/bin/sh' to `/gnu/store/ykzwykkvr2c80rw4l1qh3mvfdkl7jibi-bash-4.3.42/bin/sh'
phase `patch-source-shebangs' succeeded after 0.0 seconds
starting phase `configure'

Annotation number 2: Not working
Pasted by: lfam
When:3 years, 9 months ago
Share:Tweet this! | http://paste.lisp.org/+6X75/2
Paste contents:
Raw Source | Display As
From 455f0d954fc3233f9625a63f1ee10d7041464f1a Mon Sep 17 00:00:00 2001
From: Leo Famulari <leo@famulari.name>
Date: Fri, 12 Aug 2016 19:33:08 -0400
Subject: [PATCH 1/2] gnu: Add mtr.

* gnu/packages/mtr.scm: New file.
* gnu/local.mk (GNU_SYSTEM_MODULES): Add it.
---
 gnu/local.mk         |  1 +
 gnu/packages/mtr.scm | 30 ++++++++++++++++++++++++++++++
 2 files changed, 31 insertions(+)
 create mode 100644 gnu/packages/mtr.scm

diff --git a/gnu/local.mk b/gnu/local.mk
index 44ace61..fb92093 100644
--- a/gnu/local.mk
+++ b/gnu/local.mk
@@ -242,6 +242,7 @@ GNU_SYSTEM_MODULES =				\
   %D%/packages/mpd.scm				\
   %D%/packages/mp3.scm				\
   %D%/packages/mpi.scm				\
+  %D%/packages/mtr.scm				\
   %D%/packages/multiprecision.scm		\
   %D%/packages/music.scm			\
   %D%/packages/mtools.scm			\
diff --git a/gnu/packages/mtr.scm b/gnu/packages/mtr.scm
new file mode 100644
index 0000000..1baab16
--- /dev/null
+++ b/gnu/packages/mtr.scm
@@ -0,0 +1,30 @@
+(define-module (gnu packages mtr)
+  #:use-module (guix packages)
+  #:use-module (guix download)
+  #:use-module (guix build-system gnu)
+  #:use-module (gnu packages autotools)
+  #:use-module (guix licenses))
+
+(define-public mtr
+  (package
+    (name "mtr")
+    (version "0.87")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "https://github.com/traviscross/" name
+                                  "/archive/v" version ".tar.gz"))
+              (sha256
+               (base32
+                "10z18izbha8675b7a0dqbp8442vdgcvn6bf5dwrdad68wx9pj5xc"))))
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+	  (add-after 'unpack 'bootstrap
+              (lambda _ (zero? (system* "./bootstrap.sh")))))))
+    (build-system gnu-build-system)
+    (synopsis "Network diagnostic tool combining the functionality of
+               'traceroute' and 'ping'")
+    (description "Network diagnostic tool combining the functionality of
+               'traceroute' and 'ping'")
+    (home-page "http://www.bitwizard.nl/mtr/")
+    (license gpl2)))
-- 
2.9.2

Annotation number 3: Builds successfully
Pasted by: lfam
When:3 years, 9 months ago
Share:Tweet this! | http://paste.lisp.org/+6X75/3
Paste contents:
Raw Source | Display As
From f01d06d3d986279cd845c17d24cf97d32cfa00b4 Mon Sep 17 00:00:00 2001
From: Leo Famulari <leo@famulari.name>
Date: Fri, 12 Aug 2016 19:35:05 -0400
Subject: [PATCH 2/2] gnu: mtr: Make it build.

* gnu/packages/mtr.scm (mtr)[arguments]: Bootstrap after 'configure' phase.
[native-inputs]: New field.
[inputs]: New field.
---
 gnu/packages/mtr.scm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/mtr.scm b/gnu/packages/mtr.scm
index 1baab16..7a85295 100644
--- a/gnu/packages/mtr.scm
+++ b/gnu/packages/mtr.scm
@@ -3,6 +3,8 @@
   #:use-module (guix download)
   #:use-module (guix build-system gnu)
   #:use-module (gnu packages autotools)
+  #:use-module (gnu packages pkg-config)
+  #:use-module (gnu packages gtk)
   #:use-module (guix licenses))
 
 (define-public mtr
@@ -19,8 +21,14 @@
     (arguments
      `(#:phases
        (modify-phases %standard-phases
-	  (add-after 'unpack 'bootstrap
+	  (add-before 'configure 'bootstrap
               (lambda _ (zero? (system* "./bootstrap.sh")))))))
+    (native-inputs
+     `(("autoconf" ,autoconf)
+       ("automake" ,automake)
+       ("pkg-config" ,pkg-config)))
+    (inputs
+      `(("gtk+-2" ,gtk+-2)))
     (build-system gnu-build-system)
     (synopsis "Network diagnostic tool combining the functionality of
                'traceroute' and 'ping'")
-- 
2.9.2

Annotation number 4: mtr.scm
Pasted by: lfam
When:3 years, 9 months ago
Share:Tweet this! | http://paste.lisp.org/+6X75/4
Paste contents:
Raw Source | Display As
(define-module (gnu packages mtr)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build-system gnu)
  #:use-module (gnu packages autotools)
  #:use-module (gnu packages pkg-config)
  #:use-module (gnu packages gtk)
  #:use-module (guix licenses))

(define-public mtr
  (package
    (name "mtr")
    (version "0.87")
    (source (origin
              (method url-fetch)
              (uri (string-append "https://github.com/traviscross/" name
                                  "/archive/v" version ".tar.gz"))
              (sha256
               (base32
                "10z18izbha8675b7a0dqbp8442vdgcvn6bf5dwrdad68wx9pj5xc"))))
    (arguments
     `(#:phases
       (modify-phases %standard-phases
	  (add-before 'configure 'bootstrap
              (lambda _ (zero? (system* "./bootstrap.sh")))))))
    (native-inputs
     `(("autoconf" ,autoconf)
       ("automake" ,automake)
       ("pkg-config" ,pkg-config)))
    (inputs
      `(("gtk+-2" ,gtk+-2)))
    (build-system gnu-build-system)
    (synopsis "Network diagnostic tool combining the functionality of
               'traceroute' and 'ping'")
    (description "Network diagnostic tool combining the functionality of
               'traceroute' and 'ping'")
    (home-page "http://www.bitwizard.nl/mtr/")
    (license gpl2)))

Colorize as:
Show Line Numbers

Lisppaste pastes can be made by anyone at any time. Imagine a fearsomely comprehensive disclaimer of liability. Now fear, comprehensively.