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);