Subversion Repositories shark

Rev

Rev 107 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 pj 1
/*
2
 * Copyright (c) 1997-1999 Massachusetts Institute of Technology
3
 *
4
 * This program is free software; you can redistribute it and/or modify
5
 * it under the terms of the GNU General Public License as published by
6
 * the Free Software Foundation; either version 2 of the License, or
7
 * (at your option) any later version.
8
 *
9
 * This program is distributed in the hope that it will be useful,
10
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12
 * GNU General Public License for more details.
13
 *
14
 * You should have received a copy of the GNU General Public License
15
 * along with this program; if not, write to the Free Software
16
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
17
 *
18
 */
19
 
20
/*
21
 * wisdom.c -- manage the wisdom
22
 */
23
 
107 pj 24
#include <fftw-int.h>
2 pj 25
//#include <ports/stdio.h>
26
#include <stdlib.h>
27
//#include <ports/ctype.h>
28
#include <ctype.h>
29
#define EOF -1
30
 
31
struct wisdom {
32
     int n;
33
     int flags;
34
     fftw_direction dir;
35
     enum fftw_wisdom_category category;
36
     int istride;
37
     int ostride;
38
     enum fftw_node_type type;  /* this is the wisdom */
39
     int signature;             /* this is the wisdom */
40
     struct wisdom *next;
41
};
42
 
43
/* list of wisdom */
44
static struct wisdom *wisdom_list = (struct wisdom *) 0;
45
 
46
int fftw_wisdom_lookup(int n, int flags, fftw_direction dir,
47
                       enum fftw_wisdom_category category,
48
                       int istride, int ostride,
49
                       enum fftw_node_type *type,
50
                       int *signature, int replacep)
51
{
52
     struct wisdom *p;
53
 
54
     if (!(flags & FFTW_USE_WISDOM))
55
          return 0;             /* simply ignore if wisdom is disabled */
56
 
57
     flags |= FFTW_MEASURE;     /*
58
                                 * always use (only) wisdom from
59
                                 * measurements
60
                                 */
61
 
62
     for (p = wisdom_list; p; p = p->next) {
63
          if (p->n == n && p->flags == flags && p->dir == dir &&
64
              p->istride == istride && p->ostride == ostride &&
65
              p->category == category) {
66
               /* found wisdom */
67
               if (replacep) {
68
                    /* replace old wisdom with new */
69
                    p->type = *type;
70
                    p->signature = *signature;
71
               } else {
72
                    *type = p->type;
73
                    *signature = p->signature;
74
               }
75
               return 1;
76
          }
77
     }
78
 
79
     return 0;
80
}
81
 
82
void fftw_wisdom_add(int n, int flags, fftw_direction dir,
83
                     enum fftw_wisdom_category category,
84
                     int istride, int ostride,
85
                     enum fftw_node_type type,
86
                     int signature)
87
{
88
     struct wisdom *p;
89
 
90
     if (!(flags & FFTW_USE_WISDOM))
91
          return;               /* simply ignore if wisdom is disabled */
92
 
93
     if (!(flags & FFTW_MEASURE))
94
          return;               /* only measurements produce wisdom */
95
 
96
     if (fftw_wisdom_lookup(n, flags, dir, category, istride, ostride,
97
                            &type, &signature, 1))
98
          return;               /* wisdom overwrote old wisdom */
99
 
100
     p = (struct wisdom *) fftw_malloc(sizeof(struct wisdom));
101
 
102
     p->n = n;
103
     p->flags = flags;
104
     p->dir = dir;
105
     p->category = category;
106
     p->istride = istride;
107
     p->ostride = ostride;
108
     p->type = type;
109
     p->signature = signature;
110
 
111
     /* remember this wisdom */
112
     p->next = wisdom_list;
113
     wisdom_list = p;
114
}
115
 
116
void fftw_forget_wisdom(void)
117
{
118
     while (wisdom_list) {
119
          struct wisdom *p;
120
 
121
          p = wisdom_list;
122
          wisdom_list = wisdom_list->next;
123
          fftw_free(p);
124
     }
125
}
126
 
127
/*
128
 * user-visible routines, to convert wisdom into strings etc.
129
 */
130
static const char *WISDOM_FORMAT_VERSION = "FFTW-" FFTW_VERSION;
131
 
132
static void (*emit) (char c, void *data);
133
 
134
static void emit_string(const char *s, void *data)
135
{
136
     while (*s)
137
          emit(*s++, data);
138
}
139
 
140
static void emit_int(int n, void *data)
141
{
142
     char buf[128];
143
 
144
     sprintf(buf, "%d", n);
145
     emit_string(buf, data);
146
}
147
 
