From 11341fdec799e899e936e8a4203bda825109396e Mon Sep 17 00:00:00 2001 From: Aaron Crane Date: Thu, 25 Apr 2019 11:38:00 +0100 Subject: [PATCH] Backport probes for towlower() and towupper() From Perl 5 commit 0806cdda2789ca6394976d1ff3e65dd59bcb8d1b (but with a typo in the glossary description fixed). --- U/perl/d_towlower.U | 24 ++++++++++++++++++++++++ U/perl/d_towupper.U | 24 ++++++++++++++++++++++++ 2 files changed, 48 insertions(+) create mode 100644 U/perl/d_towlower.U create mode 100644 U/perl/d_towupper.U diff --git a/U/perl/d_towlower.U b/U/perl/d_towlower.U new file mode 100644 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 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 + -- 1.8.3.1