From 6b97d643890b79db511582e1b76dee70ca486920 Mon Sep 17 00:00:00 2001 From: Sharlatan Hellseher Date: Sat, 13 Apr 2024 13:28:40 +0100 Subject: [PATCH] gnu: asymptote: Sort alphabetically. * gnu/packages/plotutils.scm (asymptote): Sort alphabetically. Change-Id: I26c8b7e1fd5d83e95bd19387492dd40ec87231ca --- gnu/packages/plotutils.scm | 302 ++++++++++++++++++------------------- 1 file changed, 151 insertions(+), 151 deletions(-) diff --git a/gnu/packages/plotutils.scm b/gnu/packages/plotutils.scm index 9ce4bde582..a4d0f9156b 100644 --- a/gnu/packages/plotutils.scm +++ b/gnu/packages/plotutils.scm @@ -61,6 +61,157 @@ (define-module (gnu packages plotutils) #:use-module (gnu packages web) #:use-module (gnu packages xorg)) +(define-public asymptote + (package + (name "asymptote") + (version "2.89") + (source + (origin + (method url-fetch) + (uri (string-append "mirror://sourceforge/asymptote/" + version "/asymptote-" version ".src.tgz")) + (sha256 + (base32 "0nvzlnabxjn74ybv3jns9vsr33prlvlg3i20hskz31agxss64kpn")) + (modules '((guix build utils))) + (snippet + ;; Remove bundled RapidJSON. + #~(begin + (delete-file-recursively "LspCpp/third_party/rapidjson"))))) + (build-system gnu-build-system) + ;; Note: The 'asy' binary retains a reference to docdir for use with its + ;; "help" command in interactive mode, so adding a "doc" output is not + ;; currently useful. + (native-inputs + (list autoconf + automake + bison + boost + cmake + emacs-minimal + flex + ghostscript ;for tests + perl + pkg-config + rapidjson + texinfo ;for generating documentation + (texlive-updmap.cfg + (list texlive-epsf + texlive-etoolbox + texlive-hypdoc + texlive-infwarerr + texlive-kvdefinekeys + texlive-kvoptions + texlive-media9 + texlive-ocgx2 + texlive-parskip + texlive-pdftexcmds + texlive-texinfo)))) + (inputs + (list bash-minimal + eigen + fftw + freeglut + glew + glm + gsl + libgc + libtirpc + python + python-cson + python-numpy + python-pyqt + readline + zlib)) + (arguments + (list + #:modules '((guix build emacs-utils) + (guix build gnu-build-system) + (guix build utils) + (srfi srfi-26)) + #:imported-modules `(,@%gnu-build-system-modules + (guix build emacs-utils)) + #:configure-flags + #~(list (string-append "--enable-gc=" #$(this-package-input "libgc")) + (string-append "--with-latex=" #$output "/share/texmf/tex/latex") + (string-append "--with-context=" + #$output + "/share/texmf/tex/context/third")) + #:phases + #~(modify-phases %standard-phases + (add-after 'unpack 'locate-tirpc + (lambda* (#:key inputs #:allow-other-keys) + (substitute* (list "configure.ac") + (("/usr/include/tirpc") + (search-input-directory inputs "include/tirpc"))))) + (add-after 'unpack 'unbundle-rapidjson + (lambda* (#:key inputs #:allow-other-keys) + (substitute* (list "Makefile.in") + (("\\$\\(CMAKE\\)" all) + (string-append all " -DUSE_SYSTEM_RAPIDJSON=ON"))))) + (add-after 'unpack 'fix-includes + (lambda _ + (substitute* (find-files "." "\\.in$") + (("#include ") "#include \"primitives.h\"")) + (substitute* (find-files "prc" "\\.h$") + (("#include \"config.h\"") "#include \"../config.h\"")) + (substitute* "prc/oPRCFile.h" + (("#include \"xstream.h\"") "#include \"../xstream.h\"")) + (substitute* "v3dfile.h" + (("#include ") "#include \"prc/oPRCFile.h\"")) + (substitute* "LspCpp/src/lsp/ParentProcessWatcher.cpp" + (("#include " all) + (string-append "#include \n" all))))) + (replace 'bootstrap + (lambda _ + (invoke "autoreconf" "-vfi"))) + (add-after 'unpack 'move-info-location + ;; Build process installs info file in the unusual + ;; "%out/share/info/asymptote/" location. Move it to + ;; "%out/share/info/" so it appears in the top-level directory. + (lambda _ + (substitute* "doc/png/Makefile.in" + (("(\\$\\(infodir\\))/asymptote" _ infodir) infodir)) + (substitute* "doc/asymptote.texi" + (("asymptote/asymptote") "asymptote")))) + (add-before 'build 'patch-pdf-viewer + (lambda _ + ;; Default to a free pdf viewer. + (substitute* "settings.cc" + (("defaultPDFViewer=\"acroread\"") + "defaultPDFViewer=\"gv\"")))) + (add-before 'check 'set-HOME + ;; Some tests require write access to $HOME, otherwise leading to + ;; "failed to create directory /homeless-shelter/.asy" error. + (lambda _ + (setenv "HOME" "/tmp"))) + (add-after 'install 'install-Emacs-data + (lambda _ + ;; Install related Emacs libraries into an appropriate location. + (let ((lisp-dir + (string-append #$output "/share/emacs/site-lisp"))) + (for-each (cut install-file <> lisp-dir) + (find-files "." "\\.el$")) + (emacs-generate-autoloads #$name lisp-dir)))) + (add-after 'install-Emacs-data 'wrap-python-script + (lambda* (#:key inputs outputs #:allow-other-keys) + ;; Make sure 'xasy' runs with the correct PYTHONPATH. + (let ((path (getenv "GUIX_PYTHONPATH"))) + (wrap-program + (string-append #$output "/share/asymptote/GUI/xasy.py") + `("GUIX_PYTHONPATH" ":" prefix (,path))))))))) + (home-page "https://asymptote.sourceforge.io") + (synopsis "Script-based vector graphics language") + (description + "Asymptote is a powerful descriptive vector graphics language for +technical drawing, inspired by MetaPost but with an improved C++-like syntax. +Asymptote provides for figures the same high-quality level of typesetting that +LaTeX does for scientific text.") + ;; Most source files do not contain license statements, but the README + ;; contains: "All source files in the Asymptote project, unless explicitly + ;; noted otherwise, are released under version 3 (or later) of the GNU + ;; Lesser General Public License" + (license license:lgpl3+))) + (define-public plotutils (package (name "plotutils") @@ -273,157 +424,6 @@ (define-public ploticus colors, styles, options and details.") (license license:gpl2+))) -(define-public asymptote - (package - (name "asymptote") - (version "2.89") - (source - (origin - (method url-fetch) - (uri (string-append "mirror://sourceforge/asymptote/" - version "/asymptote-" version ".src.tgz")) - (sha256 - (base32 "0nvzlnabxjn74ybv3jns9vsr33prlvlg3i20hskz31agxss64kpn")) - (modules '((guix build utils))) - (snippet - ;; Remove bundled RapidJSON. - #~(begin - (delete-file-recursively "LspCpp/third_party/rapidjson"))))) - (build-system gnu-build-system) - ;; Note: The 'asy' binary retains a reference to docdir for use with its - ;; "help" command in interactive mode, so adding a "doc" output is not - ;; currently useful. - (native-inputs - (list autoconf - automake - bison - boost - cmake - emacs-minimal - flex - ghostscript ;for tests - perl - pkg-config - rapidjson - texinfo ;for generating documentation - (texlive-updmap.cfg - (list texlive-epsf - texlive-etoolbox - texlive-hypdoc - texlive-infwarerr - texlive-kvdefinekeys - texlive-kvoptions - texlive-media9 - texlive-ocgx2 - texlive-parskip - texlive-pdftexcmds - texlive-texinfo)))) - (inputs - (list bash-minimal - eigen - fftw - freeglut - glew - glm - gsl - libgc - libtirpc - python - python-cson - python-numpy - python-pyqt - readline - zlib)) - (arguments - (list - #:modules '((guix build emacs-utils) - (guix build gnu-build-system) - (guix build utils) - (srfi srfi-26)) - #:imported-modules `(,@%gnu-build-system-modules - (guix build emacs-utils)) - #:configure-flags - #~(list (string-append "--enable-gc=" #$(this-package-input "libgc")) - (string-append "--with-latex=" #$output "/share/texmf/tex/latex") - (string-append "--with-context=" - #$output - "/share/texmf/tex/context/third")) - #:phases - #~(modify-phases %standard-phases - (add-after 'unpack 'locate-tirpc - (lambda* (#:key inputs #:allow-other-keys) - (substitute* (list "configure.ac") - (("/usr/include/tirpc") - (search-input-directory inputs "include/tirpc"))))) - (add-after 'unpack 'unbundle-rapidjson - (lambda* (#:key inputs #:allow-other-keys) - (substitute* (list "Makefile.in") - (("\\$\\(CMAKE\\)" all) - (string-append all " -DUSE_SYSTEM_RAPIDJSON=ON"))))) - (add-after 'unpack 'fix-includes - (lambda _ - (substitute* (find-files "." "\\.in$") - (("#include ") "#include \"primitives.h\"")) - (substitute* (find-files "prc" "\\.h$") - (("#include \"config.h\"") "#include \"../config.h\"")) - (substitute* "prc/oPRCFile.h" - (("#include \"xstream.h\"") "#include \"../xstream.h\"")) - (substitute* "v3dfile.h" - (("#include ") "#include \"prc/oPRCFile.h\"")) - (substitute* "LspCpp/src/lsp/ParentProcessWatcher.cpp" - (("#include " all) - (string-append "#include \n" all))))) - (replace 'bootstrap - (lambda _ - (invoke "autoreconf" "-vfi"))) - (add-after 'unpack 'move-info-location - ;; Build process installs info file in the unusual - ;; "%out/share/info/asymptote/" location. Move it to - ;; "%out/share/info/" so it appears in the top-level directory. - (lambda _ - (substitute* "doc/png/Makefile.in" - (("(\\$\\(infodir\\))/asymptote" _ infodir) infodir)) - (substitute* "doc/asymptote.texi" - (("asymptote/asymptote") "asymptote")))) - (add-before 'build 'patch-pdf-viewer - (lambda _ - ;; Default to a free pdf viewer. - (substitute* "settings.cc" - (("defaultPDFViewer=\"acroread\"") - "defaultPDFViewer=\"gv\"")))) - (add-before 'check 'set-HOME - ;; Some tests require write access to $HOME, otherwise leading to - ;; "failed to create directory /homeless-shelter/.asy" error. - (lambda _ - (setenv "HOME" "/tmp"))) - (add-after 'install 'install-Emacs-data - (lambda _ - ;; Install related Emacs libraries into an appropriate location. - (let ((lisp-dir - (string-append #$output "/share/emacs/site-lisp"))) - (for-each (cut install-file <> lisp-dir) - (find-files "." "\\.el$")) - (emacs-generate-autoloads #$name lisp-dir)))) - (add-after 'install-Emacs-data 'wrap-python-script - (lambda* (#:key inputs outputs #:allow-other-keys) - ;; Make sure 'xasy' runs with the correct PYTHONPATH. - (let ((path (getenv "GUIX_PYTHONPATH"))) - (wrap-program - (string-append #$output "/share/asymptote/GUI/xasy.py") - `("GUIX_PYTHONPATH" ":" prefix (,path))))))))) - (home-page "https://asymptote.sourceforge.io") - (synopsis "Script-based vector graphics language") - (description - "Asymptote is a powerful descriptive vector graphics language for -technical drawing, inspired by MetaPost but with an improved C++-like syntax. -Asymptote provides for figures the same high-quality level of typesetting that -LaTeX does for scientific text.") - ;; Most source files do not contain license statements, but the README - ;; contains: "All source files in the Asymptote project, unless explicitly - ;; noted otherwise, are released under version 3 (or later) of the GNU - ;; Lesser General Public License" - (license license:lgpl3+))) - (define-public ruby-unicode-plot (package (name "ruby-unicode-plot")