;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2021 Brice Waegeneire <brice@waegenei.re>
;;;
;;; 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 system setuid)
  #:use-module (guix records)
  #:export (setuid-program
            setuid-program?
            setuid-program-program
            setuid-program-setuid?
            setuid-program-setgid?
            setuid-program-user
            setuid-program-group

            file-like->setuid-program))

;;; Commentary:
;;;
;;; Data structures representing setuid/setgid programs.  This is meant to be
;;; used both on the host side and at run time--e.g., in activation snippets.
;;;
;;; Code:

(define-record-type* <setuid-program>
  setuid-program make-setuid-program
  setuid-program?
  ;; Path to program to link with setuid permissions
  (program       setuid-program-program) ;file-like
  ;; Whether to set user setuid bit
  (setuid?       setuid-program-setuid? ;boolean
                 (default #t))
  ;; Whether to set group setgid bit
  (setgid?       setuid-program-setgid? ;boolean
                 (default #f))
  ;; The user this should be set to (defaults to root)
  (user          setuid-program-user    ;integer or string
                 (default 0))
  ;; Group we want to set this to (defaults to root)
  (group         setuid-program-group   ;integer or string
                 (default 0)))

(define (file-like->setuid-program program)
  (setuid-program (program program)))
able>
<div class='path'>path: <a href='/guix/log/?id=d31301dfe08076e5d229175b2cd093c6fe60a6d5'>root</a>/<a href='/guix/log/gnu?id=d31301dfe08076e5d229175b2cd093c6fe60a6d5'>gnu</a>/<a href='/guix/log/gnu/packages?id=d31301dfe08076e5d229175b2cd093c6fe60a6d5'>packages</a>/<a href='/guix/log/gnu/packages/java-compression.scm?id=d31301dfe08076e5d229175b2cd093c6fe60a6d5'>java-compression.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/java-compression.scm?id=d31301dfe08076e5d229175b2cd093c6fe60a6d5&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2021-07-12 16:57:09 +0300'>2021-07-12</span></td><td><a href='/guix/commit/gnu/packages/java-compression.scm?id=998712606557a2ee80dc3e113da5fb15ad1886cd'>gnu: java-xz: Update to 1.9.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/java-compression.scm (java-xz): Update to 1.9.
[arguments]: Build with openjdk9.
</span></span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2021-07-11 14:07:00 +0300'>2021-07-11</span></td><td><a href='/guix/commit/gnu/packages/java-compression.scm?id=7760d28920a920791645c4485f1345af45ee7787'>gnu: java-xz: Mark source as zipbomb.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/java-compression.scm (java-xz)[source]: Download source
as zipbomb.
[argments]: Remove custom 'chdir phase.
</span></span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2021-02-27 23:34:09 +0100'>2021-02-27</span></td><td><a href='/guix/commit/gnu/packages/java-compression.scm?id=23dcf4339d1dc102b2c509a151734f4caff793bd'>gnu: java-snappy: Fix checks when build machine has too much memory.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/java-compression.scm (java-snappy)[arguments]: Add
set-test-memory-size phase.

This fixes &lt;https://debbugs.gnu.org/cgi/bugreport.cgi?bug=46780&gt;.
Thanks to zimoun for the solving idea.

The CachingBufferPoolTest tries to allocate a lot of memory (20GB) and the
test succeeds if there is not enough memory available in the JVM.
When the build machine has a lot of memory (which is the case on the Guix
CI system), the JVM will use more than 20GB as maximum heap size. In
consequence, the test fails.

The new phase adds a maxmemory size of 2G for the tests. Thus all other
tests will have enough memory and the CachingBufferPoolTest will fail.
</span></span></td><td>Björn Höfling</td></tr>