/usr/include/linbox/util/iml_wrapper.h is in liblinbox-dev 1.4.2-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 | /* Copyright (C) 2011 LinBox
* Written by Brice Boyer (briceboyer) <boyer.brice@gmail.com>
*
*
*
* ========LICENCE========
* This file is part of the library LinBox.
*
* LinBox is free software: you can redistribute it and/or modify
* it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; either
* version 2.1 of the License, or (at your option) any later version.
*
* This library 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
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, write to the Free Software
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
* ========LICENCE========
*/
/*! @file util/iml_wrapper.h
* @ingroup util
* @brief Wraper for IML routines and puts them in a dedicated namespace.
* This wrapper includes iml.h definitions in an IML namespace. The \#defines
* found elsewhere in the library (eg X*ALLOC) are rewritten. The functions
* that are provided in the .a but not in the header are provided <code>extern
* "C"</code>.
*/
#ifndef __LINBOX_util_iml_wrapper_H
#define __LINBOX_util_iml_wrapper_H
#ifdef __LINBOX_HAVE_IML
/*! @brief Namespace for IML routines.
* This namespace is foreign to LinBox'.
*/
namespace IML {
extern "C" {
#include "iml.h"
/* basisop.c */
void
maxMagnMP (mpz_t *mp_A, const long n, const long m, const long lda, \
mpz_t mp_max) ;
/* RNSop.c */
FiniteField RNSbound (const long n) ;
FiniteField **
findRNS (const FiniteField RNS_bound, const mpz_t mp_maxInter, long *length) ;
FiniteField *
repBound (const long len, const FiniteField *basis, const FiniteField *cmbasis) ;
void
basisProd (const long len, const FiniteField *basis, mpz_t mp_prod) ;
void
ChineseRemainder (const long len, const mpz_t mp_prod, \
const FiniteField *basis, const FiniteField *cmbasis, \
const FiniteField *bdcoeff, Double *Ac, mpz_t mp_Ac);
void
ChineseRemainderPos (const long len, const FiniteField *basis, \
const FiniteField *cmbasis, Double *Ac, mpz_t mp_Ac);
}
// #include <stdlib.h>
#ifndef XMALLOC
#define IML_XMALLOC(type, num) \
((type *) malloc ((num) * sizeof(type)))
#else
#define IML_XMALLOC(type, num) \
XMALLOC(type, num)
#endif
#ifndef XFREE
#define IML_XFREE(stale) do { \
if (stale) { free (stale); stale = 0; } \
} while (0)
#else
#define IML_XFREE(stale) \
XFREE(stale)
#endif
extern "C" {
void *xcalloc (size_t num, size_t size);
void *xmalloc (size_t num);
void *xrealloc (void *p, size_t num);
}
#define REINTERP_IML_CONST(GivMat) \
reinterpret_cast<mpz_t*>(const_cast<Givaro::ZRing<Integer>::Element*>((GivMat)))
#define REINTERP_IML(GivMat) \
reinterpret_cast<mpz_t*>((GivMat))
}
#else
#error "you are using IML wrapper without IML available in LinBox."
#endif
#endif // __LINBOX_util_iml_wrapper_H
// vim:sts=8:sw=8:ts=8:noet:sr:cino=>s,f0,{0,g0,(0,:0,t0,+0,=s
// Local Variables:
// mode: C++
// tab-width: 8
// indent-tabs-mode: nil
// c-basic-offset: 8
// End:
|