;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012, 2013, 2015 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2018 Efraim Flashner <efraim@flashner.co.il>
;;;
;;; 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 idutils)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build-system gnu)
  #:use-module (guix licenses)
  #:use-module (gnu packages emacs)
  #:use-module (gnu packages))

(define-public idutils
  (package
    (name "idutils")
    (version "4.6")
    (source (origin
             (method url-fetch)
             (uri (string-append "mirror://gnu/idutils/idutils-"
                                 version ".tar.xz"))
             (sha256
              (base32
               "1hmai3422iaqnp34kkzxdnywl7n7pvlxp11vrw66ybxn9wxg90c1"))
             (patches (search-patches "diffutils-gets-undeclared.patch"))
             (modules '((guix build utils)))
             (snippet
              '(begin
                 (substitute* (find-files "lib" "\\.c$")
                   (("#if defined _IO_ftrylockfile")
                    "#if defined _IO_EOF_SEEN"))
                 (substitute* "lib/stdio-impl.h"
                   (("^/\\* BSD stdio derived implementations")
                    (string-append "#if !defined _IO_IN_BACKUP && defined _IO_EOF_SEEN\n"
                                   "# define _IO_IN_BACKUP 0x100\n"
                                   "#endif\n\n"
                                   "/* BSD stdio derived implementations")))
                 #t))))
    (build-system gnu-build-system)
    (native-inputs `(("emacs" ,emacs-minimal)))
    (home-page "https://www.gnu.org/software/idutils/")
    (synopsis "Identifier database utilities")
    (description
     "The GNU idutils package includes tools to create an index of textual
tokens used in a list of file names and then to query that index.  Thus, it
allows the user to, for example, find all the uses of a particular function
in a large programming project.  In addition to handling textual tokens, it
can also handle numeric constants and the contents of character strings.")
    (license gpl3+)))
x/commit/gnu/packages/calendar.scm?id=abea091dbef2d44e6eb46bd2413bdf917e14d095'>Merge branch 'master' into staging</a></td><td>Marius Bakke</td></tr>
<tr><td><span title='2022-07-18 14:26:25 +0300'>2022-07-18</span></td><td><a href='/guix/commit/gnu/packages/calendar.scm?id=d65e327384e30fe2444affab3ce42579786c7c4b'>gnu: khal: Update to 0.10.5.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/calendar.scm (khal): Update to 0.10.5.
[arguments]: Remove trailing #t from phases.
</span></span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2022-07-13 23:34:58 +0200'>2022-07-13</span></td><td><a href='/guix/commit/gnu/packages/calendar.scm?id=4442a5db773f79e05c37e014c63b4298e7de666b'>Merge branch 'master' into staging</a></td><td>Marius Bakke</td></tr>
<tr><td><span title='2022-06-26 22:10:38 -0400'>2022-06-26</span></td><td><a href='/guix/commit/gnu/packages/calendar.scm?id=ed210c1b8ff95003645499a4b48279a68c4685cf'>gnu: python-setuptools-scm: Move to (gnu packages python-build).</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/python-xyz.scm (python-setuptools-scm): Move from here...
* gnu/packages/python-build.scm (python-setuptools-scm): ... to here.
</span></span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2022-06-23 19:55:43 +0200'>2022-06-23</span></td><td><a href='/guix/commit/gnu/packages/calendar.scm?id=ddc538ac3262756eacec650e0c5509cd4b4a7c7a'>gnu: libical: Update to 3.0.14.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/calendar.scm (libical): Update to 3.0.14.
[arguments]: Remove trailing #t's.
</span></span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2021-12-13 17:48:25 +0100'>2021-12-13</span></td><td><a href='/guix/commit/gnu/packages/calendar.scm?id=8394619baceb118df92e355377fd543bb1aa501a'>gnu: Simplify package inputs.</a><span class='msg-avail'>...<span class='msg-tooltip'>This commit was obtained by running:

  ./pre-inst-env guix style

without any additional argument.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-11-23 11:29:38 +0100'>2021-11-23</span></td><td><a href='/guix/commit/gnu/packages/calendar.scm?id=b15e543d303ea58fdc0f0541c708389f9d513e3d'>Merge branch 'master' into core-updates-frozen</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-11-21 09:43:23 +0100'>2021-11-21</span></td><td><a href='/guix/commit/gnu/packages/calendar.scm?id=9bfbba8af5b7efb952292c8b7d5e9ee57300c2bc'>gnu: Add gsimplecal.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/calendar.scm (gsimplecal): New variable.

Signed-off-by: Liliana Marie Prikler &lt;liliana.prikler@gmail.com&gt;
</span></span></td><td>Jaft</td></tr>
<tr><td><span title='2021-09-07 14:19:08 +0200'>2021-09-07</span></td><td><a href='/guix/commit/gnu/packages/calendar.scm?id=d9dfbf886ddbb92dfdaa118bb9765e78aad5c53a'>Merge branch 'master' into core-updates-frozen</a></td><td>Ludovic Courtès</td></tr>