add open-input-bytevector

This commit is contained in:
Yuichi Nishiwaki 2014-02-09 02:41:52 +09:00
parent 3d0657074f
commit 7187e4e982
1 changed files with 19 additions and 0 deletions

View File

@ -282,6 +282,24 @@ pic_port_get_output_string(pic_state *pic)
return pic_obj_value(pic_str_new(pic, buf, endpos));
}
static pic_value
pic_port_open_input_blob(pic_state *pic)
{
struct pic_port *port;
struct pic_blob *blob;
pic_get_args(pic, "b", &blob);
port = (struct pic_port *)pic_obj_alloc(pic, sizeof(struct pic_port *), PIC_TT_PORT);
port->file = xmopen();
port->flags = PIC_PORT_IN | PIC_PORT_BINARY;
port->status = PIC_PORT_OPEN;
xfwrite(blob->data, 1, blob->len, port->file);
return pic_obj_value(port);
}
static pic_value
pic_port_read_char(pic_state *pic)
{
@ -448,6 +466,7 @@ pic_init_port(pic_state *pic)
pic_defun(pic, "open-input-string", pic_port_open_input_string);
pic_defun(pic, "open-output-string", pic_port_open_output_string);
pic_defun(pic, "get-output-string", pic_port_get_output_string);
pic_defun(pic, "open-input-bytevector", pic_port_open_input_blob);
/* input */
pic_defun(pic, "read-char", pic_port_read_char);