;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2021 Mathieu Othacehe <othacehe@gnu.org>
;;;
;;; 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 platform)
  #:use-module (guix records)
  #:export (platform
            platform?
            platform-target
            platform-system
            platform-linux-architecture))


;;;
;;; Platform record.
;;;

;; Description of a platform supported by the GNU system.
(define-record-type* <platform> platform make-platform
  platform?
  (target             platform-target)               ;"x86_64-linux-gnu"
  (system             platform-system)               ;"x86_64-linux"
  (linux-architecture platform-linux-architecture    ;"amd64"
                      (default #f)))
build/marionette.scm?id=efce51a194a7a05860a4d489ccb3f3b7c4d5985a'>commit</a><a href='/guix/diff/gnu/build/marionette.scm?id=efce51a194a7a05860a4d489ccb3f3b7c4d5985a'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/build/marionette.scm'>
<input type='hidden' name='id' value='efce51a194a7a05860a4d489ccb3f3b7c4d5985a'/><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=efce51a194a7a05860a4d489ccb3f3b7c4d5985a'>root</a>/<a href='/guix/log/gnu?id=efce51a194a7a05860a4d489ccb3f3b7c4d5985a'>gnu</a>/<a href='/guix/log/gnu/build?id=efce51a194a7a05860a4d489ccb3f3b7c4d5985a'>build</a>/<a href='/guix/log/gnu/build/marionette.scm?id=efce51a194a7a05860a4d489ccb3f3b7c4d5985a'>marionette.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/build/marionette.scm?id=efce51a194a7a05860a4d489ccb3f3b7c4d5985a&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2022-11-17 11:10:09 +0100'>2022-11-17</span></td><td><a href='/guix/commit/gnu/build/marionette.scm?id=00b9ab0a8332528bdfb4aee58ddb975596cb2042'>tests: root-unmount: Wait for the first QEMU process to finish.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-10-07 10:11:12 -0400'>2022-10-07</span></td><td><a href='/guix/commit/gnu/build/marionette.scm?id=133901a396cf81aa1dcb35586e77a5a78475c4c7'>marionette: Add a callback arguments to wait-for-screen-text.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2022-10-07 10:11:12 -0400'>2022-10-07</span></td><td><a href='/guix/commit/gnu/build/marionette.scm?id=f24e0fc233950f9ac5ab6b4ac5653a278cae0383'>marionette: Define keystrokes for typing colons and exclamation marks.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2022-10-07 10:11:12 -0400'>2022-10-07</span></td><td><a href='/guix/commit/gnu/build/marionette.scm?id=4cce84b247b3a7fa2bfd52e49d4ff8e73b78481f'>marionette: Preserve screen dumps on failures.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2022-10-07 10:11:11 -0400'>2022-10-07</span></td><td><a href='/guix/commit/gnu/build/marionette.scm?id=21f641e9faf55b13263d5f0b3314860af5d697a5'>marionette: Make marionette-screen-text private.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2022-09-16 11:59:42 +0200'>2022-09-16</span></td><td><a href='/guix/commit/gnu/build/marionette.scm?id=ad5584bf25feb0b3f2e4bb328cedccbb71f42724'>marionette: Avoid read error when wait-for-file file is empty.</a><span class='msg-avail'>...</span></td><td>Christopher Baines</td></tr>
<tr><td><span title='2022-09-16 11:59:39 +0200'>2022-09-16</span></td><td><a href='/guix/commit/gnu/build/marionette.scm?id=0f46d4f1477b0446abd089f842ac7409963cc4f1'>marionette: Make it easier to debug REPL read failures.</a><span class='msg-avail'>...</span></td><td>Christopher Baines</td></tr>
<tr><td><span title='2022-08-28 22:10:20 -0400'>2022-08-28</span></td><td><a href='/guix/commit/gnu/build/marionette.scm?id=42fee6d0f176aea5d208e3e6d8b5270abcf4173c'>build: marionette: Add support for Tesseract OCR.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2022-08-28 22:10:20 -0400'>2022-08-28</span></td><td><a href='/guix/commit/gnu/build/marionette.scm?id=697b797160f8145f282767cedd66be2d7297fe1e'>marionette: Improve the error message of 'wait-for-screen-text'.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2022-08-11 11:52:51 -0400'>2022-08-11</span></td><td><a href='/guix/commit/gnu/build/marionette.scm?id=ce53253d1f8ba70e4013b191481d84d413cca9c0'>build: marionette: Adjust QEMU Info manual reference.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2022-08-09 17:15:45 +0200'>2022-08-09</span></td><td><a href='/guix/commit/gnu/build/marionette.scm?id=fd74fe6325eb54a48e496b3afe5001005b15d802'>tests: Add qemu-guest-agent system test.</a><span class='msg-avail'>...</span></td><td>Timotej Lazar</td></tr>
<tr><td><span title='2022-05-22 21:56:40 +0200'>2022-05-22</span></td><td><a href='/guix/commit/gnu/build/marionette.scm?id=52aceda4fd61970db118f23d316784ea8df244e8'>marionette: Add #:address parameter to 'wait-for-tcp-port'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>