Skip to content
This repository has been archived by the owner on Feb 3, 2021. It is now read-only.

Commit

Permalink
Allow Cursors to bind non-Match objects.
Browse files Browse the repository at this point in the history 
Update bootstrap files to latest code.
  • Loading branch information
@pmichaud
pmichaud committed Oct 19, 2009
1 parent 66906e8 commit 4778331
Show file tree
Hide file tree
Showing 3 changed files with 488 additions and 476 deletions.
6 changes: 6 additions & 0 deletions src/Regex/Cursor.pir
View file
Expand Up @@ -100,7 +100,13 @@ for the Cursor if one hasn't been created yet.
$P0 = getattribute subcur, '$!names'
if null $P0 goto cstack_loop
subname = $P0
$I0 = isa subcur, ['Regex';'Cursor']
unless $I0 goto cstack_1
submatch = subcur.'MATCH'()
goto cstack_2
cstack_1:
submatch = subcur
cstack_2:
keyint = is_cclass .CCLASS_NUMERIC, subname, 0
if null caparray goto cstack_bind
$I0 = exists caphash[subname]
Expand Down
80 changes: 40 additions & 40 deletions src/stage0/P6Grammar-s0.pir
View file
Expand Up @@ -17,28 +17,28 @@ Regex::P6Grammar - scaffolding compiler for NQP / Perl 6 grammars
### .include 'src/gen/p6grammar-grammar.pir'

.namespace ["Regex";"P6Grammar";"Grammar"]
.sub "_block11" :subid("10_1255844277.6478")
.sub "_block11" :subid("10_1255915596.42194")
.annotate "line", 0
.const 'Sub' $P40 = "15_1255844277.6478"
.const 'Sub' $P40 = "15_1255915596.42194"
capture_lex $P40
.const 'Sub' $P28 = "14_1255844277.6478"
.const 'Sub' $P28 = "14_1255915596.42194"
capture_lex $P28
.const 'Sub' $P22 = "13_1255844277.6478"
.const 'Sub' $P22 = "13_1255915596.42194"
capture_lex $P22
.const 'Sub' $P18 = "12_1255844277.6478"
.const 'Sub' $P18 = "12_1255915596.42194"
capture_lex $P18
.const 'Sub' $P13 = "11_1255844277.6478"
.const 'Sub' $P13 = "11_1255915596.42194"
capture_lex $P13
.annotate "line", 19
.const 'Sub' $P40 = "15_1255844277.6478"
.const 'Sub' $P40 = "15_1255915596.42194"
capture_lex $P40
.annotate "line", 1
.return ($P40)
.end


