|
Packit |
aea12f |
/*
|
|
Packit |
aea12f |
* Copyright (C) 2007-2012 Free Software Foundation, Inc.
|
|
Packit |
aea12f |
*
|
|
Packit |
aea12f |
* Author: Nikos Mavrogiannopoulos, Simon Josefsson
|
|
Packit |
aea12f |
*
|
|
Packit |
aea12f |
* This file is part of GnuTLS.
|
|
Packit |
aea12f |
*
|
|
Packit |
aea12f |
* GnuTLS is free software; you can redistribute it and/or modify it
|
|
Packit |
aea12f |
* under the terms of the GNU General Public License as published by
|
|
Packit |
aea12f |
* the Free Software Foundation; either version 3 of the License, or
|
|
Packit |
aea12f |
* (at your option) any later version.
|
|
Packit |
aea12f |
*
|
|
Packit |
aea12f |
* GnuTLS is distributed in the hope that it will be useful, but
|
|
Packit |
aea12f |
* WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
Packit |
aea12f |
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
Packit |
aea12f |
* General Public License for more details.
|
|
Packit |
aea12f |
*
|
|
Packit |
aea12f |
* You should have received a copy of the GNU General Public License
|
|
Packit |
aea12f |
* along with GnuTLS; if not, write to the Free Software Foundation,
|
|
Packit |
aea12f |
* Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA
|
|
Packit |
aea12f |
*/
|
|
Packit |
aea12f |
|
|
Packit |
aea12f |
#ifdef HAVE_CONFIG_H
|
|
Packit |
aea12f |
#include <config.h>
|
|
Packit |
aea12f |
#endif
|
|
Packit |
aea12f |
|
|
Packit |
aea12f |
#include <stdio.h>
|
|
Packit |
aea12f |
|
|
Packit |
aea12f |
#include "../lib/gnutls_int.h"
|
|
Packit |
aea12f |
#include "../lib/mpi.h"
|
|
Packit |
aea12f |
#include "../lib/errors.h"
|
|
Packit |
aea12f |
#include "../lib/debug.h"
|
|
Packit |
aea12f |
|
|
Packit Service |
991b93 |
/* utils.h must be loaded after gnutls_int.h, as it redefines some
|
|
Packit Service |
991b93 |
* macros from gnulib */
|
|
Packit Service |
991b93 |
#include "utils.h"
|
|
Packit Service |
991b93 |
|
|
Packit |
aea12f |
static void tls_log_func(int level, const char *str)
|
|
Packit |
aea12f |
{
|
|
Packit |
aea12f |
fprintf(stderr, "|<%d>| %s", level, str);
|
|
Packit |
aea12f |
}
|
|
Packit |
aea12f |
|
|
Packit |
aea12f |
void doit(void)
|
|
Packit |
aea12f |
{
|
|
Packit |
aea12f |
bigint_t n1, n2, n3, n4;
|
|
Packit |
aea12f |
int ret;
|
|
Packit |
aea12f |
|
|
Packit |
aea12f |
global_init();
|
|
Packit |
aea12f |
|
|
Packit |
aea12f |
gnutls_global_set_log_function(tls_log_func);
|
|
Packit |
aea12f |
if (debug)
|
|
Packit |
aea12f |
gnutls_global_set_log_level(99);
|
|
Packit |
aea12f |
|
|
Packit |
aea12f |
ret = _gnutls_mpi_init_multi(&n1, &n2, &n3, &n4, NULL);
|
|
Packit |
aea12f |
if (ret < 0)
|
|
Packit |
aea12f |
fail("mpi_new failed\n");
|
|
Packit |
aea12f |
|
|
Packit |
aea12f |
ret = _gnutls_mpi_set_ui(n2, 2);
|
|
Packit |
aea12f |
if (ret < 0)
|
|
Packit |
aea12f |
fail("mpi_set_ui failed\n");
|
|
Packit |
aea12f |
|
|
Packit |
aea12f |
ret = _gnutls_mpi_set_ui(n3, 5);
|
|
Packit |
aea12f |
if (ret < 0)
|
|
Packit |
aea12f |
fail("mpi_set_ui failed\n");
|
|
Packit |
aea12f |
|
|
Packit |
aea12f |
ret = _gnutls_mpi_set_ui(n1, 12498924);
|
|
Packit |
aea12f |
if (ret < 0)
|
|
Packit |
aea12f |
fail("mpi_set_ui failed\n");
|
|
Packit |
aea12f |
|
|
Packit |
aea12f |
ret = _gnutls_mpi_addm(n4, n1, n3, n2);
|
|
Packit |
aea12f |
if (ret < 0)
|
|
Packit |
aea12f |
fail("mpi_set_ui failed\n");
|
|
Packit |
aea12f |
|
|
Packit |
aea12f |
if (_gnutls_mpi_cmp_ui(n4, 0) != 0
|
|
Packit |
aea12f |
&& _gnutls_mpi_cmp_ui(n4, 1) != 0)
|
|
Packit |
aea12f |
fail("mpi_cmp_ui failed\n");
|
|
Packit |
aea12f |
|
|
Packit |
aea12f |
_gnutls_mpi_release(&n1;;
|
|
Packit |
aea12f |
_gnutls_mpi_release(&n2;;
|
|
Packit |
aea12f |
_gnutls_mpi_release(&n3;;
|
|
Packit |
aea12f |
_gnutls_mpi_release(&n4;;
|
|
Packit |
aea12f |
|
|
Packit |
aea12f |
gnutls_global_deinit();
|
|
Packit |
aea12f |
|
|
Packit |
aea12f |
if (debug)
|
|
Packit |
aea12f |
success("mpi ops ok\n");
|
|
Packit |
aea12f |
}
|