#! /bin/sh
# -*-scheme-*-
export LANG=C LANGUAGE=C LC_TIME=C
export TZ=UTC0
exec guile --no-auto-compile -L $srcdir -C $srcdir -e '(mdate-from-git)' -s "$0" "$@"
!#

;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2024 Janneke Nieuwenhuizen <janneke@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
;;; This program 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.
;;;
;;; This program 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 this program.  If not, see <http://www.gnu.org/licenses/>.

;;;; Commentary:
;;;
;;; Usage: mdate-from-git.scm FILE
;;;
;;; This script is compatible with Automake's `mdate-sh' but uses the timestamp
;;; from Git instead of from the file system.  Also, it can be appended to
;;; mdate-sh.

;;; As a special exception for Guix, it caters for doc/guix.LANG.texi files that
;;; are not stored in Git, by using po/doc/guix-manual.LANG.po for the Git
;;; timestamp.  Test doing something like:
;;;
;;; build-aux/mdate-from-git.scm doc/guix.de.texi
;;;
;;;; Code:

(define-module (mdate-from-git)
  #:use-module (ice-9 match)
  #:use-module (ice-9 popen)
  #:use-module (ice-9 rdelim)
  #:use-module (ice-9 regex)
  #:export (main))

(define (pipe-command command)
  (let* ((port (apply open-pipe* OPEN_READ command))
         (output (read-string port)))
    (close-port port)
    output))

(define (guix.LANG.texi->guix-manual.LANG.po file-name)
  "Translated manuals doc/guix.LANG.texi are not tracked in Git and are
generated from po/doc/guix-manual.LANG.po.  For such an untraced .TEXI file,
return its .PO counterpart."
  (let ((m (string-match "doc/guix.([^.]+).texi" file-name)))
    (if (not m) file-name
        (let ((lang (match:substring m 1)))
          (format #f "po/doc/guix-manual.~a.po" lang)))))


;;;
;;; Entry point.
;;;
(define (main args)
  (match args
    ((script file-name)
     (let* ((command `("git" "ls-files" "--error-unmatch" "--" ,file-name))
            (tracked? (zero? (with-error-to-port (%make-void-port "w")
                               (lambda _
                                 (with-output-to-port (%make-void-port "w")
                                   (lambda _ (apply system* command)))))))
            (file-name (if tracked? file-name
                           (guix.LANG.texi->guix-manual.LANG.po file-name)))
            (command `("git" "log" "--pretty=format:%ct" "-n1" "--" ,file-name))
            (timestamp (with-error-to-port  (%make-void-port "w")
                         (lambda _ (pipe-command command))))
            (source-date-epoch (or (getenv "SOURCE_DATE_EPOCH") "1"))
            (timestamp (if (string-null? timestamp) source-date-epoch
                           timestamp))
            (time (gmtime (string->number timestamp)))
            (d-m-y (strftime "%-d %B %Y" time)))
       (display d-m-y)))
    (_
     (format (current-error-port) "Usage: mdate-from-git.scm FILE\n")
     (exit 2))))
sg-tooltip'>* gnu/packages/calcurse.scm (calcurse): Update to 4.3.0.
</span></span></td><td>Tobias Geerinckx-Ric<tr><td><span title='2019-09-19 23:24:04 +0200'>2019-09-19</span></td><td><a href='/guix/commit/tests/ui.scm?id=d2cdef65605b9e14bfa02c3bf1612ab6b62f4a89'>ui: 'relevance' connects regexps with a logical and.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes &lt;https://bugs.gnu.org/36763&gt;.
Previously, the logical and connecting the regexps did not output the expected
results (introduced in 8874faaaac665100a095ef25e39c9a389f5a397f).

* guix/ui.scm (relevance)
[score]: Change its arguments.
[regexp-&gt;score]: New procedure.
* tests/ui.scm ("package-relevance"): Add test.

Signed-off-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
</span></span></td><td>zimoun</td></tr>
<tr><td><span title='2019-06-27 11:14:40 +0200'>2019-06-27</span></td><td><a href='/guix/commit/tests/ui.scm?id=8874faaaac665100a095ef25e39c9a389f5a397f'>ui: 'relevance' considers regexps connected with a logical and.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/ui.scm (relevance)[score]: Change to return 0 when one of REGEXPS
doesn't match.
* tests/ui.scm ("package-relevance"): New test.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-05-10 22:05:21 +0200'>2017-05-10</span></td><td><a href='/guix/commit/tests/ui.scm?id=30d2397f73d6fa9e77eed70ec6df8afd3b9f5f5e'>ui: 'string-&gt;duration' correctly handles hours.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/ui.scm (string-&gt;duration): Add missing '=&gt;' for hours.
* tests/ui.scm ("duration, 2 hours"): New test.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-03-08 23:42:53 +0100'>2017-03-08</span></td><td><a href='/guix/commit/tests/ui.scm?id=1062063a65036f32a061c54866d33ffe079ec44e'>ui: Don't use '%default-port-encoding' to set the encoding of string ports.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/ui.scm (right-arrow): Call 'set-port-encoding!' to set PORT's
encoding; remove use of 'with-fluids'.  This is for compatibility with
Guile 2.2 where the encoding of string ports is not influenced by
%DEFAULT-PORT-ENCODING.
* tests/ui.scm ("show-manifest-transaction"): Likewise.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2016-06-09 23:34:56 +0200'>2016-06-09</span></td><td><a href='/guix/commit/tests/ui.scm?id=638c5b79397aba92ab3211a1ea3b3418e112ec66'>ui: 'string-&gt;duration' supports hours and seconds.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/ui.scm (string-&gt;duration): Add seconds and hours.
* tests/ui.scm ("duration, 1 second"): New test.
</span></span></td><td>Ludovic Courtès</td></tr>