Backport probes for towlower() and towupper()

From Perl 5 commit 0806cdda2789ca6394976d1ff3e65dd59bcb8d1b (but with a typo
in the glossary description fixed).

diff --git a/U/perl/d_towlower.U b/U/perl/d_towlower.U
new file mode 100644 (file)
index 0000000..395c6de
--- /dev/null
+++ b/U/perl/d_towlower.U
@@ -0,0 +1,24 @@
+?RCS: $Id$
+?RCS:
+?RCS: Copyright (c) 2019 Karl Williamson
+?RCS:
+?RCS: You may distribute under the terms of either the GNU General Public
+?RCS: License or the Artistic License, as specified in the README file.
+?RCS:
+?MAKE:d_towlower: Inlibc
+?MAKE: -pick add $@ %<
+?S:d_towlower:
+?S:    This variable conditionally defines the HAS_TOWLOWER symbol, which
+?S:    indicates to the C program that the towlower() routine is available.
+?S:.
+?C:HAS_TOWLOWER:
+?C:    This symbol, if defined, indicates that the towlower () routine is
+?C:    available to do case conversion.
+?C:.
+?H:#$d_towlower HAS_TOWLOWER           /**/
+?H:.
+?LINT:set d_towlower
+: see if towlower exists
+set towlower d_towlower
+eval $inlibc
+

diff --git a/U/perl/d_towupper.U b/U/perl/d_towupper.U
new file mode 100644 (file)
index 0000000..bdd58a6
--- /dev/null
+++ b/U/perl/d_towupper.U
@@ -0,0 +1,24 @@
+?RCS: $Id$
+?RCS:
+?RCS: Copyright (c) 2019 Karl Williamson
+?RCS:
+?RCS: You may distribute under the terms of either the GNU General Public
+?RCS: License or the Artistic License, as specified in the README file.
+?RCS:
+?MAKE:d_towupper: Inlibc
+?MAKE: -pick add $@ %<
+?S:d_towupper:
+?S:    This variable conditionally defines the HAS_TOWUPPER symbol, which
+?S:    indicates to the C program that the towupper() routine is available.
+?S:.
+?C:HAS_TOWUPPER:
+?C:    This symbol, if defined, indicates that the towupper () routine is
+?C:    available to do case conversion.
+?C:.
+?H:#$d_towupper HAS_TOWUPPER           /**/
+?H:.
+?LINT:set d_towupper
+: see if towupper exists
+set towupper d_towupper
+eval $inlibc
+