Check-in [01434c3ba9]
Not logged in

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

Overview
Comment:Minor clean up of mecate to remove an extraneous "puts" debug printout and correct the version numbers on the man pages.
Timelines: family | ancestors | descendants | both | micca-harness
Files: files | file ages | folders
SHA1: 01434c3ba906b67e5e875e148c00d107191e3ced
User & Date: andrewm 2019-10-03 17:28:59
Context
2019-10-29
15:58
Corrected code generation for attribute reading function when an array was involved. Corrected conversion code for size_t types. Removed -doc command options: it was never implemented. Preparing for release of bosal 1.2.2. check-in: ead6a9e0ca user: andrewm tags: micca-harness
2019-10-03
17:32
Release of mecate 1.2.1. Minor clean up to remove extraneous debut print out. check-in: fac5762bd4 user: andrewm tags: trunk, mecate-1.2.1
17:28
Minor clean up of mecate to remove an extraneous "puts" debug printout and correct the version numbers on the man pages. check-in: 01434c3ba9 user: andrewm tags: micca-harness
2019-09-01
12:40
Merging changes from John Wolfe to add options controlling the rendering of sequence diagrams of the event trace. This is in preparation of release 1.2 of mecate. check-in: 5a18b1ef3c user: andrewm tags: micca-harness
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to mecate/code/tcl/teapot.txt.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Package mecate 1.2
Meta description Mecate is a package that provides a set of command to
Meta description interact with bosal generated test harnesses.
Meta entrysource mecate.tcl
Meta included    mecate.tcl
Meta platform    tcl
Meta require     {Tcl 8.6}
Meta require     logger
Meta require     oo::util
Meta require     ral
Meta require     ralutil
Meta require     struct::queue
Meta summary     Command interface to bosal generated test harnesses.

|













1
2
3
4
5
6
7
8
9
10
11
12
13
14
Package mecate 1.2.1
Meta description Mecate is a package that provides a set of command to
Meta description interact with bosal generated test harnesses.
Meta entrysource mecate.tcl
Meta included    mecate.tcl
Meta platform    tcl
Meta require     {Tcl 8.6}
Meta require     logger
Meta require     oo::util
Meta require     ral
Meta require     ralutil
Meta require     struct::queue
Meta summary     Command interface to bosal generated test harnesses.

Changes to mecate/doc/man/mecate.html.

93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
...
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
--></style>
</head>
<!-- Generated from file 'mecate.man' by tcllib/doctools with format 'html'
   -->
<!-- mecate.n
   -->
<body><div class="doctools">
<h1 class="doctools_title">mecate(n) 1.1.1 mecate &quot;Mecate Package for Bosal Test Harnesses&quot;</h1>
<div id="name" class="doctools_section"><h2><a name="name">Name</a></h2>
<p>mecate - Interacting with a bosal generated test harness</p>
</div>
<div id="toc" class="doctools_section"><h2><a name="toc">Table Of Contents</a></h2>
<ul class="doctools_toc">
<li class="doctools_section"><a href="#toc">Table Of Contents</a></li>
<li class="doctools_section"><a href="#synopsis">Synopsis</a></li>
................................................................................
<li class="doctools_section"><a href="#keywords">Keywords</a></li>
</ul>
</div>
<div id="synopsis" class="doctools_section"><h2><a name="synopsis">Synopsis</a></h2>
<div class="doctools_synopsis">
<ul class="doctools_requirements">
<li>package require <b class="pkgname">Tcl 8.6</b></li>
<li>package require <b class="pkgname">mecate <span class="opt">?1.1.1?</span></b></li>
</ul>
<ul class="doctools_syntax">
<li><a href="#1"><b class="cmd">mecate rein create</b> <i class="arg">reinobj</i> <i class="arg"><span class="opt">?options?</span></i></a></li>
<li><a href="#2"><b class="cmd">mecate rein new</b> <i class="arg"><span class="opt">?options?</span></i></a></li>
<li><a href="#3"><b class="cmd">mecate eventTraceFormat</b> <i class="arg">trace</i></a></li>
<li><a href="#4"><b class="cmd">mecate instrTraceFormat</b> <i class="arg">trace</i></a></li>
<li><a href="#5"><b class="cmd">mecate fatalTraceFormat</b> <i class="arg">trace</i></a></li>







|







 







|







93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
...
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
--></style>
</head>
<!-- Generated from file 'mecate.man' by tcllib/doctools with format 'html'
   -->
<!-- mecate.n
   -->
<body><div class="doctools">
<h1 class="doctools_title">mecate(n) 1.2.1 mecate &quot;Mecate Package for Bosal Test Harnesses&quot;</h1>
<div id="name" class="doctools_section"><h2><a name="name">Name</a></h2>
<p>mecate - Interacting with a bosal generated test harness</p>
</div>
<div id="toc" class="doctools_section"><h2><a name="toc">Table Of Contents</a></h2>
<ul class="doctools_toc">
<li class="doctools_section"><a href="#toc">Table Of Contents</a></li>
<li class="doctools_section"><a href="#synopsis">Synopsis</a></li>
................................................................................
<li class="doctools_section"><a href="#keywords">Keywords</a></li>
</ul>
</div>
<div id="synopsis" class="doctools_section"><h2><a name="synopsis">Synopsis</a></h2>
<div class="doctools_synopsis">
<ul class="doctools_requirements">
<li>package require <b class="pkgname">Tcl 8.6</b></li>
<li>package require <b class="pkgname">mecate <span class="opt">?1.2.1?</span></b></li>
</ul>
<ul class="doctools_syntax">
<li><a href="#1"><b class="cmd">mecate rein create</b> <i class="arg">reinobj</i> <i class="arg"><span class="opt">?options?</span></i></a></li>
<li><a href="#2"><b class="cmd">mecate rein new</b> <i class="arg"><span class="opt">?options?</span></i></a></li>
<li><a href="#3"><b class="cmd">mecate eventTraceFormat</b> <i class="arg">trace</i></a></li>
<li><a href="#4"><b class="cmd">mecate instrTraceFormat</b> <i class="arg">trace</i></a></li>
<li><a href="#5"><b class="cmd">mecate fatalTraceFormat</b> <i class="arg">trace</i></a></li>

