;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com>
;;;
;;; 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 installer newt utils)
  #:use-module (ice-9 receive)
  #:use-module (newt)
  #:export (screen-columns
            screen-rows

            destroy-form-and-pop
            set-screen-size!))

;; Number of columns and rows of the terminal.
(define screen-columns (make-parameter 0))
(define screen-rows    (make-parameter 0))

(define (destroy-form-and-pop form)
  "Destroy the given FORM and pop the current window."
  (destroy-form form)
  (pop-window))

(define (set-screen-size!)
  "Set the parameters 'screen-columns' and 'screen-rows' to the number of
columns and rows respectively of the current terminal."
  (receive (columns rows)
      (screen-size)
    (screen-columns columns)
    (screen-rows rows)))
'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/packages/pcre.scm'>
<input type='hidden' name='id' value='8afa00908b43d344d8c3fdd3c89d3dea4c205429'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=8afa00908b43d344d8c3fdd3c89d3dea4c205429'>root</a>/<a href='/guix/log/gnu?id=8afa00908b43d344d8c3fdd3c89d3dea4c205429'>gnu</a>/<a href='/guix/log/gnu/packages?id=8afa00908b43d344d8c3fdd3c89d3dea4c205429'>packages</a>/<a href='/guix/log/gnu/packages/pcre.scm?id=8afa00908b43d344d8c3fdd3c89d3dea4c205429'>pcre.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/packages/pcre.scm?id=8afa00908b43d344d8c3fdd3c89d3dea4c205429&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2021-12-13 17:48:25 +0100'>2021-12-13</span></td><td><a href='/guix/commit/gnu/packages/pcre.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-10-04 13:33:33 +0300'>2021-10-04</span></td><td><a href='/guix/commit/gnu/packages/pcre.scm?id=af823dc65fc071ffaea16997c515945f039a8c48'>gnu: pcre: Don't enable jit on powerpc-linux.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/pcre.scm (pcre)[arguments]: When building for
powerpc-linux don't enable jit.
</span></span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2021-08-30 13:46:58 +0300'>2021-08-30</span></td><td><a href='/guix/commit/gnu/packages/pcre.scm?id=bbb0420e44384f8750377631274fa971e6bf93e2'>gnu: pcre2: Build without JIT on powerpc-linux.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/pcre.scm (pcre2)[arguments]: On powerpc-linux don't
enable JIT.
</span></span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2021-08-18 12:05:05 +0300'>2021-08-18</span></td><td><a href='/guix/commit/gnu/packages/pcre.scm?id=d6f4dc1db488b5fbfdbdfe056308d881f30b27f2'>gnu: Remove pcre2-10.36.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/pcre.scm (pcre2-10.36): Remove variable.
* gnu/packages/julia.scm (julia)[arguments]: Adjust 'adjust-test-suite
phase for new pcre2 package.
[inputs]: Replace pcre2-10.36 with pcre2.
</span></span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2021-07-29 22:34:57 +0200'>2021-07-29</span></td><td><a href='/guix/commit/gnu/packages/pcre.scm?id=b029be2ee0f81cdcbc14240ff426408085ab0a40'>Merge branch 'master' into core-updates-frozen</a><span class='msg-avail'>...<span class='msg-tooltip'> Conflicts:
	gnu/packages/bioinformatics.scm
	gnu/packages/cmake.scm
	gnu/packages/curl.scm
	gnu/packages/emacs-xyz.scm
	gnu/packages/gpodder.scm
	gnu/packages/music.scm
	gnu/packages/patches/glibc-bootstrap-system.patch
	gnu/packages/python-xyz.scm
	gnu/packages/shells.scm
	gnu/packages/statistics.scm
</span></span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2021-07-28 16:05:31 +0300'>2021-07-28</span></td><td><a href='/guix/commit/gnu/packages/pcre.scm?id=7db9573e862ccbb44221d3e4765516c485f5fe82'>gnu: Add pcre2-10.36.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/pcre.scm (pcre2-10.36): New variable.

Co-Authored-By: zimoun &lt;zimoun.toutoune@gmail.com&gt;.
Signed-off-by: Efraim Flashner &lt;efraim@flashner.co.il&gt;
</span></span></td><td>Jean-Baptiste Volatier</td></tr>
<tr><td><span title='2021-07-23 17:26:43 +0200'>2021-07-23</span></td><td><a href='/guix/commit/gnu/packages/pcre.scm?id=fff2e2d216c9907de3ef2bbde542f923295129de'>gnu: pcre2: Update to 10.37.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/pcre.scm (pcre2): Update to 10.37.
[arguments]: Remove trailing #t.
</span></span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2021-07-23 17:26:43 +0200'>2021-07-23</span></td><td><a href='/guix/commit/gnu/packages/pcre.scm?id=81d0ac2da6a11173ac6439c4dd777a658edf0b29'>gnu: pcre: Update to 8.45.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/pcre.scm (pcre): Update to 8.45.
[source](uri): Change to official mirror; remove defunct.
[arguments]: Remove trailing #t.
</span></span></td><td>Marius Bakke</td></tr>