Re: Help Packaging Incudine (Common Lisp)

["Théo Tyburn" <theo.tyburn@posteo.net>]

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]]