720 lines
29 KiB
Scheme
720 lines
29 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, 2018 Ricardo Wurmus <rekado@elephly.net>
|
||
;;; Copyright © 2016, 2017, 2019 Efraim Flashner <efraim@flashner.co.il>
|
||
;;; Copyright © 2017, 2018, 2019 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>
|
||
;;; Copyright © 2018 Pierre Neidhardt <mail@ambrevar.xyz>
|
||
;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org>
|
||
;;; Copyright © 2013 Andreas Enge <andreas@enge.fr>
|
||
;;; Copyright © 2014 Mark H Weaver <mhw@netris.org>
|
||
;;; Copyright © 2019 Hartmut Goebel <h.goebel@goebel-consult.de>
|
||
;;;
|
||
;;; 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 git-download)
|
||
#:use-module ((guix licenses) #:prefix license:)
|
||
#:use-module (guix build-system gnu)
|
||
#:use-module (guix build-system cmake)
|
||
#:use-module (guix build-system trivial)
|
||
#:use-module (gnu packages)
|
||
#:use-module (gnu packages autogen)
|
||
#:use-module (gnu packages autotools)
|
||
#:use-module (gnu packages base)
|
||
#:use-module (gnu packages bash)
|
||
#:use-module (gnu packages compression)
|
||
#:use-module (gnu packages cpp)
|
||
#:use-module (gnu packages emacs)
|
||
#:use-module (gnu packages gcc)
|
||
#:use-module (gnu packages graphviz)
|
||
#:use-module (gnu packages pcre)
|
||
#:use-module (gnu packages perl)
|
||
#:use-module (gnu packages pkg-config)
|
||
#:use-module (gnu packages python)
|
||
#:use-module (gnu packages sqlite)
|
||
#:use-module (gnu packages texinfo)
|
||
#:use-module (gnu packages ncurses)
|
||
#:use-module (gnu packages llvm)
|
||
#:use-module (gnu packages lua))
|
||
|
||
;;; Tools to deal with source code: metrics, cross-references, etc.
|
||
|
||
(define-public cflow
|
||
(package
|
||
(name "cflow")
|
||
(version "1.6")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnu/cflow/cflow-"
|
||
version ".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"1mzd3yf0dfv8h2av5vsxxlhpk21nw064h91b2kgfrdz92r0pnj1l"))))
|
||
(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.3")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnu/global/global-"
|
||
version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"0735pj47dnspf20n0j1px24p59nwjinlmlb2n32ln1hvdkprivnb"))))
|
||
(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
|
||
"GNU 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"))
|
||
#t)))
|
||
(replace 'check
|
||
(lambda _
|
||
(setenv "HOME" (getcwd))
|
||
(setenv "PATH"
|
||
(string-append (getcwd) ":"
|
||
(getenv "PATH")))
|
||
(invoke "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.82")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/AlDanial/cloc.git")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "0fsz07z0slfg58512fmnlj8pnxkc360bgf7fclg60v9clvcjbjsw"))))
|
||
(build-system gnu-build-system)
|
||
(inputs
|
||
`(("coreutils" ,coreutils)
|
||
("perl" ,perl)
|
||
("perl-algorithm-diff" ,perl-algorithm-diff)
|
||
("perl-digest-md5" ,perl-digest-md5)
|
||
("perl-parallel-forkmanager" ,perl-parallel-forkmanager)
|
||
("perl-regexp-common" ,perl-regexp-common)))
|
||
(arguments
|
||
`(#:phases (modify-phases %standard-phases
|
||
(delete 'configure) ; nothing to configure
|
||
(delete 'build) ; nothing to build
|
||
(replace 'install
|
||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out")))
|
||
(invoke "make" "-C" "Unix"
|
||
(string-append "prefix=" out)
|
||
(string-append "INSTALL="
|
||
(assoc-ref inputs "coreutils")
|
||
"/bin/install")
|
||
"install")
|
||
#t)))
|
||
(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.2.0")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"https://geoff.greer.fm/ag/releases/the_silver_searcher-"
|
||
version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"0w1icjqd8hd45rn1y6nbfznk1a6ip54whwbfbhxp7ws2hn3ilqnr"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("pcre" ,pcre)
|
||
("xz" ,xz)
|
||
("zlib" ,zlib)))
|
||
(home-page "https://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 git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/cameronwhite/withershins.git")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "1cviqvbbcwljm1zx12j6511hazr3kscwrvcyifrkfi4fpy5z985m"))))
|
||
(build-system cmake-build-system)
|
||
(arguments
|
||
`(#:out-of-source? #f
|
||
#:configure-flags
|
||
;; XXX A (justified!) misleading-indentation error breaks the build.
|
||
(list "-DENABLE_WERROR=OFF")
|
||
#: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.14")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://sourceforge/ltp/Coverage%20Analysis"
|
||
"/LCOV-" version "/lcov-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"06h7ixyznf6vz1qvksjgy5f3q2nw9akf6zx59npf0h3l32cmd68l"))))
|
||
(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.18")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/Andersbakken/rtags.git")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(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 ">")))
|
||
#t)))
|
||
(sha256
|
||
(base32
|
||
"0raqjbkl1ykga4ahgl9xw49cgh3cyqcf42z36z7d6fz1fw192kg0"))))
|
||
(build-system cmake-build-system)
|
||
(arguments
|
||
'(#:build-type "RelWithDebInfo"
|
||
#:configure-flags
|
||
'("-DRTAGS_NO_ELISP_FILES=1"
|
||
"-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)))
|
||
(home-page "https://github.com/Andersbakken/rtags")
|
||
(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+)))
|
||
|
||
(define-public colormake
|
||
(package
|
||
(name "colormake")
|
||
(version "0.9.20140503")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/pagekite/Colormake.git")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "1f9v5s0viq4yc9iv6701h3pv7j21zz1ckl37lpp9hsnliiizv03p"))))
|
||
(build-system trivial-build-system)
|
||
(native-inputs
|
||
`(("bash" ,bash)
|
||
("perl" ,perl)))
|
||
(arguments
|
||
`(#:modules ((guix build utils))
|
||
#:builder
|
||
(begin
|
||
(use-modules (guix build utils))
|
||
(copy-recursively (assoc-ref %build-inputs "source") "source")
|
||
(chdir "source")
|
||
(patch-shebang "colormake.pl"
|
||
(list (string-append (assoc-ref %build-inputs "perl")
|
||
"/bin")))
|
||
(let* ((out (assoc-ref %outputs "out"))
|
||
(bin (string-append out "/bin"))
|
||
(doc (string-append out "/share/doc"))
|
||
(install-files (lambda (files directory)
|
||
(for-each (lambda (file)
|
||
(install-file file directory))
|
||
files))))
|
||
(substitute* "colormake"
|
||
(("colormake\\.pl") (string-append bin "/colormake.pl"))
|
||
(("/bin/bash")
|
||
(string-append (assoc-ref %build-inputs "bash") "/bin/sh")))
|
||
(install-file "colormake.1" (string-append doc "/man/man1"))
|
||
(install-files '("AUTHORS" "BUGS" "ChangeLog" "README") doc)
|
||
(install-files '("colormake" "colormake-short" "clmake"
|
||
"clmake-short" "colormake.pl")
|
||
bin)
|
||
#t))))
|
||
(home-page "https://bre.klaki.net/programs/colormake/")
|
||
(synopsis "Wrapper around @command{make} to produce colored output")
|
||
(description "This package provides a wrapper around @command{make} to
|
||
produce colored output.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public makefile2graph
|
||
(package
|
||
(name "makefile2graph")
|
||
(version "1.5.0")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/lindenb/makefile2graph.git")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "1gjfk3d8qg3cla7qd2y7r9s03whlfwy83q8k76xfcnqrjjfavdgk"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
'(#:test-target "test"
|
||
#:make-flags (list "CC=gcc" (string-append "prefix=" %output))
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(delete 'configure))))
|
||
(native-inputs
|
||
`(("graphviz" ,graphviz)))
|
||
(home-page "https://github.com/lindenb/makefile2graph")
|
||
(synopsis "Creates a graph of dependencies from GNU Make")
|
||
(description
|
||
"@code{make2graph} creates a graph of dependencies from GNU Make. The
|
||
output is a graphviz-dot file, a Gexf-XML file or a list of the deepest
|
||
independent targets.")
|
||
(license license:expat)))
|
||
|
||
(define-public uncrustify
|
||
(package
|
||
(name "uncrustify")
|
||
(version "0.69.0")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/uncrustify/uncrustify/")
|
||
(commit (string-append name "-" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"0sqrg13kp8fwymq40976bq380bzw40g4ss7ihlbq45d0f90ifa1k"))))
|
||
(build-system cmake-build-system)
|
||
(native-inputs
|
||
`(("unzip" ,unzip)
|
||
("python" ,python-wrapper)))
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'unpack-etc
|
||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||
;; Configuration samples are not installed by default.
|
||
(let* ((output (assoc-ref outputs "out"))
|
||
(etcdir (string-append output "/etc")))
|
||
(for-each (lambda (l)
|
||
(install-file l etcdir))
|
||
(find-files "etc" "\\.cfg$")))
|
||
#t)))))
|
||
(home-page "http://uncrustify.sourceforge.net/")
|
||
(synopsis "Code formatter for C and other related languages")
|
||
(description
|
||
"Beautify source code in many languages of the C family (C, C++, C#,
|
||
Objective@tie{}C, D, Java, Pawn, and Vala). Features:
|
||
@itemize
|
||
@item Indent and align code.
|
||
@item Reformat comments (a little bit).
|
||
@item Fix inter-character spacing.
|
||
@item Add or remove parens / braces.
|
||
@item Supports embedded SQL @code{EXEC SQL} stuff.
|
||
@item Highly configurable - More than 600 configurable options.
|
||
@end itemize\n")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public astyle
|
||
(package
|
||
(name "astyle")
|
||
(version "3.1")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://sourceforge/astyle/astyle/astyle%20"
|
||
version "/astyle_" version "_linux.tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"1ms54wcs7hg1bsywqwf2lhdfizgbk7qxc9ghasxk8i99jvwlrk6b"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:tests? #f ;no tests
|
||
#:make-flags (list (string-append "prefix=" %output)
|
||
"INSTALL=install"
|
||
"all")
|
||
#:modules ((guix build gnu-build-system) ;; FIXME use %default-modules
|
||
(guix build utils)
|
||
(ice-9 regex))
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(replace 'configure
|
||
(lambda _ (chdir "build/gcc") #t))
|
||
(add-after 'install 'install-libs
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
;; Libraries and includes are not installed by default
|
||
(let* ((output (assoc-ref outputs "out"))
|
||
(incdir (string-append output "/include"))
|
||
(libdir (string-append output "/lib")))
|
||
(define (make-so-link sofile strip-pattern)
|
||
(symlink
|
||
(basename sofile)
|
||
(regexp-substitute #f
|
||
(string-match strip-pattern sofile)
|
||
'pre)))
|
||
(mkdir-p incdir)
|
||
(copy-file "../../src/astyle.h"
|
||
(string-append incdir "/astyle.h"))
|
||
(mkdir-p libdir)
|
||
(for-each (lambda (l)
|
||
(copy-file
|
||
l (string-append libdir "/" (basename l))))
|
||
(find-files "bin" "lib*"))
|
||
(for-each
|
||
(lambda (sofile)
|
||
(make-so-link sofile "(\\.[0-9]){3}$") ;; link .so
|
||
(make-so-link sofile "(\\.[0-9]){2}$")) ;; link .so.3
|
||
(find-files libdir "lib.*\\.so\\..*")))
|
||
#t)))))
|
||
(home-page "http://astyle.sourceforge.net/")
|
||
(synopsis "Source code indenter, formatter, and beautifier")
|
||
(description
|
||
"Artistic Style is a source code indenter, formatter, and beautifier for
|
||
the C, C++, C++/CLI, Objective‑C, C#, and Java programming languages.")
|
||
(license license:lgpl3+)))
|
||
|
||
(define-public indent
|
||
(package
|
||
(name "indent")
|
||
(version "2.2.12")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnu/indent/indent-" version
|
||
".tar.gz"))
|
||
(sha256
|
||
(base32 "12xvcd16cwilzglv9h7sgh4h1qqjd1h8s48ji2dla58m4706hzg7"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'fix-docdir
|
||
(lambda _
|
||
;; Although indent uses a modern autoconf in which docdir
|
||
;; defaults to PREFIX/share/doc, the doc/Makefile.am
|
||
;; overrides this to be in PREFIX/doc. Fix this.
|
||
(substitute* "doc/Makefile.in"
|
||
(("^docdir = .*$") "docdir = @docdir@\n"))
|
||
#t)))))
|
||
(native-inputs
|
||
`(("texinfo" ,texinfo)))
|
||
(synopsis "Code reformatter")
|
||
(description
|
||
"Indent is a program that makes source code easier to read by
|
||
reformatting it in a consistent style. It can change the style to one of
|
||
several different styles such as GNU, BSD or K&R. It has some flexibility to
|
||
deal with incomplete or malformed syntax. GNU indent offers several
|
||
extensions over the standard utility.")
|
||
(license license:gpl3+)
|
||
(home-page "https://www.gnu.org/software/indent/")))
|
||
|
||
(define-public amalgamate
|
||
(let* ((commit "c91f07eea1133aa184f652b8f1398eaf03586208")
|
||
(revision "0")
|
||
(version (git-version "1.1.1" revision commit)))
|
||
(package
|
||
(name "amalgamate")
|
||
(version version)
|
||
(home-page "https://github.com/edlund/amalgamate")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url home-page)
|
||
(commit commit)))
|
||
(sha256
|
||
(base32
|
||
"0cllaraw8mxs8q2nr28nhgzkb417gj2wcklqg59w84f4lc78k3yb"))
|
||
(file-name (git-file-name name version))
|
||
(modules '((guix build utils)))
|
||
(snippet
|
||
'(substitute* "test.sh"
|
||
(("test_command \"cc -Wall -Wextra -o source.out source.c\"" all)
|
||
"test_command \"gcc -Wall -Wextra -o source.out source.c\"")))))
|
||
(build-system gnu-build-system)
|
||
(inputs
|
||
`(("python" ,python-wrapper)))
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(delete 'configure)
|
||
(delete 'build)
|
||
(replace 'install
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(bin (string-append out "/bin")))
|
||
(install-file "amalgamate.py" bin))))
|
||
(replace 'check
|
||
(lambda _
|
||
(invoke "./test.sh"))))))
|
||
(synopsis "Tool for amalgamating C source and header files")
|
||
;; The package is indeed a script file, and the term "amalgamate.py" is
|
||
;; used by upstream.
|
||
(description "amalgamate.py aims to make it easy to use SQLite-style C
|
||
source and header amalgamation in projects.")
|
||
(license license:bsd-3))))
|