1/************************************************
2
3  tcpsocket.c -
4
5  created at: Thu Mar 31 12:21:29 JST 1994
6
7  Copyright (C) 1993-2007 Yukihiro Matsumoto
8
9************************************************/
10
11#include "rubysocket.h"
12
13/*
14 * call-seq:
15 *    TCPSocket.new(remote_host, remote_port, local_host=nil, local_port=nil)
16 *
17 * Opens a TCP connection to +remote_host+ on +remote_port+.  If +local_host+
18 * and +local_port+ are specified, then those parameters are used on the local
19 * end to establish the connection.
20 */
21static VALUE
22tcp_init(int argc, VALUE *argv, VALUE sock)
23{
24    VALUE remote_host, remote_serv;
25    VALUE local_host, local_serv;
26
27    rb_scan_args(argc, argv, "22", &remote_host, &remote_serv,
28			&local_host, &local_serv);
29
30    return rsock_init_inetsock(sock, remote_host, remote_serv,
31			       local_host, local_serv, INET_CLIENT);
32}
33
34static VALUE
35tcp_sockaddr(struct sockaddr *addr, size_t len)
36{
37    return rsock_make_ipaddr(addr);
38}
39
40/*
41 * call-seq:
42 *   TCPSocket.gethostbyname(hostname) => [official_hostname, alias_hostnames, address_family, *address_list]
43 *
44 * Lookups host information by _hostname_.
45 *
46 *   TCPSocket.gethostbyname("localhost")
47 *   #=> ["localhost", ["hal"], 2, "127.0.0.1"]
48 *
49 */
50static VALUE
51tcp_s_gethostbyname(VALUE obj, VALUE host)
52{
53    rb_secure(3);
54    return rsock_make_hostent(host, rsock_addrinfo(host, Qnil, SOCK_STREAM, AI_CANONNAME),
55			tcp_sockaddr);
56}
57
58void
59rsock_init_tcpsocket(void)
60{
61    /*
62     * Document-class: TCPSocket < IPSocket
63     *
64     * TCPSocket represents a TCP/IP client socket.
65     *
66     * A simple client may look like:
67     *
68     *   require 'socket'
69     *
70     *   s = TCPSocket.new 'localhost', 2000
71     *
72     *   while line = s.gets # Read lines from socket
73     *     puts line         # and print them
74     *   end
75     *
76     *   s.close             # close socket when done
77     *
78     */
79    rb_cTCPSocket = rb_define_class("TCPSocket", rb_cIPSocket);
80    rb_define_singleton_method(rb_cTCPSocket, "gethostbyname", tcp_s_gethostbyname, 1);
81    rb_define_method(rb_cTCPSocket, "initialize", tcp_init, -1);
82}
83