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

add fixed-arity pic_values function

This commit is contained in:
Yuichi Nishiwaki 2014-03-31 08:13:06 +09:00
parent 4b97ccbae8
commit d91ae885b6
2 changed files with 34 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
include/picrin/cont.h
View File

@ -60,7 +60,12 @@ struct pic_cont {
} \ } \
} while (0) } while (0)
pic_value pic_values(pic_state *, size_t, ...); pic_value pic_values0(pic_state *);
pic_value pic_values1(pic_state *, pic_value);
pic_value pic_values2(pic_state *, pic_value, pic_value);
pic_value pic_values3(pic_state *, pic_value, pic_value, pic_value);
pic_value pic_values4(pic_state *, pic_value, pic_value, pic_value, pic_value);
pic_value pic_values5(pic_state *, pic_value, pic_value, pic_value, pic_value, pic_value);
pic_value pic_values_by_array(pic_state *, size_t, pic_value *); pic_value pic_values_by_array(pic_state *, size_t, pic_value *);
pic_value pic_values_by_list(pic_state *, pic_value); pic_value pic_values_by_list(pic_state *, pic_value);
size_t pic_receive(pic_state *, size_t, pic_value *); size_t pic_receive(pic_state *, size_t, pic_value *);

38
src/cont.c
View File

@ -12,21 +12,39 @@
#include "picrin/pair.h" #include "picrin/pair.h"
pic_value pic_value
pic_values(pic_state *pic, size_t c, ...) pic_values0(pic_state *pic)
{ {
va_list ap; return pic_values_by_list(pic, pic_nil_value());
size_t i; }
va_start(ap, c); pic_value
pic_values1(pic_state *pic, pic_value arg1)
{
return pic_values_by_list(pic, pic_list1(pic, arg1));
}
for (i = 0; i < c; ++i) { pic_value
pic->sp[i] = va_arg(ap, pic_value); pic_values2(pic_state *pic, pic_value arg1, pic_value arg2)
} {
pic->ci->retc = c; return pic_values_by_list(pic, pic_list2(pic, arg1, arg2));
}
va_end(ap); pic_value
pic_values3(pic_state *pic, pic_value arg1, pic_value arg2, pic_value arg3)
{
return pic_values_by_list(pic, pic_list3(pic, arg1, arg2, arg3));
}
return c == 0 ? pic_none_value() : pic->sp[0]; pic_value
pic_values4(pic_state *pic, pic_value arg1, pic_value arg2, pic_value arg3, pic_value arg4)
{
return pic_values_by_list(pic, pic_list4(pic, arg1, arg2, arg3, arg4));
}
pic_value
pic_values5(pic_state *pic, pic_value arg1, pic_value arg2, pic_value arg3, pic_value arg4, pic_value arg5)
{
return pic_values_by_list(pic, pic_list5(pic, arg1, arg2, arg3, arg4, arg5));
} }
pic_value pic_value