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

add port-open?

This commit is contained in:
Yuichi Nishiwaki 2014-09-09 02:12:51 +09:00
parent 92749325a9
commit 813ce064f3
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
port.c
View File

@ -206,6 +206,16 @@ pic_port_eof_object(pic_state *pic)
return pic_eof_object(); return pic_eof_object();
} }
static pic_value
pic_port_port_open_p(pic_state *pic)
{
struct pic_port *port;
pic_get_args(pic, "p", &port);
return pic_bool_value(port->status == PIC_PORT_OPEN);
}
static pic_value static pic_value
pic_port_close_port(pic_state *pic) pic_port_close_port(pic_state *pic)
{ {
@ -665,6 +675,8 @@ pic_init_port(pic_state *pic)
pic_defun(pic, "textual-port?", pic_port_textual_port_p); pic_defun(pic, "textual-port?", pic_port_textual_port_p);
pic_defun(pic, "binary-port?", pic_port_binary_port_p); pic_defun(pic, "binary-port?", pic_port_binary_port_p);
pic_defun(pic, "port?", pic_port_port_p); pic_defun(pic, "port?", pic_port_port_p);
pic_defun(pic, "port-open?", pic_port_port_open_p);
pic_defun(pic, "close-port", pic_port_close_port); pic_defun(pic, "close-port", pic_port_close_port);
/* string I/O */ /* string I/O */