/* GNU Guix --- Functional package management for GNU
   Copyright (C) 2012, 2013  Ludovic Courtès <ludo@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/>.  */

#include <config.h>

#include <gcrypt-hash.hh>
#include <assert.h>

extern "C" {

void
guix_hash_init (struct guix_hash_context *ctx, int algo)
{
  gcry_error_t err;

  err = gcry_md_open (&ctx->md_handle, algo, 0);
  assert (err == GPG_ERR_NO_ERROR);
}

void
guix_hash_update (struct guix_hash_context *ctx, const void *buffer, size_t len)
{
  gcry_md_write (ctx->md_handle, buffer, len);
}

void
guix_hash_final (void *resbuf, struct guix_hash_context *ctx,
		 int algo)
{
  memcpy (resbuf, gcry_md_read (ctx->md_handle, algo),
	  gcry_md_get_algo_dlen (algo));
  gcry_md_close (ctx->md_handle);
  ctx->md_handle = NULL;
}

}
=4f1a36bd7b8febbcabbed76cdb9534e279445bd0'>commit</a><a href='/guix/diff/gnu/services/lightdm.scm?id=4f1a36bd7b8febbcabbed76cdb9534e279445bd0'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/services/lightdm.scm'>
<input type='hidden' name='id' value='4f1a36bd7b8febbcabbed76cdb9534e279445bd0'/><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=4f1a36bd7b8febbcabbed76cdb9534e279445bd0'>root</a>/<a href='/guix/log/gnu?id=4f1a36bd7b8febbcabbed76cdb9534e279445bd0'>gnu</a>/<a href='/guix/log/gnu/services?id=4f1a36bd7b8febbcabbed76cdb9534e279445bd0'>services</a>/<a href='/guix/log/gnu/services/lightdm.scm?id=4f1a36bd7b8febbcabbed76cdb9534e279445bd0'>lightdm.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/services/lightdm.scm?id=4f1a36bd7b8febbcabbed76cdb9534e279445bd0&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2022-11-19 19:54:14 +0100'>2022-11-19</span></td><td><a href='/guix/commit/gnu/services/lightdm.scm?id=50c17ddd9e2983d71c125d89b422fd20fca476e1'>services: lightdm: Do not use GOOPS.</a><span class='msg-avail'>...<span class='msg-tooltip'>There's an unwritten policy to not use GOOPS in Guix.

* gnu/services/lightdm.scm (strip-class-name-brackets): Rename to...
(strip-record-type-name-brackets): ... this.
(config-&gt;name): Adjust accordingly and use 'record-type-name' instead of
'class-name'.
(list-of-greeter-configurations?): Likewise.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-10-23 17:03:09 -0700'>2022-10-23</span></td><td><a href='/guix/commit/gnu/services/lightdm.scm?id=d3e982dccbd8ec7e00a2ab3efa04bef8f1c16b9e'>gnu: Fix typos.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/emacs-xyz.scm (emacs-piem)[description]: Fix use of "This
  packages".
* gnu/packages/tex.scm (texlive-hardwrap)[description]: Fix spelling of
  "arbitrary".
* gnu/packages/cran.scm (r-shinymanager)[description]: Fix spelling of
  "authentication".
* gnu/packages/lisp-xyz.scm (sbcl-utils-kt)[description]: Fix spelling of
  "developed".
* gnu/packages/crates-io.scm (rust-fs-utils-1)[description]: Fix spelling of
  "filesystem".
  [synopsis]: Likewise.
* gnu/packages/haxe.scm (neko)[description]: Fix spelling of "functions".
* gnu/packages/animation.scm (swftools)[description]: Fix needless
  pluralization of "information".
* gnu/packages/lisp-xyz.scm (sbcl-slot-extra-options)[description]: Fix
  spelling of "inheritance".
* gnu/packages/emacs-xyz.scm (emacs-js-comint)[description]: Fix spelling of
  "interpreter".
* gnu/packages/coq.scm (coq-mathcomp-finmap)[description]: Fix spelling of
  "library".
* gnu/services/lightdm.scm (lightdm-configuration): Fix spelling of
  "mechanism".
* gnu/packages/emacs-xyz.scm (emacs-citar-org-roam)[synopsis]: Fix spelling of
  "package".
* gnu/packages/games.scm (freerct)[description]: Fix spelling of
  "responsibilities".
* gnu/packages/statistics.scm (r-mixedpower)[description]: Fix spelling of
  "separate".
* gnu/packages/accessibility.scm (espeakup)[description]: Fix spelling of
  "speech".
* gnu/packages/bioinformatics.scm (r-skitools)[synopsis]: Fix spelling of
  "utilities".
* gnu/packages/golang.scm (go-github-com-savsgio-gotils)[synopsis]: Fix
  spelling of "utilities".
  [description]: Likewise.
* gnu/system.scm (boot-file-system-service os): Fix spelling of "utilities".
</span></span></td><td>Vagrant Cascadian</td></tr>
<tr><td><span title='2022-08-28 22:28:47 -0400'>2022-08-28</span></td><td><a href='/guix/commit/gnu/services/lightdm.scm?id=0ea62e84a787fe94cfeadf67ef27ea995a382b84'>services: Add lightdm-service-type.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services/lightdm.scm: New service.
* tests/services/lightdm.scm: Test it.
* doc/guix.texi (X Window): Document it.
* gnu/local.mk (GNU_SYSTEM_MODULES): Register it.

Co-authored-by: L p R n d n &lt;guix@lprndn.info&gt;
Co-authored-by: Ricardo Wurmus &lt;rekado@elephly.net&gt;
</span></span></td><td>Maxim Cournoyer</td></tr>