add fixed-arity pic_values function
This commit is contained in:
parent
4b97ccbae8
commit
d91ae885b6
|
@ -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
38
src/cont.c
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue