1 /* $OpenBSD: socket2.c,v 1.3 2002/01/02 16:15:32 fgsch Exp $ */ 2 /* 3 * Copyright (c) 1993, 1994, 1995, 1996 by Chris Provenzano and contributors, 4 * proven@mit.edu All rights reserved. 5 * 6 * Redistribution and use in source and binary forms, with or without 7 * modification, are permitted provided that the following conditions 8 * are met: 9 * 1. Redistributions of source code must retain the above copyright 10 * notice, this list of conditions and the following disclaimer. 11 * 2. Redistributions in binary form must reproduce the above copyright 12 * notice, this list of conditions and the following disclaimer in the 13 * documentation and/or other materials provided with the distribution. 14 * 3. All advertising materials mentioning features or use of this software 15 * must display the following acknowledgement: 16 * This product includes software developed by Chris Provenzano, 17 * the University of California, Berkeley, and contributors. 18 * 4. Neither the name of Chris Provenzano, the University, nor the names of 19 * contributors may be used to endorse or promote products derived 20 * from this software without specific prior written permission. 21 * 22 * THIS SOFTWARE IS PROVIDED BY CHRIS PROVENZANO AND CONTRIBUTORS ``AS IS'' AND 23 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 24 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 25 * ARE DISCLAIMED. IN NO EVENT SHALL CHRIS PROVENZANO, THE REGENTS OR 26 * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, 27 * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, 28 * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; 29 * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, 30 * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR 31 * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF 32 * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 33 */ 34 35 /* ==== test_sock_1.c ========================================================= 36 * Copyright (c) 1993 by Chris Provenzano, proven@athena.mit.edu 37 * 38 * Description : Test pthread_create() and pthread_exit() calls. 39 * 40 * 1.00 93/08/03 proven 41 * -Started coding this file. 42 */ 43 44 #include <pthread.h> 45 #include <pthread_np.h> 46 #include <errno.h> 47 #include <stdio.h> 48 #include <sys/types.h> 49 #include <sys/wait.h> 50 #include <sys/socket.h> 51 #include <netinet/in.h> 52 #include <unistd.h> 53 #include <string.h> 54 #include <stdlib.h> 55 #include "test.h" 56 57 struct sockaddr_in a_sout; 58 59 #define MESSAGE5 "This should be message #5" 60 #define MESSAGE6 "This should be message #6" 61 62 void * 63 sock_write(arg) 64 void *arg; 65 { 66 int fd = *(int *)arg; 67 68 SET_NAME("writer"); 69 CHECKe(write(fd, MESSAGE5, sizeof(MESSAGE5))); 70 return(NULL); 71 } 72 73 static pthread_mutex_t waiter_mutex = PTHREAD_MUTEX_INITIALIZER; 74 75 void* 76 waiter(sig) 77 { 78 int status; 79 pid_t pid; 80 81 SET_NAME("waiter"); 82 CHECKr(pthread_mutex_lock(&waiter_mutex)); 83 printf("waiting for child\n"); 84 CHECKe(pid = wait(&status)); 85 ASSERT(WIFEXITED(status)); 86 ASSERT(WEXITSTATUS(status) == 0); 87 printf("child exited\n"); 88 CHECKr(pthread_mutex_unlock(&waiter_mutex)); 89 return (NULL); 90 } 91 92 void * 93 sock_accept(arg) 94 void *arg; 95 { 96 pthread_t thread, wthread; 97 struct sockaddr a_sin; 98 int a_sin_size, a_fd, fd; 99 u_int16_t port; 100 char buf[1024]; 101 pid_t pid; 102 103 port = 3276; 104 a_sout.sin_family = AF_INET; 105 a_sout.sin_port = htons(port); 106 a_sout.sin_addr.s_addr = INADDR_ANY; 107 108 CHECKe(a_fd = socket(AF_INET, SOCK_STREAM, 0)); 109 110 while(1) { 111 if (bind(a_fd, (struct sockaddr *)&a_sout, sizeof(a_sout))==0) 112 break; 113 if (errno == EADDRINUSE) { 114 a_sout.sin_port = htons((++port)); 115 continue; 116 } 117 DIE(errno, "bind"); 118 } 119 120 printf("listening on port %d\n", port); 121 122 CHECKe(listen(a_fd, 2)); 123 124 printf("%d: This should be message #1\n", getpid()); 125 126 CHECKr(pthread_mutex_init(&waiter_mutex, NULL)); 127 CHECKr(pthread_mutex_lock(&waiter_mutex)); 128 CHECKr(pthread_create(&wthread, NULL, waiter, NULL)); 129 130 sprintf(buf, "%d", port); 131 132 CHECKe(pid = fork()); 133 switch(pid) { 134 case 0: 135 execl("socket2a", "socket2a", "fork okay", buf, (char *)NULL); 136 DIE(errno, "execl"); 137 default: 138 break; 139 } 140 CHECKr(pthread_mutex_unlock(&waiter_mutex)); 141 pthread_yield(); 142 143 a_sin_size = sizeof(a_sin); 144 CHECKe(fd = accept(a_fd, &a_sin, &a_sin_size)); 145 CHECKe(close(fd)); 146 147 sleep(1); 148 149 printf("%d: This should be message #4\n", getpid()); 150 151 a_sin_size = sizeof(a_sin); 152 memset(&a_sin, 0, sizeof(a_sin)); 153 CHECKe(fd = accept(a_fd, &a_sin, &a_sin_size)); 154 155 /* Setup a write thread */ 156 157 CHECKr(pthread_create(&thread, NULL, sock_write, &fd)); 158 CHECKe(read(fd, buf, 1024)); 159 160 printf("%d: %s\n", getpid(), buf); /* message 6 */ 161 162 CHECKe(close(fd)); 163 164 if (pthread_mutex_trylock(&waiter_mutex) == EBUSY) { 165 sleep(2); 166 if (pthread_mutex_trylock(&waiter_mutex) == EBUSY) { 167 /* forcibly kill child */ 168 CHECKe(kill(pid, SIGKILL)); 169 PANIC("child %d took too long to exit", pid); 170 } 171 } 172 CHECKr(pthread_join(wthread, NULL)); 173 174 return(NULL); 175 } 176 177 int 178 main() 179 { 180 pthread_t thread; 181 182 setbuf(stdout, NULL); 183 setbuf(stderr, NULL); 184 185 CHECKr(pthread_create(&thread, NULL, sock_accept, 186 (void *)0xdeadbeaf)); 187 188 CHECKr(pthread_join(thread, NULL)); 189 190 SUCCEED; 191 } 192