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 utils))
#: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
#~(modify-phases %standard-phases
(add-after 'unpack 'remove-native-compilation
@ -929,7 +937,10 @@ (define-public libfive
(("\\(get-environment-variable \"LIBFIVE_FRAMEWORK_DIR\"\\)" m)
(string-append m "\n\"" #$output "/lib/\""))
(("\\(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
(lambda _
(delete-file "libfive/bind/guile/CMakeLists.txt")
@ -948,22 +959,28 @@ (define-public libfive
(scm (string-append #$output "/share/guile/site/"
effective-version))
(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")
`("GUILE_LOAD_PATH" ":" prefix (,scm))
`("GUILE_LOAD_COMPILED_PATH" ":" prefix (,go)))))))))
`("GUILE_LOAD_COMPILED_PATH" ":" prefix (,go))
`("GUIX_PYTHONPATH" ":" prefix (,py)))))))))
(native-inputs
(list pkg-config))
(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")
(synopsis "Tool for programmatic computer-aided design")
(description
"Libfive is a tool for programmatic computer-aided design (CAD). In
libfive, solid models are defined as Scheme scripts, and there are no opaque
function calls into the geometry kernel: everything is visible to the user.
Even fundamental, primitive shapes are represented as code in the user-level
language.")
libfive, solid models are defined as Scheme or Python scripts, and there are
no opaque function calls into the geometry kernel: everything is visible to
the user. Even fundamental, primitive shapes are represented as code in the
user-level language.")
(license (list license:mpl2.0 ;library
license:gpl2+)) ;Guile bindings and GUI