ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-18 00:42:17 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: libfive: Add Python bindings.

Browse source 
* gnu/packages/engineering.scm (libfive)
[configure-flags]: Add python site-dir.
[phases]<fix-library-location>: Fix for python as well.
<wrap-studio>: Wrap for python as well.
[inputs]: Add python-wrapper.  Alphabetize.
[description]: Add python.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Morgan Smith 2023-05-10 13:46:18 -04:00 committed by Ludovic Courtès
parent a062028bc3
commit 3b4a31d52c
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 25 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
gnu/packages/engineering.scm
View file

@ -914,6 +914,14 @@ (define-public libfive
((guix build guile-build-system) #:prefix guile:) ((guix build guile-build-system) #:prefix guile:)
(guix build utils)) (guix build utils))
#:test-target "libfive-test" #:test-target "libfive-test"
#:configure-flags #~(list
(string-append
"-DPYTHON_SITE_PACKAGES_DIR="
#$output "/lib/python"
#$(version-major+minor
(package-version
(this-package-input "python-wrapper")))
"/site-packages"))
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'remove-native-compilation (add-after 'unpack 'remove-native-compilation
@ -929,7 +937,10 @@ (define-public libfive
(("\\(get-environment-variable \"LIBFIVE_FRAMEWORK_DIR\"\\)" m) (("\\(get-environment-variable \"LIBFIVE_FRAMEWORK_DIR\"\\)" m)
(string-append m "\n\"" #$output "/lib/\"")) (string-append m "\n\"" #$output "/lib/\""))
(("\\(get-environment-variable \"LIBFIVE_STDLIB_DIR\"\\)" m) (("\\(get-environment-variable \"LIBFIVE_STDLIB_DIR\"\\)" m)
(string-append m "\n\"" #$output "/lib/\""))))) (string-append m "\n\"" #$output "/lib/\"")))
(substitute* "libfive/bind/python/libfive/ffi.py"
(("os.environ.get\\('LIBFIVE_FRAMEWORK_DIR'\\)" m)
(string-append m " or \"" #$output "/lib/\"")))))
(add-after 'unpack 'do-not-build-guile-bindings (add-after 'unpack 'do-not-build-guile-bindings
(lambda _ (lambda _
(delete-file "libfive/bind/guile/CMakeLists.txt") (delete-file "libfive/bind/guile/CMakeLists.txt")
@ -948,22 +959,28 @@ (define-public libfive
(scm (string-append #$output "/share/guile/site/" (scm (string-append #$output "/share/guile/site/"
effective-version)) effective-version))
(go (string-append #$output "/lib/guile/" (go (string-append #$output "/lib/guile/"
effective-version "/site-ccache"))) effective-version "/site-ccache"))
(py (string-append #$output "/lib/python"
#$(version-major+minor
(package-version
(this-package-input "python-wrapper")))
"/site-packages")))
(wrap-program (string-append #$output "/bin/Studio") (wrap-program (string-append #$output "/bin/Studio")
`("GUILE_LOAD_PATH" ":" prefix (,scm)) `("GUILE_LOAD_PATH" ":" prefix (,scm))
`("GUILE_LOAD_COMPILED_PATH" ":" prefix (,go))))))))) `("GUILE_LOAD_COMPILED_PATH" ":" prefix (,go))
`("GUIX_PYTHONPATH" ":" prefix (,py)))))))))
(native-inputs (native-inputs
(list pkg-config)) (list pkg-config))
(inputs (inputs
(list boost libpng qtbase eigen guile-3.0 bash-minimal)) (list bash-minimal boost eigen guile-3.0 libpng python-wrapper qtbase))
(home-page "https://libfive.com") (home-page "https://libfive.com")
(synopsis "Tool for programmatic computer-aided design") (synopsis "Tool for programmatic computer-aided design")
(description (description
"Libfive is a tool for programmatic computer-aided design (CAD). In "Libfive is a tool for programmatic computer-aided design (CAD). In
libfive, solid models are defined as Scheme scripts, and there are no opaque libfive, solid models are defined as Scheme or Python scripts, and there are
function calls into the geometry kernel: everything is visible to the user. no opaque function calls into the geometry kernel: everything is visible to
Even fundamental, primitive shapes are represented as code in the user-level the user. Even fundamental, primitive shapes are represented as code in the
language.") user-level language.")
(license (list license:mpl2.0 ;library (license (list license:mpl2.0 ;library
license:gpl2+)) ;Guile bindings and GUI license:gpl2+)) ;Guile bindings and GUI