sexp: Improve argument checking of sexp parser.
[libgcrypt.git] / mpi / mpi-cmp.c
1 /* mpi-cmp.c  -  MPI functions
2  * Copyright (C) 1998, 1999, 2001, 2002, 2005 Free Software Foundation, Inc.
3  *
4  * This file is part of Libgcrypt.
5  *
6  * Libgcrypt is free software; you can redistribute it and/or modify
7  * it under the terms of the GNU Lesser General Public License as
8  * published by the Free Software Foundation; either version 2.1 of
9  * the License, or (at your option) any later version.
10  *
11  * Libgcrypt is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14  * GNU Lesser General Public License for more details.
15  *
16  * You should have received a copy of the GNU Lesser General Public
17  * License along with this program; if not, write to the Free Software
18  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
19  */
20
21 #include <config.h>
22 #include <stdio.h>
23 #include <stdlib.h>
24 #include "mpi-internal.h"
25
26 int
27 _gcry_mpi_cmp_ui (gcry_mpi_t u, unsigned long v)
28 {
29   mpi_limb_t limb = v;
30
31   _gcry_mpi_normalize (u);
32
33   /* Handle the case that U contains no limb.  */
34   if (u->nlimbs == 0)
35     return -(limb != 0);
36
37   /* Handle the case that U is negative.  */
38   if (u->sign)
39     return -1;
40
41   if (u->nlimbs == 1)
42     {
43       /* Handle the case that U contains exactly one limb.  */
44
45       if (u->d[0] > limb)
46         return 1;
47       if (u->d[0] < limb)
48         return -1;
49       return 0;
50     }
51   else
52     /* Handle the case that U contains more than one limb.  */
53     return 1;
54 }
55
56
57 /* Helper for _gcry_mpi_cmp and _gcry_mpi_cmpabs.  */
58 static int
59 do_mpi_cmp (gcry_mpi_t u, gcry_mpi_t v, int absmode)
60 {
61   mpi_size_t usize;
62   mpi_size_t vsize;
63   int usign;
64   int vsign;
65   int cmp;
66
67   if (mpi_is_opaque (u) || mpi_is_opaque (v))
68     {
69       /* We have no signan and thus ABSMODE has no efeect here.  */
70       if (mpi_is_opaque (u) && !mpi_is_opaque (v))
71         return -1;
72       if (!mpi_is_opaque (u) && mpi_is_opaque (v))
73         return 1;
74       if (!u->sign && !v->sign)
75         return 0; /* Empty buffers are identical.  */
76       if (u->sign < v->sign)
77         return -1;
78       if (u->sign > v->sign)
79         return 1;
80       return memcmp (u->d, v->d, (u->sign+7)/8);
81     }
82   else
83     {
84       _gcry_mpi_normalize (u);
85       _gcry_mpi_normalize (v);
86
87       usize = u->nlimbs;
88       vsize = v->nlimbs;
89       usign = absmode? 0 : u->sign;
90       vsign = absmode? 0 : v->sign;
91
92       /* Compare sign bits.  */
93
94       if (!usign && vsign)
95         return 1;
96       if (usign && !vsign)
97         return -1;
98
99       /* U and V are either both positive or both negative.  */
100
101       if (usize != vsize && !usign && !vsign)
102         return usize - vsize;
103       if (usize != vsize && usign && vsign)
104         return vsize + usize;
105       if (!usize )
106         return 0;
107       if (!(cmp = _gcry_mpih_cmp (u->d, v->d, usize)))
108         return 0;
109       if ((cmp < 0?1:0) == (usign?1:0))
110         return 1;
111     }
112   return -1;
113 }
114
115
116 int
117 _gcry_mpi_cmp (gcry_mpi_t u, gcry_mpi_t v)
118 {
119   return do_mpi_cmp (u, v, 0);
120 }
121
122 /* Compare only the absolute values.  */
123 int
124 _gcry_mpi_cmpabs (gcry_mpi_t u, gcry_mpi_t v)
125 {
126   return do_mpi_cmp (u, v, 1);
127 }