Check-in [940893cb88]

Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to tclconference@googlegroups.com
or submit via the online form by Sep 9.

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

Overview
Comment:Goals added which show the content (packages, apps) found in the build. Packages are listed with version info.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:940893cb880052289194b2c3c08a5641de8f4097
User & Date: andreask 2015-04-17 21:50:45
Context
2015-05-06
18:31
Prevent installation abort when fossil executable is missing. Also made code more robust against an early fail leaving some variables undefined. check-in: 8efd9e603c user: andreask tags: trunk
2015-04-17
21:50
Goals added which show the content (packages, apps) found in the build. Packages are listed with version info. check-in: 940893cb88 user: andreask tags: trunk
2014-05-30
20:59
Rejoin inadvertent split head. check-in: ff12632219 user: andreask tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to critcl.tcl.

129
130
131
132
133
134
135

136
137

138












139
140
141
142
143
144
145
    # versions, and files.  Aborts caller when nothing is found.
    lassign [path scan \
		 {critcl 3 packages}\
		 [path sourcedir] \
		 {path critcl3-package-file}] \
	root packages


    foreach {file pn pv} $packages {
	CritclSetup $root $file $pn $pv

    }












    return
}

# # ## ### ##### ######## ############# #####################
## Helper commands.

proc ::kettle::CritclSetup {root file pn pv} {







>


>

>
>
>
>
>
>
>
>
>
>
>
>







129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
    # versions, and files.  Aborts caller when nothing is found.
    lassign [path scan \
		 {critcl 3 packages}\
		 [path sourcedir] \
		 {path critcl3-package-file}] \
	root packages

    set px {}
    foreach {file pn pv} $packages {
	CritclSetup $root $file $pn $pv
	lappend px $pn $pv
    }

    recipe define content-critcl-packages "Show Critcl packages found in the build" {packages} {
	set pnames [lsort -dict [dict keys $packages]]
	puts ""
	foreach pn $pnames label [kettle strutil padr $pnames] {
	    set pv [dict get $packages $pn]
	    puts "* critcl - ${label} : $pv"
	}
    } $px

    recipe parent content-critcl-packages content-critcl
    recipe parent content-critcl          content
    return
}

# # ## ### ##### ######## ############# #####################
## Helper commands.

proc ::kettle::CritclSetup {root file pn pv} {

Changes to tcl.tcl.

21
22
23
24
25
26
27

28
29

30












31
32
33
34
35
36
37
    # Aborts caller when nothing is found.
    lassign [path scan \
		 {tcl packages}\
		 [path sourcedir] \
		 {path tcl-package-file}] \
	root packages


    foreach {files pn pv} $packages {
	TclSetup $root $files $pn $pv

    }












    return
}

proc ::kettle::TclSetup {root files pn pv} {
    set pkgdir [path libdir [string map {:: _} $pn]$pv]

    # Process any teapot meta data stored within the main package file







>


>

>
>
>
>
>
>
>
>
>
>
>
>







21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
    # Aborts caller when nothing is found.
    lassign [path scan \
		 {tcl packages}\
		 [path sourcedir] \
		 {path tcl-package-file}] \
	root packages

    set px {}
    foreach {files pn pv} $packages {
	TclSetup $root $files $pn $pv
	lappend px $pn $pv
    }

    recipe define content-tcl-packages "Show Tcl packages found in the build" {packages} {
	set pnames [lsort -dict [dict keys $packages]]
	puts ""
	foreach pn $pnames label [kettle strutil padr $pnames] {
	    set pv [dict get $packages $pn]
	    puts "* tcl - ${label} : $pv"
	}
    } $px

    recipe parent content-tcl-packages content-tcl
    recipe parent content-tcl          content
    return
}

proc ::kettle::TclSetup {root files pn pv} {
    set pkgdir [path libdir [string map {:: _} $pn]$pv]

    # Process any teapot meta data stored within the main package file

Changes to tclapp.tcl.

86
87
88
89
90
91
92











93
94
95
96
97
		[list kettle path add-top-comment $m]
	} $src $name

	recipe parent meta-generate-application-$fname  meta-generate-tcl-applications
	recipe parent meta-generate-tcl-applications    meta-generate-applications
	recipe parent meta-generate-applications        meta-generate
    }











    return
}

# # ## ### ##### ######## ############# #####################
return







>
>
>
>
>
>
>
>
>
>
>





86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
		[list kettle path add-top-comment $m]
	} $src $name

	recipe parent meta-generate-application-$fname  meta-generate-tcl-applications
	recipe parent meta-generate-tcl-applications    meta-generate-applications
	recipe parent meta-generate-applications        meta-generate
    }


    recipe define content-app-$fname "Show found application $fname" {name} {
	puts ""
	puts "* app - $name"
    } $name

    recipe parent content-app-$fname content-app
    recipe parent content-app        content


    return
}

# # ## ### ##### ######## ############# #####################
return