jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

guile: fix multimap example

Browse source 
- fix compiler warning
- fix guile 2 deprecation warnings
- minor cleanup of generated code
This commit is contained in:
Geert Janssens 2013-04-26 17:25:50 +02:00
commit 95bfa86ae9
1 changed files with 30 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

51
Examples/guile/multimap/example.i
View file

@ -15,43 +15,52 @@ extern int squareCubed (int n, int *OUTPUT);
extern int gcd(int x, int y);
%typemap(in) (int argc, char *argv[]) {
int i;
SCM *v;
if (!(SCM_NIMP($input) && SCM_VECTORP($input))) {
%typemap(in) (int argc, char *argv[]) %{
scm_t_array_handle handle;
size_t i;
ssize_t inc;
const SCM *v;
if (!(SCM_NIMP($input) && scm_is_vector($input))) {
SWIG_exception(SWIG_ValueError, "Expecting a vector");
return 0;
}
$1 = SCM_LENGTH($input);
v = scm_vector_elements($input, &handle, &$1, &inc);
if ($1 == 0) {
SWIG_exception(SWIG_ValueError, "Vector must contain at least 1 element");
}
$2 = (char **) malloc(($1+1)*sizeof(char *));
v = SCM_VELTS($input);
for (i = 0; i < $1; i++) {
if (!(SCM_NIMP(v[i]) && SCM_STRINGP(v[i]))) {
free($2);
for (i = 0; i < $1; i++, v +=inc ) {
if (!(SCM_NIMP(*v) && scm_is_string(*v))) {
free($2);
SWIG_exception(SWIG_ValueError, "Vector items must be strings");
return 0;
}
$2[i] = SCM_CHARS(v[i]);
$2[i] = scm_to_locale_string(*v);
}
$2[i] = 0;
}
scm_array_handle_release (&handle);
%}
%typemap(freearg) (int argc, char *argv[]) {
free($2);
}
%typemap(freearg) (int argc, char *argv[]) %{
for (i = 0; i < $1; i++) {
free($2[i]);
}
free($2);
%}
extern int gcdmain(int argc, char *argv[]);
%typemap(in) (char *bytes, int len) {
if (!(SCM_NIMP($input) && SCM_STRINGP($input))) {
%typemap(in) (char *bytes, int len) %{
if (!(SCM_NIMP($input) && scm_is_string($input))) {
SWIG_exception(SWIG_ValueError, "Expecting a string");
}
$1 = SCM_CHARS($input);
$2 = SCM_LENGTH($input);
}
$1 = scm_to_locale_string($input);
$2 = scm_c_string_length($input);
%}
%typemap(freearg) (char *bytes, int len) %{
free($1);
%}
extern int count(char *bytes, int len, char c);
@ -67,7 +76,7 @@ extern int count(char *bytes, int len, char c);
%typemap(argout) (char *str, int len) {
SWIG_APPEND_VALUE(scm_from_locale_stringn($1,$2));
if ($1) scm_must_free($1);
if ($1) SWIG_free($1);
}
extern void capitalize(char *str, int len);
@ -78,7 +87,7 @@ extern void capitalize(char *str, int len);
%typemap(check) (double cx, double cy) {
double a = $1*$1 + $2*$2;
if (a > 1.0) {
SWIG_exception(SWIG_ValueError,"$1_name and $2_name must be in unit circle");
SWIG_exception(SWIG_ValueError,"$1_name and $2_name must be in unit circle");
}
}