Hi Ludo,
On Sun, 06 Nov 2016 18:36:34 +0100
l...@gnu.org (Ludovic Courtès) wrote:
> Danny Milosavljevic <dan...@scratchpost.org> skribis:
>
> > diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm
> > index 1d577c7..44ab171 100644
> > --- a/gnu/packages/admin.scm
> > +++ b/gnu/packages/admin.scm
> > @@ -43,6 +43,8 @@
> > #:use-module (guix build-system trivial)
> > #:use-module (gnu packages)
> > #:use-module (gnu packages base)
> > + #:use-module (gnu packages cross-base)
> > +; #:use-module ((gnu packages cross-base) #:select (cross-gcc
> > cross-binutils cross-libc))
>
> Never use #:select for (gnu packages …) modules.
>
> > - `(("pkg-config" ,pkg-config)))
> > + `(("pkg-config" ,pkg-config)
> > + ("cross-binutils" ,(cross-binutils "arm-linux-gnueabihf"))
> > + ("cross-gcc" ,(cross-gcc "arm-linux-gnueabihf" #:libc (cross-libc
> > "arm-linux-gnueabihf")))
>
> ‘cross-gcc’ doesn’t have a #:libc parameter. Should be
>
> (let ((triplet "arm-linux-gnueabihf"))
> (cross-gcc triplet
> (cross-binutils triplet)
> (cross-libc triplet)))
Okay, thanks!
After I did that, the error message doesn't change, though:
Backtrace:
In guix/ui.scm:
1220: 19 [run-guix-command package "-i" ...]
In ice-9/boot-9.scm:
157: 18 [catch srfi-34 #<procedure 197dfe0 at guix/ui.scm:426:2 ()> ...]
157: 17 [catch system-error #<procedure 5b09750 at ice-9/eval.scm:416:20 ()>
...]
In ice-9/eval.scm:
481: 16 [lp (#<fluid 47> #<fluid 32>) (#<build-daemon 256.15 5b06740> #t)]
481: 15 [lp (#<fluid 32>) (#t)]
481: 14 [lp (#<fluid 30>) (#)]
432: 13 [eval # #]
In guix/ui.scm:
706: 12 [show-manifest-transaction # # # ...]
In srfi/srfi-1.scm:
601: 11 [map #<procedure upgrade-string (name old-version new-version output
item)> ...]
In guix/ui.scm:
664: 10 [upgrade-string "sunxi-tools" "1.4.1" ...]
In guix/packages.scm:
1141: 9 [package-output # # "out" ...]
793: 8 [cache! #<weak-key-hash-table 13daa20 169/223> # # ...]
1099: 7 [thunk]
793: 6 [cache! #<weak-key-hash-table 13da720 172/223> # # ...]
894: 5 [thunk]
In ice-9/eval.scm:
387: 4 [eval # #]
387: 3 [eval # #]
387: 2 [eval # #]
387: 1 [eval # #]
In unknown file:
?: 0 [struct-ref #<syntax-transformer glibc> 1]
ERROR: In procedure struct-ref:
ERROR: In procedure struct-ref: Wrong type argument in position 1 (expecting
struct): #<syntax-transformer glibc>
Chunks I used:
+ #:use-module (gnu packages cross-base)
...
+ (let ((triplet "arm-linux-gnueabihf"))
+ (package
+ (name "sunxi-tools")
+ (version "1.4.1")
+ (source
+ (origin
+ (method url-fetch)
+ (uri (string-append "https://github.com/linux-sunxi/";
+ "sunxi-tools/archive/v" version ".tar.gz"))
+ (sha256
+ (base32 "06qd2b4dlzbmzfy4q9n8v5rkkbmgcfdbv4nkkcp4nysi10k7cpfs"))
+ (modules '((guix build utils)))
+ (snippet
+ ;; Remove binaries contained in the tarball which are only for the
+ ;; target and can be regenerated anyway.
+ '(delete-file-recursively "bin"))
+ (file-name (string-append name "-" version ".tar.gz"))))
+ (native-inputs
+ `(("pkg-config" ,pkg-config)
+ ("cross-gcc" ,(cross-gcc triplet
+ (cross-binutils triplet)
+ (cross-libc triplet)))))
+ (inputs
+ `(("libusb" ,libusb)))
+ (build-system gnu-build-system)
+ (arguments
+ `(#:tests? #f ; no tests exist
+ #:make-flags (list (string-append "PREFIX="
+ (assoc-ref %outputs "out"))
+ (string-append "CROSS_COMPILE="
+ ,triplet "-")
+ "CC=gcc"
+ "all")
+ #:phases
+ (modify-phases %standard-phases
+ (delete 'configure)
+ (replace 'install
+ (lambda* (#:key make-flags #:allow-other-keys)
+ (zero? (apply system* "make" "install-all" "install-misc"
+ make-flags)))))))
+ (home-page "https://github.com/linux-sunxi/sunxi-tools";)
+ (synopsis "Hardware management tools for Allwinner computers")
+ (description "This package contains tools for Allwinner devices:
...")
+ (license license:gpl2+))))
