Re: Help Packaging Incudine (Common Lisp)

[Théo Tyburn]

Hi, sure. Note that here the installation is narrowed to the asd system
"cl-sndfile". But you could add or replace it by "incudine".

> (define-public sbcl-incudine
>   (let ((commit "21c99e4fe1b152c125a1bc6df915759b46cdab78")
>         (revision "1"))
>     (package
>      (name "sbcl-incudine")
>      (version (git-version "0.0.0" revision commit))
>      (source
>       (origin
>        (method git-fetch)
>        (uri (git-reference
>              (url "https://git.code.sf.net/p/incudine/incudine";)
>              (commit commit)))
>        (file-name (git-file-name "incudine" version))
>        (sha256
>         (base32 "1zh17ifb6l8cpj5lzjz218h02c7rhf9khnh0lra3qmxd8dlwhqpa"))))
>      (build-system asdf-build-system/sbcl)
>        (arguments
>       `(#:asd-systems '("cl-sndfile")
>               #:phases
>               (modify-phases
>                %standard-phases
>                (add-after 'unpack 'fix-paths
>                                       (lambda* (#:key inputs 
> #:allow-other-keys)
>                                         ;; contrib
>                                         (map (lambda (system-name)
>                                                        (substitute* 
> (string-append "contrib/cl-"
>                                                                               
>                                  system-name
>                                                                               
>                                  "/cffi-"
>                                                                               
>                                  system-name
>                                                                               
>                                  ".lisp") 
>                                                                               
>   (((string-append "lib" system-name "\\.so"))
>                                                                               
>    (search-input-file inputs
>                                                                               
>                                           (string-append "/lib/lib"
>                                                                               
>                                                                          
> system-name
>                                                                               
>                                                                          
> ".so")))))
>                                                  '("sndfile" "portmidi"))
>                                         ;; foreign
>                                         (map (lambda (system-name)
>                                                        (substitute* 
> (string-append "src/foreign.lisp") 
>                                                                               
>   (((string-append "lib" system-name "\\.so"))
>                                                                               
>    (search-input-file inputs
>                                                                               
>                                           (string-append "/lib/lib"
>                                                                               
>                                                                          
> system-name
>                                                                               
>                                                                          
> ".so")))))
>                                                  '("fftw3" "gslcblas" "gsl" 
> ""))
>                                         )))))
>      (inputs
>       (list sbcl-alexandria sbcl-bordeaux-threads sbcl-cffi sbcl-swap-bytes
>                       sbcl-trivial-garbage
>                       ;; pthread
>                       ;; jack
>                       portmidi
>                       libsndfile
>                       ;; fftw
>                       gsl
>                       ;; fluidsynth
>                       ;; lilv
>                       ))
>      (home-page "https://incudine.sourceforge.net";)
>      (synopsis "Music/DSP programming environment for Common Lisp")
>      (description
>       "Incudine is useful to design software synthesizers or sound plugins 
> from scratch, exploiting the expressive power of Common Lisp, without the 
> constraint to use pre-built unit generators. It is also a compositional tool 
> that allows to produce high quality sounds controllable at the sample level, 
> defining and redefining the digital signal processors and the musical 
> structures on-the-fly. ")
>      (license license:bsd-2))))

Guillaume Le Vaillant <glv@posteo.net> writes:

> [[PGP Signed Part:Undecided]]
> Hi.
> Could you send the package definition you made for Incudine?
> I could take a look at it and try to find where the issue comes from.
>
> [[End of PGP Signed Part]]