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

add bytevector procedure

This commit is contained in:
Yuichi Nishiwaki 2014-09-12 21:19:08 +09:00
parent 1b97362653
commit 0f2a172ffc
1 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
blob.c
View File

@ -46,6 +46,33 @@ pic_blob_bytevector_p(pic_state *pic)
return pic_bool_value(pic_blob_p(v));
}
static pic_value
pic_blob_bytevector(pic_state *pic)
{
pic_value *argv;
size_t argc, i;
pic_blob *blob;
char *data;
pic_get_args(pic, "*", &argc, &argv);
blob = pic_make_blob(pic, argc);
data = blob->data;
for (i = 0; i < argc; ++i) {
pic_assert_type(pic, argv[i], int);
if (pic_int(argv[i]) < 0 || pic_int(argv[i]) > 255) {
pic_error(pic, "byte out of range");
}
*data++ = pic_int(argv[i]);
}
return pic_obj_value(blob);
}
static pic_value
pic_blob_make_bytevector(pic_state *pic)
{
@ -235,6 +262,7 @@ void
pic_init_blob(pic_state *pic)
{
pic_defun(pic, "bytevector?", pic_blob_bytevector_p);
pic_defun(pic, "bytevector", pic_blob_bytevector);
pic_defun(pic, "make-bytevector", pic_blob_make_bytevector);
pic_defun(pic, "bytevector-length", pic_blob_bytevector_length);
pic_defun(pic, "bytevector-u8-ref", pic_blob_bytevector_u8_ref);