This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Part of C89, so unwanted
authorH.Merijn Brand - Tux <h.m.brand@xs4all.nl>
Thu, 12 Apr 2018 12:34:17 +0000 (14:34 +0200)
committerH.Merijn Brand - Tux <h.m.brand@xs4all.nl>
Thu, 12 Apr 2018 12:34:17 +0000 (14:34 +0200)
dist/U/d_strchr.U [deleted file]

diff --git a/dist/U/d_strchr.U b/dist/U/d_strchr.U
deleted file mode 100644 (file)
index dd9bbd8..0000000
+++ /dev/null
@@ -1,95 +0,0 @@
-?RCS: $Id: d_strchr.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_strchr.U,v $
-?RCS: Revision 3.0.1.2  1993/10/16  13:49:20  ram
-?RCS: patch12: added support for HAS_INDEX
-?RCS: patch12: added magic for index() and rindex()
-?RCS:
-?RCS: Revision 3.0.1.1  1993/09/13  16:05:26  ram
-?RCS: patch10: now only defines HAS_STRCHR, no macro remap of index (WAD)
-?RCS:
-?RCS: Revision 3.0  1993/08/18  12:07:32  ram
-?RCS: Baseline for dist 3.0 netwide release.
-?RCS:
-?MAKE:d_strchr d_index: contains strings Setvar Myread Oldconfig Csym
-?MAKE: -pick add $@ %<
-?S:d_strchr:
-?S:    This variable conditionally defines HAS_STRCHR if strchr() and
-?S:    strrchr() are available for string searching.
-?S:.
-?S:d_index:
-?S:    This variable conditionally defines HAS_INDEX if index() and
-?S:    rindex() are available for string searching.
-?S:.
-?C:HAS_STRCHR:
-?C:    This symbol is defined to indicate that the strchr()/strrchr()
-?C:    functions are available for string searching. If not, try the
-?C:    index()/rindex() pair.
-?C:.
-?C:HAS_INDEX:
-?C:    This symbol is defined to indicate that the index()/rindex()
-?C:    functions are available for string searching.
-?C:.
-?H:#$d_strchr HAS_STRCHR       /**/
-?H:#$d_index HAS_INDEX /**/
-?H:.
-?M:index: HAS_INDEX
-?M:#ifndef HAS_INDEX
-?M:#ifndef index
-?M:#define index strchr
-?M:#endif
-?M:#endif
-?M:.
-?M:rindex: HAS_INDEX
-?M:#ifndef HAS_INDEX
-?M:#ifndef rindex
-?M:#define rindex strrchr
-?M:#endif
-?M:#endif
-?M:.
-?T:vali
-?LINT:set d_strchr d_index
-: index or strchr
-echo " "
-if set index val -f; eval $csym; $val; then
-       if set strchr val -f d_strchr; eval $csym; $val; then
-               if $contains strchr "$strings" >/dev/null 2>&1 ; then
-?X: has index, strchr, and strchr in string header
-                       val="$define"
-                       vali="$undef"
-                       echo "strchr() found." >&4
-               else
-?X: has index, strchr, and no strchr in string header
-                       val="$undef"
-                       vali="$define"
-                       echo "index() found." >&4
-               fi
-       else
-?X: has only index, no strchr, string header is a moot point
-               val="$undef"
-               vali="$define"
-               echo "index() found." >&4
-       fi
-else
-       if set strchr val -f d_strchr; eval $csym; $val; then
-               val="$define"
-               vali="$undef"
-               echo "strchr() found." >&4
-       else
-               echo "No index() or strchr() found!" >&4
-               val="$undef"
-               vali="$undef"
-       fi
-fi
-set d_strchr; eval $setvar
-val="$vali"
-set d_index; eval $setvar
-