Tcl Library Source Code

Check-in [8436048fee]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Some fixes to the new pe transform testing.
Timelines: family | ancestors | descendants | both | pt-container-ssoberni
Files: files | file ages | folders
SHA3-256: 8436048feee6ef20262408f541dad1f019dd10b2ba864cf066abed7e65dd52b6
User & Date: andreask 2018-07-09 19:49:17
References
2018-07-09
19:50 Ticket [351b8b2f55] Bug fixes on PT/PEG transformation operations status still Open with 3 other changes artifact: 5764f0b57a user: aku
Context
2018-07-09
21:08
More tests: syntax, drop unreachable. More comments. Noted untested ops. pt::peg::op <B> - Version bump to 1.0.2 Closed-Leaf check-in: d907079d5b user: andreask tags: pt-container-ssoberni
19:49
Some fixes to the new pe transform testing. check-in: 8436048fee user: andreask tags: pt-container-ssoberni
2018-07-04
12:50
Factored out commonalities into a test-case generator: TestTransformation; added tests for discussing suggested fixes (minimize, drop unrealizable) check-in: 9ab6b8023e user: ssoberni tags: pt-container-ssoberni
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to modules/pt/pt_peg_op.tcl.

   135    135       set mode() value
   136    136   
   137    137       # calls  = array (x -> called-by-x)
   138    138       # caller = array (x -> users-of-x)
   139    139   
   140    140       set changed [$container nonterminals]
   141    141       while {[llength $changed]} {
   142         -puts <$changed>
          142  +	#puts <$changed>
   143    143   	set scan $changed
   144    144   	set changed {}
   145    145   
   146    146   	foreach sym $scan {
   147    147   	    # Rule 1
   148    148   	    if {![llength $calls($sym)] &&
   149    149   		($mode($sym) eq "value")} {
   150         -puts (1)$sym
          150  +		#puts (1)$sym
   151    151   		set mode($sym) leaf
   152    152   	    }
   153    153   
   154    154   	    # Rule 2
   155    155   	    set callmode [CallMode $caller($sym) mode]
   156    156   	    if {($callmode eq "void") &&
   157    157   		($mode($sym) ne "void")} {

Changes to modules/pt/pt_peg_op.test.

    17     17   support {
    18     18       useAccel [useTcllibC] struct/sets.tcl struct::set
    19     19       TestAccelInit                         struct::set
    20     20   
    21     21       use fileutil/fileutil.tcl  fileutil ; # For tests/common
    22     22       use snit/snit.tcl          snit
    23     23   
    24         -    use pt/pt_pegrammar.tcl pt::peg
           24  +    use pt/pt_pegrammar.tcl     pt::peg
    25     25       use pt/pt_peg_container.tcl pt::peg::container
           26  +    use pt/pt_pexpr_op.tcl      pt::pe::op
    26     27   
    27     28       source [localPath tests/common]
    28     29   }
    29     30   testing {
    30     31       useLocal pt_peg_op.tcl pt::peg::op
    31     32   }
    32     33