102 #define SCM_CHARPORT_CLOSE(cport)        ((*(cport)->vptr->close)(cport))  argument
103 #define SCM_CHARPORT_CODEC(cport)        ((*(cport)->vptr->codec)(cport))  argument
105 #define SCM_CHARPORT_ENCODING(cport)                                         \  argument
106     (SCM_CHARCODEC_ENCODING(SCM_CHARPORT_CODEC(cport)))
107 #define SCM_CHARPORT_CCS(cport)                                              \  argument
108     (SCM_CHARCODEC_CCS(SCM_CHARPORT_CODEC(cport)))
110 #define SCM_CHARPORT_ENCODING(cport) ("ISO-8859-1")
111 #define SCM_CHARPORT_CCS(cport)      (SCM_CCS_ISO8859_1)
113 #define SCM_CHARPORT_INSPECT(cport)      ((*(cport)->vptr->inspect)(cport))  argument
114 #define SCM_CHARPORT_GET_CHAR(cport)     ((*(cport)->vptr->get_char)(cport))  argument
115 #define SCM_CHARPORT_PEEK_CHAR(cport)    ((*(cport)->vptr->peek_char)(cport))  argument
116 #define SCM_CHARPORT_CHAR_READYP(cport)  ((*(cport)->vptr->char_readyp)(cport))  argument
117 #define SCM_CHARPORT_PUTS(cport, str)                                        \  argument
118     ((*(cport)->vptr->puts)((cport), (str)))
119 #define SCM_CHARPORT_PUT_CHAR(cport, ch)                                     \  argument
120     ((*(cport)->vptr->put_char)((cport), (ch)))
121 #define SCM_CHARPORT_FLUSH(cport)        ((*(cport)->vptr->flush)(cport))  argument
146 typedef ScmCharPort *(*ScmCharPortMethod_dyn_cast)(ScmCharPort *cport, const ScmCharPortVTbl *dst_v…
147 typedef void (*ScmCharPortMethod_close)(ScmCharPort *cport);
148 typedef ScmCharCodec *(*ScmCharPortMethod_codec)(ScmCharPort *cport);
150 typedef char *(*ScmCharPortMethod_inspect)(ScmCharPort *cport);
153 typedef scm_ichar_t (*ScmCharPortMethod_get_char)(ScmCharPort *cport);
154 typedef scm_ichar_t (*ScmCharPortMethod_peek_char)(ScmCharPort *cport);
155 typedef scm_bool    (*ScmCharPortMethod_char_readyp)(ScmCharPort *cport);
158 typedef void (*ScmCharPortMethod_puts)(ScmCharPort *cport, const char *str);
159 typedef void (*ScmCharPortMethod_put_char)(ScmCharPort *cport, scm_ichar_t ch);
160 typedef void (*ScmCharPortMethod_flush)(ScmCharPort *cport);