112 lines
2.0 KiB
C
112 lines
2.0 KiB
C
/**
|
|
* See Copyright Notice in picrin.h
|
|
*/
|
|
|
|
#include <string.h>
|
|
|
|
#include "picrin.h"
|
|
#include "picrin/blob.h"
|
|
|
|
char *
|
|
pic_strndup(pic_state *pic, const char *s, size_t n)
|
|
{
|
|
char *r;
|
|
|
|
r = pic_alloc(pic, n + 1);
|
|
memcpy(r, s, n);
|
|
r[n] = '\0';
|
|
return r;
|
|
}
|
|
|
|
char *
|
|
pic_strdup(pic_state *pic, const char *s)
|
|
{
|
|
return pic_strndup(pic, s, strlen(s));
|
|
}
|
|
|
|
struct pic_blob *
|
|
pic_blob_new(pic_state *pic, char *dat, size_t len)
|
|
{
|
|
struct pic_blob *bv;
|
|
|
|
bv = (struct pic_blob *)pic_obj_alloc(pic, sizeof(struct pic_blob), PIC_TT_BLOB);
|
|
bv->data = pic_strndup(pic, dat, len);
|
|
bv->len = len;
|
|
return bv;
|
|
}
|
|
|
|
static pic_value
|
|
pic_blob_bytevector_p(pic_state *pic)
|
|
{
|
|
pic_value v;
|
|
|
|
pic_get_args(pic, "o", &v);
|
|
|
|
return pic_bool_value(pic_blob_p(v));
|
|
}
|
|
|
|
static pic_value
|
|
pic_blob_make_bytevector(pic_state *pic)
|
|
{
|
|
int k, b = 0, i;
|
|
char *dat;
|
|
|
|
pic_get_args(pic, "i|i", &k, &b);
|
|
|
|
if (b < 0 || b > 255)
|
|
pic_error(pic, "byte out of range");
|
|
|
|
dat = pic_alloc(pic, k);
|
|
for (i = 0; i < k; ++i) {
|
|
dat[i] = b;
|
|
}
|
|
|
|
return pic_obj_value(pic_blob_new(pic, dat, k));
|
|
}
|
|
|
|
static pic_value
|
|
pic_blob_bytevector_length(pic_state *pic)
|
|
{
|
|
struct pic_blob *bv;
|
|
|
|
pic_get_args(pic, "b", &bv);
|
|
|
|
return pic_int_value(bv->len);
|
|
}
|
|
|
|
static pic_value
|
|
pic_blob_bytevector_u8_ref(pic_state *pic)
|
|
{
|
|
struct pic_blob *bv;
|
|
int k;
|
|
|
|
pic_get_args(pic, "bi", &bv, &k);
|
|
|
|
return pic_int_value(bv->data[k]);
|
|
}
|
|
|
|
static pic_value
|
|
pic_blob_bytevector_u8_set(pic_state *pic)
|
|
{
|
|
struct pic_blob *bv;
|
|
int k, v;
|
|
|
|
pic_get_args(pic, "bii", &bv, &k, &v);
|
|
|
|
if (v < 0 || v > 255)
|
|
pic_error(pic, "byte out of range");
|
|
|
|
bv->data[k] = v;
|
|
return pic_none_value();
|
|
}
|
|
|
|
void
|
|
pic_init_blob(pic_state *pic)
|
|
{
|
|
pic_defun(pic, "bytevector?", pic_blob_bytevector_p);
|
|
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);
|
|
pic_defun(pic, "bytevector-u8-set!", pic_blob_bytevector_u8_set);
|
|
}
|