[uim-commit] r1894 - branches/r5rs/sigscheme

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-10-30 01:24:33 -0700 (Sun, 30 Oct 2005)
New Revision: 1894

Modified:
   branches/r5rs/sigscheme/fileport.c
   branches/r5rs/sigscheme/fileport.h
Log:
* sigscheme/fileport.h
  - (Scm_fileport_init): New function decl
* sigscheme/fileport.c
  - (Scm_fileport_init): New function


Modified: branches/r5rs/sigscheme/fileport.c
===================================================================
--- branches/r5rs/sigscheme/fileport.c	2005-10-30 07:53:11 UTC (rev 1893)
+++ branches/r5rs/sigscheme/fileport.c	2005-10-30 08:24:33 UTC (rev 1894)
@@ -103,6 +103,15 @@
   Function Implementations
 =======================================*/
 
+/*
+ * Client code must call this first even if current implementation does not
+ * contain actual code.
+ */
+void Scm_fileport_init(void)
+{
+    return;
+}
+
 ScmBytePort *
 ScmFilePort_new(FILE *file)
 {

Modified: branches/r5rs/sigscheme/fileport.h
===================================================================
--- branches/r5rs/sigscheme/fileport.h	2005-10-30 07:53:11 UTC (rev 1893)
+++ branches/r5rs/sigscheme/fileport.h	2005-10-30 08:24:33 UTC (rev 1894)
@@ -67,6 +67,8 @@
 /*=======================================
    Function Declarations
 =======================================*/
+void Scm_fileport_init(void);
+
 /* FIXME: add a creator takes pathname */
 ScmBytePort *ScmFilePort_new(FILE *file);