148
/* dump wisdom in lisp-like format */
149
void fftw_export_wisdom(void (*emitter) (char c, void *), void *data)
150
{
151
     struct wisdom *p;
152
 
153
     /* install the output handler */
154
     emit = emitter;
155
 
156
     emit('(', data);
157
     emit_string(WISDOM_FORMAT_VERSION, data);
158
 
159
     for (p = wisdom_list; p; p = p->next) {
160
          emit(' ', data);      /* separator to make the output nicer */
161
          emit('(', data);
162
          emit_int((int) p->n, data);
163
          emit(' ', data);
164
          emit_int((int) p->flags, data);
165
          emit(' ', data);
166
          emit_int((int) p->dir, data);
167
          emit(' ', data);
168
          emit_int((int) p->category, data);
169
          emit(' ', data);
170
          emit_int((int) p->istride, data);
171
          emit(' ', data);
172
          emit_int((int) p->ostride, data);
173
          emit(' ', data);
174
          emit_int((int) p->type, data);
175
          emit(' ', data);
176
          emit_int((int) p->signature, data);
177
          emit(')', data);
178
     }
179
     emit(')', data);
180
}
181
 
182
/* input part */
183
static int next_char;
184
static int (*get_input) (void *data);
185
static fftw_status input_error;
186
 
187
static void read_char(void *data)
188
{
189
     next_char = get_input(data);
190
     if (next_char == 0 ||
191
         next_char == EOF)
192
          input_error = FFTW_FAILURE;
193
}
194
 
195
/* skip blanks, newlines, tabs, etc */
196
static void eat_blanks(void *data)
197
{
198
     while (isspace(next_char))
199
          read_char(data);
200
}
201
 
202
static int read_int(void *data)
203
{
204
     int sign = 1;
205
     int n = 0;
206
 
207
     eat_blanks(data);
208
     if (next_char == '-') {
209
          sign = -1;
210
          read_char(data);
211
          eat_blanks(data);
212
     }
213
     if (!isdigit(next_char)) {
214
          /* error, no digit */
215
          input_error = FFTW_FAILURE;
216
          return 0;
217
     }
218
     while (isdigit(next_char)) {
219
          n = n * 10 + (next_char - '0');
220
          read_char(data);
221
     }
222
 
223
     return sign * n;
224
}
225
 
226
#define EXPECT(c)                     \
227
{                                     \
228
     eat_blanks(data);                \
229
     if (input_error == FFTW_FAILURE || \
230
         next_char != c)              \
231
          return FFTW_FAILURE;        \
232
     read_char(data);                 \
233
}
234
 
235
#define EXPECT_INT(n)                                 \
236
{                                                     \
237
     n = read_int(data);                              \
238
     if (input_error == FFTW_FAILURE)                 \
239
          return FFTW_FAILURE;                        \
240
}
241
 
242
#define EXPECT_STRING(s)             \
243
{                                    \
244
     const char *s1 = s;                     \
245
     while (*s1) {                   \
246
          EXPECT(*s1);               \
247
          ++s1;                      \
248
     }                               \
249
}
250
 
251
fftw_status fftw_import_wisdom(int (*g) (void *), void *data)
252
{
253
     int n;
254
     int flags;
255
     fftw_direction dir;
256
     int dir_int;
257
     enum fftw_wisdom_category category;
258
     int category_int;
259
     enum fftw_node_type type;
260
     int type_int;
261
     int signature;
262
     int istride, ostride;
263
 
264
     get_input = g;
265
     input_error = FFTW_SUCCESS;
266
 
267
     read_char(data);
268
 
269
     eat_blanks(data);
270
     EXPECT('(');
271
     eat_blanks(data);
272
     EXPECT_STRING(WISDOM_FORMAT_VERSION);
273
     eat_blanks(data);
274
 
275
     while (next_char != ')') {
276
          EXPECT('(');
277
          EXPECT_INT(n);
278
          EXPECT_INT(flags);
279
          /* paranoid respect for enumerated types */
280
          EXPECT_INT(dir_int);
281
          dir = (fftw_direction) dir_int;
282
          EXPECT_INT(category_int);
283
          category = (enum fftw_wisdom_category) category_int;
284
          EXPECT_INT(istride);
285
          EXPECT_INT(ostride);
286
          EXPECT_INT(type_int);
287
          type = (enum fftw_node_type) type_int;
288
          EXPECT_INT(signature);
289
          eat_blanks(data);
290
          EXPECT(')');
291
 
292
          /* the wisdom has been read properly. Add it */
293
          fftw_wisdom_add(n, flags, dir, category,
294
                          istride, ostride, type, signature);
295
 
296
          /* prepare for next morsel of wisdom */
297
          eat_blanks(data);
298
     }
299
 
300
     return FFTW_SUCCESS;
301
}