Tchannel arg_to_channel (SCHEME_OBJECT argument, int arg_number) { unsigned long channel = (arg_ulong_integer (arg_number)); if (! (channel < OS_channel_table_size)) error_wrong_type_arg (arg_number); return (channel); }
static Tprocess arg_process (int argument_number) { Tprocess process = (arg_ulong_integer (argument_number)); if (!OS_process_valid_p (process)) error_bad_range_arg (argument_number); return (process); }
static Tchannel arg_client_socket (unsigned int arg) { Tchannel socket = (arg_ulong_integer (arg)); if (! (((OS_channel_type (socket)) == channel_type_tcp_stream_socket) || ((OS_channel_type (socket)) == channel_type_unix_stream_socket))) error_bad_range_arg (arg); return (socket); }