IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

cleanup

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@5030 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Linas Vepstas 2001-07-27 02:41:59 +00:00
parent 1cedd0012d
commit 04b1201871
2 changed files with 17 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/optional/swig/helperfuncs.c
View File

@ -1,3 +1,5 @@
#if 0
#include "helperfuncs.h"
FILE *
@ -14,3 +16,4 @@ FILE *
get_fileptr_stderr() {
return stderr;
}
#endif

49
src/optional/swig/perl5_typemaps.i
View File

@ -16,13 +16,16 @@
/* --------------------------------------------------------- */
/* first, some basic typemaps */
/* According to the docs, this kind of apply should work ... but it seems
* to work only for pointer types, not for scalars, and I can't tell why ... */
#ifdef DOESNT_WORK_DONT_KNOW_WHY
%apply int {time_t }
%apply int BOTH {time_t x};
#endif /* DOESNT_WORK_DONT_KNOW_WHY */
/* Convert the return values from the function to perl values */
/* specifically, create a new perl scalar and store the int value there */
%typemap(perl5, out) time_t {
/* Specifically, create a new perl scalar and store the int value there */
/* We can handle multiple types at the same time here */
%typemap(perl5, out) gboolean,time_t,GNCBackendError {
$target = newSViv ((IV) *($source));
/*
@ -31,51 +34,27 @@
* sv_setiv ($target, (IV) $source);
*/
argvi ++;
// printf ("Info: converted return time_t secs to %d \n", (int) SvIV($target));
// printf ("Info: converted return %d \n", (int) SvIV($target));
}
%typemap(perl5, in) time_t *(time_t temp) {
/* Another problem is that $type expands to a poiner, so we have to
* specify each type by hand ... */
%typemap(perl5, in) time_t *(time_t temp) {
/* Convert function arguments from perl to the C representation */
/* in particular, convert perl scalar into integer, then cast to time_t */
/* in particular, convert perl scalar into integer, then cast to type */
temp = (time_t) SvIV($source);
$target = &temp;
// printf ("Info: time_t input arg is %ld \n", * ($target));
}
/* cut and paste of above, do exactly the same thing for gboolean */
%typemap(perl5, out) gboolean {
$target = newSViv ((IV) *($source));
/*
* An alternate way of writing this code would have been ...
* $target = sv_newmortal ();
* sv_setiv ($target, (IV) $source);
*/
argvi ++;
// printf ("Info: converted return gboolean secs to %d \n", (int) SvIV($target));
}
%typemap(perl5, in) gboolean *(gboolean temp) {
%typemap(perl5, in) gboolean *(gboolean temp) {
/* Convert function arguments from perl to the C representation */
/* in particular, convert perl scalar into integer, then cast to gboolean */
temp = (time_t) SvIV($source);
/* in particular, convert perl scalar into integer, then cast to type */
temp = (gboolean) SvIV($source);
$target = &temp;
// printf ("Info: gboolean input arg is %ld \n", * ($target));
}
/* cut and paste of above, do exactly the same thing for GNCBackendError */
%typemap(perl5, out) GNCBackendError {
$target = newSViv ((IV) *($source));
/*
* An alternate way of writing this code would have been ...
* $target = sv_newmortal ();
* sv_setiv ($target, (IV) $source);
*/
argvi ++;
// printf ("Info: converted return GNCBackendError to %d \n", (int) SvIV($target));
}
/* --------------------------------------------------------- */
#ifdef DOESNT_WORK_DONT_KNOW_WHY