ccan/io: io_close_cb()
[ccan] / ccan / io / test / run-17-homemade-io.c
1 #include <ccan/io/io.h>
2 /* Include the C files directly. */
3 #include <ccan/io/poll.c>
4 #include <ccan/io/io.c>
5 #include <ccan/tap/tap.h>
6 #include <sys/wait.h>
7 #include <stdio.h>
8
9 #ifndef PORT
10 #define PORT "65017"
11 #endif
12
13 struct packet {
14         int state;
15         size_t len;
16         void *contents;
17 };
18
19 static void finish_ok(struct io_conn *conn, struct packet *pkt)
20 {
21         ok1(pkt->state == 3);
22         pkt->state++;
23         io_break(pkt, io_idle());
24 }
25
26 static int do_read_packet(int fd, struct io_plan *plan)
27 {
28         struct packet *pkt = plan->u.ptr_len.p;
29         char *dest;
30         ssize_t ret;
31         size_t off, totlen;
32
33         /* Reading len? */
34         if (plan->u.ptr_len.len < sizeof(size_t)) {
35                 ok1(pkt->state == 1);
36                 pkt->state++;
37                 dest = (char *)&pkt->len;
38                 off = plan->u.ptr_len.len;
39                 totlen = sizeof(pkt->len);
40         } else {
41                 ok1(pkt->state == 2);
42                 pkt->state++;
43                 if (pkt->len == 0)
44                         return 1;
45                 if (!pkt->contents && !(pkt->contents = malloc(pkt->len)))
46                         goto fail;
47                 else {
48                         dest = pkt->contents;
49                         off = plan->u.ptr_len.len - sizeof(pkt->len);
50                         totlen = pkt->len;
51                 }
52         }
53
54         ret = read(fd, dest + off, totlen - off);
55         if (ret <= 0)
56                 goto fail;
57
58         plan->u.ptr_len.len += ret;
59
60         /* Finished? */
61         return (plan->u.ptr_len.len >= sizeof(pkt->len)
62                 && plan->u.ptr_len.len == pkt->len + sizeof(pkt->len));
63
64 fail:
65         free(pkt->contents);
66         return -1;
67 }
68
69 static struct io_plan io_read_packet(struct packet *pkt,
70                                      struct io_plan (*cb)(struct io_conn *, void *),
71                                      void *arg)
72 {
73         struct io_plan plan;
74
75         assert(cb);
76         pkt->contents = NULL;
77         plan.u.ptr_len.p = pkt;
78         plan.u.ptr_len.len = 0;
79         plan.io = do_read_packet;
80         plan.next = cb;
81         plan.next_arg = arg;
82         plan.pollflag = POLLIN;
83
84         io_plan_debug(&plan);
85         return plan;
86 }
87
88 static void init_conn(int fd, struct packet *pkt)
89 {
90         ok1(pkt->state == 0);
91         pkt->state++;
92
93         io_set_finish(io_new_conn(fd, io_read_packet(pkt, io_close_cb, pkt)),
94                       finish_ok, pkt);
95 }
96
97 static int make_listen_fd(const char *port, struct addrinfo **info)
98 {
99         int fd, on = 1;
100         struct addrinfo *addrinfo, hints;
101
102         memset(&hints, 0, sizeof(hints));
103         hints.ai_family = AF_UNSPEC;
104         hints.ai_socktype = SOCK_STREAM;
105         hints.ai_flags = AI_PASSIVE;
106         hints.ai_protocol = 0;
107
108         if (getaddrinfo(NULL, port, &hints, &addrinfo) != 0)
109                 return -1;
110
111         fd = socket(addrinfo->ai_family, addrinfo->ai_socktype,
112                     addrinfo->ai_protocol);
113         if (fd < 0)
114                 return -1;
115
116         setsockopt(fd, SOL_SOCKET, SO_REUSEADDR, &on, sizeof(on));
117         if (bind(fd, addrinfo->ai_addr, addrinfo->ai_addrlen) != 0) {
118                 close(fd);
119                 return -1;
120         }
121         if (listen(fd, 1) != 0) {
122                 close(fd);
123                 return -1;
124         }
125         *info = addrinfo;
126         return fd;
127 }
128
129 int main(void)
130 {
131         struct packet *pkt = malloc(sizeof(*pkt));
132         struct addrinfo *addrinfo;
133         struct io_listener *l;
134         int fd, status;
135
136         /* This is how many tests you plan to run */
137         plan_tests(13);
138         pkt->state = 0;
139         fd = make_listen_fd(PORT, &addrinfo);
140         ok1(fd >= 0);
141         l = io_new_listener(fd, init_conn, pkt);
142         ok1(l);
143         fflush(stdout);
144         if (!fork()) {
145                 struct {
146                         size_t len;
147                         char data[8];
148                 } data;
149
150                 io_close_listener(l);
151                 fd = socket(addrinfo->ai_family, addrinfo->ai_socktype,
152                             addrinfo->ai_protocol);
153                 if (fd < 0)
154                         exit(1);
155                 if (connect(fd, addrinfo->ai_addr, addrinfo->ai_addrlen) != 0)
156                         exit(2);
157                 signal(SIGPIPE, SIG_IGN);
158
159                 data.len = sizeof(data.data);
160                 memcpy(data.data, "hithere!", sizeof(data.data));
161                 if (write(fd, &data, sizeof(data)) != sizeof(data))
162                         exit(3);
163
164                 close(fd);
165                 freeaddrinfo(addrinfo);
166                 free(pkt);
167                 exit(0);
168         }
169         freeaddrinfo(addrinfo);
170         ok1(io_loop() == pkt);
171         ok1(pkt->state == 4);
172         ok1(pkt->len == 8);
173         ok1(memcmp(pkt->contents, "hithere!", 8) == 0);
174         free(pkt->contents);
175         free(pkt);
176         io_close_listener(l);
177
178         ok1(wait(&status));
179         ok1(WIFEXITED(status));
180         ok1(WEXITSTATUS(status) == 0);
181
182         /* This exits depending on whether all tests passed */
183         return exit_status();
184 }