Searched refs:SCM_OPORTP (Results 1 – 10 of 10) sorted by relevance
/dports/lang/gauche/Gauche-0.9.10/src/ |
H A D | write.c | 217 if (!SCM_OPORTP(p)) Scm_Error("output port required, but got %S", p); in Scm_WriteWithControls() 272 if (!SCM_OPORTP(p)) { in Scm_WriteLimited() 352 if (nargs != 2 || (nargs == 2 && !SCM_OPORTP(args[1]))) { in write_object_fallback() 1129 if (!SCM_OPORTP(out)) Scm_Error("output port required, but got %S", out); in Scm_Vprintf()
|
H A D | libio.scm | 55 (define-cproc output-port? (obj) ::<boolean> SCM_OPORTP) 76 (cond [(SCM_OPORTP newport) 87 [(SCM_OPORTP newport) (return (Scm_SetCurrentErrorPort (SCM_PORT newport)))]
|
H A D | error.c | 1110 } else if (SCM_OPORTP(out)) { in Scm_ReportError()
|
H A D | libio.c | 5617 {SCM_RESULT=(SCM_OPORTP(obj));goto SCM_STUB_RETURN;} in libiooutput_portP() 5729 if (SCM_OPORTP(newport)){ in libiocurrent_output_port() 5827 if (!SCM_MAYBE_P(SCM_OPORTP, p_scm)) Scm_Error("output port or #f required, but got %S", p_scm); in libiostandard_output_port() 6298 if (!SCM_OPORTP(port_scm)) Scm_Error("output port required, but got %S", port_scm); in libioclose_output_port() 6847 if (!SCM_OPORTP(oport_scm)) Scm_Error("output port required, but got %S", oport_scm); in libioget_output_string() 6872 if (!SCM_OPORTP(oport_scm)) Scm_Error("output port required, but got %S", oport_scm); in libioget_output_byte_string() 8117 if (!SCM_OPORTP(port_scm)) Scm_Error("output port required, but got %S", port_scm); in libiowrite_simple() 8230 if (!SCM_OPORTP(port_scm)) Scm_Error("output port required, but got %S", port_scm); in libionewline() 8264 if (!SCM_OPORTP(port_scm)) Scm_Error("output port required, but got %S", port_scm); in libiowrite_char() 8298 if (!SCM_OPORTP(port_scm)) Scm_Error("output port required, but got %S", port_scm); in libiowrite_byte() [all …]
|
H A D | system.c | 1860 if (tofd[i] == 1 && !SCM_OPORTP(port)) in Scm_SysPrepareFdMap() 1863 if (tofd[i] == 2 && !SCM_OPORTP(port)) in Scm_SysPrepareFdMap()
|
H A D | vminsn.scm | 1375 ($type-check VAL0 SCM_OPORTP "output port")
|
H A D | vminsn.c | 2481 if (!(SCM_OPORTP(VAL0))){{Scm_Error("%s required, but got %S","output port",VAL0);}} in CASE()
|
/dports/lang/gauche/Gauche-0.9.10/src/gauche/ |
H A D | port.h | 299 #define SCM_OPORTP(obj) (SCM_PORTP(obj)&&(SCM_PORT_DIR(obj)&SCM_PORT_OUTPUT)) macro
|
/dports/lang/gauche/Gauche-0.9.10/ext/charconv/ |
H A D | charconv.c | 470 if (!SCM_OPORTP(toPort)) in Scm_MakeOutputConversionPort()
|
/dports/lang/gauche/Gauche-0.9.10/lib/gauche/vm/ |
H A D | insn.scm | 2222 …RG code)) (ch) (port::ScmPort*)) (cond ((== nargs 2) ($type-check VAL0 SCM_OPORTP "output port") (…
|