summaryrefslogtreecommitdiff
path: root/gnu/usr.bin/perl/vos/vos_accept.c
blob: fca70db1495bc4f0b83c91490fbfde5a79f16b29 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
/*  +++begin copyright+++ *******************************************  */
/*                                                                     */
/*  COPYRIGHT (c) 1999 Stratus Computer, Inc.                          */
/*                                                                     */
/*  This program is free software; you can redistribute it and/or      */
/*  modify it under the terms of either:                               */
/*                                                                     */
/*  a) the GNU General Public License as published by the Free         */
/*  Software Foundation; either version 1, or (at your option) any     */
/*  later version, or                                                  */
/*                                                                     */
/*  b) the "Artistic License" which comes with this Kit.               */
/*                                                                     */
/*  This program is distributed in the hope that it will be useful,    */
/*  but WITHOUT ANY WARRANTY; without even the implied warranty of     */
/*  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See either   */
/*  the GNU General Public License or the Artistic License for more    */
/*  details.                                                           */
/*                                                                     */
/*  You should have received a copy of the Artistic License with this  */
/*  Kit, in the file named "Artistic".  If not, you can get one from   */
/*  the Perl distribution.                                             */
/*                                                                     */
/*  You should also have received a copy of the GNU General Public     */
/*  License along with this program; if not, you can get one from      */
/*  the Perl distribution or else write to the Free Software           */
/*  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA          */
/*  02111-1307, USA.                                                   */
/*                                                                     */
/*  +++end copyright+++ *********************************************  */

#define _POSIX_C_SOURCE 199309L

/* Beginning of modification history */
/* Written 99-02-03 by Paul Green. */
/* End of modification history */

/* This short program soaks up the call to "accept" and
   transfers it to "_accept".  This is necessary because the VOS
   C compilers treat "accept" as a keyword unless the -Xc
   (strict ANSI option) has been specified.  This program must
   be compiled with -Xc.  Because "accept" is a keyword, the VOS
   OS TCP/IP product has renamed the usual TCP/IP "accept"
   function to "_accept".  */

extern int _accept (int a, struct sockaddr *b, int *c);

extern int accept (int a, struct sockaddr *b, int *c)
{
     return _accept (a, b, c);
}