diff --git a/doc/.cvsignore b/doc/.cvsignore new file mode 100644 index 0000000000..f3c7a7c5da --- /dev/null +++ b/doc/.cvsignore @@ -0,0 +1 @@ +Makefile diff --git a/doc/examples/.cvsignore b/doc/examples/.cvsignore index 11a18f055c..0a4500aa20 100644 --- a/doc/examples/.cvsignore +++ b/doc/examples/.cvsignore @@ -1,2 +1,3 @@ +Makefile *.log *.xac.*.xac diff --git a/doc/html/.cvsignore b/doc/html/.cvsignore new file mode 100644 index 0000000000..f3c7a7c5da --- /dev/null +++ b/doc/html/.cvsignore @@ -0,0 +1 @@ +Makefile diff --git a/doc/html/C/.cvsignore b/doc/html/C/.cvsignore new file mode 100644 index 0000000000..f3c7a7c5da --- /dev/null +++ b/doc/html/C/.cvsignore @@ -0,0 +1 @@ +Makefile diff --git a/doc/html/C/image/.cvsignore b/doc/html/C/image/.cvsignore new file mode 100644 index 0000000000..f3c7a7c5da --- /dev/null +++ b/doc/html/C/image/.cvsignore @@ -0,0 +1 @@ +Makefile diff --git a/doc/html/fr/.cvsignore b/doc/html/fr/.cvsignore new file mode 100644 index 0000000000..f3c7a7c5da --- /dev/null +++ b/doc/html/fr/.cvsignore @@ -0,0 +1 @@ +Makefile diff --git a/doc/html/fr/image/.cvsignore b/doc/html/fr/image/.cvsignore new file mode 100644 index 0000000000..f3c7a7c5da --- /dev/null +++ b/doc/html/fr/image/.cvsignore @@ -0,0 +1 @@ +Makefile diff --git a/intl/.cvsignore b/intl/.cvsignore new file mode 100644 index 0000000000..f3c7a7c5da --- /dev/null +++ b/intl/.cvsignore @@ -0,0 +1 @@ +Makefile diff --git a/src/.cvsignore b/src/.cvsignore index 580c2e7705..7ecc9f07a6 100644 --- a/src/.cvsignore +++ b/src/.cvsignore @@ -6,3 +6,4 @@ obj *.patch *.log *.xac.*.xac +gnucash diff --git a/src/optional/.cvsignore b/src/optional/.cvsignore new file mode 100644 index 0000000000..f3c7a7c5da --- /dev/null +++ b/src/optional/.cvsignore @@ -0,0 +1 @@ +Makefile diff --git a/src/optional/swig/.cvsignore b/src/optional/swig/.cvsignore index 019716e511..95a8cdb19f 100644 --- a/src/optional/swig/.cvsignore +++ b/src/optional/swig/.cvsignore @@ -2,3 +2,6 @@ Makefile tmp obj gnucash.engine.i +gnucash-engine-perl5_wrap.c +gnucash.engine_wrap.doc +gnucash.pm diff --git a/src/optional/swig/perl5_swig_annotations.i b/src/optional/swig/perl5_swig_annotations.i new file mode 100644 index 0000000000..47a99820d3 --- /dev/null +++ b/src/optional/swig/perl5_swig_annotations.i @@ -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 */ diff --git a/src/pixmaps/.cvsignore b/src/pixmaps/.cvsignore new file mode 100644 index 0000000000..f3c7a7c5da --- /dev/null +++ b/src/pixmaps/.cvsignore @@ -0,0 +1 @@ +Makefile diff --git a/src/scm/.cvsignore b/src/scm/.cvsignore index 5aa3915d21..9fcfff5e3d 100644 --- a/src/scm/.cvsignore +++ b/src/scm/.cvsignore @@ -1,7 +1,2 @@ bootstrap.scm Makefile -tmp -obj -*.diff -*.diffs -*.patch diff --git a/src/scm/gnumeric/.cvsignore b/src/scm/gnumeric/.cvsignore new file mode 100644 index 0000000000..f3c7a7c5da --- /dev/null +++ b/src/scm/gnumeric/.cvsignore @@ -0,0 +1 @@ +Makefile diff --git a/src/scm/printing/.cvsignore b/src/scm/printing/.cvsignore new file mode 100644 index 0000000000..f3c7a7c5da --- /dev/null +++ b/src/scm/printing/.cvsignore @@ -0,0 +1 @@ +Makefile diff --git a/src/scm/qif-import/.cvsignore b/src/scm/qif-import/.cvsignore new file mode 100644 index 0000000000..f3c7a7c5da --- /dev/null +++ b/src/scm/qif-import/.cvsignore @@ -0,0 +1 @@ +Makefile diff --git a/src/scm/report/.cvsignore b/src/scm/report/.cvsignore new file mode 100644 index 0000000000..f3c7a7c5da --- /dev/null +++ b/src/scm/report/.cvsignore @@ -0,0 +1 @@ +Makefile diff --git a/src/scm/srfi/.cvsignore b/src/scm/srfi/.cvsignore new file mode 100644 index 0000000000..f3c7a7c5da --- /dev/null +++ b/src/scm/srfi/.cvsignore @@ -0,0 +1 @@ +Makefile