Commit 47d94ee7 authored by Ariel Rios's avatar Ariel Rios Committed by Ariel Rios

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.
parent bae7339d
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.
......
......@@ -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)
......@@ -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;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment