1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889 |
- (define-module (guix build android-ndk-build-system)
- #:use-module ((guix build gnu-build-system) #:prefix gnu:)
- #:use-module (guix build syscalls)
- #:use-module (guix build utils)
- #:use-module (ice-9 popen)
- #:use-module (ice-9 rdelim)
- #:use-module (ice-9 ftw)
- #:use-module (ice-9 format)
- #:use-module (ice-9 match)
- #:use-module (rnrs io ports)
- #:use-module (srfi srfi-1)
- #:use-module (srfi srfi-26)
- #:export (%standard-phases
- android-ndk-build))
- (define* (configure #:key inputs outputs #:allow-other-keys)
- (let ((library-directories (filter-map (match-lambda
- ((name . path)
- (if (eq? 'directory (stat:type (stat path)))
- path
- #f)))
- inputs)))
- (setenv "CC" "gcc")
- (setenv "CXX" "g++")
- (setenv "CPPFLAGS"
- (string-join
- (map (cut string-append "-I " <> "/include") library-directories)
- " "))
- (setenv "LDFLAGS"
- (string-append "-L . "
- (string-join
- (map (lambda (x)
- (string-append "-L " x "/lib" " -Wl,-rpath=" x "/lib"))
- library-directories)
- " ")))
- #t))
- (define* (install #:key inputs outputs (make-flags '()) #:allow-other-keys)
- (let ((out (assoc-ref outputs "out")))
- (apply invoke "make" "install"
- (string-append "prefix=" out)
- make-flags)
- #t))
- (define* (check #:key target inputs outputs (tests? (not target)) (make-flags '()) #:allow-other-keys)
- (if tests?
- (begin
- (apply invoke "make" "check" make-flags)
- (when (and (file-exists? "tests") tests?)
- (with-directory-excursion "tests"
- (apply invoke "make" "check" make-flags))))
- (format #t "test suite not run~%"))
- #t)
- (define %standard-phases
- (modify-phases gnu:%standard-phases
- (replace 'configure configure)
- (replace 'install install)
- (replace 'check check)))
- (define* (android-ndk-build #:key inputs (phases %standard-phases)
- #:allow-other-keys #:rest args)
- "Build the given Android NDK package, applying all of PHASES in order."
- (apply gnu:gnu-build #:inputs inputs #:phases phases args))
|