Branch data Line data Source code
1 : : /* ----------------------------------------------------------------------------
2 : : * This file was automatically generated by SWIG (https://www.swig.org).
3 : : * Version 4.2.0
4 : : *
5 : : * Do not make changes to this file unless you know what you are doing - modify
6 : : * the SWIG interface file instead.
7 : : * ----------------------------------------------------------------------------- */
8 : :
9 : :
10 : : #define SWIG_VERSION 0x040200
11 : : #define SWIGGUILE
12 : : #define SWIG_GUILE_INIT_STATIC static
13 : : SWIG_GUILE_INIT_STATIC void
14 : : SWIG_init (void);
15 : :
16 : : /* -----------------------------------------------------------------------------
17 : : * This section contains generic SWIG labels for method/variable
18 : : * declarations/attributes, and other compiler dependent labels.
19 : : * ----------------------------------------------------------------------------- */
20 : :
21 : : /* template workaround for compilers that cannot correctly implement the C++ standard */
22 : : #ifndef SWIGTEMPLATEDISAMBIGUATOR
23 : : # if defined(__SUNPRO_CC) && (__SUNPRO_CC <= 0x560)
24 : : # define SWIGTEMPLATEDISAMBIGUATOR template
25 : : # elif defined(__HP_aCC)
26 : : /* Needed even with `aCC -AA' when `aCC -V' reports HP ANSI C++ B3910B A.03.55 */
27 : : /* If we find a maximum version that requires this, the test would be __HP_aCC <= 35500 for A.03.55 */
28 : : # define SWIGTEMPLATEDISAMBIGUATOR template
29 : : # else
30 : : # define SWIGTEMPLATEDISAMBIGUATOR
31 : : # endif
32 : : #endif
33 : :
34 : : /* inline attribute */
35 : : #ifndef SWIGINLINE
36 : : # if defined(__cplusplus) || (defined(__GNUC__) && !defined(__STRICT_ANSI__))
37 : : # define SWIGINLINE inline
38 : : # else
39 : : # define SWIGINLINE
40 : : # endif
41 : : #endif
42 : :
43 : : /* attribute recognised by some compilers to avoid 'unused' warnings */
44 : : #ifndef SWIGUNUSED
45 : : # if defined(__GNUC__)
46 : : # if !(defined(__cplusplus)) || (__GNUC__ > 3 || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4))
47 : : # define SWIGUNUSED __attribute__ ((__unused__))
48 : : # else
49 : : # define SWIGUNUSED
50 : : # endif
51 : : # elif defined(__ICC)
52 : : # define SWIGUNUSED __attribute__ ((__unused__))
53 : : # else
54 : : # define SWIGUNUSED
55 : : # endif
56 : : #endif
57 : :
58 : : #ifndef SWIG_MSC_UNSUPPRESS_4505
59 : : # if defined(_MSC_VER)
60 : : # pragma warning(disable : 4505) /* unreferenced local function has been removed */
61 : : # endif
62 : : #endif
63 : :
64 : : #ifndef SWIGUNUSEDPARM
65 : : # ifdef __cplusplus
66 : : # define SWIGUNUSEDPARM(p)
67 : : # else
68 : : # define SWIGUNUSEDPARM(p) p SWIGUNUSED
69 : : # endif
70 : : #endif
71 : :
72 : : /* internal SWIG method */
73 : : #ifndef SWIGINTERN
74 : : # define SWIGINTERN static SWIGUNUSED
75 : : #endif
76 : :
77 : : /* internal inline SWIG method */
78 : : #ifndef SWIGINTERNINLINE
79 : : # define SWIGINTERNINLINE SWIGINTERN SWIGINLINE
80 : : #endif
81 : :
82 : : /* exporting methods */
83 : : #if defined(__GNUC__)
84 : : # if (__GNUC__ >= 4) || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4)
85 : : # ifndef GCC_HASCLASSVISIBILITY
86 : : # define GCC_HASCLASSVISIBILITY
87 : : # endif
88 : : # endif
89 : : #endif
90 : :
91 : : #ifndef SWIGEXPORT
92 : : # if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
93 : : # if defined(STATIC_LINKED)
94 : : # define SWIGEXPORT
95 : : # else
96 : : # define SWIGEXPORT __declspec(dllexport)
97 : : # endif
98 : : # else
99 : : # if defined(__GNUC__) && defined(GCC_HASCLASSVISIBILITY)
100 : : # define SWIGEXPORT __attribute__ ((visibility("default")))
101 : : # else
102 : : # define SWIGEXPORT
103 : : # endif
104 : : # endif
105 : : #endif
106 : :
107 : : /* calling conventions for Windows */
108 : : #ifndef SWIGSTDCALL
109 : : # if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
110 : : # define SWIGSTDCALL __stdcall
111 : : # else
112 : : # define SWIGSTDCALL
113 : : # endif
114 : : #endif
115 : :
116 : : /* Deal with Microsoft's attempt at deprecating C standard runtime functions */
117 : : #if !defined(SWIG_NO_CRT_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_CRT_SECURE_NO_DEPRECATE)
118 : : # define _CRT_SECURE_NO_DEPRECATE
119 : : #endif
120 : :
121 : : /* Deal with Microsoft's attempt at deprecating methods in the standard C++ library */
122 : : #if !defined(SWIG_NO_SCL_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_SCL_SECURE_NO_DEPRECATE)
123 : : # define _SCL_SECURE_NO_DEPRECATE
124 : : #endif
125 : :
126 : : /* Deal with Apple's deprecated 'AssertMacros.h' from Carbon-framework */
127 : : #if defined(__APPLE__) && !defined(__ASSERT_MACROS_DEFINE_VERSIONS_WITHOUT_UNDERSCORES)
128 : : # define __ASSERT_MACROS_DEFINE_VERSIONS_WITHOUT_UNDERSCORES 0
129 : : #endif
130 : :
131 : : /* Intel's compiler complains if a variable which was never initialised is
132 : : * cast to void, which is a common idiom which we use to indicate that we
133 : : * are aware a variable isn't used. So we just silence that warning.
134 : : * See: https://github.com/swig/swig/issues/192 for more discussion.
135 : : */
136 : : #ifdef __INTEL_COMPILER
137 : : # pragma warning disable 592
138 : : #endif
139 : :
140 : : #if __cplusplus >=201103L
141 : : # define SWIG_NULLPTR nullptr
142 : : #else
143 : : # define SWIG_NULLPTR NULL
144 : : #endif
145 : :
146 : : /* -----------------------------------------------------------------------------
147 : : * swigrun.swg
148 : : *
149 : : * This file contains generic C API SWIG runtime support for pointer
150 : : * type checking.
151 : : * ----------------------------------------------------------------------------- */
152 : :
153 : : /* This should only be incremented when either the layout of swig_type_info changes,
154 : : or for whatever reason, the runtime changes incompatibly */
155 : : #define SWIG_RUNTIME_VERSION "4"
156 : :
157 : : /* define SWIG_TYPE_TABLE_NAME as "SWIG_TYPE_TABLE" */
158 : : #ifdef SWIG_TYPE_TABLE
159 : : # define SWIG_QUOTE_STRING(x) #x
160 : : # define SWIG_EXPAND_AND_QUOTE_STRING(x) SWIG_QUOTE_STRING(x)
161 : : # define SWIG_TYPE_TABLE_NAME SWIG_EXPAND_AND_QUOTE_STRING(SWIG_TYPE_TABLE)
162 : : #else
163 : : # define SWIG_TYPE_TABLE_NAME
164 : : #endif
165 : :
166 : : /*
167 : : You can use the SWIGRUNTIME and SWIGRUNTIMEINLINE macros for
168 : : creating a static or dynamic library from the SWIG runtime code.
169 : : In 99.9% of the cases, SWIG just needs to declare them as 'static'.
170 : :
171 : : But only do this if strictly necessary, ie, if you have problems
172 : : with your compiler or suchlike.
173 : : */
174 : :
175 : : #ifndef SWIGRUNTIME
176 : : # define SWIGRUNTIME SWIGINTERN
177 : : #endif
178 : :
179 : : #ifndef SWIGRUNTIMEINLINE
180 : : # define SWIGRUNTIMEINLINE SWIGRUNTIME SWIGINLINE
181 : : #endif
182 : :
183 : : /* Generic buffer size */
184 : : #ifndef SWIG_BUFFER_SIZE
185 : : # define SWIG_BUFFER_SIZE 1024
186 : : #endif
187 : :
188 : : /* Flags for pointer conversions */
189 : : #define SWIG_POINTER_DISOWN 0x1
190 : : #define SWIG_CAST_NEW_MEMORY 0x2
191 : : #define SWIG_POINTER_NO_NULL 0x4
192 : : #define SWIG_POINTER_CLEAR 0x8
193 : : #define SWIG_POINTER_RELEASE (SWIG_POINTER_CLEAR | SWIG_POINTER_DISOWN)
194 : :
195 : : /* Flags for new pointer objects */
196 : : #define SWIG_POINTER_OWN 0x1
197 : :
198 : :
199 : : /*
200 : : Flags/methods for returning states.
201 : :
202 : : The SWIG conversion methods, as ConvertPtr, return an integer
203 : : that tells if the conversion was successful or not. And if not,
204 : : an error code can be returned (see swigerrors.swg for the codes).
205 : :
206 : : Use the following macros/flags to set or process the returning
207 : : states.
208 : :
209 : : In old versions of SWIG, code such as the following was usually written:
210 : :
211 : : if (SWIG_ConvertPtr(obj,vptr,ty.flags) != -1) {
212 : : // success code
213 : : } else {
214 : : //fail code
215 : : }
216 : :
217 : : Now you can be more explicit:
218 : :
219 : : int res = SWIG_ConvertPtr(obj,vptr,ty.flags);
220 : : if (SWIG_IsOK(res)) {
221 : : // success code
222 : : } else {
223 : : // fail code
224 : : }
225 : :
226 : : which is the same really, but now you can also do
227 : :
228 : : Type *ptr;
229 : : int res = SWIG_ConvertPtr(obj,(void **)(&ptr),ty.flags);
230 : : if (SWIG_IsOK(res)) {
231 : : // success code
232 : : if (SWIG_IsNewObj(res) {
233 : : ...
234 : : delete *ptr;
235 : : } else {
236 : : ...
237 : : }
238 : : } else {
239 : : // fail code
240 : : }
241 : :
242 : : I.e., now SWIG_ConvertPtr can return new objects and you can
243 : : identify the case and take care of the deallocation. Of course that
244 : : also requires SWIG_ConvertPtr to return new result values, such as
245 : :
246 : : int SWIG_ConvertPtr(obj, ptr,...) {
247 : : if (<obj is ok>) {
248 : : if (<need new object>) {
249 : : *ptr = <ptr to new allocated object>;
250 : : return SWIG_NEWOBJ;
251 : : } else {
252 : : *ptr = <ptr to old object>;
253 : : return SWIG_OLDOBJ;
254 : : }
255 : : } else {
256 : : return SWIG_BADOBJ;
257 : : }
258 : : }
259 : :
260 : : Of course, returning the plain '0(success)/-1(fail)' still works, but you can be
261 : : more explicit by returning SWIG_BADOBJ, SWIG_ERROR or any of the
262 : : SWIG errors code.
263 : :
264 : : Finally, if the SWIG_CASTRANK_MODE is enabled, the result code
265 : : allows returning the 'cast rank', for example, if you have this
266 : :
267 : : int food(double)
268 : : int fooi(int);
269 : :
270 : : and you call
271 : :
272 : : food(1) // cast rank '1' (1 -> 1.0)
273 : : fooi(1) // cast rank '0'
274 : :
275 : : just use the SWIG_AddCast()/SWIG_CheckState()
276 : : */
277 : :
278 : : #define SWIG_OK (0)
279 : : /* Runtime errors are < 0 */
280 : : #define SWIG_ERROR (-1)
281 : : /* Errors in range -1 to -99 are in swigerrors.swg (errors for all languages including those not using the runtime) */
282 : : /* Errors in range -100 to -199 are language specific errors defined in *errors.swg */
283 : : /* Errors < -200 are generic runtime specific errors */
284 : : #define SWIG_ERROR_RELEASE_NOT_OWNED (-200)
285 : :
286 : : #define SWIG_IsOK(r) (r >= 0)
287 : : #define SWIG_ArgError(r) ((r != SWIG_ERROR) ? r : SWIG_TypeError)
288 : :
289 : : /* The CastRankLimit says how many bits are used for the cast rank */
290 : : #define SWIG_CASTRANKLIMIT (1 << 8)
291 : : /* The NewMask denotes the object was created (using new/malloc) */
292 : : #define SWIG_NEWOBJMASK (SWIG_CASTRANKLIMIT << 1)
293 : : /* The TmpMask is for in/out typemaps that use temporary objects */
294 : : #define SWIG_TMPOBJMASK (SWIG_NEWOBJMASK << 1)
295 : : /* Simple returning values */
296 : : #define SWIG_BADOBJ (SWIG_ERROR)
297 : : #define SWIG_OLDOBJ (SWIG_OK)
298 : : #define SWIG_NEWOBJ (SWIG_OK | SWIG_NEWOBJMASK)
299 : : #define SWIG_TMPOBJ (SWIG_OK | SWIG_TMPOBJMASK)
300 : : /* Check, add and del object mask methods */
301 : : #define SWIG_AddNewMask(r) (SWIG_IsOK(r) ? (r | SWIG_NEWOBJMASK) : r)
302 : : #define SWIG_DelNewMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_NEWOBJMASK) : r)
303 : : #define SWIG_IsNewObj(r) (SWIG_IsOK(r) && (r & SWIG_NEWOBJMASK))
304 : : #define SWIG_AddTmpMask(r) (SWIG_IsOK(r) ? (r | SWIG_TMPOBJMASK) : r)
305 : : #define SWIG_DelTmpMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_TMPOBJMASK) : r)
306 : : #define SWIG_IsTmpObj(r) (SWIG_IsOK(r) && (r & SWIG_TMPOBJMASK))
307 : :
308 : : /* Cast-Rank Mode */
309 : : #if defined(SWIG_CASTRANK_MODE)
310 : : # ifndef SWIG_TypeRank
311 : : # define SWIG_TypeRank unsigned long
312 : : # endif
313 : : # ifndef SWIG_MAXCASTRANK /* Default cast allowed */
314 : : # define SWIG_MAXCASTRANK (2)
315 : : # endif
316 : : # define SWIG_CASTRANKMASK ((SWIG_CASTRANKLIMIT) -1)
317 : : # define SWIG_CastRank(r) (r & SWIG_CASTRANKMASK)
318 : : SWIGINTERNINLINE int SWIG_AddCast(int r) {
319 : : return SWIG_IsOK(r) ? ((SWIG_CastRank(r) < SWIG_MAXCASTRANK) ? (r + 1) : SWIG_ERROR) : r;
320 : : }
321 : : SWIGINTERNINLINE int SWIG_CheckState(int r) {
322 : : return SWIG_IsOK(r) ? SWIG_CastRank(r) + 1 : 0;
323 : : }
324 : : #else /* no cast-rank mode */
325 : : # define SWIG_AddCast(r) (r)
326 : : # define SWIG_CheckState(r) (SWIG_IsOK(r) ? 1 : 0)
327 : : #endif
328 : :
329 : : /* C99 and C++11 should provide snprintf, but define SWIG_NO_SNPRINTF
330 : : * if you're missing it.
331 : : */
332 : : #if ((defined __STDC_VERSION__ && __STDC_VERSION__ >= 199901L) || \
333 : : (defined __cplusplus && __cplusplus >= 201103L) || \
334 : : defined SWIG_HAVE_SNPRINTF) && \
335 : : !defined SWIG_NO_SNPRINTF
336 : : # define SWIG_snprintf(O,S,F,A) snprintf(O,S,F,A)
337 : : # define SWIG_snprintf2(O,S,F,A,B) snprintf(O,S,F,A,B)
338 : : #else
339 : : /* Fallback versions ignore the buffer size, but most of our uses either have a
340 : : * fixed maximum possible size or dynamically allocate a buffer that's large
341 : : * enough.
342 : : */
343 : : # define SWIG_snprintf(O,S,F,A) sprintf(O,F,A)
344 : : # define SWIG_snprintf2(O,S,F,A,B) sprintf(O,F,A,B)
345 : : #endif
346 : :
347 : : #include <string.h>
348 : :
349 : : #ifdef __cplusplus
350 : : extern "C" {
351 : : #endif
352 : :
353 : : typedef void *(*swig_converter_func)(void *, int *);
354 : : typedef struct swig_type_info *(*swig_dycast_func)(void **);
355 : :
356 : : /* Structure to store information on one type */
357 : : typedef struct swig_type_info {
358 : : const char *name; /* mangled name of this type */
359 : : const char *str; /* human readable name of this type */
360 : : swig_dycast_func dcast; /* dynamic cast function down a hierarchy */
361 : : struct swig_cast_info *cast; /* linked list of types that can cast into this type */
362 : : void *clientdata; /* language specific type data */
363 : : int owndata; /* flag if the structure owns the clientdata */
364 : : } swig_type_info;
365 : :
366 : : /* Structure to store a type and conversion function used for casting */
367 : : typedef struct swig_cast_info {
368 : : swig_type_info *type; /* pointer to type that is equivalent to this type */
369 : : swig_converter_func converter; /* function to cast the void pointers */
370 : : struct swig_cast_info *next; /* pointer to next cast in linked list */
371 : : struct swig_cast_info *prev; /* pointer to the previous cast */
372 : : } swig_cast_info;
373 : :
374 : : /* Structure used to store module information
375 : : * Each module generates one structure like this, and the runtime collects
376 : : * all of these structures and stores them in a circularly linked list.*/
377 : : typedef struct swig_module_info {
378 : : swig_type_info **types; /* Array of pointers to swig_type_info structures that are in this module */
379 : : size_t size; /* Number of types in this module */
380 : : struct swig_module_info *next; /* Pointer to next element in circularly linked list */
381 : : swig_type_info **type_initial; /* Array of initially generated type structures */
382 : : swig_cast_info **cast_initial; /* Array of initially generated casting structures */
383 : : void *clientdata; /* Language specific module data */
384 : : } swig_module_info;
385 : :
386 : : /*
387 : : Compare two type names skipping the space characters, therefore
388 : : "char*" == "char *" and "Class<int>" == "Class<int >", etc.
389 : :
390 : : Return 0 when the two name types are equivalent, as in
391 : : strncmp, but skipping ' '.
392 : : */
393 : : SWIGRUNTIME int
394 : 0 : SWIG_TypeNameComp(const char *f1, const char *l1,
395 : : const char *f2, const char *l2) {
396 : 0 : for (;(f1 != l1) && (f2 != l2); ++f1, ++f2) {
397 : 0 : while ((*f1 == ' ') && (f1 != l1)) ++f1;
398 : 0 : while ((*f2 == ' ') && (f2 != l2)) ++f2;
399 : 0 : if (*f1 != *f2) return (*f1 > *f2) ? 1 : -1;
400 : : }
401 : 0 : return (int)((l1 - f1) - (l2 - f2));
402 : : }
403 : :
404 : : /*
405 : : Check type equivalence in a name list like <name1>|<name2>|...
406 : : Return 0 if equal, -1 if nb < tb, 1 if nb > tb
407 : : */
408 : : SWIGRUNTIME int
409 : 0 : SWIG_TypeCmp(const char *nb, const char *tb) {
410 : 0 : int equiv = 1;
411 : 0 : const char* te = tb + strlen(tb);
412 : 0 : const char* ne = nb;
413 : 0 : while (equiv != 0 && *ne) {
414 : 0 : for (nb = ne; *ne; ++ne) {
415 : 0 : if (*ne == '|') break;
416 : : }
417 : 0 : equiv = SWIG_TypeNameComp(nb, ne, tb, te);
418 : 0 : if (*ne) ++ne;
419 : : }
420 : 0 : return equiv;
421 : : }
422 : :
423 : : /*
424 : : Check type equivalence in a name list like <name1>|<name2>|...
425 : : Return 0 if not equal, 1 if equal
426 : : */
427 : : SWIGRUNTIME int
428 : 0 : SWIG_TypeEquiv(const char *nb, const char *tb) {
429 : 0 : return SWIG_TypeCmp(nb, tb) == 0 ? 1 : 0;
430 : : }
431 : :
432 : : /*
433 : : Check the typename
434 : : */
435 : : SWIGRUNTIME swig_cast_info *
436 : 42 : SWIG_TypeCheck(const char *c, swig_type_info *ty) {
437 : 42 : if (ty) {
438 : 42 : swig_cast_info *iter = ty->cast;
439 : 42 : while (iter) {
440 : 42 : if (strcmp(iter->type->name, c) == 0) {
441 : 42 : if (iter == ty->cast)
442 : 42 : return iter;
443 : : /* Move iter to the top of the linked list */
444 : 0 : iter->prev->next = iter->next;
445 : 0 : if (iter->next)
446 : 0 : iter->next->prev = iter->prev;
447 : 0 : iter->next = ty->cast;
448 : 0 : iter->prev = 0;
449 : 0 : if (ty->cast) ty->cast->prev = iter;
450 : 0 : ty->cast = iter;
451 : 0 : return iter;
452 : : }
453 : 0 : iter = iter->next;
454 : : }
455 : : }
456 : 0 : return 0;
457 : : }
458 : :
459 : : /*
460 : : Identical to SWIG_TypeCheck, except strcmp is replaced with a pointer comparison
461 : : */
462 : : SWIGRUNTIME swig_cast_info *
463 : 0 : SWIG_TypeCheckStruct(const swig_type_info *from, swig_type_info *ty) {
464 : 0 : if (ty) {
465 : 0 : swig_cast_info *iter = ty->cast;
466 : 0 : while (iter) {
467 : 0 : if (iter->type == from) {
468 : 0 : if (iter == ty->cast)
469 : 0 : return iter;
470 : : /* Move iter to the top of the linked list */
471 : 0 : iter->prev->next = iter->next;
472 : 0 : if (iter->next)
473 : 0 : iter->next->prev = iter->prev;
474 : 0 : iter->next = ty->cast;
475 : 0 : iter->prev = 0;
476 : 0 : if (ty->cast) ty->cast->prev = iter;
477 : 0 : ty->cast = iter;
478 : 0 : return iter;
479 : : }
480 : 0 : iter = iter->next;
481 : : }
482 : : }
483 : 0 : return 0;
484 : : }
485 : :
486 : : /*
487 : : Cast a pointer up an inheritance hierarchy
488 : : */
489 : : SWIGRUNTIMEINLINE void *
490 : 0 : SWIG_TypeCast(swig_cast_info *ty, void *ptr, int *newmemory) {
491 : 0 : return ((!ty) || (!ty->converter)) ? ptr : (*ty->converter)(ptr, newmemory);
492 : : }
493 : :
494 : : /*
495 : : Dynamic pointer casting. Down an inheritance hierarchy
496 : : */
497 : : SWIGRUNTIME swig_type_info *
498 : 0 : SWIG_TypeDynamicCast(swig_type_info *ty, void **ptr) {
499 : 0 : swig_type_info *lastty = ty;
500 : 0 : if (!ty || !ty->dcast) return ty;
501 : 0 : while (ty && (ty->dcast)) {
502 : 0 : ty = (*ty->dcast)(ptr);
503 : 0 : if (ty) lastty = ty;
504 : : }
505 : 0 : return lastty;
506 : : }
507 : :
508 : : /*
509 : : Return the name associated with this type
510 : : */
511 : : SWIGRUNTIMEINLINE const char *
512 : : SWIG_TypeName(const swig_type_info *ty) {
513 : : return ty->name;
514 : : }
515 : :
516 : : /*
517 : : Return the pretty name associated with this type,
518 : : that is an unmangled type name in a form presentable to the user.
519 : : */
520 : : SWIGRUNTIME const char *
521 : 0 : SWIG_TypePrettyName(const swig_type_info *type) {
522 : : /* The "str" field contains the equivalent pretty names of the
523 : : type, separated by vertical-bar characters. Choose the last
524 : : name. It should be the most specific; a fully resolved name
525 : : but not necessarily with default template parameters expanded. */
526 : 0 : if (!type) return NULL;
527 : 0 : if (type->str != NULL) {
528 : 0 : const char *last_name = type->str;
529 : : const char *s;
530 : 0 : for (s = type->str; *s; s++)
531 : 0 : if (*s == '|') last_name = s+1;
532 : 0 : return last_name;
533 : : }
534 : : else
535 : 0 : return type->name;
536 : : }
537 : :
538 : : /*
539 : : Set the clientdata field for a type
540 : : */
541 : : SWIGRUNTIME void
542 : 0 : SWIG_TypeClientData(swig_type_info *ti, void *clientdata) {
543 : 0 : swig_cast_info *cast = ti->cast;
544 : : /* if (ti->clientdata == clientdata) return; */
545 : 0 : ti->clientdata = clientdata;
546 : :
547 : 0 : while (cast) {
548 : 0 : if (!cast->converter) {
549 : 0 : swig_type_info *tc = cast->type;
550 : 0 : if (!tc->clientdata) {
551 : 0 : SWIG_TypeClientData(tc, clientdata);
552 : : }
553 : : }
554 : 0 : cast = cast->next;
555 : : }
556 : 0 : }
557 : : SWIGRUNTIME void
558 : 0 : SWIG_TypeNewClientData(swig_type_info *ti, void *clientdata) {
559 : 0 : SWIG_TypeClientData(ti, clientdata);
560 : 0 : ti->owndata = 1;
561 : 0 : }
562 : :
563 : : /*
564 : : Search for a swig_type_info structure only by mangled name
565 : : Search is a O(log #types)
566 : :
567 : : We start searching at module start, and finish searching when start == end.
568 : : Note: if start == end at the beginning of the function, we go all the way around
569 : : the circular list.
570 : : */
571 : : SWIGRUNTIME swig_type_info *
572 : 126 : SWIG_MangledTypeQueryModule(swig_module_info *start,
573 : : swig_module_info *end,
574 : : const char *name) {
575 : 126 : swig_module_info *iter = start;
576 : : do {
577 : 210 : if (iter->size) {
578 : 210 : size_t l = 0;
579 : 210 : size_t r = iter->size - 1;
580 : : do {
581 : : /* since l+r >= 0, we can (>> 1) instead (/ 2) */
582 : 1162 : size_t i = (l + r) >> 1;
583 : 1162 : const char *iname = iter->types[i]->name;
584 : 1162 : if (iname) {
585 : 1162 : int compare = strcmp(name, iname);
586 : 1162 : if (compare == 0) {
587 : 84 : return iter->types[i];
588 : 1078 : } else if (compare < 0) {
589 : 486 : if (i) {
590 : 486 : r = i - 1;
591 : : } else {
592 : 0 : break;
593 : : }
594 : 592 : } else if (compare > 0) {
595 : 592 : l = i + 1;
596 : : }
597 : : } else {
598 : 0 : break; /* should never happen */
599 : : }
600 : 1078 : } while (l <= r);
601 : : }
602 : 126 : iter = iter->next;
603 : 126 : } while (iter != end);
604 : 42 : return 0;
605 : : }
606 : :
607 : : /*
608 : : Search for a swig_type_info structure for either a mangled name or a human readable name.
609 : : It first searches the mangled names of the types, which is a O(log #types)
610 : : If a type is not found it then searches the human readable names, which is O(#types).
611 : :
612 : : We start searching at module start, and finish searching when start == end.
613 : : Note: if start == end at the beginning of the function, we go all the way around
614 : : the circular list.
615 : : */
616 : : SWIGRUNTIME swig_type_info *
617 : 0 : SWIG_TypeQueryModule(swig_module_info *start,
618 : : swig_module_info *end,
619 : : const char *name) {
620 : : /* STEP 1: Search the name field using binary search */
621 : 0 : swig_type_info *ret = SWIG_MangledTypeQueryModule(start, end, name);
622 : 0 : if (ret) {
623 : 0 : return ret;
624 : : } else {
625 : : /* STEP 2: If the type hasn't been found, do a complete search
626 : : of the str field (the human readable name) */
627 : 0 : swig_module_info *iter = start;
628 : : do {
629 : 0 : size_t i = 0;
630 : 0 : for (; i < iter->size; ++i) {
631 : 0 : if (iter->types[i]->str && (SWIG_TypeEquiv(iter->types[i]->str, name)))
632 : 0 : return iter->types[i];
633 : : }
634 : 0 : iter = iter->next;
635 : 0 : } while (iter != end);
636 : : }
637 : :
638 : : /* neither found a match */
639 : 0 : return 0;
640 : : }
641 : :
642 : : /*
643 : : Pack binary data into a string
644 : : */
645 : : SWIGRUNTIME char *
646 : 0 : SWIG_PackData(char *c, void *ptr, size_t sz) {
647 : : static const char hex[17] = "0123456789abcdef";
648 : 0 : const unsigned char *u = (unsigned char *) ptr;
649 : 0 : const unsigned char *eu = u + sz;
650 : 0 : for (; u != eu; ++u) {
651 : 0 : unsigned char uu = *u;
652 : 0 : *(c++) = hex[(uu & 0xf0) >> 4];
653 : 0 : *(c++) = hex[uu & 0xf];
654 : : }
655 : 0 : return c;
656 : : }
657 : :
658 : : /*
659 : : Unpack binary data from a string
660 : : */
661 : : SWIGRUNTIME const char *
662 : 0 : SWIG_UnpackData(const char *c, void *ptr, size_t sz) {
663 : 0 : unsigned char *u = (unsigned char *) ptr;
664 : 0 : const unsigned char *eu = u + sz;
665 : 0 : for (; u != eu; ++u) {
666 : 0 : char d = *(c++);
667 : : unsigned char uu;
668 : 0 : if ((d >= '0') && (d <= '9'))
669 : 0 : uu = (unsigned char)((d - '0') << 4);
670 : 0 : else if ((d >= 'a') && (d <= 'f'))
671 : 0 : uu = (unsigned char)((d - ('a'-10)) << 4);
672 : : else
673 : 0 : return (char *) 0;
674 : 0 : d = *(c++);
675 : 0 : if ((d >= '0') && (d <= '9'))
676 : 0 : uu |= (unsigned char)(d - '0');
677 : 0 : else if ((d >= 'a') && (d <= 'f'))
678 : 0 : uu |= (unsigned char)(d - ('a'-10));
679 : : else
680 : 0 : return (char *) 0;
681 : 0 : *u = uu;
682 : : }
683 : 0 : return c;
684 : : }
685 : :
686 : : /*
687 : : Pack 'void *' into a string buffer.
688 : : */
689 : : SWIGRUNTIME char *
690 : 0 : SWIG_PackVoidPtr(char *buff, void *ptr, const char *name, size_t bsz) {
691 : 0 : char *r = buff;
692 : 0 : if ((2*sizeof(void *) + 2) > bsz) return 0;
693 : 0 : *(r++) = '_';
694 : 0 : r = SWIG_PackData(r,&ptr,sizeof(void *));
695 : 0 : if (strlen(name) + 1 > (bsz - (r - buff))) return 0;
696 : 0 : strcpy(r,name);
697 : 0 : return buff;
698 : : }
699 : :
700 : : SWIGRUNTIME const char *
701 : 0 : SWIG_UnpackVoidPtr(const char *c, void **ptr, const char *name) {
702 : 0 : if (*c != '_') {
703 : 0 : if (strcmp(c,"NULL") == 0) {
704 : 0 : *ptr = (void *) 0;
705 : 0 : return name;
706 : : } else {
707 : 0 : return 0;
708 : : }
709 : : }
710 : 0 : return SWIG_UnpackData(++c,ptr,sizeof(void *));
711 : : }
712 : :
713 : : SWIGRUNTIME char *
714 : 0 : SWIG_PackDataName(char *buff, void *ptr, size_t sz, const char *name, size_t bsz) {
715 : 0 : char *r = buff;
716 : 0 : size_t lname = (name ? strlen(name) : 0);
717 : 0 : if ((2*sz + 2 + lname) > bsz) return 0;
718 : 0 : *(r++) = '_';
719 : 0 : r = SWIG_PackData(r,ptr,sz);
720 : 0 : if (lname) {
721 : 0 : strncpy(r,name,lname+1);
722 : : } else {
723 : 0 : *r = 0;
724 : : }
725 : 0 : return buff;
726 : : }
727 : :
728 : : SWIGRUNTIME const char *
729 : 0 : SWIG_UnpackDataName(const char *c, void *ptr, size_t sz, const char *name) {
730 : 0 : if (*c != '_') {
731 : 0 : if (strcmp(c,"NULL") == 0) {
732 : 0 : memset(ptr,0,sz);
733 : 0 : return name;
734 : : } else {
735 : 0 : return 0;
736 : : }
737 : : }
738 : 0 : return SWIG_UnpackData(++c,ptr,sz);
739 : : }
740 : :
741 : : #ifdef __cplusplus
742 : : }
743 : : #endif
744 : :
745 : : /* SWIG Errors applicable to all language modules, values are reserved from -1 to -99 */
746 : : #define SWIG_UnknownError -1
747 : : #define SWIG_IOError -2
748 : : #define SWIG_RuntimeError -3
749 : : #define SWIG_IndexError -4
750 : : #define SWIG_TypeError -5
751 : : #define SWIG_DivisionByZero -6
752 : : #define SWIG_OverflowError -7
753 : : #define SWIG_SyntaxError -8
754 : : #define SWIG_ValueError -9
755 : : #define SWIG_SystemError -10
756 : : #define SWIG_AttributeError -11
757 : : #define SWIG_MemoryError -12
758 : : #define SWIG_NullReferenceError -13
759 : :
760 : :
761 : : /* -----------------------------------------------------------------------------
762 : : * guile_scm_run.swg
763 : : * ----------------------------------------------------------------------------- */
764 : :
765 : : #if __GNUC__ >= 10
766 : : #if defined(__cplusplus)
767 : : #pragma GCC diagnostic ignored "-Wvolatile" /* For 'volatile SCM *' in at least Guile 3.0 and earlier */
768 : : #endif
769 : : #endif
770 : :
771 : : #include <libguile.h>
772 : : #include <stdio.h>
773 : : #include <string.h>
774 : : #include <stdlib.h>
775 : : #include <assert.h>
776 : :
777 : : #ifdef __cplusplus
778 : : extern "C" {
779 : : #endif
780 : :
781 : :
782 : : /* In the code below, use guile 2.0 compatible functions where possible.
783 : : Functions that don't exist in older versions will be mapped to
784 : : a deprecated equivalent for those versions only */
785 : : #if defined (SCM_MAJOR_VERSION) && (SCM_MAJOR_VERSION < 2)
786 : :
787 : : static SCM
788 : : scm_module_variable (SCM module, SCM sym)
789 : : {
790 : : return scm_sym2var (sym, scm_module_lookup_closure (module), SCM_BOOL_F);
791 : : }
792 : :
793 : : #define scm_to_utf8_string scm_to_locale_string
794 : : #define scm_from_utf8_string scm_from_locale_string
795 : : #endif
796 : :
797 : : #if SCM_MAJOR_VERSION >= 2
798 : : /* scm_c_define_gsubr takes a different parameter type depending on the guile version */
799 : :
800 : : typedef scm_t_subr swig_guile_proc;
801 : : #else
802 : : typedef SCM (*swig_guile_proc)();
803 : : #endif
804 : : typedef SCM (*guile_destructor)(SCM);
805 : :
806 : : typedef struct swig_guile_clientdata {
807 : : guile_destructor destroy;
808 : : SCM goops_class;
809 : : } swig_guile_clientdata;
810 : :
811 : : #define SWIG_scm2str(s) \
812 : : SWIG_Guile_scm2newstr(s, NULL)
813 : : #define SWIG_str02scm(str) \
814 : : str ? scm_from_utf8_string(str) : SCM_BOOL_F
815 : : # define SWIG_malloc(size) \
816 : : scm_malloc(size)
817 : : # define SWIG_free(mem) \
818 : : free(mem)
819 : : #define SWIG_ConvertPtr(s, result, type, flags) \
820 : : SWIG_Guile_ConvertPtr(s, result, type, flags)
821 : : #define SWIG_MustGetPtr(s, type, argnum, flags) \
822 : : SWIG_Guile_MustGetPtr(s, type, argnum, flags, FUNC_NAME)
823 : : #define SWIG_NewPointerObj(ptr, type, owner) \
824 : : SWIG_Guile_NewPointerObj((void*)ptr, type, owner)
825 : : #define SWIG_PointerAddress(object) \
826 : : SWIG_Guile_PointerAddress(object)
827 : : #define SWIG_PointerType(object) \
828 : : SWIG_Guile_PointerType(object)
829 : : #define SWIG_IsPointerOfType(object, type) \
830 : : SWIG_Guile_IsPointerOfType(object, type)
831 : : #define SWIG_IsPointer(object) \
832 : : SWIG_Guile_IsPointer(object)
833 : : #define SWIG_contract_assert(expr, msg) \
834 : : do { \
835 : : if (!(expr)) \
836 : : scm_error(scm_from_locale_symbol("swig-contract-assertion-failed"), \
837 : : FUNC_NAME, msg, SCM_EOL, SCM_BOOL_F); \
838 : : } while (0)
839 : :
840 : : /* for C++ member pointers, ie, member methods */
841 : : #define SWIG_ConvertMember(obj, ptr, sz, ty) \
842 : : SWIG_Guile_ConvertMember(obj, ptr, sz, ty, FUNC_NAME)
843 : : #define SWIG_NewMemberObj(ptr, sz, type) \
844 : : SWIG_Guile_NewMemberObj(ptr, sz, type, FUNC_NAME)
845 : :
846 : : /* Runtime API */
847 : : static swig_module_info *SWIG_Guile_GetModule(void *SWIGUNUSEDPARM(clientdata));
848 : : #define SWIG_GetModule(clientdata) SWIG_Guile_GetModule(clientdata)
849 : : #define SWIG_SetModule(clientdata, pointer) SWIG_Guile_SetModule(pointer)
850 : :
851 : : SWIGINTERN char *
852 : 0 : SWIG_Guile_scm2newstr(SCM str, size_t *len) {
853 : : #define FUNC_NAME "SWIG_Guile_scm2newstr"
854 : : char *ret;
855 : :
856 : 0 : SCM_ASSERT (scm_is_string(str), str, 1, FUNC_NAME);
857 : :
858 : 0 : ret = scm_to_utf8_string(str);
859 : 0 : if (!ret) return NULL;
860 : :
861 : 0 : if (len) *len = strlen(ret) - 1;
862 : 0 : return ret;
863 : : #undef FUNC_NAME
864 : : }
865 : :
866 : : static int swig_initialized = 0;
867 : : static scm_t_bits swig_tag = 0;
868 : : static scm_t_bits swig_collectable_tag = 0;
869 : : static scm_t_bits swig_finalized_tag = 0;
870 : : static scm_t_bits swig_destroyed_tag = 0;
871 : : static scm_t_bits swig_member_function_tag = 0;
872 : : static SCM swig_make_func = SCM_EOL;
873 : : static SCM swig_keyword = SCM_EOL;
874 : : static SCM swig_symbol = SCM_EOL;
875 : :
876 : : #define SWIG_Guile_GetSmob(x) \
877 : : ( !scm_is_null(x) && SCM_INSTANCEP(x) && scm_is_true(scm_slot_exists_p(x, swig_symbol)) \
878 : : ? scm_slot_ref(x, swig_symbol) : (x) )
879 : :
880 : : SWIGINTERN void SWIG_Guile_MarkPointerNoncollectable(SCM s);
881 : :
882 : : SWIGINTERN SCM
883 : 0 : SWIG_Guile_NewPointerObj(void *ptr, swig_type_info *type, int owner)
884 : : {
885 : 0 : if (ptr == NULL)
886 : 0 : return SCM_EOL;
887 : : else {
888 : : SCM smob;
889 : 0 : swig_guile_clientdata *cdata = (swig_guile_clientdata *) type->clientdata;
890 : 0 : if (owner)
891 : 0 : SCM_NEWSMOB2(smob, swig_collectable_tag, ptr, (void *) type);
892 : : else
893 : 0 : SCM_NEWSMOB2(smob, swig_tag, ptr, (void *) type);
894 : :
895 : 0 : if (!cdata || scm_is_null(cdata->goops_class) || swig_make_func == SCM_EOL ) {
896 : 0 : return smob;
897 : : } else {
898 : : /* the scm_make() C function only handles the creation of gf,
899 : : methods and classes (no instances) the (make ...) function is
900 : : later redefined in goops.scm. So we need to call that
901 : : Scheme function. */
902 : 0 : return scm_apply(swig_make_func,
903 : : scm_list_3(cdata->goops_class,
904 : : swig_keyword,
905 : : smob),
906 : : SCM_EOL);
907 : : }
908 : : }
909 : : }
910 : :
911 : : SWIGINTERN unsigned long
912 : 0 : SWIG_Guile_PointerAddress(SCM object)
913 : : {
914 : 0 : SCM smob = SWIG_Guile_GetSmob(object);
915 : 0 : if (scm_is_null(smob)) return 0;
916 : 0 : else if (SCM_SMOB_PREDICATE(swig_tag, smob)
917 : 0 : || SCM_SMOB_PREDICATE(swig_collectable_tag, smob)
918 : 0 : || SCM_SMOB_PREDICATE(swig_destroyed_tag, smob)) {
919 : 0 : return (unsigned long) (void *) SCM_CELL_WORD_1(smob);
920 : : }
921 : 0 : else scm_wrong_type_arg("SWIG-Guile-PointerAddress", 1, object);
922 : : }
923 : :
924 : : SWIGINTERN swig_type_info *
925 : 0 : SWIG_Guile_PointerType(SCM object)
926 : : {
927 : 0 : SCM smob = SWIG_Guile_GetSmob(object);
928 : 0 : if (scm_is_null(smob)) return NULL;
929 : 0 : else if (SCM_SMOB_PREDICATE(swig_tag, smob)
930 : 0 : || SCM_SMOB_PREDICATE(swig_collectable_tag, smob)
931 : 0 : || SCM_SMOB_PREDICATE(swig_destroyed_tag, smob)) {
932 : 0 : return (swig_type_info *) SCM_CELL_WORD_2(smob);
933 : : }
934 : 0 : else scm_wrong_type_arg("SWIG-Guile-PointerType", 1, object);
935 : : }
936 : :
937 : : SWIGINTERN int
938 : 0 : SWIG_Guile_IsValidSmob(SCM smob)
939 : : {
940 : : /* We do not accept smobs representing destroyed pointers, but we have to
941 : : allow finalized smobs because Guile >= 2.0.12 sets all smob instances
942 : : to the 'finalized' type before calling their 'free' function. This change
943 : : was introduced to Guile in commit 8dff3af087c6eaa83ae0d72aa8b22aef5c65d65d */
944 : 0 : return SCM_SMOB_PREDICATE(swig_tag, smob)
945 : 0 : || SCM_SMOB_PREDICATE(swig_collectable_tag, smob)
946 : 0 : || SCM_SMOB_PREDICATE(swig_finalized_tag, smob);
947 : : }
948 : :
949 : : SWIGINTERN int
950 : 0 : SWIG_Guile_ConvertPtr(SCM s, void **result, swig_type_info *type, int flags)
951 : : {
952 : : swig_cast_info *cast;
953 : : swig_type_info *from;
954 : 0 : SCM smob = SWIG_Guile_GetSmob(s);
955 : 0 : int ret = SWIG_ERROR;
956 : :
957 : 0 : if (scm_is_null(smob)) {
958 : 0 : *result = NULL;
959 : 0 : return (flags & SWIG_POINTER_NO_NULL) ? SWIG_NullReferenceError : SWIG_OK;
960 : : #if SCM_MAJOR_VERSION >= 2
961 : 0 : } else if (SCM_POINTER_P(s)) {
962 : 0 : *result = SCM_POINTER_VALUE(s);
963 : 0 : return SWIG_OK;
964 : : #endif /* if SCM_MAJOR_VERSION >= 2 */
965 : 0 : } else if (SWIG_Guile_IsValidSmob(smob)) {
966 : 0 : from = (swig_type_info *) SCM_CELL_WORD_2(smob);
967 : 0 : if (!from) return SWIG_ERROR;
968 : :
969 : 0 : if ((flags & SWIG_POINTER_RELEASE) == SWIG_POINTER_RELEASE) {
970 : 0 : if ((SCM_CELL_TYPE(smob) == swig_collectable_tag && SCM_CELL_WORD_1(smob) == 0) || SCM_CELL_TYPE(smob) == swig_tag) {
971 : 0 : return SWIG_ERROR_RELEASE_NOT_OWNED;
972 : : }
973 : : }
974 : :
975 : 0 : if (type) {
976 : 0 : cast = SWIG_TypeCheckStruct(from, type);
977 : 0 : if (cast) {
978 : 0 : int newmemory = 0;
979 : 0 : *result = SWIG_TypeCast(cast, (void *) SCM_CELL_WORD_1(smob), &newmemory);
980 : 0 : assert(!newmemory); /* newmemory handling not yet implemented */
981 : 0 : ret = SWIG_OK;
982 : : } else {
983 : 0 : return SWIG_ERROR;
984 : : }
985 : : } else {
986 : 0 : *result = (void *) SCM_CELL_WORD_1(smob);
987 : 0 : ret = SWIG_OK;
988 : : }
989 : :
990 : 0 : if (flags & SWIG_POINTER_DISOWN) {
991 : 0 : SWIG_Guile_MarkPointerNoncollectable(smob);
992 : : }
993 : 0 : if (flags & SWIG_POINTER_CLEAR) {
994 : 0 : SCM_SET_CELL_WORD_1(smob, 0);
995 : : }
996 : : }
997 : 0 : return ret;
998 : : }
999 : :
1000 : : SWIGINTERNINLINE void *
1001 : 0 : SWIG_Guile_MustGetPtr (SCM s, swig_type_info *type,
1002 : : int argnum, int flags, const char *func_name)
1003 : : {
1004 : : void *result;
1005 : 0 : int res = SWIG_Guile_ConvertPtr(s, &result, type, flags);
1006 : 0 : if (!SWIG_IsOK(res)) {
1007 : : /* type mismatch */
1008 : 0 : scm_wrong_type_arg(func_name, argnum, s);
1009 : : }
1010 : 0 : return result;
1011 : : }
1012 : :
1013 : : SWIGINTERNINLINE int
1014 : : SWIG_Guile_IsPointerOfType (SCM s, swig_type_info *type)
1015 : : {
1016 : : void *result;
1017 : : if (SWIG_Guile_ConvertPtr(s, &result, type, 0)) {
1018 : : /* type mismatch */
1019 : : return 0;
1020 : : }
1021 : : else return 1;
1022 : : }
1023 : :
1024 : : SWIGINTERNINLINE int
1025 : : SWIG_Guile_IsPointer (SCM s)
1026 : : {
1027 : : /* module might not be initialized yet, so initialize it */
1028 : : SWIG_GetModule(0);
1029 : : return SWIG_Guile_IsPointerOfType (s, NULL);
1030 : : }
1031 : :
1032 : : /* Mark a pointer object non-collectable */
1033 : : SWIGINTERN void
1034 : 0 : SWIG_Guile_MarkPointerNoncollectable(SCM s)
1035 : : {
1036 : 0 : SCM smob = SWIG_Guile_GetSmob(s);
1037 : 0 : if (!scm_is_null(smob)) {
1038 : 0 : if (SWIG_Guile_IsValidSmob(smob)) {
1039 : 0 : SCM_SET_CELL_TYPE(smob, swig_tag);
1040 : : }
1041 : 0 : else scm_wrong_type_arg(NULL, 0, s);
1042 : : }
1043 : 0 : }
1044 : :
1045 : : /* Mark a pointer object destroyed */
1046 : : SWIGINTERN void
1047 : 0 : SWIG_Guile_MarkPointerDestroyed(SCM s)
1048 : : {
1049 : 0 : SCM smob = SWIG_Guile_GetSmob(s);
1050 : 0 : if (!scm_is_null(smob)) {
1051 : 0 : if (SWIG_Guile_IsValidSmob(smob)) {
1052 : 0 : SCM_SET_CELL_TYPE(smob, swig_destroyed_tag);
1053 : : }
1054 : 0 : else scm_wrong_type_arg(NULL, 0, s);
1055 : : }
1056 : 0 : }
1057 : :
1058 : : /* Member functions */
1059 : :
1060 : : SWIGINTERN SCM
1061 : 0 : SWIG_Guile_NewMemberObj(void *ptr, size_t sz, swig_type_info *type,
1062 : : const char *func_name)
1063 : : {
1064 : : SCM smob;
1065 : 0 : void *copy = malloc(sz);
1066 : 0 : memcpy(copy, ptr, sz);
1067 : 0 : SCM_NEWSMOB2(smob, swig_member_function_tag, copy, (void *) type);
1068 : 0 : return smob;
1069 : : }
1070 : :
1071 : : SWIGINTERN int
1072 : 0 : SWIG_Guile_ConvertMember(SCM smob, void *ptr, size_t sz, swig_type_info *type,
1073 : : const char *func_name)
1074 : : {
1075 : : swig_cast_info *cast;
1076 : : swig_type_info *from;
1077 : :
1078 : 0 : if (SCM_SMOB_PREDICATE(swig_member_function_tag, smob)) {
1079 : 0 : from = (swig_type_info *) SCM_CELL_WORD_2(smob);
1080 : 0 : if (!from) return SWIG_ERROR;
1081 : 0 : if (type) {
1082 : 0 : cast = SWIG_TypeCheckStruct(from, type);
1083 : 0 : if (!cast) return SWIG_ERROR;
1084 : : }
1085 : 0 : memcpy(ptr, (void *) SCM_CELL_WORD_1(smob), sz);
1086 : 0 : return SWIG_OK;
1087 : : }
1088 : 0 : return SWIG_ERROR;
1089 : : }
1090 : :
1091 : :
1092 : : /* Init */
1093 : :
1094 : : SWIGINTERN int
1095 : 0 : print_swig_aux (SCM swig_smob, SCM port, scm_print_state *pstate,
1096 : : const char *attribute)
1097 : : {
1098 : : swig_type_info *type;
1099 : :
1100 : 0 : type = (swig_type_info *) SCM_CELL_WORD_2(swig_smob);
1101 : 0 : if (type) {
1102 : 0 : scm_puts("#<", port);
1103 : 0 : scm_puts(attribute, port);
1104 : 0 : scm_puts("swig-pointer ", port);
1105 : 0 : scm_puts(SWIG_TypePrettyName(type), port);
1106 : 0 : scm_puts(" ", port);
1107 : 0 : scm_intprint((long) SCM_CELL_WORD_1(swig_smob), 16, port);
1108 : 0 : scm_puts(">", port);
1109 : : /* non-zero means success */
1110 : 0 : return 1;
1111 : : } else {
1112 : 0 : return 0;
1113 : : }
1114 : : }
1115 : :
1116 : :
1117 : : SWIGINTERN int
1118 : 0 : print_swig (SCM swig_smob, SCM port, scm_print_state *pstate)
1119 : : {
1120 : 0 : return print_swig_aux(swig_smob, port, pstate, "");
1121 : : }
1122 : :
1123 : : SWIGINTERN int
1124 : 0 : print_collectable_swig (SCM swig_smob, SCM port, scm_print_state *pstate)
1125 : : {
1126 : 0 : return print_swig_aux(swig_smob, port, pstate, "collectable-");
1127 : : }
1128 : :
1129 : : SWIGINTERN int
1130 : 0 : print_destroyed_swig (SCM swig_smob, SCM port, scm_print_state *pstate)
1131 : : {
1132 : 0 : return print_swig_aux(swig_smob, port, pstate, "destroyed-");
1133 : : }
1134 : :
1135 : : SWIGINTERN int
1136 : 0 : print_member_function_swig (SCM swig_smob, SCM port, scm_print_state *pstate)
1137 : : {
1138 : : swig_type_info *type;
1139 : 0 : type = (swig_type_info *) SCM_CELL_WORD_2(swig_smob);
1140 : 0 : if (type) {
1141 : 0 : scm_puts("#<", port);
1142 : 0 : scm_puts("swig-member-function-pointer ", port);
1143 : 0 : scm_puts(SWIG_TypePrettyName(type), port);
1144 : 0 : scm_puts(" >", port);
1145 : : /* non-zero means success */
1146 : 0 : return 1;
1147 : : } else {
1148 : 0 : return 0;
1149 : : }
1150 : : }
1151 : :
1152 : : SWIGINTERN SCM
1153 : 0 : equalp_swig (SCM A, SCM B)
1154 : : {
1155 : 0 : if (SCM_CELL_WORD_0(A) == SCM_CELL_WORD_0(B) && SCM_CELL_WORD_1(A) == SCM_CELL_WORD_1(B)
1156 : 0 : && SCM_CELL_WORD_2(A) == SCM_CELL_WORD_2(B))
1157 : 0 : return SCM_BOOL_T;
1158 : 0 : else return SCM_BOOL_F;
1159 : : }
1160 : :
1161 : : SWIGINTERN size_t
1162 : 0 : free_swig(SCM A)
1163 : : {
1164 : 0 : swig_type_info *type = (swig_type_info *) SCM_CELL_WORD_2(A);
1165 : 0 : if (type) {
1166 : 0 : if (type->clientdata && ((swig_guile_clientdata *)type->clientdata)->destroy)
1167 : 0 : ((swig_guile_clientdata *)type->clientdata)->destroy(A);
1168 : : }
1169 : 0 : return 0;
1170 : : }
1171 : :
1172 : : SWIGINTERN size_t
1173 : 0 : free_swig_member_function(SCM A)
1174 : : {
1175 : 0 : free((swig_type_info *) SCM_CELL_WORD_1(A));
1176 : 0 : return 0;
1177 : : }
1178 : :
1179 : : SWIGINTERN int
1180 : 12 : ensure_smob_tag(SCM swig_module,
1181 : : scm_t_bits *tag_variable,
1182 : : const char *smob_name,
1183 : : const char *scheme_variable_name)
1184 : : {
1185 : 12 : SCM variable = scm_module_variable(swig_module,
1186 : : scm_from_locale_symbol(scheme_variable_name));
1187 : 12 : if (scm_is_false(variable)) {
1188 : 0 : *tag_variable = scm_make_smob_type(scheme_variable_name, 0);
1189 : 0 : scm_c_module_define(swig_module, scheme_variable_name,
1190 : : scm_from_ulong(*tag_variable));
1191 : 0 : return 1;
1192 : : }
1193 : : else {
1194 : 12 : *tag_variable = scm_to_ulong(SCM_VARIABLE_REF(variable));
1195 : 12 : return 0;
1196 : : }
1197 : : }
1198 : :
1199 : : SWIGINTERN SCM
1200 : 24 : SWIG_Guile_Init ()
1201 : : {
1202 : : static SCM swig_module;
1203 : :
1204 : 24 : if (swig_initialized) return swig_module;
1205 : 3 : swig_initialized = 1;
1206 : :
1207 : 3 : swig_module = scm_c_resolve_module("Swig swigrun");
1208 : 3 : if (ensure_smob_tag(swig_module, &swig_tag,
1209 : : "swig-pointer", "swig-pointer-tag")) {
1210 : 0 : scm_set_smob_print(swig_tag, print_swig);
1211 : 0 : scm_set_smob_equalp(swig_tag, equalp_swig);
1212 : : }
1213 : 3 : if (ensure_smob_tag(swig_module, &swig_collectable_tag,
1214 : : "collectable-swig-pointer", "collectable-swig-pointer-tag")) {
1215 : 0 : scm_set_smob_print(swig_collectable_tag, print_collectable_swig);
1216 : 0 : scm_set_smob_equalp(swig_collectable_tag, equalp_swig);
1217 : 0 : scm_set_smob_free(swig_collectable_tag, free_swig);
1218 : : /* For Guile >= 2.0.12. See libguile/smob.c:clear_smobnum */
1219 : 0 : swig_finalized_tag = swig_collectable_tag & ~0xff00;
1220 : : }
1221 : 3 : if (ensure_smob_tag(swig_module, &swig_destroyed_tag,
1222 : : "destroyed-swig-pointer", "destroyed-swig-pointer-tag")) {
1223 : 0 : scm_set_smob_print(swig_destroyed_tag, print_destroyed_swig);
1224 : 0 : scm_set_smob_equalp(swig_destroyed_tag, equalp_swig);
1225 : : }
1226 : 3 : if (ensure_smob_tag(swig_module, &swig_member_function_tag,
1227 : : "swig-member-function-pointer", "swig-member-function-pointer-tag")) {
1228 : 0 : scm_set_smob_print(swig_member_function_tag, print_member_function_swig);
1229 : 0 : scm_set_smob_free(swig_member_function_tag, free_swig_member_function);
1230 : : }
1231 : 3 : swig_make_func = scm_permanent_object(
1232 : : scm_variable_ref(scm_c_module_lookup(scm_c_resolve_module("oop goops"), "make")));
1233 : 3 : swig_keyword = scm_permanent_object(scm_from_locale_keyword("init-smob"));
1234 : 3 : swig_symbol = scm_permanent_object(scm_from_locale_symbol("swig-smob"));
1235 : : #ifdef SWIG_INIT_RUNTIME_MODULE
1236 : : SWIG_INIT_RUNTIME_MODULE
1237 : : #endif
1238 : :
1239 : 3 : return swig_module;
1240 : : }
1241 : :
1242 : : SWIGINTERN swig_module_info *
1243 : 24 : SWIG_Guile_GetModule(void *SWIGUNUSEDPARM(clientdata))
1244 : : {
1245 : 24 : SCM module = SWIG_Guile_Init();
1246 : 24 : SCM variable = scm_module_variable(module, scm_from_locale_symbol("swig-type-list-address" SWIG_RUNTIME_VERSION SWIG_TYPE_TABLE_NAME));
1247 : 24 : if (scm_is_false(variable)) {
1248 : 0 : return NULL;
1249 : : } else {
1250 : 24 : return (swig_module_info *) scm_to_ulong(SCM_VARIABLE_REF(variable));
1251 : : }
1252 : : }
1253 : :
1254 : : SWIGINTERN void
1255 : 0 : SWIG_Guile_SetModule(swig_module_info *swig_module)
1256 : : {
1257 : 0 : SCM module = SWIG_Guile_Init();
1258 : 0 : scm_module_define(module,
1259 : : scm_from_locale_symbol("swig-type-list-address" SWIG_RUNTIME_VERSION SWIG_TYPE_TABLE_NAME),
1260 : : scm_from_ulong((unsigned long) swig_module));
1261 : 0 : }
1262 : :
1263 : : SWIGINTERN int
1264 : 0 : SWIG_Guile_GetArgs (SCM *dest, SCM rest,
1265 : : int reqargs, int optargs,
1266 : : const char *procname)
1267 : : {
1268 : : int i;
1269 : 0 : int num_args_passed = 0;
1270 : 0 : for (i = 0; i<reqargs; i++) {
1271 : 0 : if (!scm_is_pair(rest))
1272 : 0 : scm_wrong_num_args(scm_from_utf8_string(procname ? procname : "unknown procedure"));
1273 : 0 : *dest++ = SCM_CAR(rest);
1274 : 0 : rest = SCM_CDR(rest);
1275 : 0 : num_args_passed++;
1276 : : }
1277 : 0 : for (i = 0; i<optargs && scm_is_pair(rest); i++) {
1278 : 0 : *dest++ = SCM_CAR(rest);
1279 : 0 : rest = SCM_CDR(rest);
1280 : 0 : num_args_passed++;
1281 : : }
1282 : 0 : for (; i<optargs; i++)
1283 : 0 : *dest++ = SCM_UNDEFINED;
1284 : 0 : if (!scm_is_null(rest))
1285 : 0 : scm_wrong_num_args(scm_from_utf8_string(procname ? procname : "unknown procedure"));
1286 : 0 : return num_args_passed;
1287 : : }
1288 : :
1289 : : #ifdef __cplusplus
1290 : : }
1291 : : #endif
1292 : :
1293 : :
1294 : :
1295 : : #define GUILE_MAYBE_VALUES \
1296 : : if (gswig_list_p) gswig_result = scm_values(gswig_result);
1297 : :
1298 : : #define GUILE_MAYBE_VECTOR \
1299 : : if (gswig_list_p) gswig_result = scm_vector(gswig_result);
1300 : :
1301 : : #define SWIG_APPEND_VALUE(object) \
1302 : : if (gswig_result == SCM_UNSPECIFIED) \
1303 : : gswig_result = object; \
1304 : : else { \
1305 : : if (!gswig_list_p) { \
1306 : : gswig_list_p = 1; \
1307 : : gswig_result = scm_list_n(gswig_result, object, SCM_UNDEFINED); \
1308 : : } \
1309 : : else \
1310 : : gswig_result = scm_append(scm_list_n(gswig_result, scm_list_n(object, SCM_UNDEFINED), SCM_UNDEFINED)); \
1311 : : }
1312 : :
1313 : :
1314 : :
1315 : : /* -------- TYPES TABLE (BEGIN) -------- */
1316 : :
1317 : : #define SWIGTYPE_p_GncMainWindow swig_types[0]
1318 : : #define SWIGTYPE_p_GtkLabel swig_types[1]
1319 : : #define SWIGTYPE_p_GtkProgressBar swig_types[2]
1320 : : #define SWIGTYPE_p_GtkTextView swig_types[3]
1321 : : #define SWIGTYPE_p_GtkWidget swig_types[4]
1322 : : #define SWIGTYPE_p__GNCProgressDialog swig_types[5]
1323 : : #define SWIGTYPE_p_char swig_types[6]
1324 : : #define SWIGTYPE_p_double swig_types[7]
1325 : : #define SWIGTYPE_p_f_p_void__gboolean swig_types[8]
1326 : : #define SWIGTYPE_p_float swig_types[9]
1327 : : #define SWIGTYPE_p_gboolean swig_types[10]
1328 : : #define SWIGTYPE_p_gint64 swig_types[11]
1329 : : #define SWIGTYPE_p_int swig_types[12]
1330 : : #define SWIGTYPE_p_long_long swig_types[13]
1331 : : #define SWIGTYPE_p_short swig_types[14]
1332 : : #define SWIGTYPE_p_signed_char swig_types[15]
1333 : : #define SWIGTYPE_p_unsigned_char swig_types[16]
1334 : : #define SWIGTYPE_p_unsigned_int swig_types[17]
1335 : : #define SWIGTYPE_p_unsigned_long swig_types[18]
1336 : : #define SWIGTYPE_p_unsigned_long_long swig_types[19]
1337 : : #define SWIGTYPE_p_unsigned_short swig_types[20]
1338 : : static swig_type_info *swig_types[22];
1339 : : static swig_module_info swig_module = {swig_types, 21, 0, 0, 0, 0};
1340 : : #define SWIG_TypeQuery(name) SWIG_TypeQueryModule(&swig_module, &swig_module, name)
1341 : : #define SWIG_MangledTypeQuery(name) SWIG_MangledTypeQueryModule(&swig_module, &swig_module, name)
1342 : :
1343 : : /* -------- TYPES TABLE (END) -------- */
1344 : :
1345 : :
1346 : : /* Includes the header in the wrapper code */
1347 : : #include <config.h>
1348 : : #include <gtk/gtk.h>
1349 : : #include <dialog-progress.h>
1350 : : #include <config.h>
1351 : : #include <gtk/gtk.h>
1352 : : #include <gnc-plugin-page-report.h>
1353 : : #include <dialog-custom-report.h>
1354 : :
1355 : :
1356 : : #include "guile-mappings.h"
1357 : :
1358 : : SCM scm_init_sw_gnome_module (void);
1359 : :
1360 : : static SCM
1361 : 0 : _wrap_gnc_progress_dialog_new (SCM s_0, SCM s_1)
1362 : : {
1363 : : #define FUNC_NAME "gnc-progress-dialog-new"
1364 : 0 : GtkWidget *arg1 = (GtkWidget *) 0 ;
1365 : : gboolean arg2 ;
1366 : : SCM gswig_result;
1367 : 0 : SWIGUNUSED int gswig_list_p = 0;
1368 : 0 : GNCProgressDialog *result = 0 ;
1369 : :
1370 : : {
1371 : 0 : arg1 = (GtkWidget *)SWIG_MustGetPtr(s_0, SWIGTYPE_p_GtkWidget, 1, 0);
1372 : : }
1373 : 0 : arg2 = scm_is_true(s_1) ? TRUE : FALSE;
1374 : 0 : result = (GNCProgressDialog *)gnc_progress_dialog_new(arg1,arg2);
1375 : : {
1376 : 0 : gswig_result = SWIG_NewPointerObj (result, SWIGTYPE_p__GNCProgressDialog, 0);
1377 : : }
1378 : :
1379 : :
1380 : 0 : return gswig_result;
1381 : : #undef FUNC_NAME
1382 : : }
1383 : :
1384 : :
1385 : : static SCM
1386 : 0 : _wrap_gnc_progress_dialog_custom (SCM s_0, SCM s_1, SCM s_2, SCM s_3, SCM s_4)
1387 : : {
1388 : : #define FUNC_NAME "gnc-progress-dialog-custom"
1389 : 0 : GtkLabel *arg1 = (GtkLabel *) 0 ;
1390 : 0 : GtkLabel *arg2 = (GtkLabel *) 0 ;
1391 : 0 : GtkProgressBar *arg3 = (GtkProgressBar *) 0 ;
1392 : 0 : GtkLabel *arg4 = (GtkLabel *) 0 ;
1393 : 0 : GtkTextView *arg5 = (GtkTextView *) 0 ;
1394 : : SCM gswig_result;
1395 : 0 : SWIGUNUSED int gswig_list_p = 0;
1396 : 0 : GNCProgressDialog *result = 0 ;
1397 : :
1398 : : {
1399 : 0 : arg1 = (GtkLabel *)SWIG_MustGetPtr(s_0, SWIGTYPE_p_GtkLabel, 1, 0);
1400 : : }
1401 : : {
1402 : 0 : arg2 = (GtkLabel *)SWIG_MustGetPtr(s_1, SWIGTYPE_p_GtkLabel, 2, 0);
1403 : : }
1404 : : {
1405 : 0 : arg3 = (GtkProgressBar *)SWIG_MustGetPtr(s_2, SWIGTYPE_p_GtkProgressBar, 3, 0);
1406 : : }
1407 : : {
1408 : 0 : arg4 = (GtkLabel *)SWIG_MustGetPtr(s_3, SWIGTYPE_p_GtkLabel, 4, 0);
1409 : : }
1410 : : {
1411 : 0 : arg5 = (GtkTextView *)SWIG_MustGetPtr(s_4, SWIGTYPE_p_GtkTextView, 5, 0);
1412 : : }
1413 : 0 : result = (GNCProgressDialog *)gnc_progress_dialog_custom(arg1,arg2,arg3,arg4,arg5);
1414 : : {
1415 : 0 : gswig_result = SWIG_NewPointerObj (result, SWIGTYPE_p__GNCProgressDialog, 0);
1416 : : }
1417 : :
1418 : :
1419 : :
1420 : :
1421 : :
1422 : :
1423 : 0 : return gswig_result;
1424 : : #undef FUNC_NAME
1425 : : }
1426 : :
1427 : :
1428 : : static SCM
1429 : 0 : _wrap_gnc_progress_dialog_set_title (SCM s_0, SCM s_1)
1430 : : {
1431 : : #define FUNC_NAME "gnc-progress-dialog-set-title"
1432 : 0 : GNCProgressDialog *arg1 = (GNCProgressDialog *) 0 ;
1433 : 0 : char *arg2 = (char *) 0 ;
1434 : 0 : int must_free2 = 0 ;
1435 : : SCM gswig_result;
1436 : 0 : SWIGUNUSED int gswig_list_p = 0;
1437 : :
1438 : : {
1439 : 0 : arg1 = (GNCProgressDialog *)SWIG_MustGetPtr(s_0, SWIGTYPE_p__GNCProgressDialog, 1, 0);
1440 : : }
1441 : : {
1442 : 0 : arg2 = (char *)SWIG_scm2str(s_1);
1443 : 0 : must_free2 = 1;
1444 : : }
1445 : 0 : gnc_progress_dialog_set_title(arg1,(char const *)arg2);
1446 : 0 : gswig_result = SCM_UNSPECIFIED;
1447 : :
1448 : 0 : if (must_free2) SWIG_free(arg2);
1449 : :
1450 : 0 : return gswig_result;
1451 : : #undef FUNC_NAME
1452 : : }
1453 : :
1454 : :
1455 : : static SCM
1456 : 0 : _wrap_gnc_progress_dialog_set_primary (SCM s_0, SCM s_1)
1457 : : {
1458 : : #define FUNC_NAME "gnc-progress-dialog-set-primary"
1459 : 0 : GNCProgressDialog *arg1 = (GNCProgressDialog *) 0 ;
1460 : 0 : gchar *arg2 = (gchar *) 0 ;
1461 : 0 : int must_free2 = 0 ;
1462 : : SCM gswig_result;
1463 : 0 : SWIGUNUSED int gswig_list_p = 0;
1464 : :
1465 : : {
1466 : 0 : arg1 = (GNCProgressDialog *)SWIG_MustGetPtr(s_0, SWIGTYPE_p__GNCProgressDialog, 1, 0);
1467 : : }
1468 : : {
1469 : 0 : arg2 = (gchar *)SWIG_scm2str(s_1);
1470 : 0 : must_free2 = 1;
1471 : : }
1472 : 0 : gnc_progress_dialog_set_primary(arg1,(char const *)arg2);
1473 : 0 : gswig_result = SCM_UNSPECIFIED;
1474 : :
1475 : 0 : if (must_free2) SWIG_free(arg2);
1476 : :
1477 : 0 : return gswig_result;
1478 : : #undef FUNC_NAME
1479 : : }
1480 : :
1481 : :
1482 : : static SCM
1483 : 0 : _wrap_gnc_progress_dialog_set_heading (SCM s_0, SCM s_1)
1484 : : {
1485 : : #define FUNC_NAME "gnc-progress-dialog-set-heading"
1486 : 0 : GNCProgressDialog *arg1 = (GNCProgressDialog *) 0 ;
1487 : 0 : char *arg2 = (char *) 0 ;
1488 : 0 : int must_free2 = 0 ;
1489 : : SCM gswig_result;
1490 : 0 : SWIGUNUSED int gswig_list_p = 0;
1491 : :
1492 : : {
1493 : 0 : arg1 = (GNCProgressDialog *)SWIG_MustGetPtr(s_0, SWIGTYPE_p__GNCProgressDialog, 1, 0);
1494 : : }
1495 : : {
1496 : 0 : arg2 = (char *)SWIG_scm2str(s_1);
1497 : 0 : must_free2 = 1;
1498 : : }
1499 : 0 : gnc_progress_dialog_set_heading(arg1,(char const *)arg2);
1500 : 0 : gswig_result = SCM_UNSPECIFIED;
1501 : :
1502 : 0 : if (must_free2) SWIG_free(arg2);
1503 : :
1504 : 0 : return gswig_result;
1505 : : #undef FUNC_NAME
1506 : : }
1507 : :
1508 : :
1509 : : static SCM
1510 : 0 : _wrap_gnc_progress_dialog_set_secondary (SCM s_0, SCM s_1)
1511 : : {
1512 : : #define FUNC_NAME "gnc-progress-dialog-set-secondary"
1513 : 0 : GNCProgressDialog *arg1 = (GNCProgressDialog *) 0 ;
1514 : 0 : gchar *arg2 = (gchar *) 0 ;
1515 : 0 : int must_free2 = 0 ;
1516 : : SCM gswig_result;
1517 : 0 : SWIGUNUSED int gswig_list_p = 0;
1518 : :
1519 : : {
1520 : 0 : arg1 = (GNCProgressDialog *)SWIG_MustGetPtr(s_0, SWIGTYPE_p__GNCProgressDialog, 1, 0);
1521 : : }
1522 : : {
1523 : 0 : arg2 = (gchar *)SWIG_scm2str(s_1);
1524 : 0 : must_free2 = 1;
1525 : : }
1526 : 0 : gnc_progress_dialog_set_secondary(arg1,(char const *)arg2);
1527 : 0 : gswig_result = SCM_UNSPECIFIED;
1528 : :
1529 : 0 : if (must_free2) SWIG_free(arg2);
1530 : :
1531 : 0 : return gswig_result;
1532 : : #undef FUNC_NAME
1533 : : }
1534 : :
1535 : :
1536 : : static SCM
1537 : 0 : _wrap_gnc_progress_dialog_set_sub (SCM s_0, SCM s_1)
1538 : : {
1539 : : #define FUNC_NAME "gnc-progress-dialog-set-sub"
1540 : 0 : GNCProgressDialog *arg1 = (GNCProgressDialog *) 0 ;
1541 : 0 : gchar *arg2 = (gchar *) 0 ;
1542 : 0 : int must_free2 = 0 ;
1543 : : SCM gswig_result;
1544 : 0 : SWIGUNUSED int gswig_list_p = 0;
1545 : :
1546 : : {
1547 : 0 : arg1 = (GNCProgressDialog *)SWIG_MustGetPtr(s_0, SWIGTYPE_p__GNCProgressDialog, 1, 0);
1548 : : }
1549 : : {
1550 : 0 : arg2 = (gchar *)SWIG_scm2str(s_1);
1551 : 0 : must_free2 = 1;
1552 : : }
1553 : 0 : gnc_progress_dialog_set_sub(arg1,(char const *)arg2);
1554 : 0 : gswig_result = SCM_UNSPECIFIED;
1555 : :
1556 : 0 : if (must_free2) SWIG_free(arg2);
1557 : :
1558 : 0 : return gswig_result;
1559 : : #undef FUNC_NAME
1560 : : }
1561 : :
1562 : :
1563 : : static SCM
1564 : 0 : _wrap_gnc_progress_dialog_reset_log (SCM s_0)
1565 : : {
1566 : : #define FUNC_NAME "gnc-progress-dialog-reset-log"
1567 : 0 : GNCProgressDialog *arg1 = (GNCProgressDialog *) 0 ;
1568 : : SCM gswig_result;
1569 : 0 : SWIGUNUSED int gswig_list_p = 0;
1570 : :
1571 : : {
1572 : 0 : arg1 = (GNCProgressDialog *)SWIG_MustGetPtr(s_0, SWIGTYPE_p__GNCProgressDialog, 1, 0);
1573 : : }
1574 : 0 : gnc_progress_dialog_reset_log(arg1);
1575 : 0 : gswig_result = SCM_UNSPECIFIED;
1576 : :
1577 : :
1578 : 0 : return gswig_result;
1579 : : #undef FUNC_NAME
1580 : : }
1581 : :
1582 : :
1583 : : static SCM
1584 : 0 : _wrap_gnc_progress_dialog_append_log (SCM s_0, SCM s_1)
1585 : : {
1586 : : #define FUNC_NAME "gnc-progress-dialog-append-log"
1587 : 0 : GNCProgressDialog *arg1 = (GNCProgressDialog *) 0 ;
1588 : 0 : gchar *arg2 = (gchar *) 0 ;
1589 : 0 : int must_free2 = 0 ;
1590 : : SCM gswig_result;
1591 : 0 : SWIGUNUSED int gswig_list_p = 0;
1592 : :
1593 : : {
1594 : 0 : arg1 = (GNCProgressDialog *)SWIG_MustGetPtr(s_0, SWIGTYPE_p__GNCProgressDialog, 1, 0);
1595 : : }
1596 : : {
1597 : 0 : arg2 = (gchar *)SWIG_scm2str(s_1);
1598 : 0 : must_free2 = 1;
1599 : : }
1600 : 0 : gnc_progress_dialog_append_log(arg1,(char const *)arg2);
1601 : 0 : gswig_result = SCM_UNSPECIFIED;
1602 : :
1603 : 0 : if (must_free2) SWIG_free(arg2);
1604 : :
1605 : 0 : return gswig_result;
1606 : : #undef FUNC_NAME
1607 : : }
1608 : :
1609 : :
1610 : : static SCM
1611 : 0 : _wrap_gnc_progress_dialog_pause (SCM s_0)
1612 : : {
1613 : : #define FUNC_NAME "gnc-progress-dialog-pause"
1614 : 0 : GNCProgressDialog *arg1 = (GNCProgressDialog *) 0 ;
1615 : : SCM gswig_result;
1616 : 0 : SWIGUNUSED int gswig_list_p = 0;
1617 : :
1618 : : {
1619 : 0 : arg1 = (GNCProgressDialog *)SWIG_MustGetPtr(s_0, SWIGTYPE_p__GNCProgressDialog, 1, 0);
1620 : : }
1621 : 0 : gnc_progress_dialog_pause(arg1);
1622 : 0 : gswig_result = SCM_UNSPECIFIED;
1623 : :
1624 : :
1625 : 0 : return gswig_result;
1626 : : #undef FUNC_NAME
1627 : : }
1628 : :
1629 : :
1630 : : static SCM
1631 : 0 : _wrap_gnc_progress_dialog_resume (SCM s_0)
1632 : : {
1633 : : #define FUNC_NAME "gnc-progress-dialog-resume"
1634 : 0 : GNCProgressDialog *arg1 = (GNCProgressDialog *) 0 ;
1635 : : SCM gswig_result;
1636 : 0 : SWIGUNUSED int gswig_list_p = 0;
1637 : :
1638 : : {
1639 : 0 : arg1 = (GNCProgressDialog *)SWIG_MustGetPtr(s_0, SWIGTYPE_p__GNCProgressDialog, 1, 0);
1640 : : }
1641 : 0 : gnc_progress_dialog_resume(arg1);
1642 : 0 : gswig_result = SCM_UNSPECIFIED;
1643 : :
1644 : :
1645 : 0 : return gswig_result;
1646 : : #undef FUNC_NAME
1647 : : }
1648 : :
1649 : :
1650 : : static SCM
1651 : 0 : _wrap_gnc_progress_dialog_set_cancel_func (SCM s_0, SCM s_1, SCM s_2)
1652 : : {
1653 : : #define FUNC_NAME "gnc-progress-dialog-set-cancel-func"
1654 : 0 : GNCProgressDialog *arg1 = (GNCProgressDialog *) 0 ;
1655 : 0 : GNCProgressCancelFunc arg2 = (GNCProgressCancelFunc) 0 ;
1656 : 0 : gpointer arg3 = (gpointer) 0 ;
1657 : : SCM gswig_result;
1658 : 0 : SWIGUNUSED int gswig_list_p = 0;
1659 : :
1660 : : {
1661 : 0 : arg1 = (GNCProgressDialog *)SWIG_MustGetPtr(s_0, SWIGTYPE_p__GNCProgressDialog, 1, 0);
1662 : : }
1663 : : {
1664 : 0 : arg2 = (GNCProgressCancelFunc)SWIG_MustGetPtr(s_1, SWIGTYPE_p_f_p_void__gboolean, 2, 0);
1665 : : }
1666 : : {
1667 : 0 : arg3 = (gpointer)SWIG_MustGetPtr(s_2, NULL, 3, 0);
1668 : : }
1669 : 0 : gnc_progress_dialog_set_cancel_func(arg1,arg2,arg3);
1670 : 0 : gswig_result = SCM_UNSPECIFIED;
1671 : :
1672 : :
1673 : :
1674 : :
1675 : 0 : return gswig_result;
1676 : : #undef FUNC_NAME
1677 : : }
1678 : :
1679 : :
1680 : : static SCM
1681 : 0 : _wrap_gnc_progress_dialog_set_cancel_scm_func (SCM s_0, SCM s_1)
1682 : : {
1683 : : #define FUNC_NAME "gnc-progress-dialog-set-cancel-scm-func"
1684 : 0 : GNCProgressDialog *arg1 = (GNCProgressDialog *) 0 ;
1685 : : SCM arg2 ;
1686 : : SCM gswig_result;
1687 : 0 : SWIGUNUSED int gswig_list_p = 0;
1688 : :
1689 : : {
1690 : 0 : arg1 = (GNCProgressDialog *)SWIG_MustGetPtr(s_0, SWIGTYPE_p__GNCProgressDialog, 1, 0);
1691 : : }
1692 : 0 : arg2=s_1;
1693 : 0 : gnc_progress_dialog_set_cancel_scm_func(arg1,arg2);
1694 : 0 : gswig_result = SCM_UNSPECIFIED;
1695 : :
1696 : :
1697 : 0 : return gswig_result;
1698 : : #undef FUNC_NAME
1699 : : }
1700 : :
1701 : :
1702 : : static SCM
1703 : 0 : _wrap_gnc_progress_dialog_set_value (SCM s_0, SCM s_1)
1704 : : {
1705 : : #define FUNC_NAME "gnc-progress-dialog-set-value"
1706 : 0 : GNCProgressDialog *arg1 = (GNCProgressDialog *) 0 ;
1707 : : gdouble arg2 ;
1708 : : SCM gswig_result;
1709 : 0 : SWIGUNUSED int gswig_list_p = 0;
1710 : :
1711 : : {
1712 : 0 : arg1 = (GNCProgressDialog *)SWIG_MustGetPtr(s_0, SWIGTYPE_p__GNCProgressDialog, 1, 0);
1713 : : }
1714 : : {
1715 : 0 : arg2 = (gdouble) scm_to_double(s_1);
1716 : : }
1717 : 0 : gnc_progress_dialog_set_value(arg1,arg2);
1718 : 0 : gswig_result = SCM_UNSPECIFIED;
1719 : :
1720 : :
1721 : 0 : return gswig_result;
1722 : : #undef FUNC_NAME
1723 : : }
1724 : :
1725 : :
1726 : : static SCM
1727 : 0 : _wrap_gnc_progress_dialog_push (SCM s_0, SCM s_1)
1728 : : {
1729 : : #define FUNC_NAME "gnc-progress-dialog-push"
1730 : 0 : GNCProgressDialog *arg1 = (GNCProgressDialog *) 0 ;
1731 : : gdouble arg2 ;
1732 : : SCM gswig_result;
1733 : 0 : SWIGUNUSED int gswig_list_p = 0;
1734 : : guint result;
1735 : :
1736 : : {
1737 : 0 : arg1 = (GNCProgressDialog *)SWIG_MustGetPtr(s_0, SWIGTYPE_p__GNCProgressDialog, 1, 0);
1738 : : }
1739 : : {
1740 : 0 : arg2 = (gdouble) scm_to_double(s_1);
1741 : : }
1742 : 0 : result = (guint)gnc_progress_dialog_push(arg1,arg2);
1743 : : {
1744 : 0 : gswig_result = scm_from_ulong(result);
1745 : : }
1746 : :
1747 : :
1748 : 0 : return gswig_result;
1749 : : #undef FUNC_NAME
1750 : : }
1751 : :
1752 : :
1753 : : static SCM
1754 : 0 : _wrap_gnc_progress_dialog_pop (SCM s_0)
1755 : : {
1756 : : #define FUNC_NAME "gnc-progress-dialog-pop"
1757 : 0 : GNCProgressDialog *arg1 = (GNCProgressDialog *) 0 ;
1758 : : SCM gswig_result;
1759 : 0 : SWIGUNUSED int gswig_list_p = 0;
1760 : : guint result;
1761 : :
1762 : : {
1763 : 0 : arg1 = (GNCProgressDialog *)SWIG_MustGetPtr(s_0, SWIGTYPE_p__GNCProgressDialog, 1, 0);
1764 : : }
1765 : 0 : result = (guint)gnc_progress_dialog_pop(arg1);
1766 : : {
1767 : 0 : gswig_result = scm_from_ulong(result);
1768 : : }
1769 : :
1770 : :
1771 : 0 : return gswig_result;
1772 : : #undef FUNC_NAME
1773 : : }
1774 : :
1775 : :
1776 : : static SCM
1777 : 0 : _wrap_gnc_progress_dialog_pop_full (SCM s_0)
1778 : : {
1779 : : #define FUNC_NAME "gnc-progress-dialog-pop-full"
1780 : 0 : GNCProgressDialog *arg1 = (GNCProgressDialog *) 0 ;
1781 : : SCM gswig_result;
1782 : 0 : SWIGUNUSED int gswig_list_p = 0;
1783 : : guint result;
1784 : :
1785 : : {
1786 : 0 : arg1 = (GNCProgressDialog *)SWIG_MustGetPtr(s_0, SWIGTYPE_p__GNCProgressDialog, 1, 0);
1787 : : }
1788 : 0 : result = (guint)gnc_progress_dialog_pop_full(arg1);
1789 : : {
1790 : 0 : gswig_result = scm_from_ulong(result);
1791 : : }
1792 : :
1793 : :
1794 : 0 : return gswig_result;
1795 : : #undef FUNC_NAME
1796 : : }
1797 : :
1798 : :
1799 : : static SCM
1800 : 0 : _wrap_gnc_progress_dialog_reset_value (SCM s_0)
1801 : : {
1802 : : #define FUNC_NAME "gnc-progress-dialog-reset-value"
1803 : 0 : GNCProgressDialog *arg1 = (GNCProgressDialog *) 0 ;
1804 : : SCM gswig_result;
1805 : 0 : SWIGUNUSED int gswig_list_p = 0;
1806 : :
1807 : : {
1808 : 0 : arg1 = (GNCProgressDialog *)SWIG_MustGetPtr(s_0, SWIGTYPE_p__GNCProgressDialog, 1, 0);
1809 : : }
1810 : 0 : gnc_progress_dialog_reset_value(arg1);
1811 : 0 : gswig_result = SCM_UNSPECIFIED;
1812 : :
1813 : :
1814 : 0 : return gswig_result;
1815 : : #undef FUNC_NAME
1816 : : }
1817 : :
1818 : :
1819 : : static SCM
1820 : 0 : _wrap_gnc_progress_dialog_update (SCM s_0)
1821 : : {
1822 : : #define FUNC_NAME "gnc-progress-dialog-update"
1823 : 0 : GNCProgressDialog *arg1 = (GNCProgressDialog *) 0 ;
1824 : : SCM gswig_result;
1825 : 0 : SWIGUNUSED int gswig_list_p = 0;
1826 : :
1827 : : {
1828 : 0 : arg1 = (GNCProgressDialog *)SWIG_MustGetPtr(s_0, SWIGTYPE_p__GNCProgressDialog, 1, 0);
1829 : : }
1830 : 0 : gnc_progress_dialog_update(arg1);
1831 : 0 : gswig_result = SCM_UNSPECIFIED;
1832 : :
1833 : :
1834 : 0 : return gswig_result;
1835 : : #undef FUNC_NAME
1836 : : }
1837 : :
1838 : :
1839 : : static SCM
1840 : 0 : _wrap_gnc_progress_dialog_finish (SCM s_0)
1841 : : {
1842 : : #define FUNC_NAME "gnc-progress-dialog-finish"
1843 : 0 : GNCProgressDialog *arg1 = (GNCProgressDialog *) 0 ;
1844 : : SCM gswig_result;
1845 : 0 : SWIGUNUSED int gswig_list_p = 0;
1846 : :
1847 : : {
1848 : 0 : arg1 = (GNCProgressDialog *)SWIG_MustGetPtr(s_0, SWIGTYPE_p__GNCProgressDialog, 1, 0);
1849 : : }
1850 : 0 : gnc_progress_dialog_finish(arg1);
1851 : 0 : gswig_result = SCM_UNSPECIFIED;
1852 : :
1853 : :
1854 : 0 : return gswig_result;
1855 : : #undef FUNC_NAME
1856 : : }
1857 : :
1858 : :
1859 : : static SCM
1860 : 0 : _wrap_gnc_progress_dialog_destroy (SCM s_0)
1861 : : {
1862 : : #define FUNC_NAME "gnc-progress-dialog-destroy"
1863 : 0 : GNCProgressDialog *arg1 = (GNCProgressDialog *) 0 ;
1864 : : SCM gswig_result;
1865 : 0 : SWIGUNUSED int gswig_list_p = 0;
1866 : :
1867 : : {
1868 : 0 : arg1 = (GNCProgressDialog *)SWIG_MustGetPtr(s_0, SWIGTYPE_p__GNCProgressDialog, 1, 0);
1869 : : }
1870 : 0 : gnc_progress_dialog_destroy(arg1);
1871 : 0 : gswig_result = SCM_UNSPECIFIED;
1872 : :
1873 : :
1874 : 0 : return gswig_result;
1875 : : #undef FUNC_NAME
1876 : : }
1877 : :
1878 : :
1879 : : static SCM
1880 : 0 : _wrap_gnc_main_window_open_report (SCM s_0, SCM s_1)
1881 : : {
1882 : : #define FUNC_NAME "gnc-main-window-open-report"
1883 : : int arg1 ;
1884 : 0 : GncMainWindow *arg2 = (GncMainWindow *) 0 ;
1885 : : SCM gswig_result;
1886 : 0 : SWIGUNUSED int gswig_list_p = 0;
1887 : :
1888 : : {
1889 : 0 : arg1 = (int) scm_to_int(s_0);
1890 : : }
1891 : : {
1892 : 0 : arg2 = (GncMainWindow *)SWIG_MustGetPtr(s_1, SWIGTYPE_p_GncMainWindow, 2, 0);
1893 : : }
1894 : 0 : gnc_main_window_open_report(arg1,arg2);
1895 : 0 : gswig_result = SCM_UNSPECIFIED;
1896 : :
1897 : :
1898 : 0 : return gswig_result;
1899 : : #undef FUNC_NAME
1900 : : }
1901 : :
1902 : :
1903 : : static SCM
1904 : 0 : _wrap_gnc_ui_custom_report (SCM s_0)
1905 : : {
1906 : : #define FUNC_NAME "gnc-ui-custom-report"
1907 : 0 : GncMainWindow *arg1 = (GncMainWindow *) 0 ;
1908 : : SCM gswig_result;
1909 : 0 : SWIGUNUSED int gswig_list_p = 0;
1910 : :
1911 : : {
1912 : 0 : arg1 = (GncMainWindow *)SWIG_MustGetPtr(s_0, SWIGTYPE_p_GncMainWindow, 1, 0);
1913 : : }
1914 : 0 : gnc_ui_custom_report(arg1);
1915 : 0 : gswig_result = SCM_UNSPECIFIED;
1916 : :
1917 : :
1918 : 0 : return gswig_result;
1919 : : #undef FUNC_NAME
1920 : : }
1921 : :
1922 : :
1923 : : #ifdef __cplusplus
1924 : : extern "C" {
1925 : : #endif
1926 : :
1927 : : /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (BEGIN) -------- */
1928 : :
1929 : : static swig_type_info _swigt__p_GncMainWindow = {"_p_GncMainWindow", "GncMainWindow *", 0, 0, (void*)0, 0};
1930 : : static swig_type_info _swigt__p_GtkLabel = {"_p_GtkLabel", "GtkLabel *", 0, 0, (void*)0, 0};
1931 : : static swig_type_info _swigt__p_GtkProgressBar = {"_p_GtkProgressBar", "GtkProgressBar *", 0, 0, (void*)0, 0};
1932 : : static swig_type_info _swigt__p_GtkTextView = {"_p_GtkTextView", "GtkTextView *", 0, 0, (void*)0, 0};
1933 : : static swig_type_info _swigt__p_GtkWidget = {"_p_GtkWidget", "GtkWidget *", 0, 0, (void*)0, 0};
1934 : : static swig_type_info _swigt__p__GNCProgressDialog = {"_p__GNCProgressDialog", "GNCProgressDialog *|struct _GNCProgressDialog *", 0, 0, (void*)0, 0};
1935 : : static swig_type_info _swigt__p_char = {"_p_char", "gchar *|char *", 0, 0, (void*)0, 0};
1936 : : static swig_type_info _swigt__p_double = {"_p_double", "gdouble *|double *", 0, 0, (void*)0, 0};
1937 : : static swig_type_info _swigt__p_f_p_void__gboolean = {"_p_f_p_void__gboolean", "GNCProgressCancelFunc|gboolean (*)(void *)", 0, 0, (void*)0, 0};
1938 : : static swig_type_info _swigt__p_float = {"_p_float", "gfloat *|float *", 0, 0, (void*)0, 0};
1939 : : static swig_type_info _swigt__p_gboolean = {"_p_gboolean", "gboolean *", 0, 0, (void*)0, 0};
1940 : : static swig_type_info _swigt__p_gint64 = {"_p_gint64", "time64 *|gint64 *", 0, 0, (void*)0, 0};
1941 : : static swig_type_info _swigt__p_int = {"_p_int", "gint *|int32_t *|int_fast16_t *|int_fast32_t *|int_least32_t *|intptr_t *|int *", 0, 0, (void*)0, 0};
1942 : : static swig_type_info _swigt__p_long_long = {"_p_long_long", "int64_t *|int_fast64_t *|int_least64_t *|intmax_t *|long long *", 0, 0, (void*)0, 0};
1943 : : static swig_type_info _swigt__p_short = {"_p_short", "int16_t *|int_least16_t *|short *", 0, 0, (void*)0, 0};
1944 : : static swig_type_info _swigt__p_signed_char = {"_p_signed_char", "int8_t *|int_fast8_t *|int_least8_t *|signed char *", 0, 0, (void*)0, 0};
1945 : : static swig_type_info _swigt__p_unsigned_char = {"_p_unsigned_char", "uint8_t *|uint_fast8_t *|uint_least8_t *|unsigned char *", 0, 0, (void*)0, 0};
1946 : : static swig_type_info _swigt__p_unsigned_int = {"_p_unsigned_int", "guint *|uint32_t *|uint_fast16_t *|uint_fast32_t *|uint_least32_t *|uintptr_t *|unsigned int *", 0, 0, (void*)0, 0};
1947 : : static swig_type_info _swigt__p_unsigned_long = {"_p_unsigned_long", "SCM *|unsigned long *", 0, 0, (void*)0, 0};
1948 : : static swig_type_info _swigt__p_unsigned_long_long = {"_p_unsigned_long_long", "uint64_t *|uint_fast64_t *|uint_least64_t *|uintmax_t *|unsigned long long *", 0, 0, (void*)0, 0};
1949 : : static swig_type_info _swigt__p_unsigned_short = {"_p_unsigned_short", "uint16_t *|uint_least16_t *|unsigned short *", 0, 0, (void*)0, 0};
1950 : :
1951 : : static swig_type_info *swig_type_initial[] = {
1952 : : &_swigt__p_GncMainWindow,
1953 : : &_swigt__p_GtkLabel,
1954 : : &_swigt__p_GtkProgressBar,
1955 : : &_swigt__p_GtkTextView,
1956 : : &_swigt__p_GtkWidget,
1957 : : &_swigt__p__GNCProgressDialog,
1958 : : &_swigt__p_char,
1959 : : &_swigt__p_double,
1960 : : &_swigt__p_f_p_void__gboolean,
1961 : : &_swigt__p_float,
1962 : : &_swigt__p_gboolean,
1963 : : &_swigt__p_gint64,
1964 : : &_swigt__p_int,
1965 : : &_swigt__p_long_long,
1966 : : &_swigt__p_short,
1967 : : &_swigt__p_signed_char,
1968 : : &_swigt__p_unsigned_char,
1969 : : &_swigt__p_unsigned_int,
1970 : : &_swigt__p_unsigned_long,
1971 : : &_swigt__p_unsigned_long_long,
1972 : : &_swigt__p_unsigned_short,
1973 : : };
1974 : :
1975 : : static swig_cast_info _swigc__p_GncMainWindow[] = { {&_swigt__p_GncMainWindow, 0, 0, 0},{0, 0, 0, 0}};
1976 : : static swig_cast_info _swigc__p_GtkLabel[] = { {&_swigt__p_GtkLabel, 0, 0, 0},{0, 0, 0, 0}};
1977 : : static swig_cast_info _swigc__p_GtkProgressBar[] = { {&_swigt__p_GtkProgressBar, 0, 0, 0},{0, 0, 0, 0}};
1978 : : static swig_cast_info _swigc__p_GtkTextView[] = { {&_swigt__p_GtkTextView, 0, 0, 0},{0, 0, 0, 0}};
1979 : : static swig_cast_info _swigc__p_GtkWidget[] = { {&_swigt__p_GtkWidget, 0, 0, 0},{0, 0, 0, 0}};
1980 : : static swig_cast_info _swigc__p__GNCProgressDialog[] = { {&_swigt__p__GNCProgressDialog, 0, 0, 0},{0, 0, 0, 0}};
1981 : : static swig_cast_info _swigc__p_char[] = { {&_swigt__p_char, 0, 0, 0},{0, 0, 0, 0}};
1982 : : static swig_cast_info _swigc__p_double[] = { {&_swigt__p_double, 0, 0, 0},{0, 0, 0, 0}};
1983 : : static swig_cast_info _swigc__p_f_p_void__gboolean[] = { {&_swigt__p_f_p_void__gboolean, 0, 0, 0},{0, 0, 0, 0}};
1984 : : static swig_cast_info _swigc__p_float[] = { {&_swigt__p_float, 0, 0, 0},{0, 0, 0, 0}};
1985 : : static swig_cast_info _swigc__p_gboolean[] = { {&_swigt__p_gboolean, 0, 0, 0},{0, 0, 0, 0}};
1986 : : static swig_cast_info _swigc__p_gint64[] = { {&_swigt__p_gint64, 0, 0, 0},{0, 0, 0, 0}};
1987 : : static swig_cast_info _swigc__p_int[] = { {&_swigt__p_int, 0, 0, 0},{0, 0, 0, 0}};
1988 : : static swig_cast_info _swigc__p_long_long[] = { {&_swigt__p_long_long, 0, 0, 0},{0, 0, 0, 0}};
1989 : : static swig_cast_info _swigc__p_short[] = { {&_swigt__p_short, 0, 0, 0},{0, 0, 0, 0}};
1990 : : static swig_cast_info _swigc__p_signed_char[] = { {&_swigt__p_signed_char, 0, 0, 0},{0, 0, 0, 0}};
1991 : : static swig_cast_info _swigc__p_unsigned_char[] = { {&_swigt__p_unsigned_char, 0, 0, 0},{0, 0, 0, 0}};
1992 : : static swig_cast_info _swigc__p_unsigned_int[] = { {&_swigt__p_unsigned_int, 0, 0, 0},{0, 0, 0, 0}};
1993 : : static swig_cast_info _swigc__p_unsigned_long[] = { {&_swigt__p_unsigned_long, 0, 0, 0},{0, 0, 0, 0}};
1994 : : static swig_cast_info _swigc__p_unsigned_long_long[] = { {&_swigt__p_unsigned_long_long, 0, 0, 0},{0, 0, 0, 0}};
1995 : : static swig_cast_info _swigc__p_unsigned_short[] = { {&_swigt__p_unsigned_short, 0, 0, 0},{0, 0, 0, 0}};
1996 : :
1997 : : static swig_cast_info *swig_cast_initial[] = {
1998 : : _swigc__p_GncMainWindow,
1999 : : _swigc__p_GtkLabel,
2000 : : _swigc__p_GtkProgressBar,
2001 : : _swigc__p_GtkTextView,
2002 : : _swigc__p_GtkWidget,
2003 : : _swigc__p__GNCProgressDialog,
2004 : : _swigc__p_char,
2005 : : _swigc__p_double,
2006 : : _swigc__p_f_p_void__gboolean,
2007 : : _swigc__p_float,
2008 : : _swigc__p_gboolean,
2009 : : _swigc__p_gint64,
2010 : : _swigc__p_int,
2011 : : _swigc__p_long_long,
2012 : : _swigc__p_short,
2013 : : _swigc__p_signed_char,
2014 : : _swigc__p_unsigned_char,
2015 : : _swigc__p_unsigned_int,
2016 : : _swigc__p_unsigned_long,
2017 : : _swigc__p_unsigned_long_long,
2018 : : _swigc__p_unsigned_short,
2019 : : };
2020 : :
2021 : :
2022 : : /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (END) -------- */
2023 : :
2024 : : /* -----------------------------------------------------------------------------
2025 : : * Type initialization:
2026 : : * This problem is tough by the requirement that no dynamic
2027 : : * memory is used. Also, since swig_type_info structures store pointers to
2028 : : * swig_cast_info structures and swig_cast_info structures store pointers back
2029 : : * to swig_type_info structures, we need some lookup code at initialization.
2030 : : * The idea is that swig generates all the structures that are needed.
2031 : : * The runtime then collects these partially filled structures.
2032 : : * The SWIG_InitializeModule function takes these initial arrays out of
2033 : : * swig_module, and does all the lookup, filling in the swig_module.types
2034 : : * array with the correct data and linking the correct swig_cast_info
2035 : : * structures together.
2036 : : *
2037 : : * The generated swig_type_info structures are assigned statically to an initial
2038 : : * array. We just loop through that array, and handle each type individually.
2039 : : * First we lookup if this type has been already loaded, and if so, use the
2040 : : * loaded structure instead of the generated one. Then we have to fill in the
2041 : : * cast linked list. The cast data is initially stored in something like a
2042 : : * two-dimensional array. Each row corresponds to a type (there are the same
2043 : : * number of rows as there are in the swig_type_initial array). Each entry in
2044 : : * a column is one of the swig_cast_info structures for that type.
2045 : : * The cast_initial array is actually an array of arrays, because each row has
2046 : : * a variable number of columns. So to actually build the cast linked list,
2047 : : * we find the array of casts associated with the type, and loop through it
2048 : : * adding the casts to the list. The one last trick we need to do is making
2049 : : * sure the type pointer in the swig_cast_info struct is correct.
2050 : : *
2051 : : * First off, we lookup the cast->type name to see if it is already loaded.
2052 : : * There are three cases to handle:
2053 : : * 1) If the cast->type has already been loaded AND the type we are adding
2054 : : * casting info to has not been loaded (it is in this module), THEN we
2055 : : * replace the cast->type pointer with the type pointer that has already
2056 : : * been loaded.
2057 : : * 2) If BOTH types (the one we are adding casting info to, and the
2058 : : * cast->type) are loaded, THEN the cast info has already been loaded by
2059 : : * the previous module so we just ignore it.
2060 : : * 3) Finally, if cast->type has not already been loaded, then we add that
2061 : : * swig_cast_info to the linked list (because the cast->type) pointer will
2062 : : * be correct.
2063 : : * ----------------------------------------------------------------------------- */
2064 : :
2065 : : #ifdef __cplusplus
2066 : : extern "C" {
2067 : : #if 0
2068 : : } /* c-mode */
2069 : : #endif
2070 : : #endif
2071 : :
2072 : : #if 0
2073 : : #define SWIGRUNTIME_DEBUG
2074 : : #endif
2075 : :
2076 : : #ifndef SWIG_INIT_CLIENT_DATA_TYPE
2077 : : #define SWIG_INIT_CLIENT_DATA_TYPE void *
2078 : : #endif
2079 : :
2080 : : SWIGRUNTIME void
2081 : 24 : SWIG_InitializeModule(SWIG_INIT_CLIENT_DATA_TYPE clientdata) {
2082 : : size_t i;
2083 : : swig_module_info *module_head, *iter;
2084 : : int init;
2085 : :
2086 : : /* check to see if the circular list has been setup, if not, set it up */
2087 : 24 : if (swig_module.next==0) {
2088 : : /* Initialize the swig_module */
2089 : 3 : swig_module.type_initial = swig_type_initial;
2090 : 3 : swig_module.cast_initial = swig_cast_initial;
2091 : 3 : swig_module.next = &swig_module;
2092 : 3 : init = 1;
2093 : : } else {
2094 : 21 : init = 0;
2095 : : }
2096 : :
2097 : : /* Try and load any already created modules */
2098 : 24 : module_head = SWIG_GetModule(clientdata);
2099 : 24 : if (!module_head) {
2100 : : /* This is the first module loaded for this interpreter */
2101 : : /* so set the swig module into the interpreter */
2102 : 0 : SWIG_SetModule(clientdata, &swig_module);
2103 : : } else {
2104 : : /* the interpreter has loaded a SWIG module, but has it loaded this one? */
2105 : 24 : iter=module_head;
2106 : : do {
2107 : 51 : if (iter==&swig_module) {
2108 : : /* Our module is already in the list, so there's nothing more to do. */
2109 : 21 : return;
2110 : : }
2111 : 30 : iter=iter->next;
2112 : 30 : } while (iter!= module_head);
2113 : :
2114 : : /* otherwise we must add our module into the list */
2115 : 3 : swig_module.next = module_head->next;
2116 : 3 : module_head->next = &swig_module;
2117 : : }
2118 : :
2119 : : /* When multiple interpreters are used, a module could have already been initialized in
2120 : : a different interpreter, but not yet have a pointer in this interpreter.
2121 : : In this case, we do not want to continue adding types... everything should be
2122 : : set up already */
2123 : 3 : if (init == 0) return;
2124 : :
2125 : : /* Now work on filling in swig_module.types */
2126 : : #ifdef SWIGRUNTIME_DEBUG
2127 : : printf("SWIG_InitializeModule: size %lu\n", (unsigned long)swig_module.size);
2128 : : #endif
2129 : 66 : for (i = 0; i < swig_module.size; ++i) {
2130 : 63 : swig_type_info *type = 0;
2131 : : swig_type_info *ret;
2132 : : swig_cast_info *cast;
2133 : :
2134 : : #ifdef SWIGRUNTIME_DEBUG
2135 : : printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
2136 : : #endif
2137 : :
2138 : : /* if there is another module already loaded */
2139 : 63 : if (swig_module.next != &swig_module) {
2140 : 63 : type = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, swig_module.type_initial[i]->name);
2141 : : }
2142 : 63 : if (type) {
2143 : : /* Overwrite clientdata field */
2144 : : #ifdef SWIGRUNTIME_DEBUG
2145 : : printf("SWIG_InitializeModule: found type %s\n", type->name);
2146 : : #endif
2147 : 42 : if (swig_module.type_initial[i]->clientdata) {
2148 : 0 : type->clientdata = swig_module.type_initial[i]->clientdata;
2149 : : #ifdef SWIGRUNTIME_DEBUG
2150 : : printf("SWIG_InitializeModule: found and overwrite type %s \n", type->name);
2151 : : #endif
2152 : : }
2153 : : } else {
2154 : 21 : type = swig_module.type_initial[i];
2155 : : }
2156 : :
2157 : : /* Insert casting types */
2158 : 63 : cast = swig_module.cast_initial[i];
2159 : 126 : while (cast->type) {
2160 : : /* Don't need to add information already in the list */
2161 : 63 : ret = 0;
2162 : : #ifdef SWIGRUNTIME_DEBUG
2163 : : printf("SWIG_InitializeModule: look cast %s\n", cast->type->name);
2164 : : #endif
2165 : 63 : if (swig_module.next != &swig_module) {
2166 : 63 : ret = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, cast->type->name);
2167 : : #ifdef SWIGRUNTIME_DEBUG
2168 : : if (ret) printf("SWIG_InitializeModule: found cast %s\n", ret->name);
2169 : : #endif
2170 : : }
2171 : 63 : if (ret) {
2172 : 42 : if (type == swig_module.type_initial[i]) {
2173 : : #ifdef SWIGRUNTIME_DEBUG
2174 : : printf("SWIG_InitializeModule: skip old type %s\n", ret->name);
2175 : : #endif
2176 : 0 : cast->type = ret;
2177 : 0 : ret = 0;
2178 : : } else {
2179 : : /* Check for casting already in the list */
2180 : 42 : swig_cast_info *ocast = SWIG_TypeCheck(ret->name, type);
2181 : : #ifdef SWIGRUNTIME_DEBUG
2182 : : if (ocast) printf("SWIG_InitializeModule: skip old cast %s\n", ret->name);
2183 : : #endif
2184 : 42 : if (!ocast) ret = 0;
2185 : : }
2186 : : }
2187 : :
2188 : 63 : if (!ret) {
2189 : : #ifdef SWIGRUNTIME_DEBUG
2190 : : printf("SWIG_InitializeModule: adding cast %s\n", cast->type->name);
2191 : : #endif
2192 : 21 : if (type->cast) {
2193 : 0 : type->cast->prev = cast;
2194 : 0 : cast->next = type->cast;
2195 : : }
2196 : 21 : type->cast = cast;
2197 : : }
2198 : 63 : cast++;
2199 : : }
2200 : : /* Set entry in modules->types array equal to the type */
2201 : 63 : swig_module.types[i] = type;
2202 : : }
2203 : 3 : swig_module.types[i] = 0;
2204 : :
2205 : : #ifdef SWIGRUNTIME_DEBUG
2206 : : printf("**** SWIG_InitializeModule: Cast List ******\n");
2207 : : for (i = 0; i < swig_module.size; ++i) {
2208 : : int j = 0;
2209 : : swig_cast_info *cast = swig_module.cast_initial[i];
2210 : : printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
2211 : : while (cast->type) {
2212 : : printf("SWIG_InitializeModule: cast type %s\n", cast->type->name);
2213 : : cast++;
2214 : : ++j;
2215 : : }
2216 : : printf("---- Total casts: %d\n",j);
2217 : : }
2218 : : printf("**** SWIG_InitializeModule: Cast List ******\n");
2219 : : #endif
2220 : : }
2221 : :
2222 : : /* This function will propagate the clientdata field of type to
2223 : : * any new swig_type_info structures that have been added into the list
2224 : : * of equivalent types. It is like calling
2225 : : * SWIG_TypeClientData(type, clientdata) a second time.
2226 : : */
2227 : : SWIGRUNTIME void
2228 : 24 : SWIG_PropagateClientData(void) {
2229 : : size_t i;
2230 : : swig_cast_info *equiv;
2231 : : static int init_run = 0;
2232 : :
2233 : 24 : if (init_run) return;
2234 : 3 : init_run = 1;
2235 : :
2236 : 66 : for (i = 0; i < swig_module.size; i++) {
2237 : 63 : if (swig_module.types[i]->clientdata) {
2238 : 0 : equiv = swig_module.types[i]->cast;
2239 : 0 : while (equiv) {
2240 : 0 : if (!equiv->converter) {
2241 : 0 : if (equiv->type && !equiv->type->clientdata)
2242 : 0 : SWIG_TypeClientData(equiv->type, swig_module.types[i]->clientdata);
2243 : : }
2244 : 0 : equiv = equiv->next;
2245 : : }
2246 : : }
2247 : : }
2248 : : }
2249 : :
2250 : : #ifdef __cplusplus
2251 : : #if 0
2252 : : {
2253 : : /* c-mode */
2254 : : #endif
2255 : : }
2256 : : #endif
2257 : :
2258 : :
2259 : : SWIG_GUILE_INIT_STATIC void
2260 : 24 : SWIG_init(void)
2261 : : {
2262 : 24 : SWIG_InitializeModule(0);
2263 : 24 : SWIG_PropagateClientData();
2264 : :
2265 : 24 : scm_c_define_gsubr("gnc-progress-dialog-new", 2, 0, 0, (swig_guile_proc) _wrap_gnc_progress_dialog_new);
2266 : 24 : scm_c_define_gsubr("gnc-progress-dialog-custom", 5, 0, 0, (swig_guile_proc) _wrap_gnc_progress_dialog_custom);
2267 : 24 : scm_c_define_gsubr("gnc-progress-dialog-set-title", 2, 0, 0, (swig_guile_proc) _wrap_gnc_progress_dialog_set_title);
2268 : 24 : scm_c_define_gsubr("gnc-progress-dialog-set-primary", 2, 0, 0, (swig_guile_proc) _wrap_gnc_progress_dialog_set_primary);
2269 : 24 : scm_c_define_gsubr("gnc-progress-dialog-set-heading", 2, 0, 0, (swig_guile_proc) _wrap_gnc_progress_dialog_set_heading);
2270 : 24 : scm_c_define_gsubr("gnc-progress-dialog-set-secondary", 2, 0, 0, (swig_guile_proc) _wrap_gnc_progress_dialog_set_secondary);
2271 : 24 : scm_c_define_gsubr("gnc-progress-dialog-set-sub", 2, 0, 0, (swig_guile_proc) _wrap_gnc_progress_dialog_set_sub);
2272 : 24 : scm_c_define_gsubr("gnc-progress-dialog-reset-log", 1, 0, 0, (swig_guile_proc) _wrap_gnc_progress_dialog_reset_log);
2273 : 24 : scm_c_define_gsubr("gnc-progress-dialog-append-log", 2, 0, 0, (swig_guile_proc) _wrap_gnc_progress_dialog_append_log);
2274 : 24 : scm_c_define_gsubr("gnc-progress-dialog-pause", 1, 0, 0, (swig_guile_proc) _wrap_gnc_progress_dialog_pause);
2275 : 24 : scm_c_define_gsubr("gnc-progress-dialog-resume", 1, 0, 0, (swig_guile_proc) _wrap_gnc_progress_dialog_resume);
2276 : 24 : scm_c_define_gsubr("gnc-progress-dialog-set-cancel-func", 3, 0, 0, (swig_guile_proc) _wrap_gnc_progress_dialog_set_cancel_func);
2277 : 24 : scm_c_define_gsubr("gnc-progress-dialog-set-cancel-scm-func", 2, 0, 0, (swig_guile_proc) _wrap_gnc_progress_dialog_set_cancel_scm_func);
2278 : 24 : scm_c_define_gsubr("gnc-progress-dialog-set-value", 2, 0, 0, (swig_guile_proc) _wrap_gnc_progress_dialog_set_value);
2279 : 24 : scm_c_define_gsubr("gnc-progress-dialog-push", 2, 0, 0, (swig_guile_proc) _wrap_gnc_progress_dialog_push);
2280 : 24 : scm_c_define_gsubr("gnc-progress-dialog-pop", 1, 0, 0, (swig_guile_proc) _wrap_gnc_progress_dialog_pop);
2281 : 24 : scm_c_define_gsubr("gnc-progress-dialog-pop-full", 1, 0, 0, (swig_guile_proc) _wrap_gnc_progress_dialog_pop_full);
2282 : 24 : scm_c_define_gsubr("gnc-progress-dialog-reset-value", 1, 0, 0, (swig_guile_proc) _wrap_gnc_progress_dialog_reset_value);
2283 : 24 : scm_c_define_gsubr("gnc-progress-dialog-update", 1, 0, 0, (swig_guile_proc) _wrap_gnc_progress_dialog_update);
2284 : 24 : scm_c_define_gsubr("gnc-progress-dialog-finish", 1, 0, 0, (swig_guile_proc) _wrap_gnc_progress_dialog_finish);
2285 : 24 : scm_c_define_gsubr("gnc-progress-dialog-destroy", 1, 0, 0, (swig_guile_proc) _wrap_gnc_progress_dialog_destroy);
2286 : 24 : scm_c_define_gsubr("gnc-main-window-open-report", 2, 0, 0, (swig_guile_proc) _wrap_gnc_main_window_open_report);
2287 : 24 : scm_c_define_gsubr("gnc-ui-custom-report", 1, 0, 0, (swig_guile_proc) _wrap_gnc_ui_custom_report);
2288 : 24 : }
2289 : :
2290 : : #ifdef __cplusplus
2291 : : }
2292 : : #endif
2293 : :
2294 : : /* Linkage: module */
2295 : 24 : static void SWIG_init_helper(void *data)
2296 : : {
2297 : 24 : SWIG_init();
2298 : 24 : scm_c_export("gnc-progress-dialog-new", "gnc-progress-dialog-custom", "gnc-progress-dialog-set-title", "gnc-progress-dialog-set-primary", "gnc-progress-dialog-set-heading", "gnc-progress-dialog-set-secondary", "gnc-progress-dialog-set-sub", "gnc-progress-dialog-reset-log", "gnc-progress-dialog-append-log", "gnc-progress-dialog-pause", "gnc-progress-dialog-resume", "gnc-progress-dialog-set-cancel-func", "gnc-progress-dialog-set-cancel-scm-func", "gnc-progress-dialog-set-value", "gnc-progress-dialog-push", "gnc-progress-dialog-pop", "gnc-progress-dialog-pop-full", "gnc-progress-dialog-reset-value", "gnc-progress-dialog-update", "gnc-progress-dialog-finish", "gnc-progress-dialog-destroy", "gnc-main-window-open-report", "gnc-ui-custom-report", NULL);
2299 : 24 : }
2300 : :
2301 : : SCM
2302 : 24 : scm_init_sw_gnome_module (void)
2303 : : {
2304 : 24 : scm_c_define_module("sw_gnome",
2305 : : SWIG_init_helper, NULL);
2306 : 24 : return SCM_UNSPECIFIED;
2307 : : }
2308 : :
|
