This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add probe for mbrtowc() 39/head
authorKarl Williamson <khw@cpan.org>
Fri, 20 Oct 2017 18:48:05 +0000 (12:48 -0600)
committerKarl Williamson <khw@cpan.org>
Fri, 20 Oct 2017 18:48:05 +0000 (12:48 -0600)
U/threads/d_mbrtowc.U [new file with mode: 0644]

diff --git a/U/threads/d_mbrtowc.U b/U/threads/d_mbrtowc.U
new file mode 100644 (file)
index 0000000..e9b115a
--- /dev/null
@@ -0,0 +1,26 @@
+?RCS: Copyright (c) 2017, Karl Williamson
+?RCS:
+?RCS: You may redistribute only under the terms of the Artistic License,
+?RCS: as specified in the README file that comes with the distribution.
+?RCS: You may reuse parts of this distribution only within the terms of
+?RCS: that same Artistic License; a copy of which may be found at the root
+?RCS: of the source tree for dist 3.0.
+?RCS:
+?MAKE:d_mbrtowc: Inlibc
+?MAKE: -pick add $@ %<
+?S:d_mbrtowc:
+?S:    This variable conditionally defines the HAS_MBRTOWC symbol if the
+?S:    mbrtowc() routine is available to be used to convert a multi-byte
+?S:     character into a wide character.
+?S:.
+?C:HAS_MBRTOWC:
+?C:    This symbol, if defined, indicates that the mbrtowc routine is
+?C:    available to convert a multi-byte character into a wide character.
+?C:.
+?H:#$d_mbrtowc HAS_MBRTOWC     /**/
+?H:.
+?LINT: set d_mbrtowc
+: see if mbrtowc exists
+set mbrtowc d_mbrtowc
+eval $inlibc
+