Re: freecad 19.1 / flatpak

[Ekaitz Zarraga <ekaitz@elenq.tech>]

[-- Attachment #1: Type: text/plain, Size: 1013 bytes --]

Hi,

You can try with the file attached.

You just need to run the following, considering `freecad.scm` is the attached file, and that you are in the folder that contains the file.
```
guix build -f freecad.scm
```

Like half an hour later, you'll get an output similar to this:

```
$ guix build -f freecad.scm
>>TONS OF COMPILATION RELATED NONSENSE<<
/gnu/store/74c1nrijb1x29pj9f94265zaq8frqf4f-freecad-0.19.1
```

That's the folder where the result of the build is. You can run that freecad using the path you got like this:

```
$ /gnu/store/74c1nrijb1x29pj9f94265zaq8frqf4f-freecad-0.19.1/bin/FreeCAD
```

Tell me if it works and how does it look.
If it works fine I'll send a patch to Guix with this package and you'll soon have it in Guix. Also, if you need it now, you can use the file I gave you and install it from there with the same -f trick, or even create an environment for it, that way it will be easier to run.

For any question you have, just ask.

Good luck!
Ekaitz

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: freecad.scm --]
[-- Type: text/x-scheme; name=freecad.scm, Size: 5289 bytes --]

(define-module (freecad)
  #:use-module (guix packages)
  #:use-module (guix git-download)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix build-system qt)
  #:use-module (gnu packages)
  #:use-module (gnu packages engineering)
  #:use-module (gnu packages algebra)
  #:use-module (gnu packages boost)
  #:use-module (gnu packages fontutils)
  #:use-module (gnu packages gl)
  #:use-module (gnu packages xorg)
  #:use-module (gnu packages tbb)
  #:use-module (gnu packages image-processing)
  #:use-module (gnu packages xml)
  #:use-module (gnu packages documentation)
  #:use-module (gnu packages graphviz)
  #:use-module (gnu packages pkg-config)
  #:use-module (gnu packages swig)
  #:use-module (gnu packages compression)
  #:use-module (gnu packages graphics)
  #:use-module (gnu packages maths)
  #:use-module (gnu packages multiprecision)
  #:use-module (gnu packages mpi)
  #:use-module (gnu packages pcre)
  #:use-module (gnu packages python)
  #:use-module (gnu packages python-xyz)
  #:use-module (gnu packages qt)
  #:use-module (gnu packages version-control))


(define-public freecad
  (package
      (name "freecad")
      (version "0.19.1")
      (source
        (origin
          (method git-fetch)
          (uri (git-reference
                 (url "https://github.com/FreeCAD/FreeCAD")
                 (commit version)))
          (file-name (git-file-name name version))
          (sha256
            (base32
              "0c53q2iawy4yfp11czyc7lbr9ivp3r7v24x4c20myh11wyplffc0"))))
      (build-system qt-build-system)
      (native-inputs
       `(("doxygen" ,doxygen)
         ("graphviz" ,graphviz)
         ("qttools" ,qttools)
         ("pkg-config" ,pkg-config)
         ("python-pyside-2-tools" ,python-pyside-2-tools)
         ("swig" ,swig)))
      (inputs
       `(("boost" ,boost)
         ("coin3D" ,coin3D)
         ("eigen" ,eigen)
         ("freetype" ,freetype)
         ("glew" ,glew)
         ("hdf5" ,hdf5-1.10)
         ("libarea" ,libarea)
         ("libmedfile" ,libmedfile)
         ("libspnav" ,libspnav)
         ("libxi" ,libxi)
         ("libxmu" ,libxmu)
         ("openmpi" ,openmpi)
         ("opencascade-occt" ,opencascade-occt)
         ("python-matplotlib" ,python-matplotlib)
         ("python-pyside-2" ,python-pyside-2)
         ("python-shiboken-2" ,python-shiboken-2)
         ("python-pivy" ,python-pivy)
         ("python-wrapper" ,python-wrapper)
         ("python-gitpython" ,python-gitpython)
         ("python-pyyaml" ,python-pyyaml)
         ("qtbase" ,qtbase)
         ("qtsvg" ,qtsvg)
         ("qtx11extras" ,qtx11extras)
         ("qtxmlpatterns" ,qtxmlpatterns)
         ("qtwebkit" ,qtwebkit)
         ("tbb" ,tbb)
         ("vtk" ,vtk)
         ("xerces-c" ,xerces-c)
         ("zlib" ,zlib)))
      (arguments
       `(#:tests? #f
         #:configure-flags
         (list
          "-DBUILD_QT5=ON"
          (string-append "-DCMAKE_INSTALL_LIBDIR=" (assoc-ref %outputs "out") "/lib")
          (string-append "-DPYSIDE2UICBINARY="
                         (assoc-ref %build-inputs "python-pyside-2-tools")
                         "/bin/uic")
          (string-append "-DPYSIDE2RCCBINARY="
                         (assoc-ref %build-inputs "python-pyside-2-tools")
                         "/bin/rcc")
          "-DPYSIDE_LIBRARY=PySide2::pyside2"
          (string-append
           "-DPYSIDE_INCLUDE_DIR="
           (assoc-ref %build-inputs "python-pyside-2") "/include;"
           (assoc-ref %build-inputs "python-pyside-2") "/include/PySide2;"
           (assoc-ref %build-inputs "python-pyside-2") "/include/PySide2/QtCore;"
           (assoc-ref %build-inputs "python-pyside-2") "/include/PySide2/QtWidgets;"
           (assoc-ref %build-inputs "python-pyside-2") "/include/PySide2/QtGui;")
          "-DSHIBOKEN_LIBRARY=Shiboken2::libshiboken"
          (string-append "-DSHIBOKEN_INCLUDE_DIR="
                         (assoc-ref %build-inputs "python-shiboken-2")
                         "/include/shiboken2"))
         #:phases
         (modify-phases %standard-phases
           (add-before 'configure 'restore-pythonpath
             (lambda _
               (substitute* "src/Main/MainGui.cpp"
                 (("_?putenv\\(\"PYTHONPATH=\"\\);") ""))
               #t))
           (add-after 'install 'wrap-pythonpath
             (lambda* (#:key outputs #:allow-other-keys)
               (let ((out (assoc-ref outputs "out")))
                 (wrap-program (string-append out "/bin/FreeCAD")
                   (list "PYTHONPATH"
                         'prefix (list (getenv "PYTHONPATH")))))
               #t)))))
      (home-page "https://www.freecadweb.org/")
      (synopsis "Your Own 3D Parametric Modeler")
      (description
       "FreeCAD is a general purpose feature-based, parametric 3D modeler for
CAD, MCAD, CAx, CAE and PLM, aimed directly at mechanical engineering and
product design but also fits a wider range of uses in engineering, such as
architecture or other engineering specialties.  It is 100% Open Source (LGPL2+
license) and extremely modular, allowing for very advanced extension and
customization.")
      (license
       (list
        license:lgpl2.1+
        license:lgpl2.0+
        license:gpl3+
        license:bsd-3))))

freecad