implement arraybase_length().

git-svn-id: http://svn.sourceforge.jp/svnroot/bchan/bchan/trunk@146 20a0b8eb-f62a-4a12-8fe1-b598822500fb

diff --git a/src/array.c b/src/array.c
index bbda613..a8f7f9b 100644 (file)
--- a/src/array.c
+++ b/src/array.c
@@ -180,6 +180,11 @@ EXPORT VOID arraybase_truncate(arraybase_t *arraybase, W newlength)
        arraybase->datanum = newlength;
 }
 
+EXPORT W arraybase_length(arraybase_t *arraybase)
+{
+       return arraybase->datanum;
+}
+
 EXPORT W arraybase_initialize(arraybase_t *arraybase, W unitsize, W denom)
 {
        W err;

diff --git a/src/array.h b/src/array.h
index b8a0c01..d4e18dc 100644 (file)
--- a/src/array.h
+++ b/src/array.h
@@ -49,5 +49,6 @@ IMPORT VOID arraybase_finalize(arraybase_t *arraybase);
 IMPORT Bool arraybase_getunitbyindex(arraybase_t *arraybase, W index, VP *p);
 IMPORT W arraybase_appendunit(arraybase_t *arraybase, VP p);
 IMPORT VOID arraybase_truncate(arraybase_t *arraybase, W newlength);
+IMPORT W arraybase_length(arraybase_t *arraybase);
 
 #endif