From 0af0ecafb609e9e49efd78364115ab26d30f4f49 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Sun, 12 Jan 2014 23:57:50 +0900
Subject: [PATCH] add standard io ports

---
 src/port.c | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/src/port.c b/src/port.c
index e408b9e4..9646a5b4 100644
--- a/src/port.c
+++ b/src/port.c
@@ -155,6 +155,18 @@ pic_debug(pic_state *pic, pic_value obj)
   write(pic, obj);
 }
 
+static pic_value
+make_port_from_fp(pic_state *pic, FILE *fp, short flags)
+{
+  struct pic_port *port;
+
+  port = (struct pic_port *)pic_obj_alloc(pic, sizeof(struct pic_port), PIC_TT_PORT);
+  port->file = fp;
+  port->flags = flags;
+  port->status = PIC_PORT_OPEN;
+  return pic_obj_value(port);
+}
+
 static pic_value
 pic_port_input_port_p(pic_state *pic)
 {
@@ -327,6 +339,10 @@ pic_port_close_port(pic_state *pic)
 void
 pic_init_port(pic_state *pic)
 {
+  pic_defvar(pic, "current-input-port", make_port_from_fp(pic, stdin, PIC_PORT_IN | PIC_PORT_TEXT));
+  pic_defvar(pic, "current-output-port", make_port_from_fp(pic, stdout, PIC_PORT_OUT | PIC_PORT_TEXT));
+  pic_defvar(pic, "current-error-port", make_port_from_fp(pic, stderr, PIC_PORT_OUT | PIC_PORT_TEXT));
+
   pic_defun(pic, "input-port?", pic_port_input_port_p);
   pic_defun(pic, "output-port?", pic_port_output_port_p);
   pic_defun(pic, "textual-port?", pic_port_textual_port_p);