Line data Source code
1 : /* t-common.h - Common functions for the tests.
2 : * Copyright (C) 2002, 2003 g10 Code GmbH
3 : *
4 : * This file is part of KSBA.
5 : *
6 : * KSBA is free software; you can redistribute it and/or modify
7 : * it under the terms of the GNU General Public License as published by
8 : * the Free Software Foundation; either version 3 of the License, or
9 : * (at your option) any later version.
10 : *
11 : * KSBA 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 General Public License for more details.
15 : *
16 : * You should have received a copy of the GNU General Public License
17 : * along with this program; if not, see <http://www.gnu.org/licenses/>.
18 : */
19 :
20 : /*-- sha1.c --*/
21 : void sha1_hash_buffer (char *outbuf, const char *buffer, size_t length);
22 :
23 :
24 :
25 : #define digitp(p) (*(p) >= '0' && *(p) <= '9')
26 :
27 : #define fail_if_err(a) do { if(a) { \
28 : fprintf (stderr, "%s:%d: KSBA error: %s\n", \
29 : __FILE__, __LINE__, gpg_strerror(a)); \
30 : exit (1); } \
31 : } while(0)
32 :
33 :
34 : #define fail_if_err2(f, a) do { if(a) {\
35 : fprintf (stderr, "%s:%d: KSBA error on file `%s': %s\n", \
36 : __FILE__, __LINE__, (f), gpg_strerror(a)); \
37 : exit (1); } \
38 : } while(0)
39 :
40 : #define fail(s) do { fprintf (stderr, "%s:%d: %s\n", __FILE__,__LINE__, (s));\
41 : exit (1); } while(0)
42 :
43 : #define xfree(a) ksba_free (a)
44 :
45 :
46 : void *
47 4 : xmalloc (size_t n)
48 : {
49 4 : char *p = ksba_malloc (n);
50 4 : if (!p)
51 : {
52 0 : fprintf (stderr, "out of core\n");
53 0 : exit (1);
54 : }
55 4 : return p;
56 : }
57 :
58 :
59 : /* Prepend FNAME with the srcdir environment variable's value and
60 : retrun an allocated filename. */
61 : char *
62 0 : prepend_srcdir (const char *fname)
63 : {
64 : static const char *srcdir;
65 : char *result;
66 :
67 0 : if (!srcdir)
68 0 : if(!(srcdir = getenv ("srcdir")))
69 0 : srcdir = ".";
70 :
71 0 : result = xmalloc (strlen (srcdir) + 1 + strlen (fname) + 1);
72 0 : strcpy (result, srcdir);
73 0 : strcat (result, "/");
74 0 : strcat (result, fname);
75 0 : return result;
76 : }
77 :
78 :
79 :
80 : void
81 0 : print_hex (const unsigned char *p, size_t n)
82 : {
83 0 : if (!p)
84 0 : fputs ("none", stdout);
85 : else
86 : {
87 0 : for (; n; n--, p++)
88 0 : printf ("%02X", *p);
89 : }
90 0 : }
91 :
92 :
93 : void
94 9 : print_sexp (ksba_const_sexp_t p)
95 : {
96 9 : int level = 0;
97 :
98 9 : if (!p)
99 0 : fputs ("[none]", stdout);
100 : else
101 : {
102 : for (;;)
103 : {
104 67 : if (*p == '(')
105 : {
106 12 : putchar (*p);
107 12 : p++;
108 12 : level++;
109 : }
110 26 : else if (*p == ')')
111 : {
112 12 : putchar (*p);
113 12 : p++;
114 12 : if (--level <= 0 )
115 9 : return;
116 : }
117 14 : else if (!digitp (p))
118 : {
119 0 : fputs ("[invalid s-exp]", stdout);
120 0 : return;
121 : }
122 : else
123 : {
124 : char *endp;
125 : const unsigned char *s;
126 : unsigned long len, n;
127 :
128 14 : len = strtoul (p, &endp, 10);
129 14 : p = endp;
130 14 : if (*p != ':')
131 : {
132 0 : fputs ("[invalid s-exp]", stdout);
133 0 : return;
134 : }
135 14 : p++;
136 37 : for (s=p,n=0; n < len; n++, s++)
137 41 : if ( !((*s >= 'a' && *s <= 'z')
138 15 : || (*s >= 'A' && *s <= 'Z')
139 15 : || (*s >= '0' && *s <= '9')
140 10 : || *s == '-' || *s == '.'))
141 9 : break;
142 14 : if (n < len)
143 : {
144 9 : putchar('#');
145 331 : for (n=0; n < len; n++, p++)
146 322 : printf ("%02X", *p);
147 9 : putchar('#');
148 : }
149 : else
150 : {
151 24 : for (n=0; n < len; n++, p++)
152 19 : putchar (*p);
153 : }
154 : }
155 : }
156 : }
157 : }
158 :
159 : /* Variant of print_sexp which forces printing the values in hex. */
160 : void
161 11 : print_sexp_hex (ksba_const_sexp_t p)
162 : {
163 11 : int level = 0;
164 :
165 11 : if (!p)
166 0 : fputs ("[none]", stdout);
167 : else
168 : {
169 : for (;;)
170 : {
171 55 : if (*p == '(')
172 : {
173 11 : putchar (*p);
174 11 : p++;
175 11 : level++;
176 : }
177 22 : else if (*p == ')')
178 : {
179 11 : putchar (*p);
180 11 : p++;
181 11 : if (--level <= 0 )
182 11 : return;
183 : }
184 11 : else if (!digitp (p))
185 : {
186 0 : fputs ("[invalid s-exp]", stdout);
187 0 : return;
188 : }
189 : else
190 : {
191 : char *endp;
192 : unsigned long len, n;
193 :
194 11 : len = strtoul (p, &endp, 10);
195 11 : p = endp;
196 11 : if (*p != ':')
197 : {
198 0 : fputs ("[invalid s-exp]", stdout);
199 0 : return;
200 : }
201 11 : p++;
202 11 : putchar('#');
203 55 : for (n=0; n < len; n++, p++)
204 44 : printf ("%02X", *p);
205 11 : putchar('#');
206 : }
207 : }
208 : }
209 : }
210 :
211 :
212 : void
213 7 : print_dn (char *p)
214 : {
215 7 : if (!p)
216 0 : fputs ("error", stdout);
217 : else
218 7 : printf ("`%s'", p);
219 7 : }
220 :
221 :
222 : void
223 18 : print_time (ksba_isotime_t t)
224 : {
225 18 : if (!t || !*t)
226 0 : fputs ("none", stdout);
227 : else
228 18 : printf ("%.4s-%.2s-%.2s %.2s:%.2s:%s", t, t+4, t+6, t+9, t+11, t+13);
229 18 : }
|
