mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 22:10:21 +02:00
Code Activity

* gh_data.c: #include <config.h> if HAVE_CONFIG_H. Rename usage

Browse source 
of HAVE_ARRAYS to SCM_HAVE_ARRAYS.
This commit is contained in:
Rob Browning 2003-03-25 23:56:21 +00:00
parent f66f1fdae5
commit d3d183b5ef
1 changed files with 11 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

18
libguile/gh_data.c
View file

@ -41,6 +41,10 @@
/* data initialization and C<->Scheme data conversion */
#if HAVE_CONFIG_H
# include <config.h>
#endif
#include "libguile/gh.h"
#ifdef HAVE_STRING_H
#include <string.h>
@ -139,7 +143,7 @@ gh_doubles2scm (const double *d, long n)
return v;
}
#ifdef HAVE_ARRAYS
#ifdef SCM_HAVE_ARRAYS
/* Do not use this function for building normal Scheme vectors, unless
you arrange for the elements to be protected from GC while you
initialize the vector. */
@ -268,7 +272,7 @@ gh_scm2chars (SCM obj, char *m)
for (i = 0; i < n; ++i)
m[i] = SCM_INUM (SCM_VELTS (obj)[i]);
break;
#ifdef HAVE_ARRAYS
#ifdef SCM_HAVE_ARRAYS
case scm_tc7_byvect:
n = SCM_UVECTOR_LENGTH (obj);
if (m == 0)
@ -327,7 +331,7 @@ gh_scm2shorts (SCM obj, short *m)
for (i = 0; i < n; ++i)
m[i] = SCM_INUM (SCM_VELTS (obj)[i]);
break;
#ifdef HAVE_ARRAYS
#ifdef SCM_HAVE_ARRAYS
case scm_tc7_svect:
n = SCM_UVECTOR_LENGTH (obj);
if (m == 0)
@ -376,7 +380,7 @@ gh_scm2longs (SCM obj, long *m)
: scm_num2long (val, 0, NULL);
}
break;
#ifdef HAVE_ARRAYS
#ifdef SCM_HAVE_ARRAYS
case scm_tc7_ivect:
case scm_tc7_uvect:
n = SCM_UVECTOR_LENGTH (obj);
@ -430,7 +434,7 @@ gh_scm2floats (SCM obj, float *m)
m[i] = SCM_REAL_VALUE (val);
}
break;
#ifdef HAVE_ARRAYS
#ifdef SCM_HAVE_ARRAYS
case scm_tc7_fvect:
n = SCM_UVECTOR_LENGTH (obj);
if (m == 0)
@ -493,7 +497,7 @@ gh_scm2doubles (SCM obj, double *m)
m[i] = SCM_REAL_VALUE (val);
}
break;
#ifdef HAVE_ARRAYS
#ifdef SCM_HAVE_ARRAYS
case scm_tc7_fvect:
n = SCM_UVECTOR_LENGTH (obj);
if (m == 0)
@ -648,7 +652,7 @@ gh_vector_length (SCM v)
return (unsigned long) SCM_VECTOR_LENGTH (v);
}
#ifdef HAVE_ARRAYS
#ifdef SCM_HAVE_ARRAYS
/* uniform vector support */
/* returns the length as a C unsigned long integer */