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

add string procedure

This commit is contained in:
Yuichi Nishiwaki 2014-09-12 20:23:58 +09:00
parent a2f0d7f7ac
commit da07f08248
1 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
string.c
View File

@ -250,6 +250,30 @@ pic_str_string_p(pic_state *pic)
return pic_bool_value(pic_str_p(v));
}
static pic_value
pic_str_string(pic_state *pic)
{
size_t argc;
pic_value *argv;
pic_str *str;
char *buf;
size_t i;
pic_get_args(pic, "*", &argc, &argv);
buf = pic_alloc(pic, argc);
for (i = 0; i < argc; ++i) {
pic_assert_type(pic, argv[i], char);
buf[i] = pic_char(argv[i]);
}
str = pic_make_str(pic, buf, argc);
pic_free(pic, buf);
return pic_obj_value(str);
}
static pic_value
pic_str_make_string(pic_state *pic)
{
@ -457,6 +481,7 @@ void
pic_init_str(pic_state *pic)
{
pic_defun(pic, "string?", pic_str_string_p);
pic_defun(pic, "string", pic_str_string);
pic_defun(pic, "make-string", pic_str_make_string);
pic_defun(pic, "string-length", pic_str_string_length);
pic_defun(pic, "string-ref", pic_str_string_ref);