382 lines
16 KiB
Scheme
382 lines
16 KiB
Scheme
;;; GNU Guix --- Functional package management for GNU
|
|
;;; Copyright © 2013, 2015 Ludovic Courtès <ludo@gnu.org>
|
|
;;; Copyright © 2015 Andreas Enge <andreas@enge.fr>
|
|
;;; Copyright © 2015 Ricardo Wurmus <rekado@elephly.net>
|
|
;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
|
|
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
|
|
;;; Copyright © 2017 Clément Lassieur <clement@lassieur.org>
|
|
;;; Copyright © 2017 Andy Wingo <wingo@igalia.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 base)
|
|
#:use-module (gnu packages compression)
|
|
#: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))
|
|
|
|
;;; 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)))
|
|
|
|
(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.5.7")
|
|
(source (origin
|
|
(method url-fetch)
|
|
(uri (string-append "mirror://gnu/global/global-"
|
|
version ".tar.gz"))
|
|
(sha256
|
|
(base32
|
|
"0cnd7a7d1pl46yk15q6mnr9i9w3xi8pxgchw4ia9njgr4jjqzh6r"))))
|
|
(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.0.0")
|
|
(source (origin
|
|
(method url-fetch)
|
|
(uri (string-append
|
|
"http://geoff.greer.fm/ag/releases/the_silver_searcher-"
|
|
version ".tar.gz"))
|
|
(sha256
|
|
(base32
|
|
"04wm3r5p2mgv8mdkvysak0d5199h5y0yzl032624brfxpzmqfcq0"))))
|
|
(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.12")
|
|
(source (origin
|
|
(method url-fetch)
|
|
(uri (string-append "mirror://sourceforge/ltp/Coverage%20Analysis"
|
|
"/LCOV-" version "/lcov-" version ".tar.gz"))
|
|
(sha256
|
|
(base32
|
|
"19wfifdpxxivhq9adbphanjfga9bg9spms9v7c3589wndjff8x5l"))))
|
|
(build-system gnu-build-system)
|
|
(arguments
|
|
'(#:make-flags (let ((out (assoc-ref %outputs "out")))
|
|
(list (string-append "PREFIX=" out)
|
|
(string-append "BIN_DIR=" out "/bin")
|
|
(string-append "MAN_DIR=" out "/share/man")))
|
|
#:phases (modify-phases %standard-phases
|
|
(delete 'configure))
|
|
#: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+)))
|