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

add dictionary-map

This commit is contained in:
Yuichi Nishiwaki 2014-09-13 16:22:22 +09:00
parent d882b5fb24
commit e60841a879
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
dict.c
View File

@ -138,6 +138,25 @@ pic_dict_dict_size(pic_state *pic)
return pic_int_value(pic_dict_size(pic, dict)); return pic_int_value(pic_dict_size(pic, dict));
} }
static pic_value
pic_dict_dict_map(pic_state *pic)
{
struct pic_proc *proc;
struct pic_dict *dict;
pic_value item, list = pic_nil_value();
xh_iter it;
pic_get_args(pic, "ld", &proc, &dict);
xh_begin(&it, &dict->hash);
while (xh_next(&it)) {
item = pic_cons(pic, pic_sym_value(xh_key(it.e, pic_sym)), xh_val(it.e, pic_value));
pic_push(pic, pic_apply1(pic, proc, item), list);
}
return pic_reverse(pic, list);
}
static pic_value static pic_value
pic_dict_dict_for_each(pic_state *pic) pic_dict_dict_for_each(pic_state *pic)
{ {
@ -170,5 +189,6 @@ pic_init_dict(pic_state *pic)
pic_defun(pic, "dictionary-set!", pic_dict_dict_set); pic_defun(pic, "dictionary-set!", pic_dict_dict_set);
pic_defun(pic, "dictionary-delete", pic_dict_dict_del); pic_defun(pic, "dictionary-delete", pic_dict_dict_del);
pic_defun(pic, "dictionary-size", pic_dict_dict_size); pic_defun(pic, "dictionary-size", pic_dict_dict_size);
pic_defun(pic, "dictionary-map", pic_dict_dict_map);
pic_defun(pic, "dictionary-for-each", pic_dict_dict_for_each); pic_defun(pic, "dictionary-for-each", pic_dict_dict_for_each);
} }