projects/guix·blob version-0.9.0 · refs

282 lines · 11.5 KiB

1;;; GNU Guix --- Functional package management for GNU
2;;; Copyright © 2013, 2015 Ludovic Courtès <[email protected]>
3;;; Copyright © 2015 Andreas Enge <[email protected]>
4;;; Copyright © 2015 Ricardo Wurmus <[email protected]>
5;;;
6;;; This file is part of GNU Guix.
7;;;
8;;; GNU Guix is free software; you can redistribute it and/or modify it
9;;; under the terms of the GNU General Public License as published by
10;;; the Free Software Foundation; either version 3 of the License, or (at
11;;; your option) any later version.
12;;;
13;;; GNU Guix is distributed in the hope that it will be useful, but
14;;; WITHOUT ANY WARRANTY; without even the implied warranty of
15;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16;;; GNU General Public License for more details.
17;;;
18;;; You should have received a copy of the GNU General Public License
19;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
20
21(define-module (gnu packages code)
22 #:use-module (guix packages)
23 #:use-module (guix download)
24 #:use-module ((guix licenses) #:prefix license:)
25 #:use-module (guix build-system gnu)
26 #:use-module (guix build-system cmake)
27 #:use-module (gnu packages base)
28 #:use-module (gnu packages compression)
29 #:use-module (gnu packages databases)
30 #:use-module (gnu packages emacs)
31 #:use-module (gnu packages gcc)
32 #:use-module (gnu packages pcre)
33 #:use-module (gnu packages pkg-config)
34 #:use-module (gnu packages perl)
35 #:use-module (gnu packages texinfo)
36 #:use-module (gnu packages autogen)
37 #:use-module (gnu packages ncurses)
38 #:use-module (gnu packages autotools))
39
40;;; Tools to deal with source code: metrics, cross-references, etc.
41
42(define-public cflow
43 (package
44 (name "cflow")
45 (version "1.4")
46 (source (origin
47 (method url-fetch)
48 (uri (string-append "mirror://gnu/cflow/cflow-"
49 version ".tar.bz2"))
50 (sha256
51 (base32
52 "1jkbq97ajcf834z68hbn3xfhiz921zhn39gklml1racf0kb3jzh3"))))
53 (build-system gnu-build-system)
54
55 ;; Needed to have cflow-mode.el installed.
56 (native-inputs `(("emacs" ,emacs-no-x)))
57
58 (home-page "http://www.gnu.org/software/cflow/")
59 (synopsis "Create a graph of control flow within a program")
60 (description
61 "GNU cflow analyzes C source files and produces a graph charting the
62control flow of the program. It can output the graph in several styles and
63in either the POSIX format or in an extended GNU format. cflow also includes
64a major mode for Emacs for examining the flowcharts that it produces.")
65 (license license:gpl3+)))
66
67(define-public complexity
68 (package
69 (name "complexity")
70 (version "1.3")
71 (source (origin
72 (method url-fetch)
73 (uri (string-append "mirror://gnu/complexity/complexity-"
74 version ".tar.gz"))
75 (sha256
76 (base32
77 "19bc64sxpqd5rqylqaa7dijz2x7qp2b0dg3ah3fb3qbcvd8b4wgy"))))
78 (build-system gnu-build-system)
79 (native-inputs
80 `(("texinfo" ,texinfo)
81 ("autogen" ,autogen)))
82 (home-page "http://www.gnu.org/software/complexity/")
83 (synopsis "Analyze complexity of C functions")
84 (description
85 "GNU complexity provides tools for finding procedures that are
86convoluted, overly long or otherwise difficult to understand. This
87may help in learning or reviewing unfamiliar code or perhaps
88highlighting your own code that seemed comprehensible when you wrote it.")
89 (license license:gpl3+)))
90
91(define-public global ; a global variable
92 (package
93 (name "global")
94 (version "6.5.1")
95 (source (origin
96 (method url-fetch)
97 (uri (string-append "mirror://gnu/global/global-"
98 version ".tar.gz"))
99 (sha256
100 (base32
101 "1y34nbazsw2p6r2jhv27z15qvm9mhy5xjchpz8pwps00shkm578f"))))
102 (build-system gnu-build-system)
103 (inputs `(("ncurses" ,ncurses)
104 ("libltdl" ,libltdl)
105 ("sqlite" ,sqlite)))
106 (arguments
107 `(#:configure-flags
108 (list (string-append "--with-ncurses="
109 (assoc-ref %build-inputs "ncurses"))
110 (string-append "--with-sqlite3="
111 (assoc-ref %build-inputs "sqlite")))
112
113 #:phases (alist-cons-after
114 'install 'post-install
115 (lambda* (#:key outputs #:allow-other-keys)
116 ;; Install the Emacs Lisp file in the right place.
117 (let* ((out (assoc-ref outputs "out"))
118 (data (string-append out "/share/gtags"))
119 (lisp (string-append out "/share/emacs/site-lisp")))
120 (install-file (string-append data "/gtags.el")
121 lisp)
122 (delete-file (string-append data "/gtags.el"))
123 #t))
124 %standard-phases)))
125 (home-page "http://www.gnu.org/software/global/")
126 (synopsis "Cross-environment source code tag system")
127 (description
128 "GLOBAL is a source code tagging system that functions in the same way
129across a wide array of environments, such as different text editors, shells
130and web browsers. The resulting tags are useful for quickly moving around in
131a large, deeply nested project.")
132 (license license:gpl3+)))
133
134(define-public sloccount
135 (package
136 (name "sloccount")
137 (version "2.26")
138 (source (origin
139 (method url-fetch)
140 (uri (string-append "http://www.dwheeler.com/sloccount/sloccount-"
141 version ".tar.gz"))
142 (sha256
143 (base32
144 "0ayiwfjdh1946asah861ah9269s5xkc8p5fv1wnxs9znyaxs4zzs"))))
145 (build-system gnu-build-system)
146 (arguments
147 '(#:phases (modify-phases %standard-phases
148 (delete 'configure)
149 (add-before 'build 'make-dotl-files-older
150 (lambda _
151 ;; Make the '.l' files as old as the '.c'
152 ;; files to avoid triggering the rule that
153 ;; requires Flex.
154 (define ref
155 (stat "README"))
156
157 (for-each (lambda (file)
158 (set-file-time file ref))
159 (find-files "." "\\.[chl]$"))
160 #t))
161 (add-before 'install 'make-target-directories
162 (lambda* (#:key outputs #:allow-other-keys)
163 (let ((out (assoc-ref outputs "out")))
164 (mkdir-p (string-append out "/bin"))
165 (mkdir-p (string-append out
166 "/share/man/man1"))
167 (mkdir-p (string-append out
168 "/share/doc")))))
169 (replace 'check
170 (lambda _
171 (setenv "HOME" (getcwd))
172 (setenv "PATH"
173 (string-append (getcwd) ":"
174 (getenv "PATH")))
175 (zero? (system* "make" "test")))))
176
177 #:make-flags (list (string-append "PREFIX="
178 (assoc-ref %outputs "out")))))
179 (inputs `(("perl" ,perl)))
180 (home-page "http://www.dwheeler.com/sloccount/")
181 (synopsis "Count physical source lines of code (SLOC)")
182 (description
183 "SLOCCount is a set of the programs for counting source lines of
184code (SLOC) in large software systems. It can automatically identify and
185measure a wide range of programming languages. It automatically estimates the
186effort, time, and money it would take to develop the software, using the
187COCOMO model or user-provided parameters.")
188 (license license:gpl2+)))
189
190(define-public the-silver-searcher
191 (package
192 (name "the-silver-searcher")
193 (version "0.29.1")
194 (source (origin
195 (method url-fetch)
196 (uri (string-append
197 "https://github.com/ggreer/the_silver_searcher/archive/"
198 version ".tar.gz"))
199 (sha256
200 (base32
201 "0ah7vcqprl9hhafi68bvzaiywy7dfm28zf7kpw3xrlqzfn0vg7kp"))
202 (file-name (string-append name "-" version ".tar.gz"))))
203 (build-system gnu-build-system)
204 (native-inputs
205 `(("autoconf" ,autoconf)
206 ("automake" ,automake)
207 ("libtool" ,libtool)
208 ("pkg-config" ,pkg-config)))
209 (inputs
210 `(("pcre" ,pcre)
211 ("xz" ,xz)
212 ("zlib" ,zlib)))
213 (arguments
214 `(#:phases
215 ;; There is no configure yet, so let's create it, but let configure and
216 ;; make do the work in later phases.
217 (alist-cons-before 'configure 'autoconf
218 (lambda _
219 (substitute* "build.sh"
220 (("./configure") "true")
221 (("make -j4") "true"))
222 (zero? (system* "sh" "build.sh")))
223 %standard-phases)))
224 (home-page "http://geoff.greer.fm/ag/")
225 (synopsis "Fast code searching tool")
226 (description
227 "The silver searcher, or 'ag', is tool for quickly searching through
228files, but compared to grep is much faster and respects files like .gitignore,
229.hgignore, etc.")
230 (license license:asl2.0)))
231
232(define-public withershins
233 (package
234 (name "withershins")
235 (version "0.1")
236 (source (origin
237 (method url-fetch)
238 (uri (string-append
239 "https://github.com/cameronwhite/withershins/archive/v"
240 version ".tar.gz"))
241 (file-name (string-append name "-" version ".tar.gz"))
242 (sha256
243 (base32
244 "08z3lyvswx7sad10637vfpwglbcbgzzcpfihw0x8lzr74f3b70bh"))))
245 (build-system cmake-build-system)
246 (arguments
247 `(#:out-of-source? #f
248 #:phases
249 (modify-phases %standard-phases
250 (add-after
251 'unpack 'find-libiberty
252 (lambda _
253 (let ((libiberty (assoc-ref %build-inputs "libiberty")))
254 (substitute* "cmake/FindIberty.cmake"
255 (("/usr/include") (string-append libiberty "/include"))
256 (("libiberty.a iberty")
257 (string-append "NAMES libiberty.a iberty\nPATHS \""
258 libiberty "/lib" "\"")))
259 #t)))
260 (replace
261 'install
262 (lambda* (#:key outputs #:allow-other-keys)
263 (let ((out (assoc-ref outputs "out")))
264 (mkdir-p (string-append out "/lib"))
265 (mkdir (string-append out "/include"))
266 (copy-file "src/withershins.hpp"
267 (string-append out "/include/withershins.hpp"))
268 (copy-file "src/libwithershins.a"
269 (string-append out "/lib/libwithershins.a")))
270 #t)))))
271 (home-page "https://github.com/cameronwhite/withershins")
272 (inputs
273 `(("libiberty" ,libiberty)
274 ("binutils" ,binutils) ;for libbfd
275 ("zlib" ,zlib)))
276 (synopsis "C++11 library for generating stack traces")
277 (description
278 "Withershins is a simple cross-platform C++11 library for generating
279stack traces.")
280 ;; Sources are released under Expat license, but since BFD is licensed
281 ;; under the GPLv3+ the combined work is GPLv3+ as well.
282 (license license:gpl3+)))