This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
utf8.h: Add a #define
authorKarl Williamson <khw@cpan.org>
Thu, 7 May 2015 02:47:15 +0000 (20:47 -0600)
committerKarl Williamson <khw@cpan.org>
Thu, 7 May 2015 23:32:47 +0000 (17:32 -0600)
The name UVCHR... parallels the usage of various functions uvchr...
It's less confusing to keep the same name form for the same type of
functionality

utf8.h

diff --git a/utf8.h b/utf8.h
index 73e9588..2c1acd2 100644 (file)
--- a/utf8.h
+++ b/utf8.h
@@ -326,9 +326,10 @@ Perl's extended UTF-8 means we can have start bytes up to FF.
 
 /* Most code which says UNISKIP is really thinking in terms of native code
  * points (0-255) plus all those beyond.  This is an imprecise term, but having
- * it means existing code continues to work.  For precision, use NATIVE_SKIP
- * and OFFUNISKIP */
+ * it means existing code continues to work.  For precision, use UVCHR_SKIP,
+ * NATIVE_SKIP, and OFFUNISKIP */
 #define UNISKIP(uv)   NATIVE_SKIP(uv)
+#define UVCHR_SKIP(uv) NATIVE_SKIP(uv)
 
 /* Convert a two (not one) byte utf8 character to a native code point value.
  * Needs just one iteration of accumulate.  Should not be used unless it is