PARROT_CANNOT_RETURN_NULL PARROT_WARN_UNUSED_RESULT PMC * io_get_new_socket(PARROT_INTERP) { ASSERT_ARGS(io_get_new_socket) const INTVAL typenum = Parrot_hll_get_ctx_HLL_type(interp, enum_class_Socket); return Parrot_pmc_new(interp, typenum); }
/* =item C<PMC * Parrot_ex_build_exception(PARROT_INTERP, INTVAL severity, long error, STRING *msg)> Constructs a new exception object from the passed in arguments. =cut */ PARROT_EXPORT PARROT_CANNOT_RETURN_NULL PMC * Parrot_ex_build_exception(PARROT_INTERP, INTVAL severity, long error, ARGIN_NULLOK(STRING *msg)) { ASSERT_ARGS(Parrot_ex_build_exception) const int exception_type_id = Parrot_hll_get_ctx_HLL_type(interp, enum_class_Exception); PMC * const exception = Parrot_pmc_new(interp, exception_type_id); VTABLE_set_integer_keyed_str(interp, exception, CONST_STRING(interp, "severity"), severity); VTABLE_set_integer_keyed_str(interp, exception, CONST_STRING(interp, "type"), error); if (msg) VTABLE_set_string_native(interp, exception, msg); return exception; }
PARROT_EXPORT PARROT_WARN_UNUSED_RESULT PARROT_CANNOT_RETURN_NULL PMC * Parrot_io_open_handle(PARROT_INTERP, ARGIN(PMC *pmc), ARGIN(STRING *path), ARGIN(STRING *mode)) { ASSERT_ARGS(Parrot_io_open_handle) PMC *filehandle; const INTVAL typenum = Parrot_hll_get_ctx_HLL_type(interp, Parrot_PMC_typenum(interp, "FileHandle")); if (PMC_IS_NULL(pmc)) { filehandle = Parrot_pmc_new(interp, typenum); } else filehandle = pmc; if (STRING_IS_NULL(path)) Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_PIO_ERROR, "Cannot open filehandle, no path"); if (filehandle->vtable->base_type == typenum) { INTVAL flags = Parrot_io_parse_open_flags(interp, mode); PIOHANDLE os_handle; /* TODO: a filehandle shouldn't allow a NULL path. */ PARROT_ASSERT(filehandle->vtable->base_type == typenum); if (flags & PIO_F_PIPE) { const int f_read = (flags & PIO_F_READ) != 0; const int f_write = (flags & PIO_F_WRITE) != 0; INTVAL pid; if (f_read == f_write) Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_PIO_ERROR, "Invalid pipe mode: %X", flags); os_handle = PIO_OPEN_PIPE(interp, path, flags, &pid); /* Save the pid of the child, we'll wait for it when closing */ VTABLE_set_integer_keyed_int(interp, filehandle, 0, pid); } else { if ((flags & (PIO_F_WRITE | PIO_F_READ)) == 0) Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_INVALID_OPERATION, "Invalid mode for file open"); os_handle = PIO_OPEN(interp, path, flags); if (os_handle == PIO_INVALID_HANDLE) Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_PIO_ERROR, "Unable to open filehandle from path '%Ss'", path); flags |= PIO_F_FILE; /* Set generic flag here if is a terminal then * FileHandle can know how to setup buffering. * STDIN, STDOUT, STDERR would be in this case * so we would setup linebuffering. */ if (PIO_IS_TTY(interp, os_handle)) flags |= PIO_F_CONSOLE; } if (STRING_IS_NULL(mode)) mode = CONST_STRING(interp, "r"); else if (STRING_index(interp, mode, CONST_STRING(interp, "b"), 0) >= 0) SETATTR_FileHandle_encoding(interp, filehandle, CONST_STRING(interp, "binary")); SETATTR_FileHandle_os_handle(interp, filehandle, os_handle); SETATTR_FileHandle_flags(interp, filehandle, flags); SETATTR_FileHandle_filename(interp, filehandle, path); SETATTR_FileHandle_mode(interp, filehandle, mode); Parrot_io_setbuf(interp, filehandle, PIO_UNBOUND); } else Parrot_pcc_invoke_method_from_c_args(interp, filehandle, CONST_STRING(interp, "open"), "SS->P", path, mode, &filehandle); return filehandle; }