Re: Using a function as build-step? (w/ attachement)

[Hartmut Goebel <h.goebel@goebel-consult.de>]

[-- Attachment #1.1: Type: text/plain, Size: 624 bytes --]

Am 04.09.2016 um 13:29 schrieb David Craven:(
> Mmh. Maybe you could post a patch so that we can test it? Or maybe
> someone more knowledgeable has an answer...
>

Enclosed. I assume for someone knowledgeable in guile this is a no-brainer.

-- 
Schönen Gruß
Hartmut Goebel
Dipl.-Informatiker (univ), CISSP, CSSLP, ISO 27001 Lead Implementer
Information Security Management, Security Governance, Secure Software
Development

Goebel Consult, Landshut
http://www.goebel-consult.de

Blog: http://www.goebel-consult.de/blog/get-current-locale-with-ansible
Kolumne: http://www.cissp-gefluester.de/2010-08-scheingefechte-um-rim


[-- Attachment #1.2: Type: text/html, Size: 1735 bytes --]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: commons.scm --]
[-- Type: text/x-scheme; name="commons.scm", Size: 3849 bytes --]

(use-modules (guix)
             (guix build-system ant)
             (guix licenses)
(gnu packages base)
(gnu packages java)
(gnu packages zip)
)

(define* (apache-commons-url projname version 
                             #:optional (basename 
                                         (string-append "commons-" projname)))
  (string-append
   "https://archive.apache.org/dist/commons/" projname "/source/"
   basename "-" version "-src.tar.gz"))

; todo: how to use these as a phase, like
;  (replace 'install install-jars)
;  (add-after 'build build-javadoc)

(define* (symlink-junit-jar #:key outputs #:allow-other-keys)
; Put a symlink to the acutal junit.jar into lib/jsunit-VERSION.jar
  (let ((junit (assoc-ref inputs "java-junit"))
        (junit-version "4.12")) ; from build.xml
    (mkdir-p "lib")
    (symlink (string-append junit "/share/java/junit.jar")
             (string-append "lib/junit-" junit-version ".jar"))))


(define* (install-jars #:key outputs #:allow-other-keys)
  (let ((share (string-append (assoc-ref outputs "out")
                              "/share/java")))
    (for-each (λ (f) (install-file f share))
              (find-files "." "\\.jar2$"))))

(define* (build-javadoc #:key (make-flags '()) #:allow-other-keys)
; build command for calling the ant task "javadoc"
  (zero? (apply system* `("ant" "javadoc" ,@make-flags))))

(define* (install-javadoc #:key outputs #:allow-other-keys)
; build command for installing the javs docs into
; DOC/share/doc/NAME-VERSION
  (let ((docs (string-append (assoc-ref outputs "doc")
                             "/share/doc/" name "-" version "/")))
    (mkdir-p docs)
    (copy-recursively "target/apidocs" docs)))


(define-public java-commons-io
  (package
    (name "java-commons-io")
    (version "2.5")
    (source (origin
      (method url-fetch)
      (uri (apache-commons-url "io" version))
      (sha256 (base32 "0q5y41jrcjvx9hzs47x5kdhnasdy6rm4bzqd2jxl02w717m7a7v3"))))
    (build-system ant-build-system)
    (outputs '("out" "doc"))
    (arguments
     `(#:test-target "test"
       #:phases
       (modify-phases %standard-phases
         (add-after 'unpack 'symlink-junit.jar ;symlink-junit-jar)
           (lambda* (#:key inputs #:allow-other-keys)
             (let ((junit (assoc-ref inputs "java-junit"))
                   (junit-version "4.12")) ; from build.xml
               (mkdir-p "lib")
	       (symlink (string-append junit "/share/java/junit.jar")
			(string-append "lib/junit-" junit-version ".jar")))
             ))
         (add-after 'build 'build-javadoc ;`build-javadoc)
           (lambda* (#:key (make-flags '()) #:allow-other-keys)
             (zero? (apply system* `("ant" "javadoc" ,@make-flags)))))
         (replace 'install ;`install-jars)
           (lambda* (#:key outputs #:allow-other-keys)
             (let ((share (string-append (assoc-ref outputs "out") 
                                         "/share/java")))
               (for-each (λ (f) (install-file f share))
                         (find-files "target" "\\.jar$")))))
         (add-after 'install 'install-doc ;install-javadoc)
           (lambda* (#:key outputs #:allow-other-keys)
;             (`install-javadoc outputs ,name ,version)
             (let ((docs (string-append (assoc-ref outputs "doc")
                                        "/share/doc/" ,name "-" ,version "/")))
               (mkdir-p docs)
               (copy-recursively "target/apidocs" docs)
               )))

)))
    (native-inputs
     `(("java-junit" ,java-junit)
       ("(java-hamcrest-core" ,java-hamcrest-core)))
    (home-page "http://commons.apache.org/io/")
    (synopsis "Common useful IO related classes")
    (description "Commons-IO contains utility classes, stream implementations,
file filters and endian classes.")
    (license asl2.0)
))

java-commons-io