X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=regcomp.sym;h=b0b9faff7e30d9ef33a30d977b062bd84bba7dd1;hb=6294c16100e79c65d9c9883d11b45631d3ded9a1;hp=656988e10b3c628513016966068345620f71f5eb;hpb=58e23c8d7d24dd08c87b5d56819ad45527176c15;p=p5sagit%2Fp5-mst-13.2.git diff --git a/regcomp.sym b/regcomp.sym index 656988e..b0b9faf 100644 --- a/regcomp.sym +++ b/regcomp.sym @@ -158,9 +158,9 @@ GOSUB GOSUB, num/ofs 2L recurse to paren arg1 at (signed) ofs arg2 GOSTART GOSTART, no recurse to start of pattern #*Named references (67..69) -NREF NREF, no-sv 1 Match some already matched string -NREFF NREF, no-sv 1 Match already matched string, folded -NREFFL NREF, no-sv 1 Match already matched string, folded in loc. +NREF REF, no-sv 1 Match some already matched string +NREFF REF, no-sv 1 Match already matched string, folded +NREFFL REF, no-sv 1 Match already matched string, folded in loc. #*Special conditionals (70..72) @@ -182,7 +182,19 @@ SKIP VERB, no-sv 1 On failure skip forward (to the mark) before retrying COMMIT VERB, no-sv 1 Pattern fails outright if backtracking through this CUTGROUP VERB, no-sv 1 On failure go to the next alternation in the group -# NEW STUFF ABOVE THIS LINE -- Please update counts below. +#*Control what to keep in $&. +KEEPS KEEPS, no $& begins here. + +#*New charclass like patterns +LNBREAK LNBREAK, none generic newline pattern +VERTWS VERTWS, none vertical whitespace (Perl 6) +NVERTWS NVERTWS, none not vertical whitespace (Perl 6) +HORIZWS HORIZWS, none horizontal whitespace (Perl 6) +NHORIZWS NHORIZWS, none not horizontal whitespace (Perl 6) + +FOLDCHAR FOLDCHAR, codepoint 1 codepoint with tricky case folding properties. + +# NEW STUFF ABOVE THIS LINE ################################################################################ @@ -221,3 +233,4 @@ COMMIT next:FAIL MARKPOINT next:FAIL SKIP next:FAIL CUTGROUP next:FAIL +KEEPS next:FAIL