aboutsummaryrefslogtreecommitdiff
path: root/TODO
blob: 1579504ea58fc0118d7794c441823b660ec17a1a (about) (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
-*- mode: org; coding: utf-8; -*-

Copyright © 2012 Ludovic Courtès <ludo@gnu.org>

  Copying and distribution of this file, with or without modification,
  are permitted in any medium without royalty provided the copyright
  notice and this notice are preserved.

* integrate needed Nix code

Guix uses Nix’s daemon (‘nix-worker’, later renamed to ‘nix-daemon’) to
actually perform builds, scheduling, substitution of pre-built binaries,
and GC-related tasks.  The daemon mainly uses ‘libstore’ from Nix.
Integrating it in Guix itself will make Guix self-contained, thereby
simplifying our users’ lives.

* infrastructure

** have a Hydra instance build Guix packages

[[http://nixos.org/hydra/][Hydra]] is a continuous integration tool based on Nix.  It now has
[[https://github.com/NixOS/hydra/commit/f27ae1d5663680400cb99cfb898970f34d8d21be][Guile/Guix support]], which allows “build recipes” written in Guile using
Guix to be used directly on Hydra.

For a start, we may use the instance at hydra.nixos.org, generously
provided by TU Delft.  However, in the future, we may want to setup our
own instance at gnu.org.

* extend <origin>
** add OpenPGP signatures:

   (origin
     (method http-fetch)
     (uri "http://.../foo.tgz")
     (signature-uri (string-append uri ".sig"))
     (signer-openpgp-fingerprint "..."))

** allow <origin> to be a derivation/package or a file

* extend <package>

** add support for ‘search-paths’

This should be passed to the build system, to extend package-specific
search path environment variables–like ‘GUILE_LOAD_PATH’, ‘PERL5LIB’,
etc.

** add a ‘user-environment-hook’

This should specify builder code to be run when building a user
environment with ‘guix-package’.  For instance, Texinfo’s hook would
create a new ‘dir’.

** add ‘patches’ there

** extend ‘propagated-build-inputs’ with support for multiple outputs

#+BEGIN_SRC scheme
  (outputs '("out" "include"))
  (propagated-build-inputs
    `(((("i1" ,p1 "o1")
        ("i2" ,p2))
       => "include")
      ("i3" ,p3)))
#+END_SRC

* support cross-compilation

Implement ‘package-cross-derivation’, and add the corresponding code in
‘gnu-build-system’.  Then, actually bootstrap a cross-compilation
environment–e.g., a cross-GNU environment.

* gnu-build-system: produce a ‘debug’ derivation

Set a .gnu_debuglink in the main derivations to point to the sibling
file name (only the basename, to not retain a dependency on the ‘debug’
derivation.)

For /nix/store/xyz-foobar/bin/foo, we should have
/nix/store/abc-foobar-debug/lib/nix/store/xyz-foobar/bin/foo.debug (info
"(gdb) Separate Debug Files").

Users should have a default GDB setting with ~/.guix-profile/lib/debug
as their ‘debug-file-directory’.

* build-expression->derivation: define `%system' in the builder

Would allow build expressions to have system-dependent code, like
`glibc-dynamic-linker'.

* add ‘allowed-references’ in <package>

[[file:~/src/nix/src/libstore/build.cc::if%20(drv.env.find("allowedReferences")%20!%3D%20drv.env.end())%20{][See how Nix implements that internally]].


* union

Support sophisticated collision handling when building a union: check
whether the colliding files are identical, honor per-package priorities,
etc.

* guix-package

** add ‘--roll-back’
** add ‘--list-generations’, and ‘--delete-generations’
** add ‘--upgrade’
** add ‘--search’

* guix build utils
** Add equivalent to "rm -rf"
** Add equivalent to Nixpkgs's ‘wrapProgram’
** Add equivalent to chrpath, possibly using [[https://gitorious.org/guile-dlhacks/guile-dlhacks/][guile-dlhacks]]

* distro
** choose a name! (Jinn?)
** port to new GNU/Linux platforms, notably ‘mipsel64-linux’
** port to GNU/Hurd, aka. ‘i686-gnu’

Problems include that current glibc releases do not build on GNU/Hurd.
In addition, there haven’t been stable releases of GNU Mach, MiG, and
Hurd, which would be a pre-condition.

** make a bootable GNU/Linux-Libre distro, with OS configuration EDSL

Similar in spirit to /etc/nixos/configuration.nix.
(uri (git-reference (url "https://android.googlesource.com/platform/development") (commit (string-append "android-" version)))) (file-name (string-append "android-platform-development-" version "-checkout")) (sha256 (base32 "0s92961yycg8wsga40i7fvbfmf1a5i6j2gk64j2jiy7s0hfd4rc3")))) (define (android-platform-frameworks-native version) (origin (method git-fetch) (uri (git-reference (url "https://android.googlesource.com/platform/frameworks/native") (commit (string-append "android-" version)))) (file-name (string-append "android-platform-frameworks-native-" version "-checkout")) (sha256 (base32 "00dgx27wma7wzivniy8zyw2443fi2xx8gyxii081m0fwamqd3jrm")))) (define-public android-liblog (package (name "android-liblog") (version (android-platform-version)) (source (android-platform-system-core version)) (build-system android-ndk-build-system) (arguments `(#:make-flags '("LDLIBS=-lpthread") #:phases (modify-phases %standard-phases (add-after 'unpack 'enter-source (lambda _ (chdir "liblog") #t)) (add-after 'install 'ldconfig (lambda* (#:key outputs #:allow-other-keys) (let ((out (assoc-ref outputs "out"))) (symlink "liblog.so.0" (string-append out "/lib/liblog.so")) #t))) (add-after 'install 'install-headers (lambda* (#:key outputs #:allow-other-keys) (let ((out (assoc-ref outputs "out"))) (copy-recursively "../include/log" (string-append out "/include/log")) ;; For android/log.h, the only header in the android directory. (copy-recursively "../include/android" (string-append out "/include/android"))) #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 android-libbase (package (name "android-libbase") (version (android-platform-version)) (source (android-platform-system-core version)) (build-system android-ndk-build-system) (arguments `(#:tests? #f ; Test failure: logging.UNIMPLEMENTED #:phases (modify-phases %standard-phases (add-after 'unpack 'enter-source (lambda _ (chdir "base") #t))))) (inputs `(("android-liblog" ,android-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-public android-libcutils (package (name "android-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 += -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")) (include (string-append out "/include"))) (install-file "libcutils.so.0" lib) (with-directory-excursion lib (symlink "libcutils.so.0" "libcutils.so")) (copy-recursively "../include/cutils" (string-append include "/cutils")) #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 android-libsparse (package (name "android-libsparse") (version (android-platform-version)) (source (android-platform-system-core version)) (build-system android-ndk-build-system) (arguments `(#:make-flags '("CFLAGS=-Wno-error" "CXXFLAGS=-fpermissive -Wno-error") #:phases (modify-phases %standard-phases (add-after 'unpack 'enter-source (lambda _ (chdir "libsparse") #t))))) (inputs (list zlib)) (home-page "https://developer.android.com/") (synopsis "Android platform sparse library") (description "@code{android-libsparse} is a library in common use by the various Android core host applications.") (license license:asl2.0))) (define-public android-libziparchive (package (name "android-libziparchive") (version (android-platform-version)) (source (android-platform-system-core version)) (build-system android-ndk-build-system) (arguments `(#:make-flags '("CFLAGS=-Wno-error" "CXXFLAGS=-fpermissive -Wno-error") #:phases (modify-phases %standard-phases (add-after 'unpack 'enter-source (lambda _ (chdir "libziparchive") #t)) (add-before 'check 'setenv (lambda _ (setenv "ziparchive_tests_host_PARAMS" "--test_data_dir=testdata") #t)) (add-after 'install 'install-headers (lambda* (#:key inputs outputs #:allow-other-keys) (let ((out (assoc-ref outputs "out"))) (copy-recursively "../include/ziparchive" (string-append out "/include/ziparchive")) #t)))))) (inputs (list zlib)) (native-inputs (list android-libbase android-libutils android-liblog)) (home-page "https://developer.android.com/") (synopsis "Android platform ZIP library") (description "@code{android-libziparchive} 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 (android-platform-system-core version)) (build-system android-ndk-build-system) (arguments `(#:tests? #f ; Test failure: sysdeps_poll.fd_count #:make-flags ,#~(list "CFLAGS=-Wno-error" "CXXFLAGS=-fpermissive -Wno-error -std=gnu++14 -D_Nonnull= -D_Nullable= -I ." (string-append "LDFLAGS=-Wl,-rpath=" #$output "/lib " "-Wl,-rpath=" #$(this-package-input "openssl") "/lib -L .")) #:phases (modify-phases %standard-phases (add-after 'unpack 'enter-source (lambda _ (chdir "adb") #t)) (add-after 'enter-source 'glibc-compat (lambda _ ;; Include sysmacros.h for "major" and "minor" in Glibc 2.28. (substitute* "usb_linux.cpp" (("#include <sys/types.h>" all) (string-append all "\n#include <sys/sysmacros.h>\n"))) #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 (list android-libbase android-libcutils android-liblog 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-safe-iop (package (name "android-safe-iop") (version (android-platform-version)) (source (android-platform-external version "safe-iop" "1nyyrs463advjhlq8xx1lm37m4g5afv7gy0csxrj7biwwl0v13qw")) (build-system android-ndk-build-system) (arguments `(#:make-flags '("CXXFLAGS=-fpermissive -Wno-error") #:phases (modify-phases %standard-phases (add-before 'build 'patch-host (lambda _ ;; TODO: Cross-compile. (substitute* "Android.mk" (("BUILD_STATIC_LIBRARY") "BUILD_HOST_STATIC_LIBRARY")) #t))))) (home-page "https://developer.android.com/") (synopsis "Safe integers in C") (description "@code{android-safe-iop} provides a set of functions for performing and checking safe integer operations. Ensure that integer operations do not result in silent overflow.") (license license:bsd-2))) (define-public android-bionic-uapi (package (name "android-bionic-uapi") (version (android-platform-version)) (source (android-platform-bionic version)) (build-system android-ndk-build-system) (arguments `(#:phases (modify-phases %standard-phases (add-after 'unpack 'enter-source (lambda _ (chdir "libc") #t)) (replace 'check (const #t)) (replace 'build (const #t)) (replace 'install (lambda* (#:key outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) (out-sys (string-append out "/include/sys"))) (mkdir-p out-sys) (install-file "include/sys/system_properties.h" out-sys) (install-file "include/sys/_system_properties.h" out-sys) (copy-recursively "kernel/uapi" (string-append out "/include")) #t)))))) (home-page "https://developer.android.com/") (synopsis "Android Linux API that is safe for user space") (description "@code{android-bionic-uapi} provides the part of the Linux API that is safe to use for user space. It also includes @code{system_properties.h} and @code{_system_properties.h}.") (license license:asl2.0))) (define-public android-libselinux (package (name "android-libselinux") (version (android-platform-version)) (source (android-platform-external version "libselinux" "13m2q32gzdcs5d0zj1nwasjy1j8vsxsgbjg7m5sa9lfcjaj7nkm7")) (build-system android-ndk-build-system) (arguments ;; See logd/Android.mk for the *_LOG_TAG values. `(#:make-flags (list (string-append "CFLAGS=-Wno-error " "-I core/include " "-I core/libpackagelistparser/include " "-DAUDITD_LOG_TAG=1003 " "-DLOGD_LOG_TAG=1004 -D_GNU_SOURCE") "LDFLAGS=-L . -lpcre") #:phases (modify-phases %standard-phases (add-after 'unpack 'patch-HOST (lambda _ ;; gettid duplicates otherwise. (substitute* "src/procattr.c" (("#ifdef HOST") "#ifdef XXX")) #t))))) (inputs (list openssl)) (native-inputs (list android-bionic-uapi ;; pcre is inlined by our package. pcre)) (home-page "https://developer.android.com/") (synopsis "Android version of the SELinux libraries and utilities") (description "The libselinux library provides an API for SELinux applications to get and set process and file security contexts, and to obtain security policy decisions. It is required for any applications that use the SELinux API, and used by all applications that are SELinux-aware. This package also includes the core SELinux management utilities.") (license license:public-domain))) (define-public android-ext4-utils (package (name "android-ext4-utils") (version (android-platform-version)) (source (android-platform-system-extras version)) (build-system android-ndk-build-system) (arguments `(#:make-flags ,#~(list (string-append "CPPFLAGS=" ;"-Wno-error " "-I " #$(this-package-input "android-libselinux") "/include " "-I " #$(this-package-input "android-libsparse") "/include " "-I " #$(this-package-input "android-libcutils") "/include " "-I " #$(this-package-input "android-liblog") "/include " "-I ../core/include") "CFLAGS=-Wno-error" "install-libext4_utils_host.a" (string-append "prefix=" #$output)) #:phases (modify-phases %standard-phases (add-after 'unpack 'unpack-core (lambda* (#:key inputs #:allow-other-keys) (mkdir-p "core") (copy-recursively (assoc-ref inputs "android-core") "core"))) (add-after 'unpack-core 'enter-source (lambda _ (chdir "ext4_utils") #t)) (replace 'install (lambda* (#:key inputs outputs #:allow-other-keys) (let ((out (assoc-ref outputs "out"))) (copy-recursively "." (string-append out "/include"))) #t))))) (inputs (list android-libcutils android-liblog android-libselinux android-libsparse zlib)) (native-inputs `(("android-core" ,(android-platform-system-core version)))) (home-page "https://developer.android.com/") (synopsis "Android ext4 file system utilities") (description "@code{android-ext4-utils} is a library in common use by the Android core.") (license license:asl2.0))) (define-public android-f2fs-utils (package (name "android-f2fs-utils") (version (android-platform-version)) (source (android-platform-system-extras version)) (build-system android-ndk-build-system) (arguments `(#:phases (modify-phases %standard-phases (add-after 'unpack 'enter-source (lambda _ (chdir "f2fs_utils") #t)) (add-before 'build 'set-compilation-flags (lambda _ (setenv "CFLAGS" "-fcommon"))) (add-after 'install 'install-headers (lambda* (#:key inputs outputs #:allow-other-keys) (copy-recursively "." (string-append (assoc-ref outputs "out") "/include")) #t)) (add-after 'install 'install-shell-scripts (lambda* (#:key outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) (bin (string-append out "/bin"))) (patch-shebang "mkf2fsuserimg.sh") (substitute* "mkf2fsuserimg.sh" (("make_f2fs") (string-append bin "/make_f2fs"))) (install-file "mkf2fsuserimg.sh" bin) #t)))))) (inputs (list f2fs-tools-1.7 android-libselinux android-libsparse android-libcutils zlib)) (home-page "https://developer.android.com/") (synopsis "Android f2fs utils") (description "@code{android-f2fs-utils} is a library in common use by the Android core. It allows the user to create images for the @code{f2fs} Flash file system.") (license license:asl2.0))) (define-public android-libutils (package (name "android-libutils") (version (android-platform-version)) (source (android-platform-system-core version)) (build-system android-ndk-build-system) (arguments `(#:tests? #f ; TODO #:make-flags '("CXXFLAGS=-std=gnu++11 -Wno-error") #:phases (modify-phases %standard-phases (add-after 'set-paths 'augment-CPLUS_INCLUDE_PATH (lambda* (#:key inputs #:allow-other-keys) ;; Hide the default GCC from CPLUS_INCLUDE_PATH to prevent it from ;; shadowing the version of GCC provided in native-inputs. (let ((gcc (assoc-ref inputs "gcc"))) (setenv "CPLUS_INCLUDE_PATH" (string-join (delete (string-append gcc "/include/c++") (string-split (getenv "CPLUS_INCLUDE_PATH") #\:)) ":")) #t))) (add-after 'unpack 'enter-source (lambda _ (chdir "libutils") #t)) (add-after 'install 'install-headers (lambda* (#:key inputs outputs #:allow-other-keys) (copy-recursively "../include/utils" (string-append (assoc-ref outputs "out") "/include/utils"))))))) (inputs (list android-safe-iop android-libcutils)) (native-inputs `(("android-bionic-uapi" ,android-bionic-uapi) ("android-liblog" ,android-liblog) ("gcc@5" ,gcc-5))) ; XXX: fails to build with GCC 7 (home-page "https://developer.android.com/") (synopsis "Android utility library") (description "@code{android-libutils} provides utilities for Android NDK developers.") (license license:asl2.0))) (define-public fastboot (package (name "fastboot") (version (android-platform-version)) (source (android-platform-system-core version)) (build-system android-ndk-build-system) (arguments `(#:phases (modify-phases %standard-phases (add-after 'unpack 'enter-source (lambda _ (chdir "fastboot") #t)) (add-after 'enter-source 'patch-source (lambda _ (substitute* "Android.mk" (("libext4_utils_host") "libext4_utils_host libselinux libpcre") (("\\$\\(shell git .*\\)") ,version)) #t)) (replace 'install (lambda* (#:key outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) (lib (string-append out "/lib")) (bin (string-append out "/bin"))) (install-file "fastboot" bin) #t)))))) (inputs (list adb android-safe-iop android-ext4-utils android-f2fs-utils android-libbase android-libcutils android-liblog android-libutils android-libsparse android-libziparchive android-libselinux pcre mkbootimg zlib)) (native-inputs (list xz)) (home-page "https://developer.android.com/studio/command-line/") (synopsis "Android image flasher") (description "This package provides @command{fastboot}, a tool to upload file system images to Android devices.") (license license:asl2.0))) (define-public sdkmanager (package (name "sdkmanager") (version "0.6.5") (source (origin (method url-fetch) (uri (pypi-uri "sdkmanager" version ".tar.gz")) (sha256 (base32 "11as7n2mj3nbqsqb3ivyv9985n73i022s748qvjg36cs8ig50afx")))) (build-system pyproject-build-system) (inputs (list python-requests python-argcomplete python-urllib3 gnupg)) (arguments (list #:phases #~(modify-phases %standard-phases (add-before 'build 'patch-gnupg (lambda _ (substitute* "sdkmanager.py" (("gpgv") (string-append #$(this-package-input "gnupg") "/bin/gpgv")))))))) (home-page "https://gitlab.com/fdroid/sdkmanager") (synopsis "Replacement for Android sdkmanager written in Python") (description "This package provides a drop-in replacement for sdkmanager from the Android SDK. It is written in Python and part of the F-Droid project. It implements the exact API of the Android sdkmanager command line. The project also attempts to maintain the same terminal output.") (license license:agpl3+))) (define-public android-udev-rules (package (name "android-udev-rules") (version "20210501") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/M0Rf30/android-udev-rules") (commit version))) (file-name (git-file-name name version)) (sha256 (base32 "0pl1wfd7k9vz8mvy2jb2icc5f11c5p07aixpyhjs6gi5cyaywm5f")))) (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 android-platform-frameworks-native-headers (package (name "android-platform-frameworks-native-headers") (version (android-platform-version)) (source (android-platform-frameworks-native version)) (build-system trivial-build-system) (arguments `(#:modules ((guix build utils)) #:builder (begin (use-modules (guix build utils)) (let ((source (assoc-ref %build-inputs "source")) (include (string-append %output "/include/android"))) (mkdir-p include) (copy-recursively (string-append source "/include/android") (string-append include)) ; "/android")) )))) (home-page "https://android.googlesource.com/platform/frameworks/native/") (synopsis "Headers for Android development from android-platform-frameworks-native") (description "This package contains headers used for developing software for Android. More precicely the headers from include/android in platform/frameworks/native.") (license license:asl2.0))) (define-public libetc1 (package (name "libetc1") (version (android-platform-version)) (source (android-platform-frameworks-native version)) (build-system gnu-build-system) (arguments `(#:tests? #f ; no tests #:phases (modify-phases %standard-phases (add-after 'unpack 'create-Makefile (lambda _ ;; No useful makefile is shipped, so we create one. (with-output-to-file "Makefile" (lambda _ (display (string-append "NAME = libETC1\n" "SOURCES = opengl/libs/ETC1/etc1.cpp\n" "CXXFLAGS += -fPIC\n" "CPPFLAGS += -Iopengl/include\n" "LDFLAGS += -shared -Wl,-soname,$(NAME).so.0\n" "$(NAME).so.0: $(SOURCES)\n" " $(CXX) $^ -o $@ $(CXXFLAGS) $(CPPFLAGS) $(LDFLAGS)\n" "build: $(NAME).so.0")) #t)))) (add-after 'unpack 'remove-unused-stuff-to-reduce-warnings (lambda _ (delete-file-recursively "opengl/libs/tools"))) (delete 'configure) (replace 'install (lambda* (#:key outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) (lib (string-append out "/lib")) (include (string-append out "/include"))) (install-file "libETC1.so.0" lib) (with-directory-excursion lib (symlink "libETC1.so.0" "libETC1.so")) (copy-recursively "opengl/include/ETC1" (string-append include "/ETC1")))))))) (home-page "https://android.googlesource.com/platform/frameworks/native/") (synopsis "ETC1 compression library") (description "Ericsson Texture Compression (ETC) is a lossy texture compression technique developed in collaboration with Ericsson Research in early 2005. libETC1 provides the encoding and decoding of ETC1 compression algorithm.") (license license:asl2.0))) (define-public etc1tool (package (name "etc1tool") (version (android-platform-version)) (source (android-platform-development version)) (build-system gnu-build-system) (arguments `(#:tests? #f #:phases (modify-phases %standard-phases (add-after 'unpack 'create-Makefile (lambda _ ;; No useful makefile is shipped, so we create one. (with-output-to-file "Makefile" (lambda _ (display (string-append "NAME = etc1tool\n" "SOURCES = tools/etc1tool/etc1tool.cpp\n" "CPPFLAGS += -Iinclude\n" "LDFLAGS += -lpng -lETC1\n" "$(NAME): $(SOURCES)\n" " $(CXX) $^ -o $@ $(CXXFLAGS) $(CPPFLAGS) $(LDFLAGS)\n" "build: $(NAME)")) #t)))) (add-before 'build 'fix-typos-in-help (lambda _ (substitute* "tools/etc1tool/etc1tool.cpp" ((" apropriate ") " appropriate ")) #t)) ;; TODO: Add man-page from Debian (delete 'configure) (replace 'install (lambda* (#:key outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) (bin (string-append out "/bin"))) (install-file "etc1tool" bin))))))) (inputs `(("libetc1" ,libetc1) ("libpng" ,libpng))) (home-page "https://developer.android.com/studio/command-line/etc1tool.html") (synopsis "Encode and decode PNG images to resp. from the ETC1 compression standard") (description "@command{etc1} is a command line utility that lets you encode PNG images to the ETC1 compression standard and decode ETC1 compressed images back to PNG. This tool is part of the Android SDK for working with media files for game apps. The standard for the ETC1 texture format can be found at @uref{http://www.khronos.org/registry/gles/extensions/OES/OES_compressed_ETC1_RGB8_texture.txt}.") (license license:asl2.0))) (define-public git-repo (package (name "git-repo") (version "2.4.1") (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 "0khg1731927gvin73dcbw1657kbfq4k7agla5rpzqcnwkk5agzg3")))) (build-system python-build-system) (arguments `(#: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")) (ssh (assoc-ref inputs "ssh"))) (substitute* '("repo" "git_command.py") (("^GIT = 'git'") (string-append "GIT = '" git "/bin/git'"))) (substitute* "git_config.py" ((" command_base = \\['ssh',") (string-append " command_base = ['" ssh "/bin/ssh',"))) #t))) (add-before 'build 'do-not-self-update (lambda* (#:key outputs #:allow-other-keys) ;; Setting the REPO_MAIN variable to an absolute file name is ;; enough to have _FindRepo return the store main.py file. The ;; self update mechanism is activated with the call to _Init() in ;; main(), so we bypass it. ;; Ticket requesting upstream to provide a mean to disable the ;; self update mechanism: ;; https://bugs.chromium.org/p/gerrit/issues/detail?id=12407. (let* ((out (assoc-ref outputs "out")) (repo-main (string-append out "/share/git-repo/main.py"))) (substitute* "repo" (("^REPO_MAIN = .*") (format #f "REPO_MAIN = ~s~%" repo-main)) ((" _Init\\(args, gitc_init=\\(cmd ==.*" all) (string-append "True #" all))) ;; Prevent repo from trying to git describe its version from ;; the (disabled) self updated copy. (substitute* "git_command.py" (("ver = getattr\\(RepoSourceVersion.*") (format #f "ver = ~s~%" ,version))) (substitute* "subcmds/version.py" (("rp_ver = .*") (format #f "rp_ver = ~s~%" ,version))) ;; Prevent repo from adding its (disabled) self update copy to ;; the list of projects to fetch when using 'repo sync'. (substitute* "subcmds/sync.py" (("to_fetch\\.extend\\(all_projects\\).*" all) (string-append "#" all)) (("self\\._Fetch\\(to_fetch") "self._Fetch(all_projects") (("_PostRepoFetch\\(rp, opt\\.repo_verify).*" all) (string-append "#" all)))))) (delete 'build) ; nothing to build (add-before 'check 'configure-git (lambda _ (setenv "HOME" (getcwd)) (invoke "git" "config" "--global" "user.email" "you@example.com") (invoke "git" "config" "--global" "user.name" "Your Name"))) (replace 'check (lambda _ (invoke "./run_tests"))) (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) ("ssh" ,openssh))) (native-inputs `(("pytest" ,python-pytest))) (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 "lib"))) (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+))) (define-public python-androguard (package (name "python-androguard") (version "3.2.1") (source (origin ;; The pypi release doesn't have the tests, but the tests use ;; packaged binaries, so we skip them. (method url-fetch) (uri (pypi-uri "androguard" version)) (sha256 (base32 "0ndsw00pkyda4i2s3wi5ap8gbk6a9d23xhhxpdbk02padv8sxkfv")))) (build-system python-build-system) (arguments '(#:phases (modify-phases %standard-phases (replace 'check ;; Adapted from .travis.yml (lambda _ (invoke "nosetests" "--with-coverage" "--with-timer" "--timer-top-n" "50")))))) (native-inputs (list python-codecov python-coverage python-mock python-nose python-nose-timer)) (propagated-inputs (list python-asn1crypto python-colorama python-future python-ipython python-lxml python-matplotlib python-networkx python-pygments python-pyperclip)) (home-page "https://github.com/androguard/androguard") (synopsis "Python tool to play with Android files") (description "Androguard is a full Python tool to manipulate Android files. It is useful for reverse engineering, analysis of Android applications and more.") (license license:asl2.0))) (define-public python-miio (package (name "python-miio") (version "0.5.12") (source (origin (method url-fetch) (uri (pypi-uri "python-miio" version)) (sha256 (base32 "05kc0icap3a4iw4910zfqi61zphcf6x958v2b5x68fy51ld3b704")))) (build-system python-build-system) (arguments `(#:phases (modify-phases %standard-phases (add-after 'unpack 'relax-requirements (lambda _ (substitute* "setup.py" (("cryptography>=35") "cryptography")))) (replace 'check (lambda* (#:key tests? #:allow-other-keys) (when tests? (invoke "pytest" "-vv" "miio"))))))) (native-inputs (list python-pytest python-pytest-mock python-sphinx python-sphinx-click python-sphinx-rtd-theme python-sphinxcontrib-apidoc)) (propagated-inputs (list python-appdirs python-attrs python-click python-construct python-croniter python-cryptography python-defusedxml python-importlib-metadata python-netifaces python-pytz python-pyyaml python-tqdm python-zeroconf)) (home-page "https://github.com/rytilahti/python-miio") (synopsis "Control Xiaomi smart appliances") (description "This package provides library and command line interface for communicating with Xiaomi smart appliances over miIO and MIoT protocols.") (license license:gpl3+))) (define-public fdroidserver (package (name "fdroidserver") (version "1.1.9") (source (origin (method url-fetch) (uri (pypi-uri "fdroidserver" version)) (sha256 (base32 "0m07f791z45w7r2dzx4yb6s54b3c3wykm3w9hn25p2jcyax082a2")))) (build-system python-build-system) (arguments `(#:phases (modify-phases %standard-phases (add-after 'unpack 'fix-versioning (lambda _ (substitute* "setup.py" (("0.2.1") ,(package-version python-pyasn1-modules)) ;; The dependency on docker has been removed upstream by ;; a fairly large patch: ;; https://gitlab.com/fdroid/fdroidserver/-/commit/89614851250c79a05db84070feca6dea033af334 ;; that is not in a release yet. It appears we can compile with ;; a newer version. (("docker-py >= 1.9, < 2.0") "docker >= 1.9")) #t))))) (propagated-inputs (list python-androguard python-apache-libcloud python-clint python-defusedxml python-docker python-gitpython python-mwclient python-paramiko python-pillow python-pyasn1 python-pyasn1-modules python-pyyaml python-qrcode python-ruamel.yaml python-requests python-vagrant)) (native-inputs (list python-babel python-bcrypt python-docker-pycreds python-pynacl python-websocket-client)) (home-page "https://f-droid.org") (synopsis "F-Droid server tools") (description "The F-Droid server tools provide various scripts and tools that are used to maintain F-Droid, the repository of free Android applications. You can use these same tools to create your own additional or alternative repository for publishing, or to assist in creating, testing and submitting metadata to the main repository.") (license license:agpl3+))) (define-public fdroidcl (package (name "fdroidcl") (version "0.7.0") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/mvdan/fdroidcl") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "1s3fszlyyab9gbdrg52zcbafsb1mgb770skg7b3gj7f3pzfnra5n")))) (build-system go-build-system) (arguments `(#:import-path "mvdan.cc/fdroidcl" #:tests? #f ;requires internet access #:install-source? #f)) (inputs (list go-github-com-kr-pretty go-github-com-schollz-progressbar-v3)) (synopsis "F-Droid desktop client") (description "While the Android client integrates with the system with regular update checks and notifications, this is a simple command line client that talks to connected devices via ADB.") (home-page "https://github.com/mvdan/fdroidcl") (license license:bsd-3))) (define-public emacs-fdroid (package (name "emacs-fdroid") (version "0.1.1") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/migalmoreno/fdroid.el") (commit version))) (file-name (git-file-name name version)) (sha256 (base32 "1gv4kfir12bbi17cm5hpx197m8dbw1xwqp0z6qb3vc0fdnyis35j")))) (build-system emacs-build-system) (arguments (list #:phases #~(modify-phases %standard-phases (add-after 'unpack 'patch-file-name (lambda* (#:key inputs #:allow-other-keys) (emacs-substitute-variables "fdroid.el" ("fdroid-program" (search-input-file inputs "/bin/fdroidcl")))))))) (inputs (list fdroidcl)) (home-page "https://github.com/migalmoreno/fdroid.el") (synopsis "Manage F-Droid packages from Emacs") (description "This package is an Emacs interface to F-Droid. Its purpose is to aid in the management of F-Droid packages for an Android device or an emulator inside the comfort of Emacs.") (license license:gpl3+))) (define-public enjarify (package (name "enjarify") (version "1.0.3") (home-page "https://github.com/Storyyeller/enjarify") (source (origin (method git-fetch) (uri (git-reference (url home-page) (commit version))) (file-name (git-file-name name version)) (patches (search-patches "enjarify-setup-py.patch")) (sha256 (base32 "1nam7h1g4f1h6jla4qcjjagnyvd24dv6d5445w04q8hx07nxdapk")))) (build-system python-build-system) (arguments `(#:phases (modify-phases %standard-phases (add-before 'check 'fixup-expected-test-results ;; Upstream adjusted this test in commit: ;; 3ae884a6485af82d300515813f537685b08dd800 (lambda _ (substitute* "tests/test2/expected.txt" (("^20") "0")) #t)) (add-before 'check 'drop-java-xss-argument ;; Upstream removed this argument in order to support 32-bit ;; architectures. commit: 4be0111d879aa95fdc0d9f24fe529f8c664d4093 (lambda _ (substitute* "enjarify/runtests.py" (("java -Xss515m") "java ")) #t)) (add-after 'install 'install-enjarify-wrapper (lambda* (#:key outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out"))) (mkdir-p (string-append out "/bin/")) (copy-file "enjarify.sh" (string-append out "/bin/enjarify")) #t)))))) (native-inputs (list openjdk12)) (synopsis "Translate Dalvik bytecode to equivalent Java bytecode") (description "Android applications are Java programs that run on a customized virtual machine, which is part of the Android operating system, the Dalvik VM. Their bytecode differs from the bytecode of normal Java applications. Enjarify can translate the Dalvik bytecode back to equivalent Java bytecode, which simplifies the analysis of Android applications.") (license license:asl2.0))) (define-public android-file-transfer (package (name "android-file-transfer") (version "4.3") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/whoozle/android-file-transfer-linux/") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "1ianph8ivj0fxg1l7llid7gv4pbfb5j23b33j9gan6x7scr13q2h")))) (build-system cmake-build-system) (arguments (list #:tests? #f)) ;there are no tests (inputs (list qtbase-5 fuse libxkbcommon)) (native-inputs (list qttools-5 openssl readline)) (home-page "https://whoozle.github.io/android-file-transfer-linux/") (synopsis "MTP client for Android devices") (description "This package provides a Qt graphical interface for transferring files with Android devices using MTP. It also allows the Android device to be mounted via FUSE.") (license license:lgpl2.1+)))