;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017, 2018, 2021-2023 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 cobol)
  #:use-module (gnu packages)
  #:use-module (guix build-system gnu)
  #:use-module (guix licenses)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix gexp)
  #:use-module (gnu packages dbm)
  #:use-module (gnu packages multiprecision)
  #:use-module (gnu packages ncurses)
  #:use-module (gnu packages perl)
  #:use-module (gnu packages web)
  #:use-module (gnu packages xml))

(define-public gnucobol
  (package
    (name "gnucobol")
    (version "3.2")
    (source
      (origin
        (method url-fetch)
        (uri (string-append
               "mirror://gnu/gnucobol/gnucobol-"
               version ".tar.xz"))
        (sha256
         (base32
          "1qifkkrmscc5csri1l4rm9pbik74c3pc5za1rzx7jizddks8md1v"))))
    (arguments
     (list
       #:configure-flags
       #~(list (string-append "LDFLAGS=-Wl,-rpath="
                              #$output "/lib")
               (string-append "JSON_C_CFLAGS=-I"
                              (search-input-directory %build-inputs
                              "/include/json-c")))
       #:phases
       #~(modify-phases %standard-phases
           (add-after 'unpack 'place-cobol85-test-suite
             (lambda* (#:key inputs #:allow-other-keys)
               (let ((newcob (assoc-ref inputs "newcob")))
                 (copy-file newcob "tests/cobol85/newcob.val.Z"))))
           (add-before 'check 'set-TERM
             ;; Some tests expect a known terminal
             (lambda _ (setenv "TERM" "xterm-256color"))))
       #:test-target "checkall"))
    (native-inputs
     `(("perl" ,perl)
       ("newcob" ,(origin
                    (method url-fetch)
                    (uri "https://www.itl.nist.gov/div897/ctg/suites/newcob.val.Z")
                    (sha256
                     (base32
                      "1yb1plmv4firfnbb119r2vh1hay221w1ya34nyz0qwsxppfr56hy"))))))
    (inputs
     (list bdb gmp json-c libxml2 ncurses))
    (build-system gnu-build-system)
    (home-page "https://www.gnu.org/software/gnucobol/")
    (synopsis "Modern COBOL compiler")
    (description
     "GnuCOBOL is a free, modern COBOL compiler.  It implements a substantial
part of COBOL 85, X/Open COBOL and newer ISO COBOL standards as well as many
extensions from other COBOL compilers (IBM COBOL, MicroFocus COBOL, ACUCOBOL-GT
and others).")
    (license gpl3+)))
ergey Trofimov</td></tr>
<tr><td><span title='2023-08-16 23:13:55 +0200'>2023-08-16</span></td><td><a href='/guix/commit/gnu/services/dns.scm?id=2b031ca4b2daa1d429e79b08e28fcd26e395bdf2'>Revert "services: Add ddclient service."</a><span class='msg-avail'>...<span class='msg-tooltip'>ddclient is unmaintained as of 2023-07-04 [1] and this service has been broken
for a while [2]. Remove it rather than shipping a broken service for an
unmaintained program that's unlikely to be fixed.

[1]: &lt;https://github.com/ddclient/ddclient&gt;
[2]: &lt;https://issues.guix.gnu.org/52770&gt;

This reverts commit 8490a8346b5c8207f5798be55bea1de865b0bd42.

Signed-off-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
</span></span></td><td>Bruno Victal</td></tr>
<tr><td><span title='2023-04-21 16:16:37 +0200'>2023-04-21</span></td><td><a href='/guix/commit/gnu/services/dns.scm?id=1fa038324db0c7f848b5640f81465366c2a587ba'>services: knot: Add 'configuration' action.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services/dns.scm (knot-shepherd-service): Add 'actions' field.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-03-13 17:11:08 +0400'>2023-03-13</span></td><td><a href='/guix/commit/gnu/services/dns.scm?id=d4b2f5eace67b172abd103441fdb7ec2443fb209'>services: dns: Fix cpe-id default value.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/service/dns.scm: (&lt;dnsmasq-configuration&gt;)[cpe-id]: Change cpe-id
default value to #f instead of #t.
</span></span></td><td>Andrew Tropin</td></tr>
<tr><td><span title='2023-03-13 17:06:19 +0400'>2023-03-13</span></td><td><a href='/guix/commit/gnu/services/dns.scm?id=d1edb26388ca4dab4b435a686cd059d97c113c3e'>services: dns: Extend dnsmasq-configuration.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/service/dns.scm: (&lt;dnsmasq-configuration&gt;)[servers-file]: Add.
(&lt;dnsmasq-configuration&gt;)[tftp-secure?]: Fix typo in parameter name.
* doc/guix.texi: Document (&lt;dnsmasq-configuration&gt;)[servers-file].

Signed-off-by: Andrew Tropin &lt;andrew@trop.in&gt;
</span></span></td><td>Sergey Trofimov</td></tr>
<tr><td><span title='2023-03-06 16:10:27 +0800'>2023-03-06</span></td><td><a href='/guix/commit/gnu/services/dns.scm?id=882112b581b2e6e7796f34ab0e3eb5cef18c8f18'>services: knot: Default zone-file-refresh to 12h.</a><span class='msg-avail'>...<span class='msg-tooltip'>The Knot DNS service in Guix uses two days, or 48 hours, for the SOA
refresh interval but that is outside the range of RFC 1912, which is
entitled "Common DNS Operational and Configuration Errors." [1]

Section 2.2 of RFC 1912 recommends a maximum of 12 hours for the SOA
refresh rate: "You can keep it short (20 mins to 2 hours) if you
aren't worried about a small increase in bandwidth used, or longer
(2-12 hours) if your Internet connection is slow or is started on
demand."

This commit sets the default refresh interval at the nearest value
recommended by the standard, which is 12 hours.

Due to the widespread adoption of NOTIFY messages between primary and
secondary DNS servers, the SOA refresh interval has arguably lost some
importance, but the Guix default should still be in line with the
standards.

Values outside the recommended range can provoke warning messages from
services commonly used to find bugs in DNS configurations, such as the
MX Toolbox Super Tool. [2]

[1] https://datatracker.ietf.org/doc/rfc1912/
[2] https://mxtoolbox.com/SuperTool.aspx

* gnu/services/dns.scm (&lt;zone-file&gt;)[refresh]: Default to (* 12 3600).

Signed-off-by: 宋文武 &lt;iyzsong@member.fsf.org&gt;
</span></span></td><td>Felix Lechner</td></tr>