conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add vector procedure

This commit is contained in:
Yuichi Nishiwaki 2014-09-12 20:55:34 +09:00
parent 2ad517be84
commit 45d894d9f8
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
vector.c
View File

@ -48,6 +48,25 @@ pic_vec_vector_p(pic_state *pic)
return pic_bool_value(pic_vec_p(v));
}
static pic_value
pic_vec_vector(pic_state *pic)
{
size_t argc;
pic_value *argv;
pic_vec *vec;
size_t i;
pic_get_args(pic, "*", &argc, &argv);
vec = pic_make_vec(pic, argc);
for (i = 0; i < argc; ++i) {
vec->data[i] = argv[i];
}
return pic_obj_value(vec);
}
static pic_value
pic_vec_make_vector(pic_state *pic)
{
@ -313,6 +332,7 @@ void
pic_init_vector(pic_state *pic)
{
pic_defun(pic, "vector?", pic_vec_vector_p);
pic_defun(pic, "vector", pic_vec_vector);
pic_defun(pic, "make-vector", pic_vec_make_vector);
pic_defun(pic, "vector-length", pic_vec_vector_length);
pic_defun(pic, "vector-ref", pic_vec_vector_ref);