Break out code from Perl_sv_gets() which is self contained and exits directly.

[perl5.git] / regcomp.sym

diff --git a/regcomp.sym b/regcomp.sym
index ac1c2e0..a85d33f 100644 (file)
--- a/regcomp.sym
+++ b/regcomp.sym
@@ -41,7 +41,7 @@ GPOS        GPOS,       no        ; Matches where last m//g left off.
 REG_ANY     REG_ANY,    no 0 S    ; Match any one character (except newline).
 SANY        REG_ANY,    no 0 S    ; Match any one character.
 CANY        REG_ANY,    no 0 S    ; Match any one byte.
-ANYOF       ANYOF,      sv 0 S    ; Match character in (or not in) this class.
+ANYOF       ANYOF,      sv 0 S    ; Match character in (or not in) this class, folding is native charset for non-utf8.
 ALNUM       ALNUM,      no 0 S    ; Match any alphanumeric character
 ALNUML      ALNUM,      no 0 S    ; Match any alphanumeric char in locale
 NALNUM      NALNUM,     no 0 S    ; Match any non-alphanumeric character
@@ -54,7 +54,7 @@ DIGIT       DIGIT,      no 0 S    ; Match any numeric character
 DIGITL      DIGIT,      no        ; Match any numeric character in locale
 NDIGIT      NDIGIT,     no 0 S    ; Match any non-numeric character
 NDIGITL     NDIGIT,     no        ; Match any non-numeric character in locale
-CLUMP       CLUMP,      no 0 V    ; Match any combining character sequence
+CLUMP       CLUMP,      no 0 V    ; Match any extended grapheme cluster sequence
 
 #* Alternation (31)
 
@@ -78,7 +78,7 @@ BACK        BACK,       no 0 V    ; Match "", "next" ptr points backward.
 #*Literals (33..35)
 
 EXACT       EXACT,      str       ; Match this string (preceded by length).
-EXACTF      EXACT,      str       ; Match this string, folded (prec. by length).
+EXACTF      EXACT,      str       ; Match this string, folded, native charset semantics for non-utf8 (prec. by length).
 EXACTFL     EXACT,      str       ; Match this string, folded in locale (w/len).
 
 #*Do nothing types (36..37)
@@ -112,7 +112,7 @@ OPEN        OPEN,       num 1     ; Mark this point in input as start of #n.
 CLOSE       CLOSE,      num 1     ; Analogous to OPEN.
 
 REF         REF,        num 1 V   ; Match some already matched string
-REFF        REF,        num 1 V   ; Match already matched string, folded
+REFF        REF,        num 1 V   ; Match already matched string, folded using native charset semantics for non-utf8
 REFFL       REF,        num 1 V   ; Match already matched string, folded in loc.
 
 
@@ -158,7 +158,7 @@ GOSTART     GOSTART,    no        ; recurse to start of pattern
 
 #*Named references (67..69)
 NREF        REF,        no-sv 1 V ; Match some already matched string
-NREFF       REF,        no-sv 1 V ; Match already matched string, folded
+NREFF       REF,        no-sv 1 V ; Match already matched string, folded using native charset semantics for non-utf8
 NREFFL      REF,        no-sv 1 V ; Match already matched string, folded in loc.
 
 
@@ -192,6 +192,7 @@ HORIZWS     HORIZWS,    none 0 S  ; horizontal whitespace       (Perl 6)
 NHORIZWS    NHORIZWS,   none 0 S  ; not horizontal whitespace   (Perl 6)
 
 FOLDCHAR    FOLDCHAR,   codepoint 1 ; codepoint with tricky case folding properties.
+EXACTFU     EXACT,      str        ; Match this string, folded, Unicode semantics for non-utf8 (prec. by length).
 
 # NEW STUFF ABOVE THIS LINE