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

newline can take an optional argument

This commit is contained in:
Yuichi Nishiwaki 2014-01-13 01:47:46 +09:00
parent 19a561132e
commit a232defd00
1 changed files with 33 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
src/port.c
View File

@ -27,6 +27,16 @@ pic_stdin(pic_state *pic)
return pic_port_ptr(pic_apply(pic, proc, pic_nil_value()));
}
struct pic_port *
pic_stdout(pic_state *pic)
{
struct pic_proc *proc;
proc = pic_proc_ptr(pic_ref(pic, "current-output-port"));
return pic_port_ptr(pic_apply(pic, proc, pic_nil_value()));
}
static void write_pair(pic_state *pic, struct pic_pair *pair);
static void write_str(pic_state *pic, struct pic_string *str);
@ -297,23 +307,6 @@ pic_port_output_port_open_p(pic_state *pic)
return pic_bool_value(port->status == PIC_PORT_OPEN);
}
static pic_value
pic_port_write_simple(pic_state *pic)
{
pic_value v;
pic_get_args(pic, "o", &v);
write(pic, v);
return pic_none_value();
}
static pic_value
pic_port_newline(pic_state *pic)
{
puts("");
return pic_none_value();
}
static pic_value
pic_port_eof_object_p(pic_state *pic)
{
@ -412,6 +405,29 @@ pic_port_peek_char(pic_state *pic)
}
}
static pic_value
pic_port_newline(pic_state *pic)
{
struct pic_port *port = pic_stdout(pic);
pic_get_args(pic, "|p", &port);
assert_port_profile(port, PIC_PORT_OUT | PIC_PORT_TEXT, PIC_PORT_OPEN, "newline");
fputs("\n", port->file);
return pic_none_value();
}
static pic_value
pic_port_write_simple(pic_state *pic)
{
pic_value v;
pic_get_args(pic, "o", &v);
write(pic, v);
return pic_none_value();
}
void
pic_init_port(pic_state *pic)
{