Added .cvsignore files and one missing file.

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@2396 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Dave Peticolas
2000-06-02 09:09:30 +00:00
parent ed0bc95f5d
commit 2a5af1afd4
19 changed files with 96 additions and 5 deletions

1
doc/.cvsignore Normal file
View File

@@ -0,0 +1 @@
Makefile

View File

@@ -1,2 +1,3 @@
Makefile
*.log
*.xac.*.xac

1
doc/html/.cvsignore Normal file
View File

@@ -0,0 +1 @@
Makefile

1
doc/html/C/.cvsignore Normal file
View File

@@ -0,0 +1 @@
Makefile

View File

@@ -0,0 +1 @@
Makefile

1
doc/html/fr/.cvsignore Normal file
View File

@@ -0,0 +1 @@
Makefile

View File

@@ -0,0 +1 @@
Makefile

1
intl/.cvsignore Normal file
View File

@@ -0,0 +1 @@
Makefile

View File

@@ -6,3 +6,4 @@ obj
*.patch
*.log
*.xac.*.xac
gnucash

1
src/optional/.cvsignore Normal file
View File

@@ -0,0 +1 @@
Makefile

View File

@@ -2,3 +2,6 @@ Makefile
tmp
obj
gnucash.engine.i
gnucash-engine-perl5_wrap.c
gnucash.engine_wrap.doc
gnucash.pm

View File

@@ -0,0 +1,77 @@
/*
* FILE:
* perl5_swig_annotations.i
*
* FUNCTION:
* clean up various aspects of the gnucash engine interface with
* respect to the SWIG-generated perl bindings. This includes:
* -- handling time_t values as ints
* -- converting C ** arrays to perl arrays
*
* HISTORY:
* Created by Linas Vepstas January 1999
* Copyright (c) 1999 Linas Vepstas
*/
#ifdef DOESNT_WORK_DONT_KNOW_WHY
%apply int {time_t }
#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 {
$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 time_t secs to %d \n", (int) SvIV($target));
}
%typemap(perl5, in) time_t *(time_t temp) {
/* Convert function arguments from perl to the C represntation */
/* in particular, convert perl scalar into integer, then cast to time_t */
temp = (time_t) SvIV($source);
$target = &temp;
// printf ("Info: time_t input arg is %ld \n", * ($target));
}
/* --------------------------------------------------------- */
#ifdef DOESNT_WORK_DONT_KNOW_WHY
// well, this sort of works ... it does create an array,
// but it doesn't seem to be an array of SplitPtr,
// which is what we want if we are to have
// foreach $split (@splits) {...}
// Creates a new Perl array and places a Split ** into it
%typemap(perl5,out) Split ** {
AV *myav;
SV **svs;
int i = 0,len = 0;
/* Figure out how many elements we have */
while ($source[len]) len++;
svs = (SV **) malloc(len*sizeof(SV *));
printf ("Info: measured Split array length of len=%d\n", len);
/* fill in array of scalar values */
for (i = 0; i < len ; i++) {
svs[i] = sv_newmortal();
sv_setref_pv (svs[i], "SplitPtr", $source[i]);
};
/* convert array of scalars into perl array */
myav = av_make(len,svs);
free(svs);
// $target = myav;
$target = newRV((SV*)myav);
sv_2mortal($target);
argvi ++;
}
#endif /* DOESNT_WORK_DONT_KNOW_WHY */

1
src/pixmaps/.cvsignore Normal file
View File

@@ -0,0 +1 @@
Makefile

View File

@@ -1,7 +1,2 @@
bootstrap.scm
Makefile
tmp
obj
*.diff
*.diffs
*.patch

View File

@@ -0,0 +1 @@
Makefile

View File

@@ -0,0 +1 @@
Makefile

View File

@@ -0,0 +1 @@
Makefile

View File

@@ -0,0 +1 @@
Makefile

1
src/scm/srfi/.cvsignore Normal file
View File

@@ -0,0 +1 @@
Makefile