port 51 ext/binary/binary.h extern ScmObj Scm_ReadBinaryUint8(ScmObj port, Endian endian); port 52 ext/binary/binary.h extern ScmObj Scm_ReadBinaryUint16(ScmObj port, Endian endian); port 53 ext/binary/binary.h extern ScmObj Scm_ReadBinaryUint32(ScmObj port, Endian endian); port 54 ext/binary/binary.h extern ScmObj Scm_ReadBinaryUint64(ScmObj port, Endian endian); port 55 ext/binary/binary.h extern ScmObj Scm_ReadBinarySint8(ScmObj port, Endian endian); port 56 ext/binary/binary.h extern ScmObj Scm_ReadBinarySint16(ScmObj port, Endian endian); port 57 ext/binary/binary.h extern ScmObj Scm_ReadBinarySint32(ScmObj port, Endian endian); port 58 ext/binary/binary.h extern ScmObj Scm_ReadBinarySint64(ScmObj port, Endian endian); port 60 ext/binary/binary.h extern ScmObj Scm_ReadBinaryFloat(ScmObj port, Endian endian); port 61 ext/binary/binary.h extern ScmObj Scm_ReadBinaryDouble(ScmObj port, Endian endian); port 63 ext/binary/binary.h extern void Scm_WriteBinaryUint8(ScmObj val, ScmObj port, Endian endian); port 64 ext/binary/binary.h extern void Scm_WriteBinaryUint16(ScmObj val, ScmObj port, Endian endian); port 65 ext/binary/binary.h extern void Scm_WriteBinaryUint32(ScmObj val, ScmObj port, Endian endian); port 66 ext/binary/binary.h extern void Scm_WriteBinaryUint64(ScmObj val, ScmObj port, Endian endian); port 67 ext/binary/binary.h extern void Scm_WriteBinarySint8(ScmObj val, ScmObj port, Endian endian); port 68 ext/binary/binary.h extern void Scm_WriteBinarySint16(ScmObj val, ScmObj port, Endian endian); port 69 ext/binary/binary.h extern void Scm_WriteBinarySint32(ScmObj val, ScmObj port, Endian endian); port 70 ext/binary/binary.h extern void Scm_WriteBinarySint64(ScmObj val, ScmObj port, Endian endian); port 72 ext/binary/binary.h extern void Scm_WriteBinaryFloat(ScmObj val, ScmObj port, Endian endian); port 73 ext/binary/binary.h extern void Scm_WriteBinaryDouble(ScmObj val, ScmObj port, Endian endian); port 42 ext/binary/binarylib.c ScmObj port; port 54 ext/binary/binarylib.c port = (port_scm); port 64 ext/binary/binarylib.c SCM_RESULT = Scm_ReadBinaryUint8(port, endian); port 76 ext/binary/binarylib.c ScmObj port; port 88 ext/binary/binarylib.c port = (port_scm); port 98 ext/binary/binarylib.c SCM_RESULT = Scm_ReadBinaryUint16(port, endian); port 110 ext/binary/binarylib.c ScmObj port; port 122 ext/binary/binarylib.c port = (port_scm); port 132 ext/binary/binarylib.c SCM_RESULT = Scm_ReadBinaryUint32(port, endian); port 144 ext/binary/binarylib.c ScmObj port; port 156 ext/binary/binarylib.c port = (port_scm); port 166 ext/binary/binarylib.c SCM_RESULT = Scm_ReadBinaryUint64(port, endian); port 178 ext/binary/binarylib.c ScmObj port; port 190 ext/binary/binarylib.c port = (port_scm); port 200 ext/binary/binarylib.c SCM_RESULT = Scm_ReadBinarySint8(port, endian); port 212 ext/binary/binarylib.c ScmObj port; port 224 ext/binary/binarylib.c port = (port_scm); port 234 ext/binary/binarylib.c SCM_RESULT = Scm_ReadBinarySint16(port, endian); port 246 ext/binary/binarylib.c ScmObj port; port 258 ext/binary/binarylib.c port = (port_scm); port 268 ext/binary/binarylib.c SCM_RESULT = Scm_ReadBinarySint32(port, endian); port 280 ext/binary/binarylib.c ScmObj port; port 292 ext/binary/binarylib.c port = (port_scm); port 302 ext/binary/binarylib.c SCM_RESULT = Scm_ReadBinarySint64(port, endian); port 316 ext/binary/binarylib.c ScmObj port; port 331 ext/binary/binarylib.c port = (port_scm); port 339 ext/binary/binarylib.c Scm_WriteBinaryUint8(intval, port, endian); port 352 ext/binary/binarylib.c ScmObj port; port 367 ext/binary/binarylib.c port = (port_scm); port 375 ext/binary/binarylib.c Scm_WriteBinaryUint16(intval, port, endian); port 388 ext/binary/binarylib.c ScmObj port; port 403 ext/binary/binarylib.c port = (port_scm); port 411 ext/binary/binarylib.c Scm_WriteBinaryUint32(intval, port, endian); port 424 ext/binary/binarylib.c ScmObj port; port 439 ext/binary/binarylib.c port = (port_scm); port 447 ext/binary/binarylib.c Scm_WriteBinaryUint64(intval, port, endian); port 460 ext/binary/binarylib.c ScmObj port; port 475 ext/binary/binarylib.c port = (port_scm); port 483 ext/binary/binarylib.c Scm_WriteBinarySint8(intval, port, endian); port 496 ext/binary/binarylib.c ScmObj port; port 511 ext/binary/binarylib.c port = (port_scm); port 519 ext/binary/binarylib.c Scm_WriteBinarySint16(intval, port, endian); port 532 ext/binary/binarylib.c ScmObj port; port 547 ext/binary/binarylib.c port = (port_scm); port 555 ext/binary/binarylib.c Scm_WriteBinarySint32(intval, port, endian); port 568 ext/binary/binarylib.c ScmObj port; port 583 ext/binary/binarylib.c port = (port_scm); port 591 ext/binary/binarylib.c Scm_WriteBinarySint64(intval, port, endian); port 602 ext/binary/binarylib.c ScmObj port; port 614 ext/binary/binarylib.c port = (port_scm); port 624 ext/binary/binarylib.c SCM_RESULT = Scm_ReadBinaryFloat(port, endian); port 636 ext/binary/binarylib.c ScmObj port; port 648 ext/binary/binarylib.c port = (port_scm); port 658 ext/binary/binarylib.c SCM_RESULT = Scm_ReadBinaryDouble(port, endian); port 672 ext/binary/binarylib.c ScmObj port; port 687 ext/binary/binarylib.c port = (port_scm); port 695 ext/binary/binarylib.c Scm_WriteBinaryFloat(val, port, endian); port 708 ext/binary/binarylib.c ScmObj port; port 723 ext/binary/binarylib.c port = (port_scm); port 731 ext/binary/binarylib.c Scm_WriteBinaryDouble(val, port, endian); port 121 ext/charconv/charconv.c static int conv_fileno(ScmPort *port) port 123 ext/charconv/charconv.c ScmConvInfo *info = (ScmConvInfo*)port->src.buf.data; port 127 ext/charconv/charconv.c static int conv_ready(ScmPort *port) port 129 ext/charconv/charconv.c ScmConvInfo *info = (ScmConvInfo*)port->src.buf.data; port 149 ext/charconv/charconv.c static int conv_input_filler(ScmPort *port, int mincnt) port 151 ext/charconv/charconv.c ScmConvInfo *info = (ScmConvInfo*)port->src.buf.data; port 155 ext/charconv/charconv.c char *outbuf = port->src.buf.end; port 167 ext/charconv/charconv.c outroom = SCM_PORT_BUFFER_ROOM(port); port 194 ext/charconv/charconv.c outroom = SCM_PORT_BUFFER_ROOM(port); port 345 ext/charconv/charconv.c static void conv_output_closer(ScmPort *port) port 347 ext/charconv/charconv.c ScmConvInfo *info = (ScmConvInfo*)port->src.buf.data; port 377 ext/charconv/charconv.c static int conv_output_flusher(ScmPort *port, int cnt, int forcep) port 379 ext/charconv/charconv.c ScmConvInfo *info = (ScmConvInfo*)port->src.buf.data; port 384 ext/charconv/charconv.c inbuf = port->src.buf.buffer; port 385 ext/charconv/charconv.c inroom = len = SCM_PORT_BUFFER_AVAIL(port); port 22 ext/dbm/bdbm.c static void bsddb_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx); port 29 ext/dbm/bdbm.c static void bsddb_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) port 38 ext/dbm/bdbm.c Scm_Printf(port, "#<bsd-db:%s %S>", type, SCM_BSD_DB(obj)->name); port 32 ext/net/addr.c static void sockaddr_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx); port 45 ext/net/addr.c void sockaddr_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) port 47 ext/net/addr.c Scm_Printf(port, "#<sockaddr %S %S>", port 156 ext/net/addr.c ScmObj port = Scm_GetKeyword(key_port, initargs, SCM_MAKE_INT(0)); port 159 ext/net/addr.c if (!SCM_INTP(port)) { port 161 ext/net/addr.c port); port 170 ext/net/addr.c addr->addr.sin_port = htons(SCM_INT_VALUE(port)); port 217 ext/net/addr.c ScmObj port = Scm_GetKeyword(key_port, initargs, SCM_MAKE_INT(0)); port 220 ext/net/addr.c if (!SCM_INTP(port)) { port 222 ext/net/addr.c port); port 231 ext/net/addr.c addr->addr.sin6_port = htons(SCM_INT_VALUE(port)); port 241 ext/net/gauche/net.h ScmObj port; port 251 ext/net/gauche/net.h extern ScmObj Scm_GetServByPort(int port, const char *proto); port 45 ext/net/net.c static void socket_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx); port 61 ext/net/net.c static void socket_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) port 64 ext/net/net.c Scm_Printf(port, "#<socket"); port 69 ext/net/net.c Scm_Printf(port, " (bound %S)", Scm_SockAddrName(sock->address)); port 72 ext/net/net.c Scm_Printf(port, " (listen %S)", Scm_SockAddrName(sock->address)); port 75 ext/net/net.c Scm_Printf(port, " (connect %S)", Scm_SockAddrName(sock->address)); port 78 ext/net/net.c Scm_Printf(port, " (shutdown)"); port 81 ext/net/net.c Scm_Printf(port, " (closed)"); port 84 ext/net/net.c Scm_Printf(port, " (unknown status)"); port 87 ext/net/net.c Scm_Printf(port, ">"); port 362 ext/net/netdb.c entry->port = Scm_MakeInteger(ntohs(se->s_port)); port 407 ext/net/netdb.c ScmObj Scm_GetServByPort(int port, const char *proto) port 418 ext/net/netdb.c if (getservbyport_r(htons(port), proto, &se, buf, bufsiz) != NULL) port 425 ext/net/netdb.c getservbyport_r(htons(port), proto, &se, buf, bufsiz, &rse); port 442 ext/net/netdb.c getservbyport(htons(port), proto); port 461 ext/net/netdb.c return entry->port; port 1108 ext/net/netlib.c int port; port 1114 ext/net/netlib.c port = SCM_INT_VALUE(port_scm); port 1121 ext/net/netlib.c SCM_RESULT = Scm_GetServByPort(port, proto); port 47 ext/threads/mutex.c static void mutex_print(ScmObj mutex, ScmPort *port, ScmWriteContext *ctx); port 86 ext/threads/mutex.c static void mutex_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) port 99 ext/threads/mutex.c if (SCM_FALSEP(name)) Scm_Printf(port, "#<mutex %p ", mutex); port 100 ext/threads/mutex.c else Scm_Printf(port, "#<mutex %S ", name); port 104 ext/threads/mutex.c Scm_Printf(port, "unlocked/abandoned>"); port 106 ext/threads/mutex.c Scm_Printf(port, "locked/owned by %S>", vm); port 109 ext/threads/mutex.c Scm_Printf(port, "locked/not-owned>"); port 112 ext/threads/mutex.c Scm_Printf(port, "unlocked/not-abandoned>"); port 265 ext/threads/mutex.c static void cv_print(ScmObj cv, ScmPort *port, ScmWriteContext *ctx); port 296 ext/threads/mutex.c static void cv_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) port 300 ext/threads/mutex.c if (SCM_FALSEP(name)) Scm_Printf(port, "#<condition-variable %p>", cv); port 301 ext/threads/mutex.c else Scm_Printf(port, "#<condition-variable %S>", name); port 629 ext/threads/thrlib.c static void thread_exception_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) port 634 ext/threads/thrlib.c Scm_Printf(port, "#<%A %S>", Scm__InternalClassName(k), SCM_OBJ_SAFE(exc->thread)); port 636 ext/threads/thrlib.c Scm_Printf(port, "#<%A %S %S>", Scm__InternalClassName(k), SCM_OBJ_SAFE(exc->thread), exc->data); port 639 ext/threads/thrlib.c static void uncaught_exception_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) port 642 ext/threads/thrlib.c Scm_Printf(port, "#<uncaught-exception in thread %S: %S>", SCM_OBJ_SAFE(exc->thread), exc->data); port 644 ext/threads/thrlib.c static void terminated_thread_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) port 647 ext/threads/thrlib.c Scm_Printf(port, "#<terminated-thread-exception: %S terminated by %S>", SCM_OBJ_SAFE(exc->thread), exc->data); port 84 ext/uvector/gauche/uvector.h extern ScmObj Scm_ReadBlockX(ScmUVector *v, ScmPort *port, port 86 ext/uvector/gauche/uvector.h extern ScmObj Scm_WriteBlock(ScmUVector *v, ScmPort *port, port 9680 ext/uvector/uvector.c ScmObj Scm_ReadBlockX(ScmUVector *v, ScmPort *port, port 9692 ext/uvector/uvector.c (end-start)*eltsize, port); port 9706 ext/uvector/uvector.c ScmObj Scm_WriteBlock(ScmUVector *v, ScmPort *port, port 9722 ext/uvector/uvector.c (end-start)*eltsize, port); port 9736 ext/uvector/uvector.c Scm_Putz((const char*)d.c, 2, port); port 9747 ext/uvector/uvector.c Scm_Putz((const char*)d.c, 4, port); port 9758 ext/uvector/uvector.c Scm_Putz((const char*)d.c, 8, port); port 44 ext/uvector/uvinit.c static ScmObj read_uvector(ScmPort *port, const char *tag, port 50 ext/uvector/uvinit.c SCM_GETC(c, port); port 52 ext/uvector/uvinit.c list = Scm_ReadList(SCM_OBJ(port), ')'); port 76 ext/uvector/uvinit.c SCM_EXTERN ScmObj (*Scm_ReadUvectorHook)(ScmPort *port, const char *tag, port 8954 ext/uvector/uvlib.c ScmPort* port; port 8974 ext/uvector/uvlib.c port = SCM_PORT(port_scm); port 8998 ext/uvector/uvlib.c SCM_RESULT = Scm_ReadBlockX(v, port, start, end, endian); port 9012 ext/uvector/uvlib.c ScmPort* port; port 9032 ext/uvector/uvlib.c port = SCM_PORT(port_scm); port 9056 ext/uvector/uvlib.c SCM_RESULT = Scm_WriteBlock(v, port, start, end, endian); port 46 ext/vport/vport.c static void vport_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx); port 360 ext/vport/vport.c ScmObj port; port 395 ext/vport/vport.c port = Scm_MakeVirtualPort(klass, dir, &vtab); port 396 ext/vport/vport.c SCM_PORT(port)->src.vt.data = data; port 397 ext/vport/vport.c return port; port 400 ext/vport/vport.c static void vport_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) port 402 ext/vport/vport.c Scm_Printf(port, "#<%A%s %A %p>", port 613 ext/vport/vport.c ScmObj port; port 653 ext/vport/vport.c port = Scm_MakeBufferedPort(klass, SCM_FALSE, dir, TRUE, &buf); port 654 ext/vport/vport.c return port; port 3733 gc/os_dep.c mach_port_t port; port 3745 gc/os_dep.c port = GC_old_exc_ports.ports[i]; port 3757 gc/os_dep.c r = exception_raise(port,thread,task,exception,data,data_count); port 3760 gc/os_dep.c r = exception_raise_state(port,thread,task,exception,data, port 3765 gc/os_dep.c r = exception_raise_state_identity(port,thread,task,exception,data, port 316 src/char.c ScmChar Scm_ReadXdigitsFromPort(ScmPort *port, int ndigits, port 322 src/char.c SCM_GETC(c, port); port 326 src/char.c SCM_UNGETC(c, port); port 584 src/char.c void Scm_CharSetDump(ScmCharSet *cs, ScmPort *port) port 588 src/char.c Scm_Printf(port, "CharSet %p\nmask:", cs); port 590 src/char.c Scm_Printf(port, "[%08x]", cs->mask[i]); port 591 src/char.c Scm_Printf(port, "\nranges:"); port 593 src/char.c Scm_Printf(port, "(%d-%d)", r->lo, r->hi); port 594 src/char.c Scm_Printf(port, "\n"); port 603 src/char.c static ScmChar read_charset_xdigits(ScmPort *port, int ndigs, int key) port 609 src/char.c r = Scm_ReadXdigitsFromPort(port, ndigs, buf, &nread); port 616 src/char.c SCM_GETC(c, port); port 618 src/char.c if (c == '\\') SCM_GETC(c, port); port 394 src/class.c static void class_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) port 396 src/class.c Scm_Printf(port, "#<class %A>", SCM_CLASS(obj)->name); port 1920 src/class.c static void generic_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) port 1922 src/class.c Scm_Printf(port, "#<generic %S (%d)>", port 2149 src/class.c static void method_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) port 2151 src/class.c Scm_Printf(port, "#<method %S>", SCM_METHOD(obj)->common.info); port 2460 src/class.c static void accessor_method_print(ScmObj obj, ScmPort *port, port 2463 src/class.c Scm_Printf(port, "#<accessor-method %S>", SCM_METHOD(obj)->common.info); port 98 src/compaux.c static void synclo_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) port 100 src/compaux.c Scm_Printf(port, "#<syntactic-closure %S>", port 142 src/compaux.c static void identifier_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) port 152 src/compaux.c Scm_Printf(port, "#<identifier %S#%S>", id->module->name, id->name); port 46 src/error.c static void message_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx); port 87 src/error.c static void message_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) port 90 src/error.c Scm_Printf(port, "#<%A \"%30.1A\">", port 177 src/error.c e->port = NULL; /* set by initialize */ port 187 src/error.c e->port = NULL; /* set by initialize */ port 206 src/error.c if (obj->port) return SCM_OBJ(obj->port); port 213 src/error.c obj->port = SCM_PORT(val); port 216 src/error.c obj->port = NULL; port 249 src/error.c return obj->port? SCM_OBJ(obj->port) : SCM_FALSE; port 257 src/error.c obj->port = SCM_FALSEP(val)? NULL : SCM_PORT(val); port 405 src/error.c ScmObj Scm_MakeReadError(ScmObj message, ScmPort *port, int line) port 410 src/error.c e->port = port; port 583 src/error.c void Scm_PortError(ScmPort *port, int reason, const char *msg, ...) port 617 src/error.c SCM_PORT_ERROR(pe)->port = port; port 3480 src/extlib.c ScmPort* port; port 3486 src/extlib.c port = SCM_PORT(port_scm); port 3492 src/extlib.c SCM_RESULT = (Scm_WithPort(&port, thunk, SCM_PORT_CURIN, FALSE)); port 3504 src/extlib.c ScmPort* port; port 3510 src/extlib.c port = SCM_PORT(port_scm); port 3516 src/extlib.c SCM_RESULT = (Scm_WithPort(&port, thunk, SCM_PORT_CUROUT, FALSE)); port 3528 src/extlib.c ScmPort* port; port 3534 src/extlib.c port = SCM_PORT(port_scm); port 3540 src/extlib.c SCM_RESULT = (Scm_WithPort(&port, thunk, SCM_PORT_CURERR, FALSE)); port 3552 src/extlib.c ScmPort* port; port 3556 src/extlib.c port = SCM_PORT(port_scm); port 3560 src/extlib.c SCM_RESULT = Scm_PortName(port); port 3572 src/extlib.c ScmPort* port; port 3576 src/extlib.c port = SCM_PORT(port_scm); port 3580 src/extlib.c SCM_RESULT = Scm_PortLine(port); port 3592 src/extlib.c ScmPort* port; port 3596 src/extlib.c port = SCM_PORT(port_scm); port 3598 src/extlib.c int i = Scm_PortFileNo(port); port 3615 src/extlib.c ScmPort* port; port 3626 src/extlib.c port = SCM_PORT(port_scm); port 3640 src/extlib.c SCM_RESULT = Scm_PortSeek(port, offset, whence); port 3658 src/extlib.c ScmPort* port; port 3662 src/extlib.c port = SCM_PORT(port_scm); port 3665 src/extlib.c switch (SCM_PORT_TYPE(port)) { port 3681 src/extlib.c ScmPort* port; port 3687 src/extlib.c port = SCM_PORT(port_scm); port 3691 src/extlib.c if (SCM_PORT_TYPE(port) != SCM_PORT_FILE) { port 3692 src/extlib.c Scm_Error("can't set buffering mode to non-buffered port: %S", port); port 3694 src/extlib.c port->src.buf.mode = Scm_BufferingMode(mode, port->direction, -1); port 3705 src/extlib.c ScmPort* port; port 3709 src/extlib.c port = SCM_PORT(port_scm); port 3713 src/extlib.c SCM_RESULT = Scm_GetBufferingMode(port); port 3793 src/extlib.c ScmPort* port; port 3799 src/extlib.c port = SCM_PORT(port_scm); port 3805 src/extlib.c SCM_RESULT = Scm_VMWithPortLocking(port, proc); port 3817 src/extlib.c ScmPort* port; port 3821 src/extlib.c port = SCM_PORT(port_scm); port 3825 src/extlib.c SCM_GETB(b, port); port 3839 src/extlib.c ScmPort* port; port 3843 src/extlib.c port = SCM_PORT(port_scm); port 3847 src/extlib.c SCM_RESULT = Scm_ByteReady(port); port 3859 src/extlib.c ScmPort* port; port 3870 src/extlib.c port = SCM_PORT(port_scm); port 3872 src/extlib.c int b; SCM_GETB(b, port); port 3883 src/extlib.c ScmPort* port; port 3894 src/extlib.c port = SCM_PORT(port_scm); port 3896 src/extlib.c int b = Scm_Peekb(port); port 3907 src/extlib.c ScmPort* port; port 3920 src/extlib.c port = SCM_PORT(port_scm); port 3928 src/extlib.c ScmObj r = Scm_ReadLine(port); port 3930 src/extlib.c Scm_ReadError(port, "read-line: encountered illegal byte sequence: %S", r); port 3944 src/extlib.c ScmPort* port; port 3958 src/extlib.c port = SCM_PORT(port_scm); port 3964 src/extlib.c nread = Scm_Getz(buf, bytes, port); port 3981 src/extlib.c ScmObj port; port 3994 src/extlib.c port = (port_scm); port 3996 src/extlib.c SCM_RETURN(Scm_ReadList(port, closer)); port 4099 src/extlib.c ScmPort* port; port 4113 src/extlib.c port = SCM_PORT(port_scm); port 4116 src/extlib.c SCM_PUTB(byte, port); port 4131 src/extlib.c ScmObj port; port 4146 src/extlib.c port = (port_scm); port 4148 src/extlib.c int n = Scm_WriteLimited(obj, port, SCM_WRITE_WRITE, limit); port 4161 src/extlib.c ScmObj port; port 4173 src/extlib.c port = (port_scm); port 4175 src/extlib.c int n = Scm_WriteCircular(obj, port, SCM_WRITE_WRITE, 0); port 5228 src/extlib.c ScmPort* port; port 5238 src/extlib.c port = SCM_PORT(port_scm); port 5248 src/extlib.c Scm_Format(port, fmt, args, shared); port 5280 src/extlib.c static void Scm_VMClass_PRINT(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) port 5291 src/extlib.c Scm_Printf(port, "#<thread %S %s %p>", vm->name, state, vm); port 877 src/gauche.h SCM_EXTERN ScmChar Scm_ReadXdigitsFromPort(ScmPort *port, int ndigits, port 1470 src/gauche.h SCM_EXTERN ScmObj Scm_GetBufferingMode(ScmPort *port); port 1480 src/gauche.h SCM_EXTERN ScmObj Scm_GetOutputString(ScmPort *port); port 1481 src/gauche.h SCM_EXTERN ScmObj Scm_GetOutputStringUnsafe(ScmPort *port); port 1482 src/gauche.h SCM_EXTERN ScmObj Scm_GetRemainingInputString(ScmPort *port); port 1498 src/gauche.h SCM_EXTERN ScmObj Scm_PortName(ScmPort *port); port 1499 src/gauche.h SCM_EXTERN int Scm_PortLine(ScmPort *port); port 1500 src/gauche.h SCM_EXTERN ScmObj Scm_PortSeek(ScmPort *port, ScmObj off, int whence); port 1501 src/gauche.h SCM_EXTERN ScmObj Scm_PortSeekUnsafe(ScmPort *port, ScmObj off, int whence); port 1502 src/gauche.h SCM_EXTERN int Scm_PortFileNo(ScmPort *port); port 1504 src/gauche.h SCM_EXTERN int Scm_ByteReady(ScmPort *port); port 1505 src/gauche.h SCM_EXTERN int Scm_ByteReadyUnsafe(ScmPort *port); port 1506 src/gauche.h SCM_EXTERN int Scm_CharReady(ScmPort *port); port 1507 src/gauche.h SCM_EXTERN int Scm_CharReadyUnsafe(ScmPort *port); port 1509 src/gauche.h SCM_EXTERN void Scm_ClosePort(ScmPort *port); port 1511 src/gauche.h SCM_EXTERN ScmObj Scm_VMWithPortLocking(ScmPort *port, port 1514 src/gauche.h SCM_EXTERN void Scm_Putb(ScmByte b, ScmPort *port); port 1515 src/gauche.h SCM_EXTERN void Scm_Putc(ScmChar c, ScmPort *port); port 1516 src/gauche.h SCM_EXTERN void Scm_Puts(ScmString *s, ScmPort *port); port 1517 src/gauche.h SCM_EXTERN void Scm_Putz(const char *s, int len, ScmPort *port); port 1518 src/gauche.h SCM_EXTERN void Scm_Flush(ScmPort *port); port 1520 src/gauche.h SCM_EXTERN void Scm_PutbUnsafe(ScmByte b, ScmPort *port); port 1521 src/gauche.h SCM_EXTERN void Scm_PutcUnsafe(ScmChar c, ScmPort *port); port 1522 src/gauche.h SCM_EXTERN void Scm_PutsUnsafe(ScmString *s, ScmPort *port); port 1523 src/gauche.h SCM_EXTERN void Scm_PutzUnsafe(const char *s, int len, ScmPort *port); port 1524 src/gauche.h SCM_EXTERN void Scm_FlushUnsafe(ScmPort *port); port 1526 src/gauche.h SCM_EXTERN void Scm_Ungetc(ScmChar ch, ScmPort *port); port 1527 src/gauche.h SCM_EXTERN void Scm_Ungetb(int b, ScmPort *port); port 1528 src/gauche.h SCM_EXTERN int Scm_Getb(ScmPort *port); port 1529 src/gauche.h SCM_EXTERN int Scm_Getc(ScmPort *port); port 1530 src/gauche.h SCM_EXTERN int Scm_Getz(char *buf, int buflen, ScmPort *port); port 1531 src/gauche.h SCM_EXTERN ScmChar Scm_Peekc(ScmPort *port); port 1532 src/gauche.h SCM_EXTERN int Scm_Peekb(ScmPort *port); port 1534 src/gauche.h SCM_EXTERN void Scm_UngetcUnsafe(ScmChar ch, ScmPort *port); port 1535 src/gauche.h SCM_EXTERN void Scm_UngetbUnsafe(int b, ScmPort *port); port 1536 src/gauche.h SCM_EXTERN int Scm_GetbUnsafe(ScmPort *port); port 1537 src/gauche.h SCM_EXTERN int Scm_GetcUnsafe(ScmPort *port); port 1538 src/gauche.h SCM_EXTERN int Scm_GetzUnsafe(char *buf, int buflen, ScmPort *port); port 1539 src/gauche.h SCM_EXTERN ScmChar Scm_PeekcUnsafe(ScmPort *port); port 1540 src/gauche.h SCM_EXTERN int Scm_PeekbUnsafe(ScmPort *port); port 1542 src/gauche.h SCM_EXTERN ScmObj Scm_ReadLine(ScmPort *port); port 1543 src/gauche.h SCM_EXTERN ScmObj Scm_ReadLineUnsafe(ScmPort *port); port 1545 src/gauche.h SCM_EXTERN ScmObj Scm_WithPort(ScmPort *port[], ScmObj thunk, port 1562 src/gauche.h #define SCM_UNGETC(c, port) Scm_Ungetc(c, SCM_PORT(port)) port 1597 src/gauche.h SCM_EXTERN void Scm_Write(ScmObj obj, ScmObj port, int mode); port 1598 src/gauche.h SCM_EXTERN int Scm_WriteCircular(ScmObj obj, ScmObj port, int mode, int width); port 1599 src/gauche.h SCM_EXTERN int Scm_WriteLimited(ScmObj obj, ScmObj port, int mode, int width); port 1600 src/gauche.h SCM_EXTERN void Scm_Format(ScmPort *port, ScmString *fmt, ScmObj args, int ss); port 1601 src/gauche.h SCM_EXTERN void Scm_Printf(ScmPort *port, const char *fmt, ...); port 1602 src/gauche.h SCM_EXTERN void Scm_PrintfShared(ScmPort *port, const char *fmt, ...); port 1603 src/gauche.h SCM_EXTERN void Scm_Vprintf(ScmPort *port, const char *fmt, va_list args, port 1643 src/gauche.h SCM_EXTERN ScmObj Scm_Read(ScmObj port); port 1644 src/gauche.h SCM_EXTERN ScmObj Scm_ReadWithContext(ScmObj port, ScmReadContext *ctx); port 1645 src/gauche.h SCM_EXTERN ScmObj Scm_ReadList(ScmObj port, ScmChar closer); port 1646 src/gauche.h SCM_EXTERN ScmObj Scm_ReadListWithContext(ScmObj port, ScmChar closer, port 1651 src/gauche.h SCM_EXTERN void Scm_ReadError(ScmPort *port, const char *fmt, ...); port 2200 src/gauche.h SCM_EXTERN void Scm_PrintDouble(ScmPort *port, double d, int flags); port 2465 src/gauche.h SCM_EXTERN void Scm_PortError(ScmPort *port, int reason, const char *msg, ...); port 2769 src/gauche.h SCM_EXTERN ScmObj Scm_VMLoadFromPort(ScmPort *port, ScmObj next_paths, port 2773 src/gauche.h SCM_EXTERN void Scm_LoadFromPort(ScmPort *port, int flags); port 134 src/gauche/exception.h ScmPort *port; /* input port where we're reading from. */ port 155 src/gauche/exception.h ScmPort *port; /* The port where I/O error occurs */ port 507 src/hash.c static void hash_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx); port 770 src/hash.c static void hash_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) port 792 src/hash.c Scm_Printf(port, "#,(<hash-table> %s", str); port 796 src/hash.c Scm_Printf(port, " %S %S", e->key, e->value); port 799 src/hash.c SCM_PUTZ(")", -1, port); port 801 src/hash.c Scm_Printf(port, "#<hash-table %s %p>", str, ht); port 43 src/keyword.c static void keyword_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) port 46 src/keyword.c SCM_PUTC(':', port); port 48 src/keyword.c SCM_PUTS(SCM_KEYWORD(obj)->name, port); port 113 src/load.c ScmPort *port; port 133 src/load.c Scm_GetStringConst(SCM_STRING(Scm_PortName(p->port)))); port 136 src/load.c Scm_ClosePort(p->port); port 137 src/load.c PORT_UNLOCK(p->port); port 150 src/load.c ScmObj expr = Scm_ReadWithContext(SCM_OBJ(p->port), &(p->ctx)); port 165 src/load.c ScmObj Scm_VMLoadFromPort(ScmPort *port, ScmObj next_paths, port 174 src/load.c if (!SCM_IPORTP(port)) port 175 src/load.c Scm_Error("input port required, but got: %S", port); port 176 src/load.c if (SCM_PORT_CLOSED_P(port)) port 177 src/load.c Scm_Error("port already closed: %S", port); port 185 src/load.c p->port = port; port 199 src/load.c vm->load_port = SCM_OBJ(port); port 210 src/load.c PORT_LOCK(port, vm); port 217 src/load.c ScmPort *port; port 224 src/load.c port = SCM_PORT(args[0]); port 227 src/load.c return Scm_VMLoadFromPort(port, paths, env, flags); port 235 src/load.c void Scm_LoadFromPort(ScmPort *port, int flags) port 237 src/load.c Scm_Apply(SCM_OBJ(&load_from_port_STUB), SCM_LIST1(SCM_OBJ(port))); port 351 src/load.c ScmObj port, truename, suffixes; port 377 src/load.c port = Scm_OpenFilePort(Scm_GetStringConst(SCM_STRING(truename)), port 379 src/load.c if (SCM_FALSEP(port)) { port 384 src/load.c port = Scm_MakeCodingAwarePort(SCM_PORT(port)); port 386 src/load.c return Scm_VMLoadFromPort(SCM_PORT(port), load_paths, env, flags); port 54 src/macro.c static void syntax_print(ScmObj obj, ScmPort *port, ScmWriteContext *mode) port 56 src/macro.c Scm_Printf(port, "#<syntax %A>", SCM_SYNTAX(obj)->name); port 74 src/macro.c static void macro_print(ScmObj obj, ScmPort *port, ScmWriteContext *mode) port 76 src/macro.c Scm_Printf(port, "#<macro %A>", SCM_MACRO(obj)->name); port 97 src/macro.c static void pattern_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) port 99 src/macro.c Scm_Printf(port, "#<pattern:%d%S %S%s>", port 124 src/macro.c static void synrule_print(ScmObj obj, ScmPort *port, ScmWriteContext *mode) port 129 src/macro.c Scm_Printf(port, "#<syntax-rules(%d)\n", r->numRules); port 131 src/macro.c Scm_Printf(port, "%2d: (numPvars=%d, maxLevel=%d)\n", port 133 src/macro.c Scm_Printf(port, " pattern = %S\n", r->rules[i].pattern); port 134 src/macro.c Scm_Printf(port, " template = %S\n", r->rules[i].template); port 136 src/macro.c Scm_Printf(port, ">"); port 590 src/macro.c static void print_matchvec(MatchVar *mvec, int numPvars, ScmPort *port) port 594 src/macro.c Scm_Printf(port, "[%S %S %S]\n", port 75 src/module.c static void module_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) port 77 src/module.c Scm_Printf(port, "#<module %A>", SCM_MODULE(obj)->name); port 89 src/number.c static void number_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx); port 2097 src/number.c static void number_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) port 2100 src/number.c SCM_PUTS(SCM_STRING(s), port); port 2150 src/number.c void Scm_PrintDouble(ScmPort *port, double d, int flags) port 2154 src/number.c Scm_Putz(buf, strlen(buf), port); port 55 src/port.c static void port_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx); port 57 src/port.c static void register_buffered_port(ScmPort *port); port 58 src/port.c static void unregister_buffered_port(ScmPort *port); port 88 src/port.c static void port_cleanup(ScmPort *port) port 90 src/port.c if (SCM_PORT_CLOSED_P(port)) return; port 91 src/port.c switch (SCM_PORT_TYPE(port)) { port 93 src/port.c if (SCM_PORT_DIR(port) == SCM_PORT_OUTPUT port 94 src/port.c && !SCM_PORT_ERROR_OCCURRED_P(port)) { port 95 src/port.c bufport_flush(port, 0, TRUE); port 97 src/port.c if (port->ownerp && port->src.buf.closer) port->src.buf.closer(port); port 100 src/port.c if (port->src.vt.Close) port->src.vt.Close(port); port 105 src/port.c SCM_PORT_CLOSED_P(port) = TRUE; port 107 src/port.c Scm_UnregisterFinalizer(SCM_OBJ(port)); port 123 src/port.c ScmPort *port; port 125 src/port.c port = SCM_ALLOCATE(ScmPort, klass); port 126 src/port.c SCM_SET_CLASS(port, klass); port 127 src/port.c port->direction = dir; port 128 src/port.c port->type = type; port 129 src/port.c port->scrcnt = 0; port 130 src/port.c port->ungotten = SCM_CHAR_INVALID; port 131 src/port.c port->closed = FALSE; port 132 src/port.c port->error = FALSE; port 133 src/port.c port->ownerp = FALSE; port 134 src/port.c port->flags = 0; port 135 src/port.c port->name = SCM_FALSE; port 136 src/port.c (void)SCM_INTERNAL_MUTEX_INIT(port->mutex); port 137 src/port.c (void)SCM_INTERNAL_COND_INIT(port->cv); port 138 src/port.c port->lockOwner = NULL; port 139 src/port.c port->lockCount = 0; port 140 src/port.c port->data = SCM_FALSE; port 141 src/port.c port->line = 1; port 145 src/port.c Scm_RegisterFinalizer(SCM_OBJ(port), port_finalize, NULL); port 150 src/port.c return port; port 156 src/port.c void Scm_ClosePort(ScmPort *port) port 159 src/port.c PORT_LOCK(port, vm); port 160 src/port.c PORT_SAFE_CALL(port, port 162 src/port.c if (!SCM_PORT_CLOSED_P(port)) { port 163 src/port.c port_cleanup(port); port 164 src/port.c if (SCM_PORT_TYPE(port) == SCM_PORT_FILE port 165 src/port.c && SCM_PORT_DIR(port) == SCM_PORT_OUTPUT) { port 166 src/port.c unregister_buffered_port(port); port 170 src/port.c PORT_UNLOCK(port); port 191 src/port.c ScmObj Scm_VMWithPortLocking(ScmPort *port, ScmObj closure) port 193 src/port.c ScmObj before = Scm_MakeSubr(with_port_locking_pre_thunk, (void*)port, port 195 src/port.c ScmObj after = Scm_MakeSubr(with_port_locking_post_thunk, (void*)port, port 203 src/port.c ScmObj Scm_PortName(ScmPort *port) port 205 src/port.c return port->name; port 208 src/port.c int Scm_PortLine(ScmPort *port) port 210 src/port.c return port->line; port 213 src/port.c static void port_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) port 215 src/port.c Scm_Printf(port, "#<%s%sport%s %A %p>", port 225 src/port.c int Scm_PortFileNo(ScmPort *port) port 227 src/port.c if (SCM_PORT_TYPE(port) == SCM_PORT_FILE) { port 228 src/port.c if (port->src.buf.filenum) return port->src.buf.filenum(port); port 621 src/port.c #define PORT_HASH(port) \ port 622 src/port.c ((((SCM_WORD(port)>>3) * 2654435761UL)>>16) % PORT_VECTOR_SIZE) port 624 src/port.c static void register_buffered_port(ScmPort *port) port 627 src/port.c h = i = PORT_HASH(port); port 635 src/port.c Scm_WeakVectorSet(active_buffered_ports.ports, i, SCM_OBJ(port)); port 641 src/port.c static void unregister_buffered_port(ScmPort *port) port 646 src/port.c h = i = PORT_HASH(port); port 651 src/port.c if (!SCM_FALSEP(p) && SCM_EQ(SCM_OBJ(port), p)) { port 735 src/port.c ScmObj Scm_GetBufferingMode(ScmPort *port) port 737 src/port.c if (SCM_PORT_TYPE(port) == SCM_PORT_FILE) { port 738 src/port.c switch (port->src.buf.mode) { port 742 src/port.c if (SCM_IPORTP(port)) return key_modest; port 921 src/port.c ScmObj Scm_GetOutputString(ScmPort *port) port 925 src/port.c if (SCM_PORT_TYPE(port) != SCM_PORT_OSTR) port 926 src/port.c Scm_Error("output string port required, but got %S", port); port 928 src/port.c PORT_LOCK(port, vm); port 929 src/port.c r = Scm_DStringGet(&SCM_PORT(port)->src.ostr, 0); port 930 src/port.c PORT_UNLOCK(port); port 934 src/port.c ScmObj Scm_GetOutputStringUnsafe(ScmPort *port) port 936 src/port.c if (SCM_PORT_TYPE(port) != SCM_PORT_OSTR) port 937 src/port.c Scm_Error("output string port required, but got %S", port); port 938 src/port.c return Scm_DStringGet(&SCM_PORT(port)->src.ostr, 0); port 941 src/port.c ScmObj Scm_GetRemainingInputString(ScmPort *port) port 944 src/port.c if (SCM_PORT_TYPE(port) != SCM_PORT_ISTR) port 945 src/port.c Scm_Error("input string port required, but got %S", port); port 948 src/port.c ep = port->src.istr.end; port 949 src/port.c cp = port->src.istr.current; port 1123 src/port.c static void coding_port_recognize_encoding(ScmPort *port, port 1172 src/port.c Scm_PortError(port, SCM_PORT_ERROR_OTHER, port 1310 src/port.c ScmObj Scm_WithPort(ScmPort *port[], ScmObj thunk, int mask, int closep) port 1319 src/port.c SCM_CURIN = port[pcnt++]; port 1323 src/port.c SCM_CUROUT = port[pcnt++]; port 1327 src/port.c SCM_CURERR = port[pcnt++]; port 83 src/portapi.c #define CLOSE_CHECK(port) \ port 85 src/portapi.c if (SCM_PORT_CLOSED_P(port)) { \ port 87 src/portapi.c Scm_PortError((port), SCM_PORT_ERROR_CLOSED, \ port 88 src/portapi.c "I/O attempted on closed port: %S", (port)); \ port 45 src/proc.c static void proc_print(ScmObj obj, ScmPort *port, ScmWriteContext *); port 49 src/proc.c static void proc_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) port 53 src/proc.c SCM_PUTZ("#<subr", -1, port); port 55 src/proc.c Scm_Printf(port, " %A", info); port 57 src/proc.c SCM_PUTC('>', port); port 59 src/proc.c Scm_Printf(port, "#<closure %S>", info); port 79 src/promise.c static void promise_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) port 84 src/promise.c Scm_Printf(port, "#<promise %p%s>", p, forced); port 86 src/promise.c Scm_Printf(port, "#<promise(%S) %p%s>", p->kind, p, forced); port 51 src/read.c static ScmObj read_internal(ScmPort *port, ScmReadContext *ctx); port 52 src/read.c static ScmObj read_item(ScmPort *port, ScmReadContext *ctx); port 53 src/read.c static ScmObj read_list(ScmPort *port, ScmChar closer, ScmReadContext *ctx); port 54 src/read.c static ScmObj read_vector(ScmPort *port, ScmChar closer, ScmReadContext *ctx); port 55 src/read.c static ScmObj read_string(ScmPort *port, int incompletep, ScmReadContext *ctx); port 56 src/read.c static ScmObj read_quoted(ScmPort *port, ScmObj quoter, ScmReadContext *ctx); port 57 src/read.c static ScmObj read_char(ScmPort *port, ScmReadContext *ctx); port 58 src/read.c static ScmObj read_word(ScmPort *port, ScmChar initial, ScmReadContext *ctx, port 60 src/read.c static ScmObj read_symbol(ScmPort *port, ScmChar initial, ScmReadContext *ctx); port 61 src/read.c static ScmObj read_number(ScmPort *port, ScmChar initial, ScmReadContext *ctx); port 62 src/read.c static ScmObj read_symbol_or_number(ScmPort *port, ScmChar initial, ScmReadContext *ctx); port 63 src/read.c static ScmObj read_escaped_symbol(ScmPort *port, ScmChar delim); port 64 src/read.c static ScmObj read_keyword(ScmPort *port, ScmReadContext *ctx); port 65 src/read.c static ScmObj read_regexp(ScmPort *port); port 66 src/read.c static ScmObj read_charset(ScmPort *port); port 67 src/read.c static ScmObj read_sharp_comma(ScmPort *port, ScmReadContext *ctx); port 68 src/read.c static ScmObj process_sharp_comma(ScmPort *port, ScmObj key, ScmObj args, port 70 src/read.c static ScmObj read_reference(ScmPort *port, ScmChar ch, ScmReadContext *ctx); port 71 src/read.c static ScmObj maybe_uvector(ScmPort *port, char c, ScmReadContext *ctx); port 74 src/read.c ScmObj (*Scm_ReadUvectorHook)(ScmPort *port, const char *tag, port 90 src/read.c ScmObj Scm_ReadWithContext(ScmObj port, ScmReadContext *ctx) port 94 src/read.c if (!SCM_PORTP(port) || SCM_PORT_DIR(port) != SCM_PORT_INPUT) { port 95 src/read.c Scm_Error("input port required: %S", port); port 101 src/read.c if (PORT_LOCKED(SCM_PORT(port), vm)) { port 102 src/read.c r = read_item(SCM_PORT(port), ctx); port 104 src/read.c PORT_LOCK(SCM_PORT(port), vm); port 105 src/read.c PORT_SAFE_CALL(SCM_PORT(port), r = read_item(SCM_PORT(port), ctx)); port 106 src/read.c PORT_UNLOCK(SCM_PORT(port)); port 114 src/read.c ScmObj Scm_Read(ScmObj port) port 118 src/read.c return Scm_ReadWithContext(port, &ctx); port 144 src/read.c ScmObj Scm_ReadListWithContext(ScmObj port, ScmChar closer, ScmReadContext *ctx) port 148 src/read.c if (!SCM_PORTP(port) || SCM_PORT_DIR(port) != SCM_PORT_INPUT) { port 149 src/read.c Scm_Error("input port required: %S", port); port 155 src/read.c if (PORT_LOCKED(SCM_PORT(port), vm)) { port 156 src/read.c r = read_list(SCM_PORT(port), closer, ctx); port 158 src/read.c PORT_LOCK(SCM_PORT(port), vm); port 159 src/read.c PORT_SAFE_CALL(SCM_PORT(port), r = read_list(SCM_PORT(port), closer, ctx)); port 160 src/read.c PORT_UNLOCK(SCM_PORT(port)); port 168 src/read.c ScmObj Scm_ReadList(ScmObj port, ScmChar closer) port 172 src/read.c return Scm_ReadListWithContext(port, closer, &ctx); port 189 src/read.c void Scm_ReadError(ScmPort *port, const char *msg, ...) port 192 src/read.c ScmObj name = Scm_PortName(port); port 194 src/read.c int line = Scm_PortLine(port); port 206 src/read.c rerr = Scm_MakeReadError(Scm_GetOutputString(SCM_PORT(ostr)), port, line); port 217 src/read.c static void read_reference_print(ScmObj obj, ScmPort *port, port 230 src/read.c static void read_reference_print(ScmObj obj, ScmPort *port, port 233 src/read.c Scm_Printf(port, "#<read-reference>"); port 339 src/read.c static void read_nested_comment(ScmPort *port, ScmReadContext *ctx) port 342 src/read.c int line = Scm_PortLine(port); port 345 src/read.c for (c = Scm_GetcUnsafe(port);;) { port 348 src/read.c c1 = Scm_GetcUnsafe(port); port 354 src/read.c c1 = Scm_GetcUnsafe(port); port 366 src/read.c Scm_ReadError(port, "encountered EOF inside nested multi-line comment (comment begins at line %d)", line); port 370 src/read.c c = Scm_GetcUnsafe(port); port 374 src/read.c static int skipws(ScmPort *port, ScmReadContext *ctx) port 377 src/read.c int c = Scm_GetcUnsafe(port); port 384 src/read.c c = Scm_GetbUnsafe(port); port 387 src/read.c port->line++; port 398 src/read.c static ScmObj read_internal(ScmPort *port, ScmReadContext *ctx) port 400 src/read.c int c = skipws(port, ctx); port 403 src/read.c return read_list(port, ')', ctx); port 405 src/read.c return read_string(port, FALSE, ctx); port 408 src/read.c int c1 = Scm_GetcUnsafe(port); port 411 src/read.c Scm_ReadError(port, "premature #-sequence at EOF"); port 413 src/read.c case 'f':; case 'F': return maybe_uvector(port, 'f', ctx); port 414 src/read.c case 's':; case 'S': return maybe_uvector(port, 's', ctx); port 415 src/read.c case 'u':; case 'U': return maybe_uvector(port, 'u', ctx); port 417 src/read.c return read_vector(port, ')', ctx); port 419 src/read.c return read_char(port, ctx); port 423 src/read.c Scm_UngetcUnsafe(c1, port); port 424 src/read.c return read_number(port, c, ctx); port 428 src/read.c c = Scm_GetcUnsafe(port); port 434 src/read.c return read_regexp(port); port 437 src/read.c return read_charset(port); port 440 src/read.c return read_sharp_comma(port, ctx); port 444 src/read.c read_nested_comment(port, ctx); port 449 src/read.c ScmObj form = read_item(port, ctx); port 450 src/read.c return process_sharp_comma(port, port 460 src/read.c c2 = Scm_GetcUnsafe(port); port 464 src/read.c form = read_item(port, ctx); port 469 src/read.c Scm_ReadError(port, "unsupported #?-syntax: #?%C", c2); port 475 src/read.c return read_reference(port, c1, ctx); port 481 src/read.c c2 = Scm_GetcUnsafe(port); port 482 src/read.c if (c2 == '"') return read_string(port, TRUE, ctx); port 483 src/read.c Scm_ReadError(port, "unsupported #*-syntax: #*%C", c2); port 487 src/read.c read_item(port, ctx); /* read and discard */ port 490 src/read.c Scm_ReadError(port, "unsupported #-syntax: #%C", c1); port 493 src/read.c case '\'': return read_quoted(port, SCM_SYM_QUOTE, ctx); port 494 src/read.c case '`': return read_quoted(port, SCM_SYM_QUASIQUOTE, ctx); port 496 src/read.c return read_keyword(port, ctx); port 499 src/read.c int c1 = Scm_GetcUnsafe(port); port 501 src/read.c Scm_ReadError(port, "unterminated unquote"); port 503 src/read.c return read_quoted(port, SCM_SYM_UNQUOTE_SPLICING, ctx); port 505 src/read.c Scm_UngetcUnsafe(c1, port); port 506 src/read.c return read_quoted(port, SCM_SYM_UNQUOTE, ctx); port 510 src/read.c return read_escaped_symbol(port, '|'); port 513 src/read.c return read_list(port, ']', ctx); port 515 src/read.c return read_list(port, '}', ctx); port 519 src/read.c return read_symbol_or_number(port, c, ctx); port 522 src/read.c int c1 = Scm_GetcUnsafe(port); port 524 src/read.c Scm_ReadError(port, "dot in wrong context"); port 526 src/read.c Scm_UngetcUnsafe(c1, port); port 527 src/read.c return read_symbol_or_number(port, c, ctx); port 533 src/read.c return read_symbol_or_number(port, c, ctx); port 535 src/read.c Scm_ReadError(port, "extra close parenthesis"); port 539 src/read.c return read_symbol(port, c, ctx); port 543 src/read.c static ScmObj read_item(ScmPort *port, ScmReadContext *ctx) port 546 src/read.c ScmObj obj = read_internal(port, ctx); port 557 src/read.c static ScmObj read_list_int(ScmPort *port, ScmChar closer, port 564 src/read.c c = skipws(port, ctx); port 574 src/read.c int c2 = Scm_GetcUnsafe(port); port 582 src/read.c item = read_item(port, ctx); port 588 src/read.c Scm_UngetcUnsafe(c2, port); port 589 src/read.c item = read_symbol_or_number(port, c, ctx); port 591 src/read.c Scm_UngetcUnsafe(c, port); port 592 src/read.c item = read_internal(port, ctx); port 600 src/read.c Scm_ReadError(port, "EOF inside a list (starting from line %d)", port 603 src/read.c Scm_ReadError(port, "EOF inside a list"); port 606 src/read.c Scm_ReadError(port, "bad dot syntax"); port 610 src/read.c static ScmObj read_list(ScmPort *port, ScmChar closer, ScmReadContext *ctx) port 616 src/read.c if (ctx->flags & SCM_READ_SOURCE_INFO) line = Scm_PortLine(port); port 618 src/read.c r = read_list_int(port, closer, ctx, &has_ref, line); port 625 src/read.c SCM_LIST2(Scm_PortName(port), SCM_MAKE_INT(line))); port 632 src/read.c static ScmObj read_vector(ScmPort *port, ScmChar closer, ScmReadContext *ctx) port 638 src/read.c if (ctx->flags & SCM_READ_SOURCE_INFO) line = Scm_PortLine(port); port 639 src/read.c r = read_list_int(port, closer, ctx, &has_ref, line); port 645 src/read.c static ScmObj read_quoted(ScmPort *port, ScmObj quoter, ScmReadContext *ctx) port 650 src/read.c if (ctx->flags & SCM_READ_SOURCE_INFO) line = Scm_PortLine(port); port 651 src/read.c item = read_item(port, ctx); port 652 src/read.c if (SCM_EOFP(item)) Scm_ReadError(port, "unterminated quote"); port 656 src/read.c SCM_LIST2(Scm_PortName(port), SCM_MAKE_INT(line))); port 668 src/read.c static ScmChar read_string_xdigits(ScmPort *port, int ndigs, int key, port 675 src/read.c r = Scm_ReadXdigitsFromPort(port, ndigs, buf, &nread); port 682 src/read.c if (incompletep) c = Scm_GetbUnsafe(port); port 683 src/read.c else c = Scm_GetcUnsafe(port); port 686 src/read.c if (incompletep) c = Scm_GetbUnsafe(port); port 687 src/read.c else c = Scm_GetcUnsafe(port); port 695 src/read.c Scm_ReadError(port, port 702 src/read.c static ScmObj read_string(ScmPort *port, int incompletep, port 710 src/read.c if (incompletep) { var = Scm_GetbUnsafe(port); } \ port 711 src/read.c else { var = Scm_GetcUnsafe(port); } port 726 src/read.c int c1 = Scm_GetcUnsafe(port); port 736 src/read.c int cc = read_string_xdigits(port, 2, 'x', incompletep); port 741 src/read.c int cc = read_string_xdigits(port, 4, 'u', incompletep); port 746 src/read.c int cc = read_string_xdigits(port, 8, 'U', incompletep); port 759 src/read.c Scm_ReadError(port, "EOF encountered in a string literal: %S", port 790 src/read.c static ScmObj read_char(ScmPort *port, ScmReadContext *ctx) port 798 src/read.c c = Scm_GetcUnsafe(port); port 800 src/read.c case EOF: Scm_ReadError(port, "EOF encountered in character literal"); port 807 src/read.c name = SCM_STRING(read_word(port, c, ctx, TRUE)); port 831 src/read.c Scm_ReadError(port, "Bad UCS character code: #\\%s", cname); port 839 src/read.c Scm_ReadError(port, "Unknown character name: #\\%A", name); port 853 src/read.c static ScmObj read_word(ScmPort *port, ScmChar initial, ScmReadContext *ctx, port 866 src/read.c c = Scm_GetcUnsafe(port); port 868 src/read.c Scm_UngetcUnsafe(c, port); port 876 src/read.c static ScmObj read_symbol(ScmPort *port, ScmChar initial, ScmReadContext *ctx) port 878 src/read.c ScmString *s = SCM_STRING(read_word(port, initial, ctx, FALSE)); port 882 src/read.c static ScmObj read_number(ScmPort *port, ScmChar initial, ScmReadContext *ctx) port 884 src/read.c ScmString *s = SCM_STRING(read_word(port, initial, ctx, FALSE)); port 887 src/read.c Scm_ReadError(port, "bad numeric format: %S", s); port 891 src/read.c static ScmObj read_symbol_or_number(ScmPort *port, ScmChar initial, ScmReadContext *ctx) port 893 src/read.c ScmString *s = SCM_STRING(read_word(port, initial, ctx, FALSE)); port 901 src/read.c static ScmObj read_keyword(ScmPort *port, ScmReadContext *ctx) port 903 src/read.c ScmString *s = SCM_STRING(read_word(port, SCM_CHAR_INVALID, ctx, FALSE)); port 907 src/read.c static ScmObj read_escaped_symbol(ScmPort *port, ScmChar delim) port 914 src/read.c c = Scm_GetcUnsafe(port); port 922 src/read.c c = Scm_GetcUnsafe(port); port 932 src/read.c Scm_ReadError(port, "unterminated escaped symbol: |%s ...", port 942 src/read.c static ScmObj read_regexp(ScmPort *port) port 948 src/read.c c = Scm_GetcUnsafe(port); port 950 src/read.c Scm_ReadError(port, "unterminated literal regexp"); port 954 src/read.c c = Scm_GetcUnsafe(port); port 956 src/read.c Scm_ReadError(port, "unterminated literal regexp"); port 962 src/read.c c = Scm_GetcUnsafe(port); port 964 src/read.c else Scm_UngetcUnsafe(c, port); port 973 src/read.c static ScmObj read_charset(ScmPort *port) port 975 src/read.c return Scm_CharSetRead(port, NULL, TRUE, FALSE); port 982 src/read.c static ScmObj read_reference(ScmPort *port, ScmChar ch, ScmReadContext *ctx) port 988 src/read.c ch = Scm_GetcUnsafe(port); port 990 src/read.c Scm_ReadError(port, "unterminated reference form (#digits)"); port 994 src/read.c if (refnum < 0) Scm_ReadError(port, "reference number overflow"); port 998 src/read.c Scm_ReadError(port, "invalid reference form (must be either #digits# or #digits=) : #%d%A", refnum, SCM_MAKE_CHAR(ch)); port 1006 src/read.c Scm_ReadError(port, "invalid reference number in #%d#", refnum); port 1024 src/read.c Scm_ReadError(port, "duplicate back-reference number in #%d=", refnum); port 1027 src/read.c val = read_item(port, ctx); port 1050 src/read.c static ScmObj read_sharp_comma(ScmPort *port, ScmReadContext *ctx) port 1056 src/read.c next = Scm_GetcUnsafe(port); port 1058 src/read.c Scm_ReadError(port, "bad #,-form: '(' should be followed, but got %C", port 1062 src/read.c if (ctx->flags & SCM_READ_SOURCE_INFO) line = Scm_PortLine(port); port 1064 src/read.c form = read_list_int(port, ')', ctx, &has_ref, line); port 1067 src/read.c Scm_ReadError(port, "bad #,-form: #,%S", form); port 1069 src/read.c r = process_sharp_comma(port, SCM_CAR(form), SCM_CDR(form), ctx, has_ref); port 1073 src/read.c static ScmObj process_sharp_comma(ScmPort *port, ScmObj key, ScmObj args, port 1083 src/read.c if (e == NULL) Scm_ReadError(port, "unknown #,-key: %S", key); port 1103 src/read.c static ScmObj maybe_uvector(ScmPort *port, char ch, ScmReadContext *ctx) port 1108 src/read.c c1 = Scm_GetcUnsafe(port); port 1111 src/read.c Scm_UngetcUnsafe(c1, port); port 1114 src/read.c c2 = Scm_GetcUnsafe(port); port 1120 src/read.c c2 = Scm_GetcUnsafe(port); port 1124 src/read.c c2 = Scm_GetcUnsafe(port); port 1128 src/read.c c2 = Scm_GetcUnsafe(port); port 1142 src/read.c Scm_ReadError(port, "invalid uniform vector tag: %s", buf); port 1150 src/read.c Scm_ReadError(port, "couldn't load srfi-4 module"); port 1152 src/read.c return Scm_ReadUvectorHook(port, tag, ctx); port 180 src/regexp.c static void regexp_print(ScmObj obj, ScmPort *port, ScmWriteContext *c); port 280 src/regexp.c static ScmChar rc1_lex_xdigits(ScmPort *port, int ndigs, int key); port 397 src/regexp.c static ScmChar rc1_lex_xdigits(ScmPort *port, int ndigs, int key) port 403 src/regexp.c r = Scm_ReadXdigitsFromPort(port, ndigs, buf, &nread); port 410 src/regexp.c SCM_GETC(c, port); port 412 src/regexp.c if (c == '\\') SCM_GETC(c, port); port 199 src/signal.c static void display_sigset(sigset_t *set, ScmPort *port) port 205 src/signal.c if (cnt++) Scm_Putc('|', port); port 206 src/signal.c Scm_Putz(desc->name+3, -1, port); port 3737 src/stdlib.c ScmPort* port; port 3741 src/stdlib.c port = SCM_PORT(port_scm); port 3743 src/stdlib.c Scm_ClosePort(port); port 3754 src/stdlib.c ScmPort* port; port 3758 src/stdlib.c port = SCM_PORT(port_scm); port 3760 src/stdlib.c Scm_ClosePort(port); port 3771 src/stdlib.c ScmPort* port; port 3782 src/stdlib.c port = SCM_PORT(port_scm); port 3786 src/stdlib.c SCM_RESULT = (Scm_Read(SCM_OBJ(port))); port 3798 src/stdlib.c ScmPort* port; port 3809 src/stdlib.c port = SCM_PORT(port_scm); port 3812 src/stdlib.c SCM_GETC(ch, port); port 3824 src/stdlib.c ScmPort* port; port 3835 src/stdlib.c port = SCM_PORT(port_scm); port 3837 src/stdlib.c ScmChar ch = Scm_Peekc(port); port 3868 src/stdlib.c ScmPort* port; port 3879 src/stdlib.c port = SCM_PORT(port_scm); port 3883 src/stdlib.c SCM_RESULT = Scm_CharReady(port); port 3897 src/stdlib.c ScmPort* port; port 3910 src/stdlib.c port = SCM_PORT(port_scm); port 3912 src/stdlib.c Scm_Write(obj, SCM_OBJ(port), SCM_WRITE_WRITE); port 3925 src/stdlib.c ScmPort* port; port 3938 src/stdlib.c port = SCM_PORT(port_scm); port 3940 src/stdlib.c Scm_Write(obj, SCM_OBJ(port), SCM_WRITE_DISPLAY); port 3951 src/stdlib.c ScmPort* port; port 3962 src/stdlib.c port = SCM_PORT(port_scm); port 3964 src/stdlib.c SCM_PUTC('\n', port); port 3977 src/stdlib.c ScmPort* port; port 3991 src/stdlib.c port = SCM_PORT(port_scm); port 3993 src/stdlib.c SCM_PUTC(ch, port); port 45 src/string.c static void string_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx); port 1170 src/string.c static inline void string_putc(ScmChar ch, ScmPort *port, int bytemode) port 1174 src/string.c case '\\': SCM_PUTZ("\\\\", -1, port); break; port 1175 src/string.c case '"': SCM_PUTZ("\\\"", -1, port); break; port 1176 src/string.c case '\n': SCM_PUTZ("\\n", -1, port); break; port 1177 src/string.c case '\t': SCM_PUTZ("\\t", -1, port); break; port 1178 src/string.c case '\r': SCM_PUTZ("\\r", -1, port); break; port 1179 src/string.c case '\f': SCM_PUTZ("\\f", -1, port); break; port 1180 src/string.c case '\0': SCM_PUTZ("\\0", -1, port); break; port 1184 src/string.c SCM_PUTZ(buf, -1, port); port 1186 src/string.c SCM_PUTC(ch, port); port 1191 src/string.c static void string_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) port 1195 src/string.c SCM_PUTS(str, port); port 1202 src/string.c SCM_PUTZ("#*\"", -1, port); port 1204 src/string.c SCM_PUTC('"', port); port 1207 src/string.c string_putc(*cp++, port, SCM_STRING_BODY_INCOMPLETE_P(b)); port 1214 src/string.c SCM_PUTC('"', port); port 1217 src/string.c string_putc(ch, port, FALSE); port 1221 src/string.c SCM_PUTC('"', port); port 43 src/symbol.c static void symbol_print(ScmObj obj, ScmPort *port, ScmWriteContext *); port 118 src/symbol.c static void symbol_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) port 121 src/symbol.c SCM_PUTS(SCM_SYMBOL(obj)->name, port); port 135 src/symbol.c SCM_PUTZ("||", -1, port); port 139 src/symbol.c SCM_PUTC((unsigned)*p, port); port 154 src/symbol.c SCM_PUTC('|', port); port 161 src/symbol.c SCM_PUTC('\\', port); port 162 src/symbol.c SCM_PUTC(ch, port); port 164 src/symbol.c Scm_Printf(port, "\\x%02x", ch); port 166 src/symbol.c SCM_PUTC(ch, port); port 169 src/symbol.c SCM_PUTC(ch, port); port 172 src/symbol.c SCM_PUTC('|', port); port 175 src/symbol.c SCM_PUTS(snam, port); port 184 src/symbol.c static void gloc_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) port 187 src/symbol.c Scm_Printf(port, "#<gloc %S%s%S>", g->module->name, port 709 src/system.c static void time_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) port 712 src/system.c Scm_Printf(port, "#<%S %lu.%09lu>", t->type, t->sec, t->nsec); port 921 src/system.c static void tm_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) port 927 src/system.c Scm_Printf(port, "#<sys-tm \"%s\">", buf); port 980 src/system.c static void grp_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) port 982 src/system.c Scm_Printf(port, "#<sys-group %S>", port 1056 src/system.c static void pwd_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) port 1058 src/system.c Scm_Printf(port, "#<sys-passwd %S>", port 1213 src/system.c ScmObj port, elt = SCM_CAR(iop); port 1222 src/system.c port = SCM_CDAR(iop); port 1223 src/system.c fromfd[i] = Scm_PortFileNo(SCM_PORT(port)); port 1228 src/system.c if (tofd[i] == 0 && !SCM_IPORTP(port)) port 1230 src/system.c port); port 1231 src/system.c if (tofd[i] == 1 && !SCM_OPORTP(port)) port 1233 src/system.c port); port 1234 src/system.c if (tofd[i] == 2 && !SCM_OPORTP(port)) port 1236 src/system.c port); port 43 src/vector.c static void vector_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) port 46 src/vector.c SCM_PUTZ("#(", -1, port); port 48 src/vector.c if (i != 0) SCM_PUTC(' ', port); port 49 src/vector.c Scm_Write(SCM_VECTOR_ELEMENT(obj, i), SCM_OBJ(port), ctx->mode); port 51 src/vector.c SCM_PUTZ(")", -1, port); port 2343 src/vm.c ScmPort *port; port 2347 src/vm.c port = SCM_PORT(VAL0); port 2349 src/vm.c port = SCM_CURIN; port 2352 src/vm.c ch = Scm_Getc(port); port 2359 src/vm.c ScmPort *port; port 2363 src/vm.c port = SCM_PORT(VAL0); port 2365 src/vm.c port = SCM_CURIN; port 2368 src/vm.c ch = Scm_Peekc(port); port 2376 src/vm.c ScmPort *port; port 2380 src/vm.c port = SCM_PORT(VAL0); port 2383 src/vm.c port = SCM_CUROUT; port 2389 src/vm.c SCM_PUTC(SCM_CHAR_VALUE(ch), port); port 52 src/weak.c static void weakvector_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) port 57 src/weak.c Scm_Printf(port, "#,(<weak-vector> %d", v->size); port 59 src/weak.c SCM_PUTC(' ', port); port 60 src/weak.c if (ptrs[i]) Scm_Write(ptrs[i], SCM_OBJ(port), ctx->mode); port 61 src/weak.c else Scm_Write(SCM_FALSE, SCM_OBJ(port), ctx->mode); port 63 src/weak.c SCM_PUTC(')', port); port 44 src/write.c static void write_walk(ScmObj obj, ScmPort *port, ScmWriteContext *ctx); port 45 src/write.c static void write_ss(ScmObj obj, ScmPort *port, ScmWriteContext *ctx); port 46 src/write.c static void write_ss_rec(ScmObj obj, ScmPort *port, ScmWriteContext *ctx); port 134 src/write.c ScmPort *port; port 139 src/write.c port = SCM_PORT(p); port 144 src/write.c if (port->flags & SCM_PORT_WALKING) { port 145 src/write.c SCM_ASSERT(SCM_PAIRP(port->data)&&SCM_HASH_TABLE_P(SCM_CDR(port->data))); port 146 src/write.c write_walk(obj, port, &ctx); port 150 src/write.c if (port->flags & SCM_PORT_WRITESS) { port 151 src/write.c SCM_ASSERT(SCM_PAIRP(port->data)&&SCM_HASH_TABLE_P(SCM_CDR(port->data))); port 152 src/write.c write_ss_rec(obj, port, &ctx); port 160 src/write.c PORT_LOCK(port, vm); port 162 src/write.c PORT_SAFE_CALL(port, write_ss(obj, port, &ctx)); port 164 src/write.c PORT_SAFE_CALL(port, write_ss_rec(obj, port, &ctx)); port 166 src/write.c PORT_UNLOCK(port); port 179 src/write.c int Scm_WriteLimited(ScmObj obj, ScmObj port, int mode, int width) port 185 src/write.c if (!SCM_OPORTP(port)) port 186 src/write.c Scm_Error("output port required, but got %S", port); port 199 src/write.c SCM_PUTS(sub, port); /* this locks port */ port 202 src/write.c SCM_PUTS(Scm_GetOutputString(SCM_PORT(out)), port); /* this locks port */ port 211 src/write.c int Scm_WriteCircular(ScmObj obj, ScmObj port, int mode, int width) port 216 src/write.c if (!SCM_OPORTP(port)) { port 217 src/write.c Scm_Error("output port required, but got %S", port); port 237 src/write.c SCM_PUTS(sub, port); /* this locks port */ port 240 src/write.c SCM_PUTS(Scm_GetOutputString(SCM_PORT(out)), port); /* this locks port */ port 245 src/write.c PORT_LOCK(SCM_PORT(port), vm); port 246 src/write.c PORT_SAFE_CALL(SCM_PORT(port), port 247 src/write.c write_ss(obj, SCM_PORT(port), &ctx)); port 248 src/write.c PORT_UNLOCK(SCM_PORT(port)); port 267 src/write.c case SCM_ITAG(obj): Scm_PutzUnsafe(str, -1, port); break; port 281 src/write.c static void write_object(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) port 283 src/write.c Scm_Apply(SCM_OBJ(&Scm_GenericWriteObject), SCM_LIST2(obj, SCM_OBJ(port))); port 327 src/write.c ScmPort *port; port 330 src/write.c port = SCM_PORT(Scm_MakeVirtualPort(SCM_CLASS_PORT, SCM_PORT_OUTPUT, port 333 src/write.c port->data = Scm_Cons(SCM_MAKE_INT(0), ht); port 334 src/write.c port->flags = SCM_PORT_WALKING; port 335 src/write.c return port; port 339 src/write.c static void write_walk(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) port 345 src/write.c ht = SCM_HASH_TABLE(SCM_CDR(port->data)); port 359 src/write.c if (SCM_PTRP(elt)) write_walk(SCM_CAR(obj), port, ctx); port 378 src/write.c if (SCM_PTRP(elt)) write_walk(elt, port, ctx); port 389 src/write.c write_general(obj, port, ctx); port 396 src/write.c static void write_ss_rec(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) port 403 src/write.c if (outlen(port) >= ctx->limit) return; port 406 src/write.c if (SCM_PAIRP(port->data) && SCM_HASH_TABLE_P(SCM_CDR(port->data))) { port 407 src/write.c ht = SCM_HASH_TABLE(SCM_CDR(port->data)); port 426 src/write.c Scm_PutzUnsafe(buf, -1, port); port 431 src/write.c Scm_PutcUnsafe(ch, port); port 433 src/write.c Scm_PutzUnsafe("#\\", -1, port); port 434 src/write.c if (ch <= 0x20) Scm_PutzUnsafe(char_names[ch], -1, port); port 435 src/write.c else if (ch == 0x7f) Scm_PutzUnsafe("del", -1, port); port 436 src/write.c else Scm_PutcUnsafe(ch, port); port 444 src/write.c write_general(obj, port, ctx); port 451 src/write.c write_general(obj, port, ctx); port 461 src/write.c Scm_PutzUnsafe(numbuf, -1, port); port 465 src/write.c int count = SCM_INT_VALUE(SCM_CAR(port->data)); port 468 src/write.c SCM_SET_CAR(port->data, SCM_MAKE_INT(count+1)); port 469 src/write.c Scm_PutzUnsafe(numbuf, -1, port); port 480 src/write.c Scm_PutcUnsafe('\'', port); port 482 src/write.c Scm_PutcUnsafe('`', port); port 484 src/write.c Scm_PutcUnsafe(',', port); port 486 src/write.c Scm_PutzUnsafe(",@", -1, port); port 491 src/write.c write_ss_rec(SCM_CADR(obj), port, ctx); port 497 src/write.c Scm_PutcUnsafe('(', port); port 500 src/write.c write_ss_rec(SCM_CAR(obj), port, ctx); port 503 src/write.c if (SCM_NULLP(obj)) { Scm_PutcUnsafe(')', port); return; } port 505 src/write.c Scm_PutzUnsafe(" . ", -1, port); port 506 src/write.c write_ss_rec(obj, port, ctx); port 507 src/write.c Scm_PutcUnsafe(')', port); port 513 src/write.c Scm_PutzUnsafe(" . ", -1, port); port 514 src/write.c write_ss_rec(obj, port, ctx); port 515 src/write.c Scm_PutcUnsafe(')', port); port 519 src/write.c Scm_PutcUnsafe(' ', port); port 525 src/write.c Scm_PutzUnsafe("#(", -1, port); port 529 src/write.c write_ss_rec(elts[i], port, ctx); port 530 src/write.c Scm_PutcUnsafe(' ', port); port 532 src/write.c write_ss_rec(elts[i], port, ctx); port 533 src/write.c Scm_PutcUnsafe(')', port); port 536 src/write.c write_general(obj, port, ctx); port 542 src/write.c static void write_ss(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) port 552 src/write.c port->data = walker_port->data; port 553 src/write.c port->flags |= SCM_PORT_WRITESS; port 554 src/write.c write_ss_rec(obj, port, ctx); port 555 src/write.c port->data = SCM_FALSE; port 556 src/write.c port->flags &= ~SCM_PORT_WRITESS; port 578 src/write.c static void format_write(ScmObj obj, ScmPort *port, ScmWriteContext *ctx, port 581 src/write.c if (port->flags & SCM_PORT_WALKING) { port 582 src/write.c SCM_ASSERT(SCM_PAIRP(port->data)&&SCM_HASH_TABLE_P(SCM_CDR(port->data))); port 583 src/write.c write_walk(obj, port, ctx); port 586 src/write.c if (port->flags & SCM_PORT_WRITESS) { port 587 src/write.c SCM_ASSERT(SCM_PAIRP(port->data)&&SCM_HASH_TABLE_P(SCM_CDR(port->data))); port 588 src/write.c write_ss_rec(obj, port, ctx); port 592 src/write.c write_ss(obj, port, ctx); port 594 src/write.c write_ss_rec(obj, port, ctx);