package definition: unbound variable ungexp

package definition: unbound variable ungexp

[Reza Alizadeh Majd]

Hello Guix, 

I want to create a plain file during package build and copy it to output. 
but using following definition, I receive error on during package installation:

--- CODE: -------------------------------------------------------------------------------------
(add-after 'install 'register-plugin
               (lambda* (#:key outputs #:allow-other-keys)
                  (let* ((out     (assoc-ref outputs "out"))
                             (regpath (string-append out "/etc/px/accounts/plugins"))
                             (plugin-data (string-append "plugin:\n"
                                                                                        "   name: " ,name "\n"
                                                                                        "   version: " ,version "\n"
                                                                                        "   type: python\n")))

                     (install-file #$(plain-file "test-plugin.yaml" plugin-data) regpath))))
--------------------------------------------------------------------------------------------------

and error that I received during package build: 

--- ERROR: ------------------------------------------------------------------------------------
starting phase `register-plugin'
Backtrace:
           8 (primitive-load "/gnu/store/fpj6577yfiiz40ci39bw8zzycsy…")
In ice-9/eval.scm:
   191:35  7 (_ #f)
In srfi/srfi-1.scm:
   863:16  6 (every1 #<procedure 531a20 at /gnu/store/4r04fsfcryy5h…> …)
In /gnu/store/4r04fsfcryy5h4v2h3g6lzlibafmmdjm-module-import/guix/build/gnu-build-system.scm:
   799:28  5 (_ _)
In ice-9/eval.scm:
    619:8  4 (_ #(#(#(#(#(#(#(#<directory (guile-…>) …) …) …) …) …) …))
    159:9  3 (_ #(#(#(#(#(#(#(#<directory (guile-…>) …) …) …) …) …) …))
   182:19  2 (proc #(#(#(#(#(#(#(#<directory (gui…>) …) …) …) …) …) …))
   142:16  1 (compile-top-call _ (7 . ungexp) ((10 (13 15 7 . #) # …)))
In unknown file:
           0 (%resolve-variable (7 . ungexp) #<directory (guile-user…>)

ERROR: In procedure %resolve-variable:
Unbound variable: ungexp
--------------------------------------------------------------------------------------------------

does any one knows which package do I have to add in order to solve this issue? 


Best, 
Reza

Re: package definition: unbound variable ungexp

[Gábor Boskovits]

Hello,

Reza Alizadeh Majd <r.majd@pantherx.org> ezt írta (időpont: 2019. jún. 9.,
V, 8:26):

> Hello Guix,
>
> I want to create a plain file during package build and copy it to output.
> but using following definition, I receive error on during package
> installation:
>
> --- CODE:
> -------------------------------------------------------------------------------------
> (add-after 'install 'register-plugin
>                (lambda* (#:key outputs #:allow-other-keys)
>                   (let* ((out     (assoc-ref outputs "out"))
>                              (regpath (string-append out
> "/etc/px/accounts/plugins"))
>                              (plugin-data (string-append "plugin:\n"
>
>               "   name: " ,name "\n"
>
>               "   version: " ,version "\n"
>
>               "   type: python\n")))
>
>                      (install-file #$(plain-file "test-plugin.yaml"
> plugin-data) regpath))))
>
> --------------------------------------------------------------------------------------------------
>
> and error that I received during package build:
>
> --- ERROR:
> ------------------------------------------------------------------------------------
> starting phase `register-plugin'
> Backtrace:
>            8 (primitive-load "/gnu/store/fpj6577yfiiz40ci39bw8zzycsy…")
> In ice-9/eval.scm:
>    191:35  7 (_ #f)
> In srfi/srfi-1.scm:
>    863:16  6 (every1 #<procedure 531a20 at /gnu/store/4r04fsfcryy5h…> …)
> In
> /gnu/store/4r04fsfcryy5h4v2h3g6lzlibafmmdjm-module-import/guix/build/gnu-build-system.scm:
>    799:28  5 (_ _)
> In ice-9/eval.scm:
>     619:8  4 (_ #(#(#(#(#(#(#(#<directory (guile-…>) …) …) …) …) …) …))
>     159:9  3 (_ #(#(#(#(#(#(#(#<directory (guile-…>) …) …) …) …) …) …))
>    182:19  2 (proc #(#(#(#(#(#(#(#<directory (gui…>) …) …) …) …) …) …))
>    142:16  1 (compile-top-call _ (7 . ungexp) ((10 (13 15 7 . #) # …)))
> In unknown file:
>            0 (%resolve-variable (7 . ungexp) #<directory (guile-user…>)
>
> ERROR: In procedure %resolve-variable:
> Unbound variable: ungexp
>
> --------------------------------------------------------------------------------------------------
>
> does any one knows which package do I have to add in order to solve this
> issue?
>
>
> Best,
> Reza
>
> I believe you are looking for (guix gexp) module.

Best regards,
g_bor
-- 
OpenPGP Key Fingerprint: 7988:3B9F:7D6A:4DBF:3719:0367:2506:A96C:CF63:0B21

Re: package definition: unbound variable ungexp

[Reza Alizadeh Majd]

Hi, 

> I believe you are looking for (guix gexp) module.

I already added `(guix gexp)` to  #:use-module part of my module definition, but this problem was not fixed. 

Regards, 
Reza

Re: package definition: unbound variable ungexp

[Julien Lepiller]

Le 9 juin 2019 08:26:24 GMT+02:00, Reza Alizadeh Majd <r.majd@pantherx.org> a écrit :
>Hello Guix, 
>
>I want to create a plain file during package build and copy it to
>output. 
>but using following definition, I receive error on during package
>installation:
>
>--- CODE:
>-------------------------------------------------------------------------------------
>(add-after 'install 'register-plugin
>               (lambda* (#:key outputs #:allow-other-keys)
>                  (let* ((out     (assoc-ref outputs "out"))
>               (regpath (string-append out "/etc/px/accounts/plugins"))
>                             (plugin-data (string-append "plugin:\n"
>                                                 "   name: " ,name "\n"
>                                           "   version: " ,version "\n"
>                                                 "   type: python\n")))
>
>(install-file #$(plain-file "test-plugin.yaml" plugin-data) regpath))))
>--------------------------------------------------------------------------------------------------
>
>and error that I received during package build: 
>
>--- ERROR:
>------------------------------------------------------------------------------------
>starting phase `register-plugin'
>Backtrace:
>           8 (primitive-load "/gnu/store/fpj6577yfiiz40ci39bw8zzycsy…")
>In ice-9/eval.scm:
>   191:35  7 (_ #f)
>In srfi/srfi-1.scm:
>  863:16  6 (every1 #<procedure 531a20 at /gnu/store/4r04fsfcryy5h…> …)
>In
>/gnu/store/4r04fsfcryy5h4v2h3g6lzlibafmmdjm-module-import/guix/build/gnu-build-system.scm:
>   799:28  5 (_ _)
>In ice-9/eval.scm:
>    619:8  4 (_ #(#(#(#(#(#(#(#<directory (guile-…>) …) …) …) …) …) …))
>    159:9  3 (_ #(#(#(#(#(#(#(#<directory (guile-…>) …) …) …) …) …) …))
>   182:19  2 (proc #(#(#(#(#(#(#(#<directory (gui…>) …) …) …) …) …) …))
>   142:16  1 (compile-top-call _ (7 . ungexp) ((10 (13 15 7 . #) # …)))
>In unknown file:
>           0 (%resolve-variable (7 . ungexp) #<directory (guile-user…>)
>
>ERROR: In procedure %resolve-variable:
>Unbound variable: ungexp
>--------------------------------------------------------------------------------------------------
>
>does any one knows which package do I have to add in order to solve
>this issue? 
>
>
>Best, 
>Reza

Hi,

I think the issue is that the builder doesn't use (guix gexp). And you're not inside a gexp either, so you can't ungexp. I think what you can do is add an input with that code:

(inputs `(("test-plugin.yaml" ,(plain-file …))))

Then inside your build phase, simply install this input with:

(install-file (assoc-ref inputs "test-plugin.yaml") regpath)

Alternatively, you can write to the file directly in the phase:

(with-output-to-file (string-append regpath "/test-plugin.yaml")
  (lambda _
    (format #t "…")))

Re: package definition: unbound variable ungexp

[Reza Alizadeh Majd]

Hi, 

> can do is add an input with that code:
> 
> (inputs `(("test-plugin.yaml" ,(plain-file …))))
> 
> Then inside your build phase, simply install this input with:
> 
> (install-file (assoc-ref inputs "test-plugin.yaml") regpath)
> 
> Alternatively, you can write to the file directly in the phase:
> 
> (with-output-to-file (string-append regpath "/test-plugin.yaml")
>   (lambda _
>     (format #t "…")))
>

Thanks, adding the file as an input solved the issue. 

Regards, 
Reza

Re: package definition: unbound variable ungexp

[Ludovic Courtès]

Hi,

"Reza Alizadeh Majd" <r.majd@pantherx.org> skribis:

>> can do is add an input with that code:
>> 
>> (inputs `(("test-plugin.yaml" ,(plain-file …))))
>> 
>> Then inside your build phase, simply install this input with:
>> 
>> (install-file (assoc-ref inputs "test-plugin.yaml") regpath)
>> 
>> Alternatively, you can write to the file directly in the phase:
>> 
>> (with-output-to-file (string-append regpath "/test-plugin.yaml")
>>   (lambda _
>>     (format #t "…")))
>>
>
> Thanks, adding the file as an input solved the issue. 

Yes, that’s currently the only way.  What you wrote is not possible
because the package machinery does not use gexps yet.

Thanks,
Ludo’.