.namespace ["Regex";"P6Grammar";"Grammar"]
.sub "" :load :init :subid("post16") :outer("10_1255844277.6478")
.sub "" :load :init :subid("post16") :outer("10_1255915596.42194")
.annotate "line", 0
get_hll_global $P12, ["Regex";"P6Grammar";"Grammar"], "_block11"
.local pmc block
Expand All @@ -50,7 +50,7 @@ Regex::P6Grammar - scaffolding compiler for NQP / Perl 6 grammars
.namespace ["Regex";"P6Grammar";"Grammar"]
.sub "TOP" :subid("11_1255844277.6478") :method :outer("10_1255844277.6478")
.sub "TOP" :subid("11_1255915596.42194") :method :outer("10_1255915596.42194")
.annotate "line", 3
.local string rx14_tgt
.local int rx14_pos
Expand Down Expand Up @@ -123,7 +123,7 @@ Regex::P6Grammar - scaffolding compiler for NQP / Perl 6 grammars
.namespace ["Regex";"P6Grammar";"Grammar"]
.sub "name" :subid("12_1255844277.6478") :method :outer("10_1255844277.6478")
.sub "name" :subid("12_1255915596.42194") :method :outer("10_1255915596.42194")
.annotate "line", 9
.local string rx19_tgt
.local int rx19_pos
Expand Down Expand Up @@ -176,7 +176,7 @@ Regex::P6Grammar - scaffolding compiler for NQP / Perl 6 grammars
.namespace ["Regex";"P6Grammar";"Grammar"]
.sub "longname" :subid("13_1255844277.6478") :method :outer("10_1255844277.6478")
.sub "longname" :subid("13_1255915596.42194") :method :outer("10_1255915596.42194")
.annotate "line", 11
.local string rx23_tgt
.local int rx23_pos
Expand Down Expand Up @@ -251,7 +251,7 @@ Regex::P6Grammar - scaffolding compiler for NQP / Perl 6 grammars
.namespace ["Regex";"P6Grammar";"Grammar"]
.sub "grammar_stmt" :subid("14_1255844277.6478") :method :outer("10_1255844277.6478")
.sub "grammar_stmt" :subid("14_1255915596.42194") :method :outer("10_1255915596.42194")
.annotate "line", 17
.local string rx29_tgt
.local int rx29_pos
Expand Down Expand Up @@ -373,7 +373,7 @@ Regex::P6Grammar - scaffolding compiler for NQP / Perl 6 grammars
.namespace ["Regex";"P6Grammar";"Grammar"]
.sub "regex_stmt" :subid("15_1255844277.6478") :method :outer("10_1255844277.6478")
.sub "regex_stmt" :subid("15_1255915596.42194") :method :outer("10_1255915596.42194")
.annotate "line", 19
.local string rx41_tgt
.local int rx41_pos
Expand Down Expand Up @@ -660,7 +660,7 @@ Regex::P6Grammar - scaffolding compiler for NQP / Perl 6 grammars
### .include 'src/gen/p6grammar-actions.pir'
.namespace []
.sub "_block11" :anon :subid("10_1255844272.56181")
.sub "_block11" :anon :subid("10_1255908948.51126")
.annotate "line", 3
get_hll_global $P14, ["Regex";"P6Grammar";"Actions"], "_block13"
.annotate "line", 1
Expand All @@ -669,29 +669,29 @@ Regex::P6Grammar - scaffolding compiler for NQP / Perl 6 grammars
.namespace ["Regex";"P6Grammar";"Actions"]
.sub "_block13" :init :load :subid("11_1255844272.56181")
.sub "_block13" :init :load :subid("11_1255908948.51126")
.annotate "line", 3
.const 'Sub' $P83 = "15_1255844272.56181"
.const 'Sub' $P83 = "15_1255908948.51126"
capture_lex $P83
.const 'Sub' $P44 = "14_1255844272.56181"
.const 'Sub' $P44 = "14_1255908948.51126"
capture_lex $P44
.const 'Sub' $P16 = "12_1255844272.56181"
.const 'Sub' $P16 = "12_1255908948.51126"
capture_lex $P16
$P15 = get_root_global ["parrot"], "P6metaclass"
$P15."new_class"("Regex::P6Grammar::Actions", "Regex::P6Regex::Actions" :named("parent"))
.annotate "line", 30
.const 'Sub' $P83 = "15_1255844272.56181"
.const 'Sub' $P83 = "15_1255908948.51126"
capture_lex $P83
.annotate "line", 3
.return ($P83)
.end
.namespace ["Regex";"P6Grammar";"Actions"]
.sub "TOP" :subid("12_1255844272.56181") :method :outer("11_1255844272.56181")
.sub "TOP" :subid("12_1255908948.51126") :method :outer("11_1255908948.51126")
.param pmc param_19
.annotate "line", 3
.const 'Sub' $P29 = "13_1255844272.56181"
.const 'Sub' $P29 = "13_1255908948.51126"
capture_lex $P29
new $P18, 'ExceptionHandler'
set_addr $P18, control_17
Expand Down Expand Up @@ -724,7 +724,7 @@ $P15 = get_root_global ["parrot"], "P6metaclass"
unless $P23, loop35_done
shift $P27, $P23
loop35_redo:
.const 'Sub' $P29 = "13_1255844272.56181"
.const 'Sub' $P29 = "13_1255908948.51126"
capture_lex $P29
$P29($P27)
loop35_next:
Expand Down Expand Up @@ -767,7 +767,7 @@ $P15 = get_root_global ["parrot"], "P6metaclass"
.namespace ["Regex";"P6Grammar";"Actions"]
.sub "_block28" :anon :subid("13_1255844272.56181") :outer("12_1255844272.56181")
.sub "_block28" :anon :subid("13_1255908948.51126") :outer("12_1255908948.51126")
.param pmc param_30
.annotate "line", 5
.lex "$_", param_30
Expand All @@ -788,7 +788,7 @@ $P15 = get_root_global ["parrot"], "P6metaclass"
.namespace ["Regex";"P6Grammar";"Actions"]
.sub "grammar_stmt" :subid("14_1255844272.56181") :method :outer("11_1255844272.56181")
.sub "grammar_stmt" :subid("14_1255908948.51126") :method :outer("11_1255908948.51126")
.param pmc param_47
.annotate "line", 13
new $P46, 'ExceptionHandler'
Expand Down Expand Up @@ -902,16 +902,16 @@ $P15 = get_root_global ["parrot"], "P6metaclass"
.namespace ["Regex";"P6Grammar";"Actions"]
.sub "regex_stmt" :subid("15_1255844272.56181") :method :outer("11_1255844272.56181")
.sub "regex_stmt" :subid("15_1255908948.51126") :method :outer("11_1255908948.51126")
.param pmc param_86
.param pmc param_87 :optional
.param int has_param_87 :opt_flag
.annotate "line", 30
.const 'Sub' $P141 = "20_1255844272.56181"
.const 'Sub' $P141 = "20_1255908948.51126"
capture_lex $P141
.const 'Sub' $P130 = "19_1255844272.56181"
.const 'Sub' $P130 = "19_1255908948.51126"
capture_lex $P130
.const 'Sub' $P95 = "16_1255844272.56181"
.const 'Sub' $P95 = "16_1255908948.51126"
capture_lex $P95
new $P85, 'ExceptionHandler'
set_addr $P85, control_84
Expand All @@ -937,7 +937,7 @@ $P15 = get_root_global ["parrot"], "P6metaclass"
set $S92, $P91
iseq $I93, $S92, "open"
unless $I93, if_90_end
.const 'Sub' $P95 = "16_1255844272.56181"
.const 'Sub' $P95 = "16_1255908948.51126"
capture_lex $P95
$P95()
if_90_end:
Expand All @@ -962,13 +962,13 @@ $P15 = get_root_global ["parrot"], "P6metaclass"
vivify_51:
if $P128, if_126
.annotate "line", 57
.const 'Sub' $P141 = "20_1255844272.56181"
.const 'Sub' $P141 = "20_1255908948.51126"
capture_lex $P141
$P141()
goto if_126_end
if_126:
.annotate "line", 43
.const 'Sub' $P130 = "19_1255844272.56181"
.const 'Sub' $P130 = "19_1255908948.51126"
capture_lex $P130
$P130()
if_126_end:
Expand All @@ -991,11 +991,11 @@ $P15 = get_root_global ["parrot"], "P6metaclass"
.namespace ["Regex";"P6Grammar";"Actions"]
.sub "_block94" :anon :subid("16_1255844272.56181") :outer("15_1255844272.56181")
.sub "_block94" :anon :subid("16_1255908948.51126") :outer("15_1255908948.51126")
.annotate "line", 34
.const 'Sub' $P112 = "18_1255844272.56181"
.const 'Sub' $P112 = "18_1255908948.51126"
capture_lex $P112
.const 'Sub' $P103 = "17_1255844272.56181"
.const 'Sub' $P103 = "17_1255908948.51126"
capture_lex $P103
.annotate "line", 35
new $P96, "Hash"
Expand All @@ -1009,7 +1009,7 @@ $P15 = get_root_global ["parrot"], "P6metaclass"
set $S100, $P99
iseq $I101, $S100, "token"
unless $I101, if_97_end
.const 'Sub' $P103 = "17_1255844272.56181"
.const 'Sub' $P103 = "17_1255908948.51126"
capture_lex $P103
$P103()
if_97_end:
Expand All @@ -1022,7 +1022,7 @@ $P15 = get_root_global ["parrot"], "P6metaclass"
set $S109, $P108
iseq $I110, $S109, "rule"
unless $I110, if_106_end
.const 'Sub' $P112 = "18_1255844272.56181"
.const 'Sub' $P112 = "18_1255908948.51126"
capture_lex $P112
$P112()
if_106_end:
Expand All @@ -1049,7 +1049,7 @@ $P15 = get_root_global ["parrot"], "P6metaclass"
.namespace ["Regex";"P6Grammar";"Actions"]
.sub "_block102" :anon :subid("17_1255844272.56181") :outer("16_1255844272.56181")
.sub "_block102" :anon :subid("17_1255908948.51126") :outer("16_1255908948.51126")
.annotate "line", 36
new $P104, "Integer"
assign $P104, 1
Expand All @@ -1064,7 +1064,7 @@ $P15 = get_root_global ["parrot"], "P6metaclass"
.namespace ["Regex";"P6Grammar";"Actions"]
.sub "_block111" :anon :subid("18_1255844272.56181") :outer("16_1255844272.56181")
.sub "_block111" :anon :subid("18_1255908948.51126") :outer("16_1255908948.51126")
.annotate "line", 37
new $P113, "Integer"
assign $P113, 1
Expand All @@ -1087,7 +1087,7 @@ $P15 = get_root_global ["parrot"], "P6metaclass"
.namespace ["Regex";"P6Grammar";"Actions"]
.sub "_block140" :anon :subid("20_1255844272.56181") :outer("15_1255844272.56181")
.sub "_block140" :anon :subid("20_1255908948.51126") :outer("15_1255908948.51126")
.annotate "line", 58
find_lex $P142, "$/"
set $P143, $P142["nibbler"]
Expand Down Expand Up @@ -1161,7 +1161,7 @@ $P15 = get_root_global ["parrot"], "P6metaclass"
.namespace ["Regex";"P6Grammar";"Actions"]
.sub "_block129" :anon :subid("19_1255844272.56181") :outer("15_1255844272.56181")
.sub "_block129" :anon :subid("19_1255908948.51126") :outer("15_1255908948.51126")
.annotate "line", 45
get_hll_global $P131, ["PAST"], "Block"
find_lex $P132, "$name"
Expand Down

0 comments on commit 4778331

Please sign in to comment.