This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Merge pull request #75 from khwilliamson/master
authorH.Merijn Brand <perl5@tux.freedom.nl>
Sat, 5 Jun 2021 09:27:49 +0000 (11:27 +0200)
committerGitHub <noreply@github.com>
Sat, 5 Jun 2021 09:27:49 +0000 (11:27 +0200)
Add new probes:  XXX I don't know what to change in the RCS lines

U/modified/d_endpwent.U
U/perl/d_ffs.U [new file with mode: 0644]
U/perl/d_strxfrm_l.U [new file with mode: 0644]
U/threads/d_nl_langinfo_l.U

index f64536a..e800a0f 100644 (file)
@@ -15,7 +15,7 @@
 ?S:    for sequential access of the passwd database.
 ?S:.
 ?C:HAS_ENDPWENT:
-?C:    This symbol, if defined, indicates that the getgrent routine is
+?C:    This symbol, if defined, indicates that the endpwent routine is
 ?C:    available for finalizing sequential access of the passwd database.
 ?C:.
 ?H:#$d_endpwent HAS_ENDPWENT           /**/
diff --git a/U/perl/d_ffs.U b/U/perl/d_ffs.U
new file mode 100644 (file)
index 0000000..1e8793b
--- /dev/null
@@ -0,0 +1,47 @@
+?RCS: $Id: d_ffs.U 1 2006-08-24 12:32:52Z rmanfredi $
+?RCS:
+?RCS: Copyright (c) 1991-1997, 2004-2006, Raphael Manfredi
+?RCS:
+?RCS: You may redistribute only under the terms of the Artistic Licence,
+?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 Licence; a copy of which may be found at the root
+?RCS: of the source tree for dist 4.0.
+?RCS:
+?RCS: $Log: d_ffs.U,v $
+?RCS: Revision 3.0  1993/08/18  12:06:03  ram
+?RCS: Baseline for dist 3.0 netwide release.
+?RCS:
+?MAKE:d_ffs d_ffsl: Inlibc
+?MAKE: -pick add $@ %<
+?S:d_ffs:
+?S:    This variable conditionally defines the HAS_FFS symbol, which
+?S:    indicates to the C program that the ffs() routine is available
+?S:    to find the first bit which is set in its integer argument.
+?S:.
+?S:d_ffsl:
+?S:    This variable conditionally defines the HAS_FFSL symbol, which
+?S:    indicates to the C program that the ffsl() routine is available
+?S:    to find the first bit which is set in its long integer argument.
+?S:.
+?C:HAS_FFS:
+?C:    This symbol, if defined, indicates that the ffs routine is available
+?C:    to find the first bit set in its argument.  If it's not available,
+?C:    roll your own.
+?C:.
+?C:HAS_FFSL:
+?C:    This symbol, if defined, indicates that the ffsl routine is available
+?C:    to find the first bit set in its argument.  If it's not available,
+?C:    roll your own.
+?C:.
+?H:#$d_ffs HAS_FFS             /**/
+?H:#$d_ffsl HAS_FFSL           /**/
+?H:.
+?LINT:set d_ffs d_ffsl
+: see if ffs exists
+set ffs d_ffs
+eval $inlibc
+: see if ffsl exists
+set ffsl d_ffsl
+eval $inlibc
+
diff --git a/U/perl/d_strxfrm_l.U b/U/perl/d_strxfrm_l.U
new file mode 100644 (file)
index 0000000..7c60a04
--- /dev/null
@@ -0,0 +1,33 @@
+?RCS: $Id: d_strxfrm_l.U 1 2006-08-24 12:32:52Z rmanfredi $
+?RCS:
+?RCS: Copyright (c) 1991-1997, 2004-2006, Raphael Manfredi
+?RCS:
+?RCS: You may redistribute only under the terms of the Artistic Licence,
+?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 Licence; a copy of which may be found at the root
+?RCS: of the source tree for dist 4.0.
+?RCS:
+?RCS: Original Author: Andy Dougherty <doughera@lafcol.lafayette.edu>
+?RCS:
+?RCS: $Log: d_strxfrm_l.U,v $
+?RCS: Revision 3.0.1.1  1994/08/29  16:12:04  ram
+?RCS: patch32: created by ADO
+?RCS:
+?MAKE:d_strxfrm_l: Inlibc
+?MAKE: -pick add $@ %<
+?S:d_strxfrm_l:
+?S:    This variable conditionally defines HAS_STRXFRM_L if strxfrm_l() is
+?S:    available to transform strings.
+?S:.
+?C:HAS_STRXFRM_L:
+?C:    This symbol, if defined, indicates that the strxfrm_l() routine is
+?C:    available to transform strings.
+?C:.
+?H:#$d_strxfrm_l HAS_STRXFRM_L /**/
+?H:.
+?LINT:set d_strxfrm_l
+: see if strxfrm_l exists
+set strxfrm_l d_strxfrm_l
+eval $inlibc
+
index ae8e5c9..8ff4fb4 100644 (file)
@@ -5,26 +5,36 @@
 ?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_thread_safe_nl_langinfo_l: Compile cat rm_try Oldconfig \
