Re: Creating a package using two sources/origins

["dabbede@gmail.com" <dabbede@gmail.com>]

Hi (

as you see I'm not yet practical with G-exp and I still have to
understand where exactly they are useful or not.

On Mon, Dec 12, 2022 at 11:43 PM ( <paren@disroot.org> wrote:
>
> Heya,
>
> What you need to do is combine ORIGIN with UNGEXP-NATIVE:
>
>   #~(modify-phases %standard-phases
>       (add-after 'unpack 'unpack-extra-sources
>         (lambda _
>           (copy-recursively #+(origin ...)
>                             "extra-source-directory"))))
>
> When the build script implementing the phases is... built, this lambda will look
> like this:
>
>   (lambda _
>     (copy-recursively "/gnu/store/...-extra-sources"
>                       "extra-source-directory"))
>
> Roughly, the UNGEXP-NATIVE compiles the origin directory for the host
> architecture, then substitutes itself for a string containing the output path of
> the compiled store item.
>
>     -- (

This is a short extract of my custom .scm file:

(define xenomai-version "3.1")
(define xenomai-origin
    (origin
      (method url-fetch)
      (uri (string-append
"https://xenomai.org/downloads/xenomai/stable/xenomai-"
xenomai-version
                          ".tar.bz2"))
      (sha256
        (base32
           "1064l80p9fdbp553mrbin4s7f5qhnwifhfds8a9wl6p6s10alsb4"))))
(define-public my-help
  (package
    (inherit hello)
    (name "my-help")
    (arguments
      #~(modify-phases %standard-phases
      (add-after 'unpack 'unpack-extra-sources
        (lambda _
          (copy-recursively #+xenomai-origin
                            "extra-source-directory")))))))

First of all, I'm not sure whether the gexp that you suggested is
placed correctly within the "arguments" field of the package.
Second, if I try to build the above my-help package I get an exception
with this backtrace:

pcp@PCP3600 ~/guix [env]$ ./pre-inst-env guix build --keep-failed my-help
Backtrace:
In ice-9/boot-9.scm:
  1747:15 19 (with-exception-handler #<procedure 7f52cb297de0 at ic?> ?)
  1752:10 18 (with-exception-handler _ _ #:unwind? _ # _)
In guix/ui.scm:
    449:6 17 (_)
In guix/scripts/build.scm:
    714:5 16 (_)
In srfi/srfi-1.scm:
   673:15 15 (append-map #<procedure 7f52cc86c000 at guix/scripts/b?> ?)
   586:17 14 (map1 ("x86_64-linux"))
In guix/scripts/build.scm:
   716:21 13 (_ _)
In guix/store.scm:
  1382:11 12 (map/accumulate-builds #<store-connection 256.99 7f52d?> ?)
   1300:8 11 (call-with-build-handler #<procedure 7f52cb297d80 at g?> ?)
In guix/scripts/build.scm:
   670:16 10 (_ #<package my-help@2.12.1 /home/pcp/guix/gnu/packages?>)
   659:24  9 (_ #<package my-help@2.12.1 /home/pcp/guix/gnu/package?> ?)
In guix/packages.scm:
  1317:17  8 (supported-package? #<package my-help@2.12.1 /home/pcp?> ?)
In guix/memoization.scm:
    101:0  7 (_ #<hash-table 7f52ccab3e00 0/31> #<package my-help@2?> ?)
In guix/packages.scm:
  1295:37  6 (_)
  1555:16  5 (package->bag _ _ _ #:graft? _)
  1652:22  4 (thunk)
In unknown file:
           3 (_ "my-help-2.12.1" #:system "x86_64-linux" #:source # # ?)
In ice-9/boot-9.scm:
  1685:16  2 (raise-exception _ #:continuable? _)
  1685:16  1 (raise-exception _ #:continuable? _)
  1685:16  0 (raise-exception _ #:continuable? _)

ice-9/boot-9.scm:1685:16: In procedure raise-exception:
In procedure apply: Apply to non-list: #<gexp (modify-phases
%standard-phases (add-after (quote unpack) (quote
unpack-extra-sources) (lambda _ (copy-recursively #<gexp-input native
#<origin "https://xenomai.org/downloads/xenomai/stable/xenomai-3.1.tar.bz2"
#<content-hash sha256:1064l80p9fdbp553mrbin4s7f5qhnwifhfds8a9wl6p6s10alsb4>
() 7f52ce4af960>:out> "extra-source-directory"))))
/home/pcp/guix/gnu/packages/dabbede.scm:31:6 7f52cc88c9c0>

Finally, if not too much out of scope, can you explain me why the #+
ungexp can accept an origin object instead of a package? I assumed
from the documentation that gexp where used only to reference among
derivation of packages.

Regards