/* 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;
}

}
=44b0faee6bb76c73384d42af95e492329fd45842'>commit</a><a href='/guix/diff/gnu/packages/gprolog.scm?id=44b0faee6bb76c73384d42af95e492329fd45842'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/packages/gprolog.scm'>
<input type='hidden' name='id' value='44b0faee6bb76c73384d42af95e492329fd45842'/><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=44b0faee6bb76c73384d42af95e492329fd45842'>root</a>/<a href='/guix/log/gnu?id=44b0faee6bb76c73384d42af95e492329fd45842'>gnu</a>/<a href='/guix/log/gnu/packages?id=44b0faee6bb76c73384d42af95e492329fd45842'>packages</a>/<a href='/guix/log/gnu/packages/gprolog.scm?id=44b0faee6bb76c73384d42af95e492329fd45842'>gprolog.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/gprolog.scm?id=44b0faee6bb76c73384d42af95e492329fd45842&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2016-05-28 07:27:46 +0800'>2016-05-28</span></td><td><a href='/guix/commit/gnu/packages/gprolog.scm?id=1a6d3cd374bcff136592e04caa0dafada3352ecd'>gnu: gprolog: Don't install files into "$out/gprolog-1.4.4".</a><span class='msg-avail'>...</span></td><td>宋文武</td></tr>
<tr><td><span title='2015-10-07 21:22:17 +0300'>2015-10-07</span></td><td><a href='/guix/commit/gnu/packages/gprolog.scm?id=751b7aad1e85152413ac244a6cb457f8cea9c265'>gnu: gprolog: Remove armhf from supported architectures.</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2014-10-28 01:18:50 +0100'>2014-10-28</span></td><td><a href='/guix/commit/gnu/packages/gprolog.scm?id=f47638a3534c99fb8fef501c5827e9e32a6b4a2e'>gnu: Mark a few packages as unsupported on MIPS.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2013-12-01 22:33:23 +0100'>2013-12-01</span></td><td><a href='/guix/commit/gnu/packages/gprolog.scm?id=79c311b81cd8b12075f4c8028a65787481ee40c5'>gnu: Synchronize descriptions with 'gnumaint'.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2013-10-09 16:14:23 +0200'>2013-10-09</span></td><td><a href='/guix/commit/gnu/packages/gprolog.scm?id=a22dc0c49aed0babe16ef92ae24847b343b7eb02'>Synchronize package descriptions with the Womb.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2013-04-27 12:13:21 +0200'>2013-04-27</span></td><td><a href='/guix/commit/gnu/packages/gprolog.scm?id=eaff9364d5f87e8ff105d3d400673a81ccb35bc7'>gnu: gprolog: Update to 1.4.4.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2013-04-21 17:57:56 -0400'>2013-04-21</span></td><td><a href='/guix/commit/gnu/packages/gprolog.scm?id=6ed80bed48208d4a6e7a8aa394689b7274bace87'>gnu: gprolog: Update to 1.4.3 and download from GNU mirrors</a><span class='msg-avail'>...</span></td><td>Mark H Weaver</td></tr>
<tr><td><span title='2013-04-17 18:04:25 +0200'>2013-04-17</span></td><td><a href='/guix/commit/gnu/packages/gprolog.scm?id=f50d2669e3e624365221cc81918ba55fdce94107'>gnu: Use synopses from the Womb.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2013-02-02 12:48:58 +0000'>2013-02-02</span></td><td><a href='/guix/commit/gnu/packages/gprolog.scm?id=9c63fe6c1f855a09a62d6d74739ce6eced6fdef8'>gnu: Add GNU Prolog.</a><span class='msg-avail'>...</span></td><td>Nikita Karetnikov</td></tr>