From bb93a8be1469604af15b447a4cbe078a1961154c Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Tue, 25 Feb 2014 21:07:32 +0900
Subject: [PATCH] catch up to XFILE changes

---
 extlib/xfile            |  2 +-
 include/picrin.h        |  2 +-
 include/picrin/port.h   |  2 +-
 include/picrin/string.h |  2 +-
 src/file.c              |  2 +-
 src/port.c              |  2 +-
 src/string.c            |  2 +-
 src/write.c             | 16 ++++++++--------
 8 files changed, 15 insertions(+), 15 deletions(-)

diff --git a/extlib/xfile b/extlib/xfile
index 0b01b3ea..476dadc8 160000
--- a/extlib/xfile
+++ b/extlib/xfile
@@ -1 +1 @@
-Subproject commit 0b01b3eab320022f8aef2f6982e0178d3061e89c
+Subproject commit 476dadc8f243488791acda8a6ecc208c4f4b95a7
diff --git a/include/picrin.h b/include/picrin.h
index 4aedbb40..9edf3826 100644
--- a/include/picrin.h
+++ b/include/picrin.h
@@ -210,7 +210,7 @@ void pic_warn(pic_state *, const char *);
 const char *pic_errmsg(pic_state *);
 
 pic_value pic_debug(pic_state *, pic_value);
-pic_value pic_fdebug(pic_state *, pic_value, XFILE *);
+pic_value pic_fdebug(pic_state *, pic_value, xFILE *);
 
 #if defined(__cplusplus)
 }
diff --git a/include/picrin/port.h b/include/picrin/port.h
index dd346d90..9fabf8ed 100644
--- a/include/picrin/port.h
+++ b/include/picrin/port.h
@@ -23,7 +23,7 @@ enum pic_port_status {
 
 struct pic_port {
   PIC_OBJECT_HEADER
-  XFILE *file;
+  xFILE *file;
   int flags;
   int status;
 };
diff --git a/include/picrin/string.h b/include/picrin/string.h
index 6fd5b32b..5dc81bf1 100644
--- a/include/picrin/string.h
+++ b/include/picrin/string.h
@@ -32,7 +32,7 @@ int pic_strcmp(pic_state *, pic_str *, pic_str *);
 
 pic_value pic_format(pic_state *, const char *, ...);
 pic_value pic_vformat(pic_state *, const char *, va_list);
-pic_value pic_vfformat(pic_state *, XFILE *, const char *, va_list);
+pic_value pic_vfformat(pic_state *, xFILE *, const char *, va_list);
 
 #if defined(__cplusplus)
 }
diff --git a/src/file.c b/src/file.c
index c68a1869..8f55a4d1 100644
--- a/src/file.c
+++ b/src/file.c
@@ -9,7 +9,7 @@ static pic_value
 generic_open_file(pic_state *pic, const char *fname, char *mode, short flags)
 {
   struct pic_port *port;
-  XFILE *file;
+  xFILE *file;
 
   file = xfopen(fname, mode);
   if (! file) {
diff --git a/src/port.c b/src/port.c
index 2f460d82..ae40285a 100644
--- a/src/port.c
+++ b/src/port.c
@@ -43,7 +43,7 @@ pic_stdout(pic_state *pic)
 }
 
 static pic_value
-port_new_stdport(pic_state *pic, XFILE *file, short dir)
+port_new_stdport(pic_state *pic, xFILE *file, short dir)
 {
   struct pic_port *port;
 
diff --git a/src/string.c b/src/string.c
index 9b0004d3..b6345ed0 100644
--- a/src/string.c
+++ b/src/string.c
@@ -112,7 +112,7 @@ pic_strcmp(pic_state *pic, pic_str *str1, pic_str *str2)
 }
 
 pic_value
-pic_vfformat(pic_state *pic, XFILE *file, const char *fmt, va_list ap)
+pic_vfformat(pic_state *pic, xFILE *file, const char *fmt, va_list ap)
 {
   char c;
   pic_value irrs = pic_nil_value();
diff --git a/src/write.c b/src/write.c
index 80756369..3adcda38 100644
--- a/src/write.c
+++ b/src/write.c
@@ -44,14 +44,14 @@ is_quasiquote(pic_state *pic, pic_value pair)
 
 struct writer_control {
   pic_state *pic;
-  XFILE *file;
+  xFILE *file;
   xhash *labels;
   xhash *visited;
   int cnt;
 };
 
 static struct writer_control *
-writer_control_new(pic_state *pic, XFILE *file)
+writer_control_new(pic_state *pic, xFILE *file)
 {
   struct writer_control *p;
 
@@ -152,7 +152,7 @@ write_pair(struct writer_control *p, struct pic_pair *pair)
 }
 
 static void
-write_str(pic_state *pic, struct pic_string *str, XFILE *file)
+write_str(pic_state *pic, struct pic_string *str, xFILE *file)
 {
   size_t i;
   const char *cstr = str->str;
@@ -171,7 +171,7 @@ static void
 write_core(struct writer_control *p, pic_value obj)
 {
   pic_state *pic = p->pic;
-  XFILE *file = p->file;
+  xFILE *file = p->file;
   size_t i;
   xh_entry *e;
 
@@ -316,7 +316,7 @@ write_core(struct writer_control *p, pic_value obj)
 }
 
 static void
-write(pic_state *pic, pic_value obj, XFILE *file)
+write(pic_state *pic, pic_value obj, xFILE *file)
 {
   struct writer_control *p;
 
@@ -330,7 +330,7 @@ write(pic_state *pic, pic_value obj, XFILE *file)
 }
 
 static void
-write_simple(pic_state *pic, pic_value obj, XFILE *file)
+write_simple(pic_state *pic, pic_value obj, xFILE *file)
 {
   struct writer_control *p;
 
@@ -344,7 +344,7 @@ write_simple(pic_state *pic, pic_value obj, XFILE *file)
 }
 
 static void
-write_shared(pic_state *pic, pic_value obj, XFILE *file)
+write_shared(pic_state *pic, pic_value obj, xFILE *file)
 {
   struct writer_control *p;
 
@@ -364,7 +364,7 @@ pic_debug(pic_state *pic, pic_value obj)
 }
 
 pic_value
-pic_fdebug(pic_state *pic, pic_value obj, XFILE *file)
+pic_fdebug(pic_state *pic, pic_value obj, xFILE *file)
 {
   write(pic, obj, file);
   xfflush(file);