This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Part 6 of a big cleanup action based on the upcoming dist-4.0
authorH.Merijn Brand <h.m.brand@xs4all.nl>
Fri, 15 Feb 2008 16:28:50 +0000 (16:28 +0000)
committerH.Merijn Brand <h.m.brand@xs4all.nl>
Fri, 15 Feb 2008 16:28:50 +0000 (16:28 +0000)
p4raw-id: //depot/metaconfig@33320

U/modified/cpp_stuff.U
U/perl/stdio_streams.U

index 5a1427f..c5c1f7f 100644 (file)
@@ -1,12 +1,12 @@
-?RCS: $Id: cpp_stuff.U,v 3.0.1.1 1994/10/29 16:08:24 ram Exp $
+?RCS: $Id: cpp_stuff.U 1 2006-08-24 12:32:52Z rmanfredi $
 ?RCS:
-?RCS: Copyright (c) 1991-1993, Raphael Manfredi
+?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 3.0.
+?RCS: of the source tree for dist 4.0.
 ?RCS:
 ?RCS: $Log: cpp_stuff.U,v $
 ?RCS: Revision 3.0.1.1  1994/10/29  16:08:24  ram
 ?H:?CAT4:#define CAT4(a,b,c,d) a/**/b/**/c/**/d
 ?H:?CAT5:#define CAT5(a,b,c,d,e)       a/**/b/**/c/**/d/**/e
 ?H:?STRINGIFY:#define STRINGIFY(a)     "a"
-?H:?%<:                /* If you can get stringification with catify, tell me how! */
+?X:    If you can get stringification with catify, tell me how!
 ?H:?%<:#endif
 ?H:?%<:#if $cpp_stuff == 42
 ?H:?%<:#define PeRl_CaTiFy(a, b)       a ## b
 ?H:?%<:#define PeRl_StGiFy(a)  #a
-?H:?%<:/* the additional level of indirection enables these macros to be
-?H:?%<: * used as arguments to other macros.  See K&R 2nd ed., page 231. */
+?X: The additional level of indirection enables these macros to be
+?X: used as arguments to other macros.  See K&R 2nd ed., page 231.
 ?H:?CAT2:#define CAT2(a,b)     PeRl_CaTiFy(a,b)
 ?H:?CAT3:#define CAT3(a,b,c)   CAT2(PeRl_CaTiFy(a,b),c)
 ?H:?CAT4:#define CAT4(a,b,c,d) CAT2(CAT3(a,b,c),d)
@@ -96,7 +96,7 @@
 ?H:?SCAT5:#define SCAT5(a,b,c,d,e)     PeRl_StGiFy(a) PeRl_StGiFy(b) PeRl_StGiFy(c) PeRl_StGiFy(d) PeRl_StGiFy(e)
 ?H:?%<:#endif
 ?H:?%<:#if $cpp_stuff != 1 && $cpp_stuff != 42
-?H:?%<:#   include "Bletch: How does this C preprocessor concatenate tokens?"
+?H:?%<:#include "Bletch: How does this C preprocessor concatenate tokens?"
 ?H:?%<:#endif
 ?H:.
 ?W:%<:CAT2 CAT3 CAT4 CAT5 STRINGIFY SCAT2 SCAT3 SCAT4 SCAT5
index f35a7bb..5884392 100644 (file)
@@ -28,9 +28,9 @@
 ?C:    Usual values include _iob, __iob, and __sF.
 ?C:.
 ?H:#$d_stdio_stream_array      HAS_STDIO_STREAM_ARRAY  /**/
-?H:#ifdef HAS_STDIO_STREAM_ARRAY
-?H:#define STDIO_STREAM_ARRAY  $stdio_stream_array
-?H:#endif
+?H:?%<:#ifdef HAS_STDIO_STREAM_ARRAY
+?H:?%<:#define STDIO_STREAM_ARRAY      $stdio_stream_array
+?H:?%<:#endif
 ?H:.
 ?T:s
 ?F:!try