01/03: gnu: python-pyqt: Substitute the full path of <qprinter.h>.

[guix-commits]

ambrevar pushed a commit to branch master
in repository guix.

commit 9deae9828111274327955bc1e39ec446c6512e8a
Author: Mike Rosset <address@hidden>
AuthorDate: Tue Jan 14 03:04:59 2020 -0800

    gnu: python-pyqt: Substitute the full path of <qprinter.h>.
    
    * gnu/packages/qt.scm (python-pyqt)[phases]: When building
      python-pyqtwebengine, qprinter.h can not be found.  This substitutes the 
full
      path of qprinter.h in the qprinter sip specification file.
---
 gnu/packages/qt.scm | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/gnu/packages/qt.scm b/gnu/packages/qt.scm
index 5145776..c634f45 100644
--- a/gnu/packages/qt.scm
+++ b/gnu/packages/qt.scm
@@ -1947,6 +1947,17 @@ module provides support functions to the automatically 
generated code.")
                   ,@%gnu-build-system-modules)
        #:phases
        (modify-phases %standard-phases
+         ;; When building python-pyqtwebengine, <qprinter.h> can not be
+         ;; included.  Here we substitute the full path to the header in the
+         ;; store.
+         (add-before 'configure 'substitute-source
+           (lambda* (#:key inputs  #:allow-other-keys)
+             (let* ((qtbase (assoc-ref inputs "qtbase"))
+                    (qtprinter.h (string-append "\"" qtbase 
"/include/qt5/QtPrintSupport/qprinter.h\"")))
+               (substitute* "sip/QtPrintSupport/qprinter.sip"
+                 (("<qprinter.h>")
+                  qtprinter.h))
+               #t)))
          (replace 'configure
            (lambda* (#:key inputs outputs #:allow-other-keys)
              (let* ((out (assoc-ref outputs "out"))