This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Document ibcmp_utf8, and move to like-fcns hdr
authorKarl Williamson <khw@cpan.org>
Sat, 18 Jul 2020 15:54:32 +0000 (09:54 -0600)
committerKarl Williamson <khw@cpan.org>
Sun, 23 Aug 2020 02:42:41 +0000 (20:42 -0600)
embed.fnc
utf8.h
util.h

index efcaabf..06bcae3 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -974,7 +974,7 @@ AdmP        |I32    |ibcmp          |NN const char* a|NN const char* b|I32 len
 AdiTp  |I32    |foldEQ         |NN const char* a|NN const char* b|I32 len
 AdmP   |I32    |ibcmp_locale   |NN const char* a|NN const char* b|I32 len
 AiTpd  |I32    |foldEQ_locale  |NN const char* a|NN const char* b|I32 len
-A    |I32    |ibcmp_utf8     |NN const char *s1|NULLOK char **pe1|UV l1 \
+Adm    |I32    |ibcmp_utf8     |NN const char *s1|NULLOK char **pe1|UV l1 \
                                |bool u1|NN const char *s2|NULLOK char **pe2 \
                                |UV l2|bool u2
 Amd    |I32    |foldEQ_utf8    |NN const char *s1|NULLOK char **pe1|UV l1 \
diff --git a/utf8.h b/utf8.h
index f0396aa..9a2aea9 100644 (file)
--- a/utf8.h
+++ b/utf8.h
@@ -86,9 +86,6 @@ the string is invariant.
 #define FOLDEQ_S1_FOLDS_SANE      (1 << 4)
 #define FOLDEQ_S2_FOLDS_SANE      (1 << 5)
 
-#define ibcmp_utf8(s1, pe1, l1, u1, s2, pe2, l2, u2) \
-                   cBOOL(! foldEQ_utf8(s1, pe1, l1, u1, s2, pe2, l2, u2))
-
 #ifdef EBCDIC
 /* The equivalent of these macros but implementing UTF-EBCDIC
    are in the following header file:
diff --git a/util.h b/util.h
index 6bf7d9e..12dfea8 100644 (file)
--- a/util.h
+++ b/util.h
@@ -47,10 +47,16 @@ This is a synonym for S<C<(! foldEQ())>>
 
 This is a synonym for S<C<(! foldEQ_locale())>>
 
+=for apidoc ibcmp_utf8
+
+This is a synonym for S<C<(! foldEQ_utf8())>>
+
 =cut
 */
 #define ibcmp(s1, s2, len)         cBOOL(! foldEQ(s1, s2, len))
 #define ibcmp_locale(s1, s2, len)  cBOOL(! foldEQ_locale(s1, s2, len))
+#define ibcmp_utf8(s1, pe1, l1, u1, s2, pe2, l2, u2) \
+                   cBOOL(! foldEQ_utf8(s1, pe1, l1, u1, s2, pe2, l2, u2))
 
 /* outside the core, perl.h undefs HAS_QUAD if IV isn't 64-bit
    We can't swap this to HAS_QUAD, because the logic here affects the type of