435 lines
17 KiB
Scheme
435 lines
17 KiB
Scheme
;;; GNU Guix --- Functional package management for GNU
|
|
;;; Copyright © 2012 Stefan Handschuh <handschuh.stefan@googlemail.com>
|
|
;;; Copyright © 2015 Kai-Chung Yan <seamlikok@gmail.com>
|
|
;;; Copyright © 2016 Marius Bakke <mbakke@fastmail.com>
|
|
;;; Copyright © 2017 Julien Lepiller <julien@lepiller.eu>
|
|
;;; Copyright © 2017 Hartmut Goebel <h.goebel@crazy-compilers.com>
|
|
;;; Copyright © 2017 Maxim Cournoyer <maxim.cournoyer@gmail.com>
|
|
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
|
|
;;;
|
|
;;; 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 android)
|
|
#:use-module (guix packages)
|
|
#:use-module (guix download)
|
|
#:use-module (guix git-download)
|
|
#:use-module (guix build-system gnu)
|
|
#:use-module (guix build-system android-ndk)
|
|
#:use-module (guix build-system python)
|
|
#:use-module (guix build-system trivial)
|
|
#:use-module ((guix licenses) #:prefix license:)
|
|
#:use-module (gnu packages)
|
|
#:use-module (gnu packages check)
|
|
#:use-module (gnu packages gnupg)
|
|
#:use-module (gnu packages python)
|
|
#:use-module (gnu packages ssh)
|
|
#:use-module (gnu packages version-control)
|
|
#:use-module (gnu packages tls)
|
|
#:use-module (gnu packages linux))
|
|
|
|
(define-public android-make-stub
|
|
(let ((commit "v0.1")
|
|
(revision "21"))
|
|
(package
|
|
(name "android-make-stub")
|
|
(version "0.1")
|
|
(source
|
|
(origin
|
|
(method git-fetch)
|
|
(uri (git-reference
|
|
(url "https://github.com/daym/android-make-stub.git")
|
|
(commit commit)))
|
|
(file-name (string-append "android-make-stub-"
|
|
version "-checkout"))
|
|
(sha256
|
|
(base32
|
|
"1ni4szpcx2clf3lpzrybabwk7bgvsl6ynng7xxfc49y4jkdkk4sh"))))
|
|
(build-system gnu-build-system)
|
|
(arguments
|
|
`(#:tests? #f ; None exist.
|
|
#:phases
|
|
(modify-phases %standard-phases
|
|
(delete 'configure)
|
|
(delete 'build)
|
|
(replace 'install
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
(let* ((out (assoc-ref outputs "out")))
|
|
(invoke "make" (string-append "prefix=" out) "install")
|
|
#t))))))
|
|
(home-page "https://github.com/daym/android-make-stub")
|
|
(synopsis "Stubs for the @command{make} system of the Android platform")
|
|
(description "@code{android-make-stub} provides stubs for the
|
|
@command{make} system of the Android platform. This allows us to
|
|
use their packages mostly unmodified in our Android NDK build system.")
|
|
(license license:asl2.0))))
|
|
|
|
;; The Makefiles that we add are largely based on the Debian
|
|
;; packages. They are licensed under GPL-2 and have copyright:
|
|
;; 2012, Stefan Handschuh <handschuh.stefan@googlemail.com>
|
|
;; 2015, Kai-Chung Yan <seamlikok@gmail.com>
|
|
;; Big thanks to them for laying the groundwork.
|
|
|
|
;; The version tag is consistent between all repositories.
|
|
(define (android-platform-version) "7.1.2_r6")
|
|
|
|
(define (android-platform-system-core version)
|
|
(origin
|
|
(method git-fetch)
|
|
(uri (git-reference
|
|
(url "https://android.googlesource.com/platform/system/core")
|
|
(commit (string-append "android-" version))))
|
|
(file-name (string-append "android-platform-system-core-"
|
|
version "-checkout"))
|
|
(sha256
|
|
(base32
|
|
"0xc2n7jxrf1iw9cc278pijdfjix2fkiig5ws27f6rwp40zg5mrgg"))))
|
|
|
|
(define liblog
|
|
(package
|
|
(name "liblog")
|
|
(version (android-platform-version))
|
|
(source (android-platform-system-core version))
|
|
(build-system android-ndk-build-system)
|
|
(arguments
|
|
`(#:tests? #f ; TODO.
|
|
#:make-flags '("CC=gcc")
|
|
#:phases
|
|
(modify-phases %standard-phases
|
|
(add-after 'unpack 'enter-source
|
|
(lambda _ (chdir "liblog") #t)))))
|
|
(home-page "https://developer.android.com/")
|
|
(synopsis "Logging library from the Android platform.")
|
|
(description "@code{liblog} represents an interface to the volatile Android
|
|
Logging system for NDK (Native) applications and libraries and contain
|
|
interfaces for either writing or reading logs. The log buffers are divided up
|
|
in Main, System, Radio and Events sub-logs.")
|
|
(license license:asl2.0)))
|
|
|
|
(define libbase
|
|
(package
|
|
(name "libbase")
|
|
(version (android-platform-version))
|
|
(source (origin
|
|
(inherit (android-platform-system-core version))
|
|
(patches
|
|
(search-patches "libbase-use-own-logging.patch"
|
|
"libbase-fix-includes.patch"))))
|
|
(build-system android-ndk-build-system)
|
|
(arguments
|
|
`(#:tests? #f ; TODO.
|
|
#:make-flags '("CXXFLAGS=-std=gnu++11")
|
|
#:phases
|
|
(modify-phases %standard-phases
|
|
(add-after 'unpack 'enter-source
|
|
(lambda _ (chdir "base") #t)))))
|
|
(inputs `(("liblog" ,liblog)))
|
|
(home-page "https://developer.android.com/")
|
|
(synopsis "Android platform base library")
|
|
(description "@code{libbase} is a library in common use by the
|
|
various Android core host applications.")
|
|
(license license:asl2.0)))
|
|
|
|
(define libcutils
|
|
(package
|
|
(name "libcutils")
|
|
(version (android-platform-version))
|
|
(source (android-platform-system-core version))
|
|
(build-system gnu-build-system)
|
|
(arguments
|
|
`(#:tests? #f ; TODO.
|
|
#:phases
|
|
(modify-phases %standard-phases
|
|
(add-after 'unpack 'enter-source
|
|
(lambda _ (chdir "libcutils") #t))
|
|
(add-after 'enter-source 'create-Makefile
|
|
(lambda _
|
|
;; No useful makefile is shipped, so we create one.
|
|
(with-output-to-file "Makefile"
|
|
(lambda _
|
|
(display
|
|
(string-append
|
|
"NAME = libcutils\n"
|
|
"SOURCES = load_file.o socket_local_client_unix.o"
|
|
" socket_loopback_client_unix.o socket_network_client_unix.o"
|
|
" socket_loopback_server_unix.o socket_local_server_unix.o"
|
|
" sockets_unix.o socket_inaddr_any_server_unix.o"
|
|
" sockets.o\n"
|
|
"CC = gcc\n"
|
|
|
|
"CFLAGS += -fPIC\n"
|
|
"CXXFLAGS += -std=gnu++11 -fPIC\n"
|
|
"CPPFLAGS += -Iinclude -I../include\n"
|
|
"LDFLAGS += -shared -Wl,-soname,$(NAME).so.0\n"
|
|
|
|
"build: $(SOURCES)\n"
|
|
" $(CXX) $^ -o $(NAME).so.0 $(CXXFLAGS) $(CPPFLAGS)"
|
|
" $(LDFLAGS)\n"))
|
|
#t))))
|
|
(delete 'configure)
|
|
(replace 'install
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
(lib (string-append out "/lib")))
|
|
(install-file "libcutils.so.0" lib)
|
|
(with-directory-excursion lib
|
|
(symlink "libcutils.so.0" "libcutils.so"))
|
|
#t))))))
|
|
(home-page "https://developer.android.com/")
|
|
(synopsis "Android platform c utils library")
|
|
(description "@code{libcutils} is a library in common use by the
|
|
various Android core host applications.")
|
|
(license license:asl2.0)))
|
|
|
|
(define-public adb
|
|
(package
|
|
(name "adb")
|
|
(version (android-platform-version))
|
|
(source (origin
|
|
(inherit (android-platform-system-core version))
|
|
(patches
|
|
(search-patches "libbase-use-own-logging.patch"
|
|
"libbase-fix-includes.patch"
|
|
"adb-add-libraries.patch"))))
|
|
(build-system android-ndk-build-system)
|
|
(arguments
|
|
`(#:tests? #f ; TODO.
|
|
#:make-flags
|
|
(list "CFLAGS=-Wno-error"
|
|
"CXXFLAGS=-fpermissive -Wno-error -std=gnu++14 -D_Nonnull= -D_Nullable= -I ."
|
|
(string-append "LDFLAGS=-Wl,-rpath=" (assoc-ref %outputs "out") "/lib "
|
|
"-Wl,-rpath=" (assoc-ref %build-inputs "openssl") "/lib -L ."))
|
|
#:phases
|
|
(modify-phases %standard-phases
|
|
(add-after 'unpack 'enter-source
|
|
(lambda _ (chdir "adb") #t))
|
|
(add-after 'enter-source 'make-libs-available
|
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
|
(substitute* "Android.mk"
|
|
(("libcrypto_static") "libcrypto"))
|
|
#t))
|
|
(add-after 'install 'install-headers
|
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
|
(install-file "diagnose_usb.h" (string-append (assoc-ref outputs "out") "/include"))
|
|
#t)))))
|
|
(inputs
|
|
`(("libbase" ,libbase)
|
|
("libcutils" ,libcutils)
|
|
("liblog" ,liblog)
|
|
("openssl" ,openssl)))
|
|
(home-page "https://developer.android.com/studio/command-line/adb.html")
|
|
(synopsis "Android Debug Bridge")
|
|
(description
|
|
"@command{adb} is a versatile command line tool that lets you communicate
|
|
with an emulator instance or connected Android device. It facilitates a variety
|
|
of device actions, such as installing and debugging apps, and it provides access
|
|
to a Unix shell that can run commands on the connected device or emulator.")
|
|
(license license:asl2.0)))
|
|
|
|
(define-public mkbootimg
|
|
(package
|
|
(name "mkbootimg")
|
|
(version (android-platform-version))
|
|
(source (origin
|
|
(inherit (android-platform-system-core version))))
|
|
(build-system python-build-system)
|
|
(arguments
|
|
`(#:tests? #f
|
|
#:phases
|
|
(modify-phases %standard-phases
|
|
(add-after 'unpack 'enter-source
|
|
(lambda _ (chdir "mkbootimg") #t))
|
|
(delete 'configure)
|
|
(delete 'build)
|
|
(replace 'install
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
(bin (string-append out "/bin"))
|
|
(include (string-append out "/include")))
|
|
(install-file "mkbootimg" bin)
|
|
(install-file "bootimg.h" include)
|
|
#t))))))
|
|
(home-page "https://developer.android.com/studio/command-line/adb.html")
|
|
(synopsis "Tool to create Android boot images")
|
|
(description "This package provides a tool to create Android Boot
|
|
Images.")
|
|
(license license:asl2.0)))
|
|
|
|
(define-public android-udev-rules
|
|
(package
|
|
(name "android-udev-rules")
|
|
(version "20180112")
|
|
(source
|
|
(origin
|
|
(method git-fetch)
|
|
(uri (git-reference
|
|
(url "https://github.com/M0Rf30/android-udev-rules")
|
|
(commit version)))
|
|
(file-name (string-append name "-" version "-checkout"))
|
|
(sha256
|
|
(base32 "13gj79nnd04szqlrrzzkdr6wi1fky08pi7x8xfbg0jj3d3v0giah"))))
|
|
(build-system trivial-build-system)
|
|
(native-inputs `(("source" ,source)))
|
|
(arguments
|
|
'(#:modules ((guix build utils))
|
|
#:builder
|
|
(begin
|
|
(use-modules (guix build utils))
|
|
(let ((source (assoc-ref %build-inputs "source")))
|
|
(install-file (string-append source "/51-android.rules")
|
|
(string-append %output "/lib/udev/rules.d"))))))
|
|
(home-page "https://github.com/M0Rf30/android-udev-rules")
|
|
(synopsis "udev rules for Android devices")
|
|
(description "Provides a set of udev rules to allow using Android devices
|
|
with tools such as @command{adb} and @command{fastboot} without root
|
|
privileges. This package is intended to be added as a rule to the
|
|
@code{udev-service-type} in your @code{operating-system} configuration.
|
|
Additionally, an @code{adbusers} group must be defined and your user added to
|
|
it.
|
|
|
|
@emph{Simply installing this package will not have any effect.} It is meant
|
|
to be passed to the @code{udev} service.")
|
|
(license license:gpl3+)))
|
|
|
|
(define-public git-repo
|
|
(package
|
|
(name "git-repo")
|
|
(version "1.12.37")
|
|
(source
|
|
(origin
|
|
(method git-fetch)
|
|
(uri (git-reference
|
|
(url "https://gerrit.googlesource.com/git-repo")
|
|
(commit (string-append "v" version))))
|
|
(file-name (string-append "git-repo-" version "-checkout"))
|
|
(sha256
|
|
(base32 "0qp7jqhblv7xblfgpcq4n18dyjdv8shz7r60c3vnjxx2fngkj2jd"))))
|
|
(build-system python-build-system)
|
|
(arguments
|
|
`(#:python ,python-2 ; code says: "Python 3 support is … experimental."
|
|
#:phases
|
|
(modify-phases %standard-phases
|
|
(add-before 'build 'set-executable-paths
|
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
(git (assoc-ref inputs "git"))
|
|
(gpg (assoc-ref inputs "gnupg"))
|
|
(ssh (assoc-ref inputs "ssh")))
|
|
(substitute* '("repo" "git_command.py")
|
|
(("^GIT = 'git' ")
|
|
(string-append "GIT = '" git "/bin/git' ")))
|
|
(substitute* "repo"
|
|
((" cmd = \\['gpg',")
|
|
(string-append " cmd = ['" gpg "/bin/gpg',")))
|
|
(substitute* "git_config.py"
|
|
((" command_base = \\['ssh',")
|
|
(string-append " command_base = ['" ssh "/bin/ssh',")))
|
|
#t)))
|
|
(add-before 'build 'do-not-clone-this-source
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
(repo-dir (string-append out "/share/" ,name)))
|
|
(substitute* "repo"
|
|
(("^def _FindRepo\\(\\):.*")
|
|
(format #f "
|
|
def _FindRepo():
|
|
'''Look for a repo installation, starting at the current directory.'''
|
|
# Use the installed version of git-repo.
|
|
repo_main = '~a/main.py'
|
|
curdir = os.getcwd()
|
|
olddir = None
|
|
while curdir != '/' and curdir != olddir:
|
|
dot_repo = os.path.join(curdir, repodir)
|
|
if os.path.isdir(dot_repo):
|
|
return (repo_main, dot_repo)
|
|
else:
|
|
olddir = curdir
|
|
curdir = os.path.dirname(curdir)
|
|
return None, ''
|
|
|
|
# The remaining of this function is dead code. It was used to
|
|
# find a git-checked-out version in the local project.\n" repo-dir))
|
|
;; Neither clone, check out, nor verify the git repository
|
|
(("(^\\s+)_Clone\\(.*\\)") "")
|
|
(("(^\\s+)_Checkout\\(.*\\)") "")
|
|
((" rev = _Verify\\(.*\\)") " rev = None"))
|
|
#t)))
|
|
(delete 'build) ; nothing to build
|
|
(replace 'check
|
|
(lambda _
|
|
(zero? (system* "python" "-m" "nose"))))
|
|
(replace 'install
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
(bin-dir (string-append out "/bin"))
|
|
(repo-dir (string-append out "/share/" ,name)))
|
|
(mkdir-p bin-dir)
|
|
(mkdir-p repo-dir)
|
|
(copy-recursively "." repo-dir)
|
|
(delete-file-recursively (string-append repo-dir "/tests"))
|
|
(symlink (string-append repo-dir "/repo")
|
|
(string-append bin-dir "/repo"))
|
|
#t))))))
|
|
(inputs
|
|
;; TODO: Add git-remote-persistent-https once it is available in guix
|
|
`(("git" ,git)
|
|
("gnupg" ,gnupg)
|
|
("ssh" ,openssh)))
|
|
(native-inputs
|
|
`(("nose" ,python2-nose)))
|
|
(home-page "https://code.google.com/p/git-repo/")
|
|
(synopsis "Helps to manage many Git repositories.")
|
|
(description "Repo is a tool built on top of Git. Repo helps manage many
|
|
Git repositories, does the uploads to revision control systems, and automates
|
|
parts of the development workflow. Repo is not meant to replace Git, only to
|
|
make it easier to work with Git. The repo command is an executable Python
|
|
script that you can put anywhere in your path.")
|
|
(license license:asl2.0)))
|
|
|
|
(define-public abootimg
|
|
(package
|
|
(name "abootimg")
|
|
(version "0.6")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (string-append "http://http.debian.net/debian/pool/main/a/abootimg/"
|
|
"abootimg_" version ".orig.tar.gz"))
|
|
(sha256
|
|
(base32 "0sfc2k011l1ymv97821w89391gnqdh8pp0haz4sdcm5hx0axv2ba"))))
|
|
(build-system gnu-build-system)
|
|
(arguments
|
|
`(#:tests? #f
|
|
#:phases
|
|
(modify-phases %standard-phases
|
|
(replace 'configure
|
|
(lambda _
|
|
(setenv "CC" "gcc")
|
|
#t))
|
|
(replace 'install
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
(bin (string-append out "/bin")))
|
|
(install-file "abootimg" bin)
|
|
#t))))))
|
|
(inputs
|
|
`(("libblkid" ,util-linux)))
|
|
(home-page "https://ac100.grandou.net/abootimg")
|
|
(synopsis "Tool for manipulating Android Boot Images")
|
|
(description "This package provides a tool for manipulating old Android
|
|
Boot Images. @code{abootimg} can work directly on block devices, or, the
|
|
safest way, on a file image.")
|
|
(license license:gpl2+)))
|