aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Elsing <david.elsing@posteo.net>2022-10-13 21:04:18 +0000
committerLiliana Marie Prikler <liliana.prikler@gmail.com>2022-10-15 12:05:15 +0200
commit06358ee7158cf1c479006aa6c7eb225632422e95 (patch)
treec984d204461ef00b0a6af8779b9c3e359811b099
parent696f20f0f68326065eb30b491e2e71fd0d492ad8 (diff)
downloadguix-06358ee7158cf1c479006aa6c7eb225632422e95.tar.gz
guix-06358ee7158cf1c479006aa6c7eb225632422e95.zip
gnu: Add freesasa.
* gnu/packages/chemistry.scm (freesasa): New variable. Signed-off-by: Liliana Marie Prikler <liliana.prikler@gmail.com>
-rw-r--r--gnu/packages/chemistry.scm85
1 files changed, 85 insertions, 0 deletions
diff --git a/gnu/packages/chemistry.scm b/gnu/packages/chemistry.scm
index 54d9d9b79b..1f76be9500 100644
--- a/gnu/packages/chemistry.scm
+++ b/gnu/packages/chemistry.scm
@@ -34,12 +34,14 @@
#:use-module (gnu packages algebra)
#:use-module (gnu packages autotools)
#:use-module (gnu packages backup)
+ #:use-module (gnu packages bison)
#:use-module (gnu packages boost)
#:use-module (gnu packages check)
#:use-module (gnu packages compression)
#:use-module (gnu packages c)
#:use-module (gnu packages cpp)
#:use-module (gnu packages documentation)
+ #:use-module (gnu packages flex)
#:use-module (gnu packages fontutils)
#:use-module (gnu packages gl)
#:use-module (gnu packages graphviz)
@@ -55,6 +57,7 @@
#:use-module (gnu packages serialization)
#:use-module (gnu packages sphinx)
#:use-module (gnu packages stb)
+ #:use-module (gnu packages web)
#:use-module (gnu packages xml)
#:use-module (guix build-system cmake)
#:use-module (guix build-system copy)
@@ -666,3 +669,85 @@ It can be used for working with
@item crystallographic symmetry.
@end enumerate")
(license license:mpl2.0)))
+
+(define-public freesasa
+ (package
+ (name "freesasa")
+ (version "2.1.2")
+ (source (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/mittinatten/freesasa")
+ (commit version)))
+ (file-name (git-file-name name version))
+ (sha256
+ (base32
+ "07wdnahf3g355ryaiqvfxd5f4rl54wv8jwxcbn0nia89fqysbv0f"))
+ (modules '((guix build utils)))
+ (snippet
+ '(begin
+ ;; Remove C files generated by Flex and Bison
+ (for-each delete-file
+ '("src/parser.c" "src/parser.h"
+ "src/lexer.c" "src/lexer.h"))))))
+ (outputs '("out" "doc"))
+ (build-system gnu-build-system)
+ (arguments
+ (list
+ #:configure-flags
+ #~(list "--enable-check"
+ "--enable-parser-generator"
+ "CXXFLAGS=-std=c++17"
+ "--enable-doxygen")
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-after 'unpack 'remove-libc++-linking
+ (lambda _
+ (substitute* "src/Makefile.am"
+ (("-lc\\+\\+") ""))))
+ (add-after 'unpack 'build-shared-library
+ (lambda _
+ (substitute* "src/Makefile.am"
+ (("lib_LIBRARIES") "lib_LTLIBRARIES")
+ (("libfreesasa\\.a") "libfreesasa.la")
+ (("freesasa_LDADD \\+= libfreesasa\\.la" prev)
+ (string-append prev "\nlibfreesasa_la_LIBADD"
+ " = -ljson-c ${libxml2_LIBS}\n"))
+ (("_a_SOURCES") "_la_SOURCES"))
+ (substitute* "configure.ac"
+ (("AC_PROG_INSTALL" inst)
+ (string-append "AM_PROG_LIBTOOL\n" inst)))
+ (substitute* "tests/Makefile.am"
+ (("libfreesasa\\.a") "libfreesasa.la"))))
+ (add-before 'build 'build-lexer-and-parser
+ (lambda _
+ (with-directory-excursion "src"
+ (invoke "make" "lexer.h" "parser.h"))))
+ (add-after 'install 'install-doc
+ (lambda _
+ (copy-recursively
+ "doc/html"
+ (string-append #$output:doc "/share/doc/"
+ #$name "-" #$version)))))))
+ (inputs (list gemmi json-c libxml2))
+ (native-inputs
+ (list autoconf
+ automake
+ bison
+ check
+ doxygen
+ fast-float
+ flex
+ libtool
+ pegtl
+ perl
+ pkg-config))
+ (home-page "https://freesasa.github.io/")
+ (synopsis "Calculate the solvent accessible surface area (SASA) of
+molecules")
+ (description "FreeSASA is a command line tool and C-library for
+calculating @acronym{SASAs, solvent accessible surface areas}. By default Lee
+& Richards' algorithm is used, but Shrake & Rupley's is also available. Both
+can be parameterized to arbitrary precision, and for high resolution versions
+of the algorithms, the calculations give identical results.")
+ (license license:expat)))