This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix .gitignore: only ignore 'perl' in root of repo, not U/perl subdir
[metaconfig.git] / U / perl / d_iovec_s.U
1 ?RCS: $Id$
2 ?RCS:
3 ?RCS: Copyright (c) 1999 Jarkko Hietaniemi
4 ?RCS:
5 ?RCS: You may distribute under the terms of either the GNU General Public
6 ?RCS: License or the Artistic License, as specified in the README file.
7 ?RCS:
8 ?MAKE:d_iovec_s: i_sysuio Hasfield
9 ?MAKE:  -pick add $@ %<
10 ?S:d_iovec_s:
11 ?S:     This variable conditionally defines the HAS_STRUCT_IOVEC symbol,
12 ?S:     which indicates that the struct iovec is supported.
13 ?S:.
14 ?C:HAS_STRUCT_IOVEC:
15 ?C:     This symbol, if defined, indicates that the struct iovec
16 ?C:     to do scatter writes/gather reads is supported.
17 ?C:.
18 ?H:#$d_iovec_s  HAS_STRUCT_IOVEC                /**/
19 ?H:.
20 ?LINT:set d_iovec_s
21 : Check for iovec_s
22 echo "Checking to see if your system supports struct iovec..." >&4
23 set d_iovec_s iovec iov_base $i_sysuio sys/uio.h
24 eval $hasfield
25 case "$d_iovec_s" in
26 "$define")      echo "Yup, it does."     ;;
27 *)              echo "Nope, it doesn't." ;;
28 esac
29