443 lines
18 KiB
Scheme
443 lines
18 KiB
Scheme
;;; GNU Guix --- Functional package management for GNU
|
||
;;; Copyright © 2013, 2015, 2018 Ludovic Courtès <ludo@gnu.org>
|
||
;;; Copyright © 2015 Andreas Enge <andreas@enge.fr>
|
||
;;; Copyright © 2015 Ricardo Wurmus <rekado@elephly.net>
|
||
;;; Copyright © 2016, 2017 Efraim Flashner <efraim@flashner.co.il>
|
||
;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr>
|
||
;;; Copyright © 2017, 2018 Clément Lassieur <clement@lassieur.org>
|
||
;;; Copyright © 2017 Andy Wingo <wingo@igalia.com>
|
||
;;; Copyright © 2018 Fis Trivial <ybbs.daans@hotmail.com>
|
||
;;;
|
||
;;; This file is part of GNU Guix.
|
||
;;;
|
||
;;; GNU Guix is free software; you can redistribute it and/or modify it
|
||
;;; under the terms of the GNU General Public License as published by
|
||
;;; the Free Software Foundation; either version 3 of the License, or (at
|
||
;;; your option) any later version.
|
||
;;;
|
||
;;; GNU Guix is distributed in the hope that it will be useful, but
|
||
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
;;; GNU General Public License for more details.
|
||
;;;
|
||
;;; You should have received a copy of the GNU General Public License
|
||
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
|
||
|
||
(define-module (gnu packages code)
|
||
#:use-module (guix packages)
|
||
#:use-module (guix download)
|
||
#:use-module ((guix licenses) #:prefix license:)
|
||
#:use-module (guix build-system gnu)
|
||
#:use-module (guix build-system cmake)
|
||
#:use-module (gnu packages)
|
||
#:use-module (gnu packages base)
|
||
#:use-module (gnu packages compression)
|
||
#:use-module (gnu packages cpp)
|
||
#:use-module (gnu packages databases)
|
||
#:use-module (gnu packages emacs)
|
||
#:use-module (gnu packages gcc)
|
||
#:use-module (gnu packages pcre)
|
||
#:use-module (gnu packages pkg-config)
|
||
#:use-module (gnu packages perl)
|
||
#:use-module (gnu packages texinfo)
|
||
#:use-module (gnu packages autogen)
|
||
#:use-module (gnu packages ncurses)
|
||
#:use-module (gnu packages autotools)
|
||
#:use-module (gnu packages llvm)
|
||
#:use-module (gnu packages lua)
|
||
#:use-module (gnu packages bash))
|
||
|
||
;;; Tools to deal with source code: metrics, cross-references, etc.
|
||
|
||
(define-public cflow
|
||
(package
|
||
(name "cflow")
|
||
(version "1.5")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnu/cflow/cflow-"
|
||
version ".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"0yq33k5ap1zpnja64n89iai4zh018ffr72wki5a6mzczd880mr3g"))))
|
||
(build-system gnu-build-system)
|
||
|
||
;; Needed to have cflow-mode.el installed.
|
||
(native-inputs `(("emacs" ,emacs-minimal)))
|
||
(arguments
|
||
'(#:configure-flags (list (string-append "CPPFLAGS="
|
||
"-D" "CFLOW_PREPROC=\\\""
|
||
(assoc-ref %build-inputs "gcc")
|
||
"/bin/cpp\\\""))))
|
||
(home-page "https://www.gnu.org/software/cflow/")
|
||
(synopsis "Create a graph of control flow within a program")
|
||
(description
|
||
"GNU cflow analyzes C source files and produces a graph charting the
|
||
control flow of the program. It can output the graph in several styles and
|
||
in either the POSIX format or in an extended GNU format. cflow also includes
|
||
a major mode for Emacs for examining the flowcharts that it produces.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public complexity
|
||
(package
|
||
(name "complexity")
|
||
(version "1.10")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnu/complexity/complexity-"
|
||
version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0lr0l9kj2w3jilz9h9y4np9pf9i9ccpy6331lanki2fnz4z8ldvd"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("texinfo" ,texinfo)
|
||
("autogen" ,autogen)))
|
||
(home-page "https://www.gnu.org/software/complexity/")
|
||
(synopsis "Analyze complexity of C functions")
|
||
(description
|
||
"GNU complexity provides tools for finding procedures that are
|
||
convoluted, overly long or otherwise difficult to understand. This
|
||
may help in learning or reviewing unfamiliar code or perhaps
|
||
highlighting your own code that seemed comprehensible when you wrote it.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public global ; a global variable
|
||
(package
|
||
(name "global")
|
||
(version "6.6.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnu/global/global-"
|
||
version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"1r2r6z41lmgbszzwx7h3jqhwnqb9jj32pndzhr3lb0id710c8gcl"))))
|
||
(build-system gnu-build-system)
|
||
(inputs `(("ncurses" ,ncurses)
|
||
("libltdl" ,libltdl)
|
||
("sqlite" ,sqlite)))
|
||
(arguments
|
||
`(#:configure-flags
|
||
(list (string-append "--with-ncurses="
|
||
(assoc-ref %build-inputs "ncurses"))
|
||
(string-append "--with-sqlite3="
|
||
(assoc-ref %build-inputs "sqlite")))
|
||
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'install 'post-install
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
;; Install the Emacs Lisp file in the right place.
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(data (string-append out "/share/gtags"))
|
||
(lisp (string-append out "/share/emacs/site-lisp")))
|
||
(install-file (string-append data "/gtags.el") lisp)
|
||
(delete-file (string-append data "/gtags.el"))
|
||
#t))))))
|
||
(home-page "https://www.gnu.org/software/global/")
|
||
(synopsis "Cross-environment source code tag system")
|
||
(description
|
||
"GLOBAL is a source code tagging system that functions in the same way
|
||
across a wide array of environments, such as different text editors, shells
|
||
and web browsers. The resulting tags are useful for quickly moving around in
|
||
a large, deeply nested project.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public sloccount
|
||
(package
|
||
(name "sloccount")
|
||
(version "2.26")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "http://www.dwheeler.com/sloccount/sloccount-"
|
||
version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"0ayiwfjdh1946asah861ah9269s5xkc8p5fv1wnxs9znyaxs4zzs"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
'(#:phases (modify-phases %standard-phases
|
||
(delete 'configure)
|
||
(add-before 'build 'make-dotl-files-older
|
||
(lambda _
|
||
;; Make the '.l' files as old as the '.c'
|
||
;; files to avoid triggering the rule that
|
||
;; requires Flex.
|
||
(define ref
|
||
(stat "README"))
|
||
|
||
(for-each (lambda (file)
|
||
(set-file-time file ref))
|
||
(find-files "." "\\.[chl]$"))
|
||
#t))
|
||
(add-before 'install 'make-target-directories
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out")))
|
||
(mkdir-p (string-append out "/bin"))
|
||
(mkdir-p (string-append out
|
||
"/share/man/man1"))
|
||
(mkdir-p (string-append out
|
||
"/share/doc")))))
|
||
(replace 'check
|
||
(lambda _
|
||
(setenv "HOME" (getcwd))
|
||
(setenv "PATH"
|
||
(string-append (getcwd) ":"
|
||
(getenv "PATH")))
|
||
(zero? (system* "make" "test")))))
|
||
|
||
#:make-flags (list (string-append "PREFIX="
|
||
(assoc-ref %outputs "out")))))
|
||
(inputs `(("perl" ,perl)))
|
||
(home-page "http://www.dwheeler.com/sloccount/")
|
||
(synopsis "Count physical source lines of code (SLOC)")
|
||
(description
|
||
"SLOCCount is a set of the programs for counting source lines of
|
||
code (SLOC) in large software systems. It can automatically identify and
|
||
measure a wide range of programming languages. It automatically estimates the
|
||
effort, time, and money it would take to develop the software, using the
|
||
COCOMO model or user-provided parameters.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public cloc
|
||
(package
|
||
(name "cloc")
|
||
(version "1.74")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"https://github.com/AlDanial/cloc/releases/download/" version
|
||
"/cloc-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"0rq5xfiln1wlv3yr9mg18ax4gskbss786iqaf0v45iv6awyl5b2m"))))
|
||
(build-system gnu-build-system)
|
||
(inputs
|
||
`(("coreutils" ,coreutils)
|
||
("perl" ,perl)
|
||
("perl-algorithm-diff" ,perl-algorithm-diff)
|
||
("perl-regexp-common" ,perl-regexp-common)
|
||
("perl-digest-md5" ,perl-digest-md5)))
|
||
(arguments
|
||
`(#:phases (modify-phases %standard-phases
|
||
(delete 'configure)
|
||
(delete 'build)
|
||
(replace 'install
|
||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out")))
|
||
(zero?
|
||
(system* "make" "-C" "Unix"
|
||
(string-append "prefix=" out)
|
||
(string-append "INSTALL="
|
||
(assoc-ref inputs "coreutils")
|
||
"/bin/install")
|
||
"install")))))
|
||
(add-after 'install 'wrap-program
|
||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out")))
|
||
(wrap-program (string-append out "/bin/cloc")
|
||
`("PERL5LIB" ":" =
|
||
,(string-split (getenv "PERL5LIB") #\:)))
|
||
#t))))
|
||
#:out-of-source? #t
|
||
;; Tests require some other packages.
|
||
#:tests? #f))
|
||
(home-page "https://github.com/AlDanial/cloc")
|
||
(synopsis "Count source lines of code (SLOC) and other source code metrics")
|
||
(description "cloc counts blank lines, comment lines, and physical lines
|
||
of source code in many programming languages. Given two versions of a code
|
||
base, cloc can compute differences in blank, comment, and source lines.
|
||
|
||
cloc contains code from David Wheeler's SLOCCount. Compared to SLOCCount,
|
||
cloc can handle a greater variety of programming languages.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public the-silver-searcher
|
||
(package
|
||
(name "the-silver-searcher")
|
||
(version "2.1.0")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"http://geoff.greer.fm/ag/releases/the_silver_searcher-"
|
||
version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"1m0mih1x4jpswc8ganhqh0gmwbmd2hzmz7402mxfh19s3kcjnrfl"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("pcre" ,pcre)
|
||
("xz" ,xz)
|
||
("zlib" ,zlib)))
|
||
(home-page "http://geoff.greer.fm/ag/")
|
||
(synopsis "Fast code searching tool")
|
||
(description
|
||
"The Silver Searcher (@command{ag}) is a tool for quickly searching large
|
||
numbers of files. It's intended primarily for source code repositories, and
|
||
respects files like @file{.gitignore} and @file{.hgignore}. It's also an order
|
||
of magnitude faster than its inspiration, @command{ack}, and less specialised
|
||
tools such as @command{grep}.")
|
||
(license license:asl2.0)))
|
||
|
||
(define-public trio
|
||
(package
|
||
(name "trio")
|
||
(version "1.16")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://sourceforge/ctrio/trio/trio-"
|
||
version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"02pwd5m5vq7hbrffgm2na1dfc249z50yyr5jv73vdw15bd7ygl44"))))
|
||
(build-system gnu-build-system)
|
||
(home-page "http://daniel.haxx.se/projects/trio/")
|
||
(synopsis "Portable and extendable printf and string functions")
|
||
(description
|
||
"Trio is a set of @code{printf} and string functions designed be used by
|
||
applications with a focus on portability or with the need for additional
|
||
features that are not supported by the standard @code{stdio} implementation.")
|
||
;; This license is very similar to the ISC license, but the wording is
|
||
;; slightly different.
|
||
(license (license:non-copyleft
|
||
"http://sourceforge.net/p/ctrio/git/ci/master/tree/README"))))
|
||
|
||
(define-public withershins
|
||
(package
|
||
(name "withershins")
|
||
(version "0.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"https://github.com/cameronwhite/withershins/archive/v"
|
||
version ".tar.gz"))
|
||
(file-name (string-append name "-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"08z3lyvswx7sad10637vfpwglbcbgzzcpfihw0x8lzr74f3b70bh"))))
|
||
(build-system cmake-build-system)
|
||
(arguments
|
||
`(#:out-of-source? #f
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after
|
||
'unpack 'find-libiberty
|
||
(lambda _
|
||
(let ((libiberty (assoc-ref %build-inputs "libiberty")))
|
||
(substitute* "cmake/FindIberty.cmake"
|
||
(("/usr/include") (string-append libiberty "/include"))
|
||
(("libiberty.a iberty")
|
||
(string-append "NAMES libiberty.a iberty\nPATHS \""
|
||
libiberty "/lib" "\"")))
|
||
#t)))
|
||
(replace
|
||
'install
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(include (string-append out "/include"))
|
||
(lib (string-append out "/lib")))
|
||
(mkdir-p include)
|
||
(install-file "src/withershins.hpp" include)
|
||
(mkdir-p lib)
|
||
(install-file "src/libwithershins.a" lib))
|
||
#t)))))
|
||
(home-page "https://github.com/cameronwhite/withershins")
|
||
(inputs
|
||
`(("libiberty" ,libiberty)
|
||
("binutils" ,binutils) ;for libbfd
|
||
("zlib" ,zlib)))
|
||
(synopsis "C++11 library for generating stack traces")
|
||
(description
|
||
"Withershins is a simple cross-platform C++11 library for generating
|
||
stack traces.")
|
||
;; Sources are released under Expat license, but since BFD is licensed
|
||
;; under the GPLv3+ the combined work is GPLv3+ as well.
|
||
(license license:gpl3+)))
|
||
|
||
(define-public lcov
|
||
(package
|
||
(name "lcov")
|
||
(version "1.13")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://sourceforge/ltp/Coverage%20Analysis"
|
||
"/LCOV-" version "/lcov-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"08wabnb0gcjqk0qc65a6cgbbmz6b8lvam3p7byh0dk42hj3jr5s4"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
'(#:make-flags
|
||
(let ((out (assoc-ref %outputs "out")))
|
||
(list (string-append "PREFIX=" out)))
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(delete 'configure)) ; no configure script
|
||
#:tests? #f)) ; no 'check' target
|
||
(inputs `(("perl" ,perl)))
|
||
(home-page "http://ltp.sourceforge.net/coverage/lcov.php")
|
||
(synopsis "Code coverage tool that enhances GNU gcov")
|
||
(description
|
||
"LCOV is an extension of @command{gcov}, a tool part of the
|
||
GNU@tie{}Binutils, which provides information about what parts of a program
|
||
are actually executed (i.e., \"covered\") while running a particular test
|
||
case. The extension consists of a set of Perl scripts which build on the
|
||
textual @command{gcov} output to implement the following enhanced
|
||
functionality such as HTML output.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public rtags
|
||
(package
|
||
(name "rtags")
|
||
(version "2.16")
|
||
(home-page "https://github.com/Andersbakken/rtags")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri
|
||
(string-append home-page "/archive/v" version ".tar.gz"))
|
||
(file-name (string-append name "-" version ".tar.gz"))
|
||
(patches (search-patches "rtags-separate-rct.patch"))
|
||
(modules '((guix build utils)))
|
||
(snippet
|
||
;; Part of spliting rct with rtags.
|
||
;; Substitute #include "rct/header.h" with #include <rct/header.h>.
|
||
'(with-directory-excursion "src"
|
||
(delete-file-recursively "rct") ;remove bundled copy
|
||
(let ((files (find-files "." ".*\\.cpp|.*\\.h")))
|
||
(substitute* files
|
||
(("#include ?\"rct/(.*.h)\"" all header)
|
||
(string-append "#include <rct/" header ">"))))))
|
||
(sha256
|
||
(base32
|
||
"17rkci3mmiw93qc32b9x76pg57b0lx80avr6wnmh190jx8n3v3wy"))))
|
||
(build-system cmake-build-system)
|
||
(arguments
|
||
'(#:configure-flags
|
||
'("-DRTAGS_NO_ELISP_FILES=1"
|
||
"-DCMAKE_BUILD_TYPE=RelWithDebInfo"
|
||
"-DCMAKE_CXX_FLAGS=-std=c++11"
|
||
"-DBUILD_TESTING=FALSE")
|
||
#:tests? #f))
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("bash-completion" ,bash-completion)
|
||
("clang" ,clang)
|
||
("llvm" ,llvm)
|
||
("lua" ,lua)
|
||
("rct" ,rct)
|
||
("selene" ,selene)))
|
||
(synopsis "Indexer for the C language family with Emacs integration")
|
||
(description
|
||
"RTags is a client/server application that indexes C/C++ code and keeps a
|
||
persistent file-based database of references, declarations, definitions,
|
||
symbolnames etc. There’s also limited support for ObjC/ObjC++. It allows you
|
||
to find symbols by name (including nested class and namespace scope). Most
|
||
importantly we give you proper follow-symbol and find-references support.")
|
||
(license license:gpl3+)))
|