Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Changes In Branch ssoberni-ffp-3ed39a451f Excluding Merge-Ins
This is equivalent to a diff from fe060af06b to d58dafb114
|
2018-06-27
| ||
| 17:07 | Merged FFP work by Stefan Sobernig. check-in: 623801c583 user: aku tags: trunk | |
|
2018-06-25
| ||
| 23:00 | Fixes for the FFP tests - Change test grammar to enforce consummation of all input - Fix error in ok grammar example copied from the fail example. - Fix mis-count in the FFP result for the fail example, and missing closing brace Closed-Leaf check-in: d58dafb114 user: aku tags: ssoberni-ffp-3ed39a451f | |
|
2018-06-22
| ||
| 04:30 | Brought in trunk work (mostly the doc changes) check-in: 3ec4e74aac user: aku tags: ssoberni-ffp-3ed39a451f | |
|
2018-06-20
| ||
| 05:46 | doctools doctoc - html formatting - anchors based on section titles and file labels. bump to 1.1.7 docidx - html formatting - anchors based on keywords, ignore non-alphanumeric characters. bump to 1.0.8 dtplite - See doc_auto below. Bump to 1.3.1. Further, factored generator blocks into separate procedures. sak / doc_auto - Ignore leading non-alphanumeric characters for sorting. dicttool <D> Typo fix - dicttool.man Regenerated embedded and other documentation. check-in: fe060af06b user: aku tags: trunk | |
|
2018-06-19
| ||
| 18:33 | Updated local documentation. check-in: 3a89671277 user: aku tags: trunk | |
Changes to modules/pt/pt_rdengine_oo.tcl.
| ︙ | ︙ | |||
546 547 548 549 550 551 552 |
if {$myok} {
$mystackloc pop
debug.pt/rdengine {[InstReturn]}
return -code return
}
$mystackmark push [$mystackast size]
set myloc [$mystackloc peek]
| | | 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 |
if {$myok} {
$mystackloc pop
debug.pt/rdengine {[InstReturn]}
return -code return
}
$mystackmark push [$mystackast size]
set myloc [$mystackloc peek]
$mystackerr push $myerror
debug.pt/rdengine {[InstReturn]}
return
}
method si:valuevoid_branch {} {
debug.pt/rdengine {[Instruction si:valuevoid_branch]}
|
| ︙ | ︙ | |||
587 588 589 590 591 592 593 |
if {$myok} {
$mystackloc pop
debug.pt/rdengine {[InstReturn]}
return -code return
}
$mystackast trim* $mark
set myloc [$mystackloc peek]
| | | 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 |
if {$myok} {
$mystackloc pop
debug.pt/rdengine {[InstReturn]}
return -code return
}
$mystackast trim* $mark
set myloc [$mystackloc peek]
$mystackerr push $myerror
debug.pt/rdengine {[InstReturn]}
return
}
method si:valuevalue_branch {} {
debug.pt/rdengine {[Instruction si:valuevalue_branch]}
|
| ︙ | ︙ | |||
630 631 632 633 634 635 636 |
$mystackloc pop
debug.pt/rdengine {[InstReturn]}
return -code return
}
$mystackast trim* [$mystackmark peek]
set myloc [$mystackloc peek]
| | | 630 631 632 633 634 635 636 637 638 639 640 641 642 643 644 |
$mystackloc pop
debug.pt/rdengine {[InstReturn]}
return -code return
}
$mystackast trim* [$mystackmark peek]
set myloc [$mystackloc peek]
$mystackerr push $myerror
debug.pt/rdengine {[InstReturn]}
return
}
# - -- --- ----- -------- ------------- ---------------------
|
| ︙ | ︙ |
Changes to modules/pt/pt_rdengine_tcl.tcl.
| ︙ | ︙ | |||
534 535 536 537 538 539 540 |
if {$myok} {
$mystackloc pop
debug.pt/rdengine {[InstReturn]}
return -code return
}
$mystackmark push [$mystackast size]
set myloc [$mystackloc peek]
| | | 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 |
if {$myok} {
$mystackloc pop
debug.pt/rdengine {[InstReturn]}
return -code return
}
$mystackmark push [$mystackast size]
set myloc [$mystackloc peek]
$mystackerr push $myerror
debug.pt/rdengine {[InstReturn]}
return
}
method si:valuevoid_branch {} {
debug.pt/rdengine {[Instruction si:valuevoid_branch]}
|
| ︙ | ︙ | |||
575 576 577 578 579 580 581 |
if {$myok} {
$mystackloc pop
debug.pt/rdengine {[InstReturn]}
return -code return
}
$mystackast trim* $mark
set myloc [$mystackloc peek]
| | | 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 |
if {$myok} {
$mystackloc pop
debug.pt/rdengine {[InstReturn]}
return -code return
}
$mystackast trim* $mark
set myloc [$mystackloc peek]
$mystackerr push $myerror
debug.pt/rdengine {[InstReturn]}
return
}
method si:valuevalue_branch {} {
debug.pt/rdengine {[Instruction si:valuevalue_branch]}
|
| ︙ | ︙ | |||
618 619 620 621 622 623 624 |
$mystackloc pop
debug.pt/rdengine {[InstReturn]}
return -code return
}
$mystackast trim* [$mystackmark peek]
set myloc [$mystackloc peek]
| | | 618 619 620 621 622 623 624 625 626 627 628 629 630 631 632 |
$mystackloc pop
debug.pt/rdengine {[InstReturn]}
return -code return
}
$mystackast trim* [$mystackmark peek]
set myloc [$mystackloc peek]
$mystackerr push $myerror
debug.pt/rdengine {[InstReturn]}
return
}
# - -- --- ----- -------- ------------- ---------------------
|
| ︙ | ︙ |
Added modules/pt/tests/data/gr/def/49_ticket-3ed39a451f.
> > > > > > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
PEG Tiny (Proc)
Proc <- CmdSeq !. ;
CmdSeq <- Cmd SEMICOLON (Cmd SEMICOLON)*;
Cmd <- Skip ((IfCmd / RepeatCmd / AssignCmd / ReadCmd / WriteCmd)) Skip;
IfCmd <- 'if' Exp 'then' CmdSeq ('else' CmdSeq)? 'end';
RepeatCmd <- 'repeat' CmdSeq 'until' Exp;
AssignCmd <- Name ASSIGNMENT Exp;
ReadCmd <- 'read' Skip Name;
WriteCmd <- 'write' Skip Exp;
void: SEMICOLON <- Skip ';' Skip;
leaf: ASSIGNMENT <- Skip ':=' Skip;
Name <- 'n' / 'f';
Exp <- Operand Skip (('*' / '-' / '+' / '>' / '<') Operand)?;
Operand <- Skip (Name / <digit>) Skip;
void: Skip <- <space>*;
END;
|
Added modules/pt/tests/data/gr/fail-ticket-3ed39a451f-container-res/0_tinyProg.
> | 1 |
1 {pt::rde 50 {space {t {;}}}}
|
Added modules/pt/tests/data/gr/fail-ticket-3ed39a451f-critcl-res/0_tinyProg.
> | 1 |
1 {pt::rde 50 {space {t {;}}}}
|
Added modules/pt/tests/data/gr/fail-ticket-3ed39a451f-oo-res/0_tinyProg.
> | 1 |
1 {pt::rde 50 {space {t {;}}}}
|
Added modules/pt/tests/data/gr/fail-ticket-3ed39a451f-snit-res/0_tinyProg.
> | 1 |
1 {pt::rde 50 {space {t {;}}}}
|
Added modules/pt/tests/data/gr/fail-ticket-3ed39a451f/0_tinyProg.
> > > > > > > | 1 2 3 4 5 6 7 | n := 5; f := 1; repeat f := f * n; n := n - 1 until n < 1; write f; |
Added modules/pt/tests/data/gr/ok-ticket-3ed39a451f-res/0_tinyProg.
> | 1 |
Proc 0 71 {CmdSeq 0 71 {Cmd 0 5 {AssignCmd 0 5 {Name 0 0} {ASSIGNMENT 1 4} {Exp 5 5 {Operand 5 5}}}} {Cmd 8 13 {AssignCmd 8 13 {Name 8 8} {ASSIGNMENT 9 12} {Exp 13 13 {Operand 13 13}}}} {Cmd 16 61 {RepeatCmd 16 61 {CmdSeq 22 50 {Cmd 22 34 {AssignCmd 25 34 {Name 25 25} {ASSIGNMENT 26 29} {Exp 30 34 {Operand 30 31 {Name 30 30}} {Operand 33 34 {Name 34 34}}}}} {Cmd 39 48 {AssignCmd 39 48 {Name 39 39} {ASSIGNMENT 40 43} {Exp 44 48 {Operand 44 45 {Name 44 44}} {Operand 47 48}}}}} {Exp 56 61 {Operand 56 58 {Name 57 57}} {Operand 60 61}}}} {Cmd 64 70 {WriteCmd 64 70 {Exp 70 70 {Operand 70 70 {Name 70 70}}}}}}
|
Added modules/pt/tests/data/gr/ok-ticket-3ed39a451f/0_tinyProg.
> > > > > > > | 1 2 3 4 5 6 7 | n := 5; f := 1; repeat f := f * n; n := n - 1; until n < 1; write f; |