This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Backport probes for towlower() and towupper()
[metaconfig.git] / U / perl / d_towupper.U
1 ?RCS: $Id$
2 ?RCS:
3 ?RCS: Copyright (c) 2019 Karl Williamson
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_towupper: Inlibc
9 ?MAKE:  -pick add $@ %<
10 ?S:d_towupper:
11 ?S:     This variable conditionally defines the HAS_TOWUPPER symbol, which
12 ?S:     indicates to the C program that the towupper() routine is available.
13 ?S:.
14 ?C:HAS_TOWUPPER:
15 ?C:     This symbol, if defined, indicates that the towupper () routine is
16 ?C:     available to do case conversion.
17 ?C:.
18 ?H:#$d_towupper HAS_TOWUPPER            /**/
19 ?H:.
20 ?LINT:set d_towupper
21 : see if towupper exists
22 set towupper d_towupper
23 eval $inlibc
24