Changes to mecate/doc/man/mecate.man.

1
2
3
4
5
6
7
8
[vset version 1.1.1]
[manpage_begin mecate n [vset version]]
[comment {
#
#*++
# PROJECT:
#   mecate
#
|







1
2
3
4
5
6
7
8
[vset version 1.2.1]
[manpage_begin mecate n [vset version]]
[comment {
#
#*++
# PROJECT:
#   mecate
#

Changes to mecate/src/Makefile.

5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
# MODULE:
#
# ABSTRACT:
#
#*--
#

VERSION = 1.2

DOCDIR	= ../doc
CODEDIR	= ../code/tcl
TESTDIR = ../tests
PKGDIR	= ../../packages
MODDIR	= ../../modules








|







5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
# MODULE:
#
# ABSTRACT:
#
#*--
#

VERSION = 1.2.1

DOCDIR	= ../doc
CODEDIR	= ../code/tcl
TESTDIR = ../tests
PKGDIR	= ../../packages
MODDIR	= ../../modules

Changes to mecate/src/mecate-docinfo.xml.

42
43
44
45
46
47
48








49
        Added method to accumulate options to control
        rendering of sequence diagrams.
        Incorporated code from John Wolfe to show state
        changes on the sequence diagram and to limit the
        swimlanes in the diagram to a set of named participants.
    </revremark>
  </revision>








</revhistory>







>
>
>
>
>
>
>
>

42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
        Added method to accumulate options to control
        rendering of sequence diagrams.
        Incorporated code from John Wolfe to show state
        changes on the sequence diagram and to limit the
        swimlanes in the diagram to a set of named participants.
    </revremark>
  </revision>
  <revision>
    <revnumber>1.2.1</revnumber>
    <date>October 2, 2019</date>
    <authorinitials>GAM</authorinitials>
    <revremark>
        Removed extraneous printout used for debugging.
    </revremark>
  </revision>
</revhistory>

Changes to mecate/src/mecate.aweb.

1766
1767
1768
1769
1770
1771
1772
1773
1774
1775
1776
1777
1778
1779
1780
1781
....
3492
3493
3494
3495
3496
3497
3498
3499
3500
3501
3502
3503
3504
3505
3506
....
3587
3588
3589
3590
3591
3592
3593
3594
3595
3596
3597
3598
3599
3600
3601
    } else {
        set insts $participants
    }

    set extlabel BOUNDARY ;        # <1>
    <<seqDiag: declare participants>>

    puts "insts = [list $insts]"

    if {[dict get $seqDiagConfig -showstates]} {
        <<seqDiag: indicate initial state of each participant>>
    }

    set traces [pipe {
        rvajoin $traces [relvar set TransitionTrace] Transition |
        rvajoin ~ [relvar set PolymorphicTrace] Polymorphic |
................................................................................
    set logger [::logger::init mecate]
    set appenderType [expr {[dict exist [fconfigure stdout] -mode] ?\
            "colorConsole" : "console"}]
    ::logger::utils::applyAppender -appender $appenderType -serviceCmd $logger\
            -appenderArgs {-conversionPattern {\[%c\] \[%p\] '%m'}}
    ::logger::import -all -force -namespace log mecate

    variable version 1.2
}

<<mecate commands>>

package provide mecate $::mecate::version
----

................................................................................

=== Package Index

We also provide a root chunk to extract a package index file.

----
<<pkgIndex.tcl>>=
package ifneeded mecate 1.2 [list source [file join $dir mecate.tcl]]
----

=== Template

The following is a template that can be used to seed a unit test file
that uses `mecate`.








<
<







 







|







 







|







1766
1767
1768
1769
1770
1771
1772


1773
1774
1775
1776
1777
1778
1779
....
3490
3491
3492
3493
3494
3495
3496
3497
3498
3499
3500
3501
3502
3503
3504
....
3585
3586
3587
3588
3589
3590
3591
3592
3593
3594
3595
3596
3597
3598
3599
    } else {
        set insts $participants
    }

    set extlabel BOUNDARY ;        # <1>
    <<seqDiag: declare participants>>



    if {[dict get $seqDiagConfig -showstates]} {
        <<seqDiag: indicate initial state of each participant>>
    }

    set traces [pipe {
        rvajoin $traces [relvar set TransitionTrace] Transition |
        rvajoin ~ [relvar set PolymorphicTrace] Polymorphic |
................................................................................
    set logger [::logger::init mecate]
    set appenderType [expr {[dict exist [fconfigure stdout] -mode] ?\
            "colorConsole" : "console"}]
    ::logger::utils::applyAppender -appender $appenderType -serviceCmd $logger\
            -appenderArgs {-conversionPattern {\[%c\] \[%p\] '%m'}}
    ::logger::import -all -force -namespace log mecate

    variable version 1.2.1
}

<<mecate commands>>

package provide mecate $::mecate::version
----

................................................................................

=== Package Index

We also provide a root chunk to extract a package index file.

----
<<pkgIndex.tcl>>=
package ifneeded mecate 1.2.1 [list source [file join $dir mecate.tcl]]
----

=== Template

The following is a template that can be used to seed a unit test file
that uses `mecate`.