1 /*
2
3 Copyright 2011, 2013, 2018 Free Software Foundation, Inc.
4
5 This file is part of the GNU MP Library test suite.
6
7 The GNU MP Library test suite is free software; you can redistribute it
8 and/or modify it under the terms of the GNU General Public License as
9 published by the Free Software Foundation; either version 3 of the License,
10 or (at your option) any later version.
11
12 The GNU MP Library test suite is distributed in the hope that it will be
13 useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General
15 Public License for more details.
16
17 You should have received a copy of the GNU General Public License along with
18 the GNU MP Library test suite. If not, see https://www.gnu.org/licenses/. */
19
20 #include <stdio.h>
21 #include <stdlib.h>
22
23 #include "mini-random.h"
24
25 static void
set_str(mpz_t r,const char * s)26 set_str (mpz_t r, const char *s)
27 {
28 if (mpz_set_str (r, s, 16) != 0)
29 {
30 fprintf (stderr, "mpz_set_str failed on input %s\n", s);
31 abort ();
32 }
33 }
34
35 void
mini_urandomb(mpz_t r,unsigned long bits)36 mini_urandomb (mpz_t r, unsigned long bits)
37 {
38 char *s;
39 s = hex_urandomb (bits);
40 set_str (r, s);
41 free (s);
42 }
43
44 void
mini_rrandomb(mpz_t r,unsigned long bits)45 mini_rrandomb (mpz_t r, unsigned long bits)
46 {
47 char *s;
48 s = hex_rrandomb (bits);
49 set_str (r, s);
50 free (s);
51 }
52
53 void
mini_rrandomb_export(mpz_t r,void * dst,size_t * countp,int order,size_t size,int endian,unsigned long bits)54 mini_rrandomb_export (mpz_t r, void *dst, size_t *countp,
55 int order, size_t size, int endian, unsigned long bits)
56 {
57 char *s;
58 s = hex_rrandomb_export (dst, countp, order, size, endian, bits);
59 set_str (r, s);
60 free (s);
61 }
62
63 void
mini_random_op2(enum hex_random_op op,unsigned long maxbits,mpz_t a,mpz_t r)64 mini_random_op2 (enum hex_random_op op, unsigned long maxbits,
65 mpz_t a, mpz_t r)
66 {
67 char *ap;
68 char *rp;
69
70 hex_random_op2 (op, maxbits, &ap, &rp);
71 set_str (a, ap);
72 set_str (r, rp);
73
74 free (ap);
75 free (rp);
76 }
77
78 void
mini_random_op3(enum hex_random_op op,unsigned long maxbits,mpz_t a,mpz_t b,mpz_t r)79 mini_random_op3 (enum hex_random_op op, unsigned long maxbits,
80 mpz_t a, mpz_t b, mpz_t r)
81 {
82 char *ap;
83 char *bp;
84 char *rp;
85
86 hex_random_op3 (op, maxbits, &ap, &bp, &rp);
87 set_str (a, ap);
88 set_str (b, bp);
89 set_str (r, rp);
90
91 free (ap);
92 free (bp);
93 free (rp);
94 }
95
96 void
mini_random_op4(enum hex_random_op op,unsigned long maxbits,mpz_t a,mpz_t b,mpz_t c,mpz_t d)97 mini_random_op4 (enum hex_random_op op, unsigned long maxbits,
98 mpz_t a, mpz_t b, mpz_t c, mpz_t d)
99 {
100 char *ap;
101 char *bp;
102 char *cp;
103 char *dp;
104
105 hex_random_op4 (op, maxbits, &ap, &bp, &cp, &dp);
106 set_str (a, ap);
107 set_str (b, bp);
108 set_str (c, cp);
109 set_str (d, dp);
110
111 free (ap);
112 free (bp);
113 free (cp);
114 free (dp);
115 }
116
117 void
mini_random_bit_op(enum hex_random_op op,unsigned long maxbits,mpz_t a,mp_bitcnt_t * b,mpz_t r)118 mini_random_bit_op (enum hex_random_op op, unsigned long maxbits,
119 mpz_t a, mp_bitcnt_t *b, mpz_t r)
120 {
121 char *ap;
122 char *rp;
123
124 hex_random_bit_op (op, maxbits, &ap, b, &rp);
125 set_str (a, ap);
126 set_str (r, rp);
127
128 free (ap);
129 free (rp);
130 }
131
132 void
mini_random_scan_op(enum hex_random_op op,unsigned long maxbits,mpz_t a,mp_bitcnt_t * b,mp_bitcnt_t * r)133 mini_random_scan_op (enum hex_random_op op, unsigned long maxbits,
134 mpz_t a, mp_bitcnt_t *b, mp_bitcnt_t *r)
135 {
136 char *ap;
137
138 hex_random_scan_op (op, maxbits, &ap, b, r);
139 set_str (a, ap);
140
141 free (ap);
142 }
143
144 void
mini_random_lucm_op(unsigned long maxbits,mpz_t v,mpz_t q,mpz_t m,long * Q,unsigned long * b0,int * res)145 mini_random_lucm_op (unsigned long maxbits, mpz_t v, mpz_t q, mpz_t m,
146 long *Q, unsigned long *b0, int *res)
147 {
148 char *vp;
149 char *qp;
150 char *mp;
151
152 hex_random_lucm_op (maxbits, &vp, &qp, &mp, Q, b0, res);
153 set_str (v, vp);
154 set_str (q, qp);
155 set_str (m, mp);
156
157 free (vp);
158 free (qp);
159 free (mp);
160 }
161