We now handle the VALUE_ARRAY case passing the value as a scheme list by

1999-12-10  Ariel Rios <jarios@usa.net>

	* plugin.c: (value_to_scm) We now handle the VALUE_ARRAY case passing the value
	  as a scheme list by consing the elements of the list.

plugins/guile/ChangeLog

+1999-12-10  Ariel Rios <jarios@usa.net>
+
+	* plugin.c: (value_to_scm) We now handle the VALUE_ARRAY case passing the value
+	  as a scheme list by consing the elements of the list.
+
 1999-12-10  Michael Meeks  <mmeeks@gnu.org>
 
 	* Makefile.am: Fixup guile install.

plugins/guile/functions.scm

@@ -83,10 +83,10 @@ fibo)
 ;;;;;;;;;;;;proof
 
 ;(define (test n)
-;  n)
+;  1)
 
 ;(register-function
-;"test" "f"
+;"test" "a"
 ;"@FUNCTION=TEST
 ;@SYNTAX=TEST(num)
 ;@DESCRIPTION=Prueba"
@@ -95,3 +95,8 @@ fibo)
 
 
 
+
+
+
+
+

plugins/guile/plugin.c

@@ -105,7 +105,20 @@ value_to_scm (Value *val, CellRef cell_ref)
 						 cell_ref_to_scm(val->v.cell_range.cell_b, cell_ref)));
 
 		case VALUE_ARRAY :
-			return SCM_UNSPECIFIED;
+			{
+				int x, y, i, ii;
+				SCM ls;
+
+				x = val->v.array.x;
+				y = val->v.array.y;
+				
+				ls = gh_eval_str("'()");
+				
+				for(i = 0; i < y; i++)
+					for(ii = 0; i < x; i++)
+						ls = scm_cons(val->v.array.vals[ii][i], ls);
+				return ls; 
+			}
 	}
 
 	return SCM_UNSPECIFIED;