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
115
|
/******************************************************************************
*
* M4RI: Linear Algebra over GF(2)
*
* Copyright (C) 2007 Gregory Bard <gregory.bard@ieee.org>
* Copyright (C) 2011 Carlo Wood <carlo@alinoe.com>
*
* Distributed under the terms of the GNU General Public License (GPL)
* version 2 or higher.
*
* This code 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.
*
* The full text of the GPL is available at:
*
* http://www.gnu.org/licenses/
******************************************************************************/
#ifdef HAVE_CONFIG_H
#include "config.h"
#endif
#ifdef _MSC_VER
#include <windows.h>
#endif
#include "graycode.h"
#include "misc.h"
#include "mmc.h"
#include <stdarg.h>
#include <stdio.h>
#include <stdlib.h>
void m4ri_die(const char *errormessage, ...) {
va_list lst;
va_start(lst, errormessage);
vfprintf(stderr, errormessage, lst);
va_end(lst);
abort();
}
/* Warning: If colon, destination must have m4ri_radix + (m4ri_radix - 1) / 4 + 1 bytes available.
*/
void m4ri_word_to_str(char *destination, word data, int colon) {
int j = 0;
for (int i = 0; i < m4ri_radix; ++i) {
if (colon && (i % 4) == 0 && i != 0) destination[j++] = ':';
if (__M4RI_GET_BIT(data, i))
destination[j++] = '1';
else
destination[j++] = ' ';
}
destination[j] = '\0';
}
word m4ri_random_word() {
#ifdef _MSC_VER
word a = 0;
int i;
for (i = 0; i < m4ri_radix; i += 8) { a ^= (((word)rand()) << i); };
return a;
#else
// random() only returns 31 bits, so we need three calls.
word a0 = random();
word a1 = random();
word a2 = random();
return a0 ^ (a1 << 24) ^ a2 << 48;
#endif
}
#ifdef __GNUC__
void __attribute__((constructor)) m4ri_init()
#else
void m4ri_init()
#endif
{
m4ri_build_all_codes();
}
#ifdef __GNUC__
void __attribute__((destructor)) m4ri_fini()
#else
void m4ri_fini()
#endif
{
m4ri_mmc_cleanup();
m4ri_destroy_all_codes();
}
#ifdef _MSC_VER
BOOL WINAPI DllMain(HINSTANCE hinstDLL, // handle to DLL module
DWORD fdwReason, // reason for calling function
LPVOID lpReserved) // reserved
{
// Perform actions based on the reason for calling.
switch (fdwReason) {
case DLL_PROCESS_ATTACH: m4ri_build_all_codes(); break;
case DLL_THREAD_ATTACH:
// Do thread-specific initialization.
break;
case DLL_THREAD_DETACH:
// Do thread-specific cleanup.
break;
case DLL_PROCESS_DETACH:
m4ri_mmc_cleanup();
m4ri_destroy_all_codes();
break;
}
return TRUE; // Successful DLL_PROCESS_ATTACH.
}
#endif
|