+?MAKE:d_nl_langinfo_l d_thread_safe_nl_langinfo_l: Compile cat rm_try Oldconfig \
        i_pthread i_stdlib i_langinfo i_locale          \
        usethreads run
 ?MAKE: -pick add $@ %<
+?S:d_nl_langinfo_l:
+?S:    This variable contains the eventual value of the
+?S:    HAS_NL_LANGINFO_L symbol, which indicates if the
+?S:    nl_langinfo_l() function exists.
+?S:.
 ?S:d_thread_safe_nl_langinfo_l:
 ?S:    This variable contains the eventual value of the
 ?S:    HAS_THREAD_SAFE_NL_LANGINFO_L symbol, which indicates if the
 ?S:    nl_langinfo_l() function exists and is thread-safe.
 ?S:.
+?C:HAS_NL_LANGINFO_L:
+?C:    This symbol, when defined, indicates presence of the nl_langinfo_l()
+?C:    function
+?C:.
 ?C:HAS_THREAD_SAFE_NL_LANGINFO_L:
 ?C:    This symbol, when defined, indicates presence of the nl_langinfo_l()
 ?C:    function, and that it is thread-safe.
 ?C:.
+?H:#$d_nl_langinfo_l HAS_NL_LANGINFO_L /**/
 ?H:#$d_thread_safe_nl_langinfo_l HAS_THREAD_SAFE_NL_LANGINFO_L /**/
 ?H:.
 ?F:!try
-: check for thread_safe_nl_langinfo_l item
+: check for nl_langinfo_l item
 $cat <<EOM
 
-Checking to see if you have nl_langinfo_l() and that it is thread-safe
+Checking to see if you have nl_langinfo_l(), and that it is thread-safe
 EOM
 ?X: Despite claiming that nl_langinfo_l() is thread-safe, the POSIX 2008
 ?X: standard allows for a non-safe implementation:
@@ -34,9 +44,6 @@ EOM
 ?X:    initial thread. There can be interactions, but only when
 ?X:    nl_langinfo_l() is called in the initial thread"
 ?X:
-?X: If nl_langinfo_l() isn't thread safe, might as well just use plain
-?X: nl_langinfo().
-?X:
 ?X: This program calls nl_langinfo_l(), then creates a thread, calling plain
 ?X: nl_langinfo() from within it, then sees if the buffer in the original
 ?X: thread was changed.
@@ -101,12 +108,14 @@ case "$usethreads" in
         set try
         if eval $compile; then
             echo "Your system has nl_langinfo_l()..." >&4
+            d_nl_langinfo_l="$define"
+            echo "$d_nl_langinfo_l" >&4
             if $run ./try; then
                 echo "and it is thread-safe (just as I'd hoped)." >&4
                 d_thread_safe_nl_langinfo_l="$define"
                 echo "$d_thread_safe_nl_langinfo_l" >&4
             else
-                echo "but it isn't thread-safe, so we won't use it." >&4
+                echo "but it isn't thread-safe." >&4
             fi
         else
             echo "your system does not have nl_langinfo_l()" >&4
@@ -114,6 +123,9 @@ case "$usethreads" in
         ;;
     *) echo "Since threads aren't selected, we won't bother looking for nl_langinfo_l()" >&4
 esac
+if test X"$d_nl_langinfo_l" = X; then
+       d_nl_langinfo_l="$undef"
+fi
 if test X"$d_thread_safe_nl_langinfo_l" = X; then
        d_thread_safe_nl_langinfo_l="$undef"
 fi