This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
s/Perl_utf8skip/PL_utf8skip/g
authorGurusamy Sarathy <gsar@cpan.org>
Tue, 17 Nov 1998 03:48:12 +0000 (03:48 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Tue, 17 Nov 1998 03:48:12 +0000 (03:48 +0000)
p4raw-id: //depot/perl@2241

embed.h
embed.pl
global.sym
globvar.sym
regexec.c
utf8.h

diff --git a/embed.h b/embed.h
index c240a98..4150e9b 100644 (file)
--- a/embed.h
+++ b/embed.h
 #define utf8_distance          Perl_utf8_distance
 #define utf8_hop               Perl_utf8_hop
 #define utf8_to_uv             Perl_utf8_to_uv
-#define utf8skip               Perl_utf8skip
 #define utilize                        Perl_utilize
 #define uv_to_utf8             Perl_uv_to_utf8
 #define vivify_defelem         Perl_vivify_defelem
index 709acc6..e318df1 100755 (executable)
--- a/embed.pl
+++ b/embed.pl
@@ -365,17 +365,7 @@ my @extras = qw(
     fprintf
 );
 
-my %skip;
-
-for $sym (qw[
-    utf8skip
-         ])
-{
-    $skip{$sym}++;
-}
-
 for $sym (sort(keys(%global),@extras)) {
-    next if exists $skip{$sym};
     print EM embedobj($sym);
 }
 
index 95c2b0a..38e6998 100644 (file)
@@ -611,7 +611,6 @@ utf16_to_utf8_reversed
 utf8_distance
 utf8_hop
 utf8_to_uv
-utf8skip
 utilize
 uv_to_utf8
 vivify_defelem
index 91329ca..0bf1fee 100644 (file)
@@ -36,6 +36,7 @@ psig_name
 psig_ptr
 regkind
 simple
+utf8skip
 varies
 vtbl_sv
 vtbl_env
index 83db7b5..841b900 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -417,7 +417,7 @@ regexec_flags(register regexp *prog, char *stringarg, register char *strend,
            if (s > startpos)
                s--;
            while (s < strend) {
-               if (*s++ == '\n') {     /* don't need utf8skip here */
+               if (*s++ == '\n') {     /* don't need PL_utf8skip here */
                    if (s < strend && regtry(prog, s))
                        goto got_it;
                }
@@ -1185,7 +1185,7 @@ regmatch(regnode *prog)
            break;
        case SANYUTF8:
            if (nextchr & 0x80) {
-               locinput += utf8skip[nextchr];
+               locinput += PL_utf8skip[nextchr];
                if (locinput > PL_regeol)
                    sayNO;
                nextchr = UCHARAT(locinput);
@@ -1202,7 +1202,7 @@ regmatch(regnode *prog)
            break;
        case ANYUTF8:
            if (nextchr & 0x80) {
-               locinput += utf8skip[nextchr];
+               locinput += PL_utf8skip[nextchr];
                if (locinput > PL_regeol)
                    sayNO;
                nextchr = UCHARAT(locinput);
@@ -1278,7 +1278,7 @@ regmatch(regnode *prog)
                sayNO;
            if (locinput >= PL_regeol)
                sayNO;
-           locinput += utf8skip[nextchr];
+           locinput += PL_utf8skip[nextchr];
            nextchr = UCHARAT(locinput);
            break;
        case ANYOF:
@@ -1315,7 +1315,7 @@ regmatch(regnode *prog)
                {
                    sayNO;
                }
-               locinput += utf8skip[nextchr];
+               locinput += PL_utf8skip[nextchr];
                nextchr = UCHARAT(locinput);
                break;
            }
@@ -1348,7 +1348,7 @@ regmatch(regnode *prog)
                {
                    sayNO;
                }
-               locinput += utf8skip[nextchr];
+               locinput += PL_utf8skip[nextchr];
                nextchr = UCHARAT(locinput);
                break;
            }
@@ -1420,7 +1420,7 @@ regmatch(regnode *prog)
                {
                    sayNO;
                }
-               locinput += utf8skip[nextchr];
+               locinput += PL_utf8skip[nextchr];
                nextchr = UCHARAT(locinput);
                break;
            }
@@ -1453,7 +1453,7 @@ regmatch(regnode *prog)
                {
                    sayNO;
                }
-               locinput += utf8skip[nextchr];
+               locinput += PL_utf8skip[nextchr];
                nextchr = UCHARAT(locinput);
                break;
            }
@@ -1471,7 +1471,7 @@ regmatch(regnode *prog)
            if (nextchr & 0x80) {
                if (!(swash_fetch(PL_utf8_digit,(U8*)locinput)))
                    sayNO;
-               locinput += utf8skip[nextchr];
+               locinput += PL_utf8skip[nextchr];
                nextchr = UCHARAT(locinput);
                break;
            }
@@ -1492,7 +1492,7 @@ regmatch(regnode *prog)
            if (nextchr & 0x80) {
                if (swash_fetch(PL_utf8_digit,(U8*)locinput))
                    sayNO;
-               locinput += utf8skip[nextchr];
+               locinput += PL_utf8skip[nextchr];
                nextchr = UCHARAT(locinput);
                break;
            }
@@ -1503,7 +1503,7 @@ regmatch(regnode *prog)
        case CLUMP:
            if (locinput >= PL_regeol || swash_fetch(PL_utf8_mark,(U8*)locinput))
                sayNO;
-           locinput += utf8skip[nextchr];
+           locinput += PL_utf8skip[nextchr];
            while (locinput < PL_regeol && swash_fetch(PL_utf8_mark,(U8*)locinput))
                locinput += UTF8SKIP(locinput);
            if (locinput > PL_regeol)
diff --git a/utf8.h b/utf8.h
index 50892b0..51d0143 100644 (file)
--- a/utf8.h
+++ b/utf8.h
@@ -8,7 +8,7 @@
  */
 
 #ifdef DOINIT
-EXTCONST unsigned char utf8skip[] = {
+EXTCONST unsigned char PL_utf8skip[] = {
 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, /* ascii */
 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, /* ascii */
 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, /* ascii */
@@ -19,9 +19,9 @@ EXTCONST unsigned char utf8skip[] = {
 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,4,4,4,4,4,4,4,4,5,5,5,5,6,6,7,8, /* cjk etc. */
 };
 #else
-EXTCONST unsigned char utf8skip[];
+EXTCONST unsigned char PL_utf8skip[];
 #endif
 
 #define IN_UTF8 (PL_curcop->op_private & HINT_UTF8)
 
-#define UTF8SKIP(s) utf8skip[*(U8*)s]
+#define UTF8SKIP(s) PL_utf8skip[*(U8*)s]