@ -153,7 +153,7 @@ namespace eval ::punkboot {
variable foldername [ file tail $scriptfolder ]
variable pkg_requirements [ list ] ; variable pkg_missing [ list ] ; variable pkg_loaded [ list ]
variable help_flags [ list - help - - help / ? - h]
variable known_commands [ list project modules libs packages vfs vfslibs bin info check shell vendorupdate bootsupport vfscommonupdate projectversion workflow]
variable known_commands [ list bakehouse packages modules libs bake vfslibs bin info check shell vendorupdate bootsupport vfscommonupdate projectversion workflow buildsuite project vfs ]
}
@ -1519,10 +1519,14 @@ proc ::punkboot::punkboot_gethelp {args} {
append h " " \ n
append h " $ s c r i p t n a m e - h e l p o r $ s c r i p t n a m e - - h e l p o r $ s c r i p t n a m e / ? o r j u s t $ s c r i p t n a m e " \ n
append h " - T h i s h e l p . " \ n \ n
append h " $ s c r i p t n a m e p r o j e c t ? - k ? " \ n
append h " - t h i s i s t h e l i t e r a l w o r d p r o j e c t - a n d c o n f i r m s y o u w a n t t o r u n t h e p r o j e c t b u i l d - w h i c h i n c l u d e s s r c / v f s / * c h e c k s a n d b u i l d s " \ n
append h " $ s c r i p t n a m e b a k e h o u s e ? - k ? ? - d i r t y - a b o r t 1 | 0 ? " \ n
append h " - c o n s u m e r b u i l d f r o m a c l e a n c h e c k o u t : r u n s t h e p a c k a g e s s t a g e ( m o d u l e s + l i b s ) t h e n b a k e s k i t / z i p k i t e x e c u t a b l e s t o < p r o j e c t d i r > / b i n " \ n
append h " - r e f u s e s u n c o m m i t t e d s r c b y d e f a u l t ( - d i r t y - a b o r t d e f a u l t s O N : t h e b a k e h o u s e b a k e s f r o m t h e c o m m i t t e d r e c i p e ; p a s s - d i r t y - a b o r t 0 t o o v e r r i d e ) " \ n
append h " - t h e o p t i o n a l - k f l a g w i l l t e r m i n a t e r u n n i n g p r o c e s s e s m a t c h i n g t h e e x e c u t a b l e b e i n g b u i l t ( i f a p p l i c a b l e ) " \ n
append h " - b u i l d s / c o p i e s . t m m o d u l e s f r o m s r c t o < p r o j e c t d i r > / m o d u l e s e t c a n d p k g I n d e x . t c l b a s e d l i b r a r i e s f r o m s r c t o < p r o j e c t d i r > / l i b e t c . " \ n \ n
append h " - d o e s N O T r u n t h e p r o m o t i o n g a t e s ( b o o t s u p p o r t , v f s c o m m o n u p d a t e ) - o n a c l e a n c h e c k o u t t h e y a r e a l r e a d y s a t i s f i e d b y t h e c o m m i t t e d t r e e " \ n \ n
append h " $ s c r i p t n a m e b a k e ? - k ? " \ n
append h " - a s s e m b l e k i t / z i p k i t e x e c u t a b l e s f r o m t h e p r o m o t e d p a y l o a d ( s r c / v f s ) a n d s r c / r u n t i m e r u n t i m e s i n t o < p r o j e c t d i r > / b i n " \ n
append h " - i n c l u d e s t h e v f s l i b s p h a s e ; d o e s n o t r e b u i l d m o d u l e s / l i b s a n d d o e s n o t r u n t h e p r o m o t i o n g a t e s " \ n \ n
append h " $ s c r i p t n a m e m o d u l e s " \ n
append h " - b u i l d ( o r c o p y i f b u i l d n o t r e q u i r e d ) . t m m o d u l e s f r o m s r c / m o d u l e s s r c / v e n d o r m o d u l e s e t c t o t h e i r c o r r e s p o n d i n g l o c a t i o n s u n d e r < p r o j e c t d i r > " \ n
append h " T h i s d o e s n o t s c a n s r c / r u n t i m e a n d s r c / v f s f o l d e r s t o b u i l d k i t / z i p k i t / c o o k f s e x e c u t a b l e s " \ n \ n
@ -1544,10 +1548,10 @@ proc ::punkboot::punkboot_gethelp {args} {
append h " $ s c r i p t n a m e v f s l i b s " \ n
append h " - p r o p a g a t e d e c l a r e d v e n d o r e d p l a t f o r m - l i b r a r y p a c k a g e s i n t o k i t v f s l i b _ t c l < N > t r e e s " \ n
append h " - d e c l a r a t i o n s ( p e r - p a c k a g e p e r - k i t , w i t h s u p e r s e d e d - v e r s i o n r e m o v a l ) l i v e i n s r c / r u n t i m e / v e n d o r l i b _ v f s . t o m l " \ n
append h " - a l s o r u n s a u t o m a t i c a l l y a s p a r t o f ' $ s c r i p t n a m e p r o j e c t ' " \ n \ n
append h " - a l s o r u n s a u t o m a t i c a l l y a s a p h a s e o f ' $ s c r i p t n a m e b a k e ' ( a n d t h e r e f o r e o f ' $ s c r i p t n a m e b a k e h o u s e ' ) " \ n \ n
append h " $ s c r i p t n a m e v f s c o m m o n u p d a t e " \ n
append h " - u p d a t e t h e s r c / v f s / _ v f s c o m m o n . v f s f r o m c o m p i l e d s r c / m o d u l e s a n d s r c / l i b e t c " \ n
append h " - b e f o r e c a l l i n g t h i s ( f o l l o w e d b y m a k e p r o j e c t ) - y o u c a n t e s t u s i n g ' < b u i l t e x e > ( . e x e ) d e v ' " \ n
append h " - p r o m o t i o n g a t e : p d a t e t h e s r c / v f s / _ v f s c o m m o n . v f s f r o m c o m p i l e d s r c / m o d u l e s a n d s r c / l i b e t c " \ n
append h " - b e f o r e c a l l i n g t h i s ( f o l l o w e d b y ' $ s c r i p t n a m e b a k e ' ) - y o u c a n t e s t u s i n g ' < b u i l t e x e > ( . e x e ) d e v ' " \ n
append h " t h i s w i l l l o a d m o d u l e s f r o m y o u r < p r o j e c t d i r > / m o d u l e < p r o j e c t d i r > / l i b p a t h s i n s t e a d o f f r o m t h e k i t / z i p k i t " \ n \ n
append h " $ s c r i p t n a m e i n f o " \ n
append h " - s h o w t h e n a m e a n d b a s e f o l d e r o f t h e p r o j e c t t o b e b u i l t " \ n \ n
@ -1559,16 +1563,23 @@ proc ::punkboot::punkboot_gethelp {args} {
append h " - a d v i s o r y c h e c k : v e r i f y C H A N G E L O G . m d m a t c h e s p u n k p r o j e c t . t o m l a n d w a r n i f s r c / h a s c h a n g e s s i n c e t h e l a s t p r o j e c t - v e r s i o n b u m p . " \ n \ n
append h " $ s c r i p t n a m e w o r k f l o w " \ n
append h " - p r i n t a n A S C I I d a t a - f l o w o v e r v i e w o f t h e b u i l d / r e l e a s e w o r k f l o w ( e d i t - > p a c k a g e s - > b o o t s u p p o r t - > k i t s ) " \ n \ n
append h " $ s c r i p t n a m e b u i l d s u i t e l i s t | i n f o | b u i l d ? < s u i t e n a m e > ? ? d r i v e r - a r g s . . . ? " \ n
append h " - l i s t t h e d e f i n e d b u i l d s u i t e s u n d e r s r c / b u i l d s u i t e s ( z i g r u n t i m e f a c t o r y ) , s h o w a s u i t e ' s c o n f i g u r e d " \ n
append h " d e t a i l ( s o u r c e s / z i g p i n / p r o d u c t s f r o m i t s s o u r c e s . c o n f i g ) , o r r u n i t s d r i v e r f o r w a r d i n g t h e a r g s " \ n \ n
append h " $ s c r i p t n a m e h e l p ? s u b c o m m a n d ? " \ n
append h " - s h o w u s a g e f o r $ s c r i p t n a m e o r o n e o f i t s s u b c o m m a n d s ( e q u i v a l e n t : $ s c r i p t n a m e < s u b c o m m a n d > - h e l p ) " \ n \ n
append h " D e p r e c a t e d a l i a s e s ( t r a n s i t i o n w i n d o w ) : " \ n
append h " $ s c r i p t n a m e p r o j e c t - > r u n s b a k e h o u s e ( w i t h a o n e - l i n e n o t i c e ) " \ n
append h " $ s c r i p t n a m e v f s - > r u n s b a k e ( w i t h a o n e - l i n e n o t i c e ) " \ n \ n
append h " F l a g s : " \ n
append h " - c o n f i r m 0 | 1 " \ n
append h " - i n t e r a c t i v e y / n c o n f i r m a t i o n p o l i c y ( d e f a u l t 1 : p r o m p t w h e n s t d i n i s a t e r m i n a l , a b o r t f a s t w h e n i t i s n o t ) . " \ n
append h " U s e - c o n f i r m 0 f o r u n a t t e n d e d r u n s : t h e b o o t s u p p o r t m i n o r - s t a l e n e s s g a t e a n d t h e v f s c o m m o n u p d a t e R E P L A C E " \ n
append h " c o n f i r m a t i o n p r o c e e d w i t h o u t p r o m p t i n g ; k i t s w i t h a s o u r c e / t a r g e t k i t - t y p e m i s m a t c h a r e s k i p p e d . " \ n
append h " - d i r t y - a b o r t " \ n
append h " - a b o r t b u i l d / p r o m o t i o n c o m m a n d s ( p r o j e c t p a c k a g e s m o d u l e s l i b s v f s v f s l i b s b i n b o o t s u p p o r t v f s c o m m o n u p d a t e ) w h e n s r c / h a s " \ n
append h " u n c o m m i t t e d V C S c h a n g e s . D e f a u l t i s w a r n - o n l y : a r t i f a c t s b u i l t f r o m d i r t y s r c h a v e n o c o m m i t t e d p r o v e n a n c e . " \ n
append h " - a b o r t b u i l d / p r o m o t i o n c o m m a n d s ( b a k e h o u s e p a c k a g e s m o d u l e s l i b s b a k e v f s l i b s b i n b o o t s u p p o r t v f s c o m m o n u p d a t e ) w h e n s r c / h a s " \ n
append h " u n c o m m i t t e d V C S c h a n g e s . D e f a u l t i s w a r n - o n l y E X C E P T b a k e h o u s e ( d e f a u l t s O N t h e r e ; - d i r t y - a b o r t 0 o v e r r i d e s ) : " \ n
append h " a r t i f a c t s b u i l t f r o m d i r t y s r c h a v e n o c o m m i t t e d p r o v e n a n c e . " \ n
append h " W a r n i n g s c a r r y a p l a i n P R O V E N A N C E - W A R N I N G : p r e f i x ( g r e p p a b l e i n r e d i r e c t e d o u t p u t ) a n d a r e r e c a p p e d a t t h e e n d o f t h e r u n . " \ n
append h " U s e ' $ s c r i p t n a m e c h e c k ' t o s e e t h e c u r r e n t p r o v e n a n c e s t a t u s . T o e v a l u a t e u n c o m m i t t e d s o u r c e w i t h o u t b u i l d i n g , " \ n
append h " u s e ' < b u i l t e x e > s r c ' o r ' < b u i l t e x e > s r c s h e l l ' . " \ n \ n
@ -1592,7 +1603,20 @@ All commands run from the projectroot with a native tclsh, e.g:
tclsh src/ make.tcl < subcommand> - confirm 0 ( see [ K6 ] )
RELEASE SEQUENCE ( the order that satisfies the staleness + provenance gates)
TWO PERSONAS ( stage-true subcommand model - one build stage, two promotion
gates , one bake)
----------------------------------------------------------------------------
CONSUMER ( clean checkout, wants baked kits) :
tclsh src/ make.tcl bakehouse - confirm 0
= packages + bake in one uninterrupted run. The promotion gates are already
satisfied by the committed tree. bakehouse REFUSES uncommitted src by
default ( -dirty-abort defaults ON: the bakehouse bakes from the committed
recipe ; -dirty-abort 0 overrides) .
DEVELOPER ( changing payload) : pass the gates explicitly - the commit is the
publishing act, not a build step. That is the RELEASE SEQUENCE below.
Deprecated aliases ( transition window) : ' project' - > bakehouse, ' vfs' - > bake.
RELEASE SEQUENCE ( the developer order that satisfies the staleness + provenance gates)
----------------------------------------------------------------------------
( 1 ) edit src/ modules/ foo-999999.0a1.0.tm code change [ K1 ]
@ -1603,7 +1627,7 @@ RELEASE SEQUENCE (the order that satisfies the staleness + provenance gates)
( 5 ) build tclsh src/ make.tcl modules - confirm 0 ( or ' packages' = modules + libs)
( 6 ) build tclsh src/ make.tcl bootsupport - confirm 0 run twice: 2 nd pass must copy 0 files [ K4 ]
( 7 ) build tclsh src/ make.tcl vfscommonupdate - confirm 0
( 8 ) build tclsh src/ make.tcl project - confirm 0 kits; close running kit shells first [ K5 ]
( 8 ) build tclsh src/ make.tcl bake - confirm 0 kits; close running kit shells first [ K5 ]
( 9 ) commit tracked build outputs src/ bootsupport, thin-layout script/
manifest copies ( src / project_layouts +
templates modpod payload) ,
@ -1634,13 +1658,13 @@ DIAGRAM 1 - DATA FLOW: SOURCE -> BUILT PACKAGES -> PROPAGATION TARGETS
( the module set make.tcl itself src/ vfs/ _vfscommon.vfs/ modules/ + libs
boots from; staleness-gated. ( VCS-tracked kit payload source)
Project layouts store NO module |
snapshots - ' dev project.new' | make.tcl project ( or : make.tcl vfs)
injects bootsupport into generated v
snapshots - ' dev project.new' | make.tcl bake ( kit-assembly stage;
injects bootsupport into generated v consumer umbrella: bakehouse)
projects from the generating src/ _build/ < kit> .exe - - deploy--> bin/ < kit> .exe
shell at generation time - G-087) ( see DIAGRAM 2 ) [ K5 ]
DIAGRAM 1 b - THIN-LAYOUT SYNC ( part of modules/ libs/ packages/ project runs)
DIAGRAM 1 b - THIN-LAYOUT SYNC ( part of modules/ libs/ packages/ bakehouse runs)
----------------------------------------------------------------------------
src / make.tcl src/ build.tcl src/ bootsupport/ modules* / include_modules.config
@ -1656,7 +1680,7 @@ DIAGRAM 1b - THIN-LAYOUT SYNC (part of modules/libs/packages/project runs)
kit outside any project can list and generate the punk.project layout)
DIAGRAM 2 - KIT ASSEMBLY DETAIL ( inside ' make.tcl project' / ' make.tcl vfs' )
DIAGRAM 2 - KIT ASSEMBLY DETAIL ( the ' make.tcl bake' stage; incl. vfslibs phase)
----------------------------------------------------------------------------
src / runtime/ mapvfs.config which vfs folder pairs with which runtime - > kit name
@ -1707,7 +1731,7 @@ KEY / NOTES
a pass copies 0 files ( a converged second pass also proves prune tooling ran) .
[ K5 ] The deploy step cannot replace a kit exe that is currently executing. Close
running kit shells before step 8 , or rerun ' make.tcl vfs - confirm 0 '
running kit shells before step 8 , or rerun ' make.tcl bake - confirm 0 '
afterwards - the freshly built kits wait in src/ _build. punkcheck records
mean the rerun only redoes the failed deploys.
@ -1719,7 +1743,7 @@ KEY / NOTES
- src/ tests/ runtests.tcl exercises the src/ trees directly ( dev modules) .
- ' < builtkit> .exe dev' ( or ' < builtkit> src' ) runs a built shell against the
project dev modules - useful for testing built packages before they are
baked into kits via vfscommonupdate + project .
baked into kits via vfscommonupdate + bake .
[ K8 ] What is VCS-tracked where ( checkin targets after a build) :
tracked : src/ ** ( sources , src/ bootsupport, src/ project_layouts copies,
@ -1821,22 +1845,25 @@ if {[info exists ::env(PUNKBOOT_PLAIN)] && [string is true -strict $::env(PUNKBO
# s i n g l e s o u r c e f o r t h e s u b c o m m a n d o n e - l i n e s u m m a r i e s : e a c h s u b c o m m a n d d e f i n i t i o n ' s
# @ c m d - s u m m a r y a n d t h e t o p - l e v e l s u b c o m m a n d - c h o i c e l a b e l s a r e b o t h b u i l t f r o m t h i s .
variable SUMMARIES {
project " F u l l p r o j e c t b u i l d - p a c k a g e s p l u s k i t / z i p k i t e x e c u t a b l e s f r o m s r c / v f s a n d s r c / r u n t i m e "
bakehouse " C o n s u m e r b u i l d f r o m a c l e a n c h e c k o u t : p a c k a g e s t h e n b a k e - r e f u s e s u n c o m m i t t e d s r c b y d e f a u l t "
packages " B u i l d . t m m o d u l e s a n d p k g I n d e x . t c l l i b r a r i e s f r o m s r c i n t o < p r o j e c t d i r > ( n o k i t e x e c u t a b l e s ) "
modules " B u i l d . t m m o d u l e s f r o m s r c / m o d u l e s , s r c / v e n d o r m o d u l e s e t c i n t o < p r o j e c t d i r > / m o d u l e s e t c "
libs " B u i l d p k g I n d e x . t c l l i b r a r i e s f r o m s r c / l i b , s r c / v e n d o r l i b e t c i n t o < p r o j e c t d i r > / l i b e t c "
vfs " B u i l d k i t / z i p k i t e x e c u t a b l e s f r o m s r c / v f s a n d s r c / r u n t i m e i n t o < p r o j e c t d i r > / b i n "
bake " A s s e m b l e k i t / z i p k i t e x e c u t a b l e s f r o m p r o m o t e d p a y l o a d ( s r c / v f s ) a n d u n t i m e s i n t o < p r o j e c t d i r > / b i n "
vfslibs " P r o p a g a t e d e c l a r e d v e n d o r e d p l a t f o r m - l i b r a r y p a c k a g e s i n t o k i t v f s l i b _ t c l < N > t r e e s "
bin " I n s t a l l e x e c u t a b l e s f r o m s r c / b i n i n t o < p r o j e c t d i r > / b i n , t h e n b u i l d k i t s a s f o r v f s "
bin " I n s t a l l e x e c u t a b l e s f r o m s r c / b i n i n t o < p r o j e c t d i r > / b i n , t h e n b u i l d k i t s a s f o r b a k e "
vendorupdate " U p d a t e s r c / v e n d o r m o d u l e s b a s e d o n s r c / v e n d o r m o d u l e s / i n c l u d e _ m o d u l e s . c o n f i g "
bootsupport " U p d a t e s r c / b o o t s u p p o r t m o d u l e s f r o m b u i l t p r o j e c t m o d u l e s "
vfscommonupdate " R e p l a c e s r c / v f s / _ v f s c o m m o n . v f s m o d u l e s a n d l i b s w i t h t h e p r o j e c t ' s b u i l t m o d u l e s a n d l i b s "
bootsupport " P r o m o t i o n g a t e : u p d a t e s r c / b o o t s u p p o r t m o d u l e s f r o m b u i l t p r o j e c t m o d u l e s "
vfscommonupdate " P r o m o t i o n g a t e : r e p l a c e s r c / v f s / _ v f s c o m m o n . v f s m o d u l e s a n d l i b s w i t h t h e p r o j e c t ' s b u i l t s e t "
info " S h o w t h e n a m e a n d b a s e f o l d e r o f t h e p r o j e c t t o b e b u i l t "
check " S h o w m o d u l e / l i b r a r y p a t h s a n d a n y p o t e n t i a l l y p r o b l e m a t i c p a c k a g e s f o r r u n n i n g t h i s s c r i p t "
projectversion " A d v i s o r y c h e c k : C H A N G E L O G . m d v s p u n k p r o j e c t . t o m l a n d s r c / c h a n g e s s i n c e l a s t v e r s i o n b u m p "
workflow " P r i n t a n A S C I I d a t a - f l o w o v e r v i e w o f t h e b u i l d / r e l e a s e w o r k f l o w ( e d i t - > p a c k a g e s - > b o o t s u p p o r t - > k i t s ) "
workflow " P r i n t a n A S C I I d a t a - f l o w o v e r v i e w o f t h e b u i l d / r e l e a s e w o r k f l o w ( e d i t - > p a c k a g e s - > g a t e s - > b a k e ) "
shell " R u n t h e p u n k s h e l l u s i n g b o o t s u p p o r t l i b r a r i e s "
help " S h o w u s a g e f o r m a k e . t c l o r o n e o f i t s s u b c o m m a n d s "
buildsuite " L i s t , d e s c r i b e o r r u n t h e d e f i n e d b u i l d s u i t e s u n d e r s r c / b u i l d s u i t e s ( z i g r u n t i m e f a c t o r y ) "
project " D E P R E C A T E D a l i a s f o r b a k e h o u s e ( o n e - l i n e n o t i c e , t h e n r u n s b a k e h o u s e ) "
vfs " D E P R E C A T E D a l i a s f o r b a k e ( o n e - l i n e n o t i c e , t h e n r u n s b a k e ) "
}
# @ c m d - h e l p b o d i e s f o r t h e c o n s t r u c t e d d e f i n i t i o n s b e l o w . A u t h o r e d B L O C K - F O R M
# ( f i r s t v a l u e l i n e w h i t e s p a c e - o n l y ) s o t h e @ n o r m a l i z e d i r e c t i v e i n e a c h
@ -1845,14 +1872,20 @@ if {[info exists ::env(PUNKBOOT_PLAIN)] && [string is true -strict $::env(PUNKBO
# n o r m a l i z a t i o n ( h e a d - f o r m v a l u e s h e r e w o u l d l e a k t h i s f i l e ' s i n d e n t a t i o n i n t o
# t h e r e n d e r e d D e s c r i p t i o n c o l u m n ) .
variable HELPTEXTS {
project
bakehouse
"
Run the full project build - includes src/ vfs/ * checks and builds.
Builds / copies .tm modules and pkgIndex.tcl based libraries from src to
< projectdir > / modules, < projectdir> / lib etc, propagates declared vendored
platform - libraries into kit vfs trees ( as for vfslibs) , then scans
src / runtime and src/ vfs folders to build kit/ zipkit executables and
installs them to < projectdir> / bin."
Consumer umbrella: run the packages stage ( modules + libs) then bake
the kit/ zipkit executables - the full path from a CLEAN checkout to
installed kits in < projectdir> / bin.
The bakehouse bakes from the committed recipe: by default it refuses
to run when src/ has uncommitted changes ( -dirty-abort defaults ON) ,
pointing at the granular developer flow ( packages - > test - >
bootsupport / vfscommonupdate - > commit - > bake) . Pass - dirty-abort 0
to build anyway with PROVENANCE-WARNINGs.
Deliberately does NOT run the promotion gates ( bootsupport ,
vfscommonupdate ) : payload promotion is a confirm-gated, committed
act - on a clean checkout the gates are already satisfied by the
committed tree."
packages
"
Build ( or copy if build not required) both .tm and pkgIndex.tcl based
@ -1872,23 +1905,32 @@ if {[info exists ::env(PUNKBOOT_PLAIN)] && [string is true -strict $::env(PUNKBO
< projectdir > .
This does not scan src/ runtime and src/ vfs folders to build kit/ zipkit
executables. "
vfs
bake
"
Scan src/ vfs and src/ runtime folders and build kit/ zipkit executables
into < projectdir> / bin.
Does not first rebuild modules/ libs - use ' make.tcl project' for the
full pipeline."
Assemble kit/ zipkit executables: scan src/ vfs and src/ runtime folders,
build each configured kit from the promoted payload
( src / vfs/ _vfscommon.vfs + custom vfs folders) and its runtime, and
install to < projectdir> / bin.
Includes the vfslibs phase ( declared vendored platform-library
propagation into kit vfs lib_tcl< N> trees) so a bake cannot ship
stale binary libs.
Does not rebuild modules/ libs and does not run the promotion gates -
built modules reach the kit payload only via ' make.tcl
vfscommonupdate ' ( committed for provenance) . Consumer full path from
a clean checkout: ' make.tcl bakehouse' ."
vfslibs
"
Propagate declared vendored platform-library packages into kit vfs
lib_tcl < N> trees.
Declarations ( per-package per-kit, with superseded-version removal)
live in src/ runtime/ vendorlib_vfs.toml.
Also runs automatically as part of ' make.tcl project' ."
Also runs automatically as a phase of ' make.tcl bake' ( and therefore
of ' make.tcl bakehouse' ) ; this standalone narrowing serves quick
iteration on the declarations."
bin
"
Install executables from src/ bin to < projectdir> / bin, then check vfs
folders and build kit/ zipkit executables as for the vfs subcommand."
folders and build kit/ zipkit executables as for the bake subcommand."
vendorupdate
"
Update the src/ vendormodules based on src/ vendormodules/ include_modules.config.
@ -1907,7 +1949,7 @@ if {[info exists ::env(PUNKBOOT_PLAIN)] && [string is true -strict $::env(PUNKBO
vfscommonupdate
"
Update the src/ vfs/ _vfscommon.vfs from compiled src/ modules and src/ lib etc.
Before calling this ( followed by ' make.tcl project ' ) - you can test using
Before calling this ( followed by ' make.tcl bake ' ) - you can test using
' < builtexe > ( .exe ) dev' - this will load modules from your < projectdir> / modules,
< projectdir > / lib paths instead of from the kit/ zipkit.
Replacing the _vfscommon.vfs contents requires confirmation - see - confirm."
@ -1933,6 +1975,41 @@ if {[info exists ::env(PUNKBOOT_PLAIN)] && [string is true -strict $::env(PUNKBO
The text is embedded in make.tcl ( : : punkboot : : workflow_text) so it is
available wherever make.tcl runs; its MAINTENANCE key states the
update contract for keeping it in step with build behaviour."
buildsuite
"
Surface for the defined buildsuites under src/ buildsuites ( zig-built
runtime factory - an arm' s-length subsystem building Tcl runtimes
from external sources, distinct from the project build/ bake stages) .
Actions :
buildsuite list
Discover the suites ( directories carrying a suite.tcl driver;
_build excluded) with their one-line descriptions.
buildsuite info < name>
Show the suite' s configured detail: description, source records
( name / kind/ url/ ref/ dir from sources.config) , pinned zig and its
resolution , products, doc pointers.
buildsuite build < name> ? driver-args ...?
Run the suite' s driver ( ' suite.tcl build' with the given args
forwarded untouched, e.g - tclbranch/ - refresh/ - steps) , streaming
its output and exiting with the driver' s status.
Suites are SELF-describing: list/ info read each suite' s
sources.config records ( description / product/ doc/ zigpin - the same
manifest the suite.tcl driver parses) , so a copied/ retargeted tree
( copy-and-tweak workflow) appears here automatically with no
make.tcl edits. The contract is documented in
src / buildsuites/ README.md."
project
"
DEPRECATED alias for ' bakehouse' ( G-112 stage-true rename) - prints a
one-line notice and runs bakehouse ( packages + bake, - dirty-abort
default ON) . Retained for a transition window."
vfs
"
DEPRECATED alias for ' bake' ( G-112 stage-true rename) - prints a
one-line notice and runs bake ( kit assembly including the vfslibs
phase ) . Retained for a transition window."
}
# s h a r e d o p t i o n f r a g m e n t s c o m p o s e d i n t o t h e p e r - s u b c o m m a n d d e f i n i t i o n s b e l o w
variable OPT_CONFIRM {
@ -1966,15 +2043,26 @@ if {[info exists ::env(PUNKBOOT_PLAIN)] && [string is true -strict $::env(PUNKBO
" T e r m i n a t e r u n n i n g p r o c e s s e s m a t c h i n g t h e e x e c u t a b l e b e i n g b u i l t
( if applicable) so the build can install over it."
}
# b a k e h o u s e ( a n d i t s d e p r e c a t e d a l i a s p r o j e c t ) d e f a u l t s t h e d i r t y g a t e O N :
# t h e b a k e h o u s e b a k e s f r o m t h e c o m m i t t e d r e c i p e ( G - 1 1 2 t w o - p e r s o n a m o d e l ) .
variable OPT_DIRTYABORT_ON {
-dirty-abort - type boolean - default 1 - help\
" A b o r t w h e n s r c / h a s u n c o m m i t t e d V C S c h a n g e s - D E F A U L T O N f o r t h i s
subcommand : the bakehouse bakes from the committed recipe. A
consumer build on a clean checkout runs uninterrupted; uncommitted
developer changes get a refusal naming the granular flow
( packages - > test - > bootsupport/ vfscommonupdate - > commit - > bake) .
Pass - dirty-abort 0 to build anyway with PROVENANCE-WARNINGs."
}
# w h i c h s h a r e d o p t i o n f r a g m e n t s e a c h s u b c o m m a n d d e c l a r e s
# ( s h e l l a n d h e l p h a v e b e s p o k e d e f i n i t i o n s b e l o w : s h e l l p a s s e s t r a i l i n g a r g s
# t h r o u g h t o t h e r e p l u n t o u c h e d , h e l p t a k e s a s u b j e c t v a l u e )
variable SUBOPTS {
project { OPT_FORCEKILL OPT_DIRTYABORT OPT_CONFIRM}
bakehouse { OPT_FORCEKILL OPT_DIRTYABORT_ON OPT_CONFIRM}
packages { OPT_DIRTYABORT OPT_CONFIRM}
modules { OPT_DIRTYABORT OPT_CONFIRM}
libs { OPT_DIRTYABORT OPT_CONFIRM}
vfs { OPT_FORCEKILL OPT_DIRTYABORT OPT_CONFIRM}
bake { OPT_FORCEKILL OPT_DIRTYABORT OPT_CONFIRM}
vfslibs { OPT_DIRTYABORT OPT_CONFIRM}
bin { OPT_FORCEKILL OPT_DIRTYABORT OPT_CONFIRM}
vendorupdate { OPT_CONFIRM }
@ -1984,14 +2072,17 @@ if {[info exists ::env(PUNKBOOT_PLAIN)] && [string is true -strict $::env(PUNKBO
check { }
projectversion { }
workflow { }
project { OPT_FORCEKILL OPT_DIRTYABORT_ON OPT_CONFIRM}
vfs { OPT_FORCEKILL OPT_DIRTYABORT OPT_CONFIRM}
}
# s y n o p s i s f r a g m e n t s m a t c h i n g t h e s h a r e d o p t i o n f r a g m e n t s ( e x p l i c i t @ f o r m - s y n o p s i s
# s o u s a g e s h o w s t h e r e a l i n v o c a t i o n ' m a k e . t c l < s u b c o m m a n d > . . . ' r a t h e r t h a n t h e
# i n t e r n a l d e f i n i t i o n i d )
variable OPT_SYNOPSES {
OPT_FORCEKILL " ? - k ? "
OPT_DIRTYABORT " ? - d i r t y - a b o r t ? "
OPT_CONFIRM " ? - c o n f i r m 0 | 1 ? "
OPT_FORCEKILL " ? - k ? "
OPT_DIRTYABORT " ? - d i r t y - a b o r t ? "
OPT_DIRTYABORT_ON " ? - d i r t y - a b o r t 1 | 0 ? "
OPT_CONFIRM " ? - c o n f i r m 0 | 1 ? "
}
foreach { sub optvars} $SUBOPTS {
set synparts [ list " m a k e . t c l $ s u b " ]
@ -2022,6 +2113,15 @@ if {[info exists ::env(PUNKBOOT_PLAIN)] && [string is true -strict $::env(PUNKBO
{ @ values - min 0 - max - 1
arg - type any - optional 1 - multiple 1 - help\
" A r g u m e n t s p a s s e d t h r o u g h t o t h e p u n k r e p l . " }
punk : : args::define\
" @ i d - i d ( s c r i p t ) : : p u n k b o o t : : b u i l d s u i t e " \
" @ n o r m a l i z e " \
" @ c m d - n a m e [ l i s t " m a k e . t c l b u i l d s u i t e " ] - s u m m a r y [ l i s t [ d i c t g e t $ S U M M A R I E S b u i l d s u i t e ] ] - h e l p [ l i s t [ d i c t g e t $ H E L P T E X T S b u i l d s u i t e ] ] " \
{ @ form - synopsis " m a k e . t c l b u i l d s u i t e l i s t | i n f o | b u i l d ? < s u i t e n a m e > ? ? d r i v e r - a r g s . . . ? " } \
{ @ values - min 0 - max - 1
arg - type any - optional 1 - multiple 1 - help\
" A c t i o n ( l i s t | i n f o | b u i l d ) , s u i t e n a m e , a n d - f o r b u i l d - d r i v e r
arguments forwarded to the suite' s suite.tcl untouched." }
punk : : args::define\
" @ i d - i d ( s c r i p t ) : : p u n k b o o t : : h e l p " \
" @ n o r m a l i z e " \
@ -2034,10 +2134,13 @@ if {[info exists ::env(PUNKBOOT_PLAIN)] && [string is true -strict $::env(PUNKBO
" s u b j e c t - t y p e s t r i n g - o p t i o n a l 0 - c h o i c e s [ l i s t [ d i c t k e y s $ S U M M A R I E S ] ] - h e l p { S u b c o m m a n d t o s h o w u s a g e f o r . } "
# t o p - l e v e l d e f i n i t i o n : t h e s u b c o m m a n d t a b l e r e n d e r e d b y ' m a k e . t c l ' / ' m a k e . t c l - h e l p '
variable SUBGROUPS {
" b u i l d & p r o m o t i o n " { project packages modules libs vfs vfslibs bin}
" s o u r c e m a i n t e n a n c e " { vendorupdate bootsupport vfscommonupdate}
" b u i l d & b a k e " { bakehouse packages modules libs bake vfslibs bin}
" p r o m o t i o n g a t e s " { bootsupport vfscommonupdate}
" s o u r c e m a i n t e n a n c e " { vendorupdate }
" b u i l d s u i t e s " { buildsuite }
" i n f o r m a t i o n a l " { info check projectversion workflow help}
" i n t e r a c t i v e " { shell }
" d e p r e c a t e d a l i a s e s " { project vfs}
}
punk : : args::define\
" @ i d - i d ( s c r i p t ) : : p u n k b o o t " \
@ -2062,7 +2165,7 @@ if {[info exists ::env(PUNKBOOT_PLAIN)] && [string is true -strict $::env(PUNKBO
# r e s o l v e a m e c h a n i s m u s e d h e r e ( e . g p r e - @ n o r m a l i z e s n a p s h o t s ) d e g r a d e s t o t h e
# p l a i n f a l l b a c k i m m e d i a t e l y i n s t e a d o f e r r o r i n g a t f i r s t p a r s e / u s a g e .
punk : : args::get_spec ( script ) : : punkboot
punk : : args::get_spec ( script ) : : punkboot::project
punk : : args::get_spec ( script ) : : punkboot::bakehouse
punk : : args::get_spec ( script ) : : punkboot::help
punk : : args::get_spec ( script ) : : punkboot::shell
unset - nocomplain sub optvars defparts ov
@ -2120,6 +2223,11 @@ if {$::punkboot::punkargs_ok} {
} elseif { $subcommand eq " s h e l l " } {
# d e c l a r e d p a s s t h r o u g h : e v e r y t h i n g a f t e r ' s h e l l ' g o e s t o t h e r e p l u n p a r s e d
set : : punkboot::command shell
} elseif { $subcommand eq " b u i l d s u i t e " } {
# d e c l a r e d p a s s t h r o u g h : t h e h a n d l e r p a r s e s a c t i o n / n a m e i t s e l f ; d r i v e r
# a r g s ( a r b i t r a r y s u i t e f l a g s ) a r e f o r w a r d e d u n t o u c h e d ( G - 1 0 4 )
set : : punkboot::command buildsuite
set : : punkboot::bs_args $subargs
} else {
if { [ catch { punk : : args::parse $subargs - errorstyle $::punkboot::errstyle withid ( script ) : : punkboot::$subcommand } argd] } {
puts stderr $argd
@ -2140,6 +2248,13 @@ if {$::punkboot::punkargs_ok} {
# u n a v a i l a b l e ) . K e e p s c h e c k / b o o t s u p p o r t / m o d u l e s a n d t h e - k / - d i r t y - a b o r t / - c o n f i r m f l a g s w o r k i n g .
set commands_found [ list ]
set argsleft $scriptargs
if { [ lindex $scriptargs 0 ] eq " b u i l d s u i t e " } {
# d e c l a r e d p a s s t h r o u g h ( a s i n t h e p u n k : : a r g s p a t h ) : d r i v e r a r g s c a r r y
# a r b i t r a r y s u i t e f l a g s t h e f a l l b a c k f l a g s c a n m u s t n o t c o n s u m e ( G - 1 0 4 )
set commands_found [ list buildsuite]
set argsleft [ list ]
set : : punkboot::bs_args [ lrange $scriptargs 1 end]
}
while { [ llength $argsleft ] } {
set a [ lindex $argsleft 0 ]
set argsleft [ lrange $argsleft 1 end]
@ -2219,6 +2334,30 @@ if {$do_help} {
exit $help_exitcode
}
# G - 1 1 2 d e p r e c a t e d a l i a s e s - o n e - l i n e m a p p i n g b e f o r e a n y d i s p a t c h :
# p r o j e c t - > b a k e h o u s e ( p a c k a g e s + b a k e , - d i r t y - a b o r t d e f a u l t O N )
# v f s - > b a k e ( k i t a s s e m b l y i n c l u d i n g t h e v f s l i b s p h a s e )
# K e p t f o r a t r a n s i t i o n w i n d o w ( u n t i l t h e 8 . 6 a r c c o m p l e t e s - s e e t h e G - 1 1 2
# d i s p o s i t i o n s ) . T h e a l i a s d e f i n i t i o n s a b o v e m i r r o r t h e i r t a r g e t s ' o p t i o n s s o
# f l a g s p a r s e i d e n t i c a l l y ; o n l y t h e c o m m a n d w o r d m a p s h e r e .
if { [ info exists : : punkboot::command] } {
switch - - $::punkboot::command {
project {
puts stderr " m a k e . t c l : ' p r o j e c t ' i s D E P R E C A T E D - u s e ' b a k e h o u s e ' ( p a c k a g e s + b a k e ; r e f u s e s u n c o m m i t t e d s r c b y d e f a u l t ) . R u n n i n g b a k e h o u s e . "
set : : punkboot::command bakehouse
}
vfs {
puts stderr " m a k e . t c l : ' v f s ' i s D E P R E C A T E D - u s e ' b a k e ' ( k i t a s s e m b l y i n c l . t h e v f s l i b s p h a s e ) . R u n n i n g b a k e . "
set : : punkboot::command bake
}
}
if { ! $::punkboot::punkargs_ok && $::punkboot::command eq " b a k e h o u s e " } {
# d e g r a d e d f a l l b a c k s c a n h a s f l a g - o n l y - d i r t y - a b o r t ( n o w a y t o p a s s 0 ) :
# b a k e h o u s e ' s d o c u m e n t e d d e f a u l t i s O N , s o f o r c e i t h e r e .
set : : punkboot::opt_dirty_abort 1
}
}
set forcekill $::punkboot::opt_forcekill
# p u t s s t d o u t " : : a r g v $ : : a r g v "
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
@ -2231,7 +2370,7 @@ set forcekill $::punkboot::opt_forcekill
# - p a t c h b u m p - > w a r n a n d p r o c e e d ( n o n - b r e a k i n g )
# ' c h e c k ' i s e x e m p t i n a l l c a s e s — t h e w a r n i n g i s s h o w n a t t h e e n d o f i t s o u t p u t i n s t e a d .
# ' p r o j e c t v e r s i o n ' a n d ' w o r k f l o w ' a r e i n f o r m a t i o n a l / r e a d - o n l y a n d a r e l i k e w i s e e x e m p t .
if { [ info exists : : punkboot::stale_bootsupport] && $::punkboot::command ni { check projectversion workflow} } {
if { [ info exists : : punkboot::stale_bootsupport] && $::punkboot::command ni { check projectversion workflow buildsuite } } {
set _stale $::punkboot::stale_bootsupport
set _have_major 0
set _have_minor 0
@ -2383,7 +2522,7 @@ if {![llength [info commands ::punkboot::exit_original]]} {
}
}
if { $::punkboot::command in { project packages modules libs vfs} } {
if { $::punkboot::command in { bakehouse packages modules libs bake} } {
set dirty_abort $::punkboot::opt_dirty_abort
lassign [ : : punkboot : : get_src_provenance_warnings $projectroot " m a k e . t c l $ : : p u n k b o o t : : c o m m a n d " ] have_scoped_dirty_check dirty_warnings
if { $have_scoped_dirty_check } {
@ -2392,7 +2531,16 @@ if {$::punkboot::command in {project packages modules libs vfs vfslibs bin boots
puts stderr " T o e v a l u a t e u n c o m m i t t e d s o u r c e w i t h o u t b u i l d i n g , u s e ' < b u i l t e x e > s r c ' o r ' < b u i l t e x e > s r c s h e l l ' . "
if { $dirty_abort } {
set : : punkboot::provenance_warnings_pending [ list ] ; # n o r e c a p n e e d e d - a b o r t i n g a d j a c e n t t o t h e w a r n i n g
puts stderr " - a b o r t e d - ( - d i r t y - a b o r t g i v e n a n d s r c h a s u n c o m m i t t e d c h a n g e s - c o m m i t f i r s t , o r r e r u n w i t h o u t - d i r t y - a b o r t t o b u i l d w i t h a w a r n i n g ) "
if { $::punkboot::command eq " b a k e h o u s e " } {
puts stderr " - a b o r t e d - b a k e h o u s e r e f u s e s t o b a k e f r o m u n c o m m i t t e d s r c ( t h e b a k e h o u s e b a k e s f r o m t h e c o m m i t t e d r e c i p e ) . "
puts stderr " D e v e l o p e r f l o w f o r u n c o m m i t t e d c h a n g e s : "
puts stderr " m a k e . t c l p a c k a g e s - > t e s t ( ' < b u i l t e x e > s r c ' , s r c / t e s t s / r u n t e s t s . t c l ) "
puts stderr " m a k e . t c l b o o t s u p p o r t + m a k e . t c l v f s c o m m o n u p d a t e ( p r o m o t i o n g a t e s ) "
puts stderr " c o m m i t - > m a k e . t c l b a k e "
puts stderr " T o b u i l d a n y w a y w i t h o u t c o m m i t t e d p r o v e n a n c e : m a k e . t c l b a k e h o u s e - d i r t y - a b o r t 0 "
} else {
puts stderr " - a b o r t e d - ( - d i r t y - a b o r t g i v e n a n d s r c h a s u n c o m m i t t e d c h a n g e s - c o m m i t f i r s t , o r r e r u n w i t h o u t - d i r t y - a b o r t t o b u i l d w i t h a w a r n i n g ) "
}
exit 1
}
# G r a c e p e r i o d f o r a n a t t e n t i v e h u m a n t o c t r l - c - o n l y w h e n s t d i n i s a t e r m i n a l
@ -2770,6 +2918,160 @@ if {$::punkboot::command eq "workflow"} {
exit 0
}
if { $::punkboot::command eq " b u i l d s u i t e " } {
# G - 1 0 4 : t h i n f r o n t f o r t h e b u i l d s u i t e s ( z i g r u n t i m e f a c t o r y - a r m ' s - l e n g t h
# s u b s y s t e m b u i l d i n g T c l r u n t i m e s f r o m e x t e r n a l s o u r c e s ) . D i s c o v e r y i s a
# d i r e c t o r y s c a n ; d e s c r i p t i o n / i n f o c o m e f r o m e a c h s u i t e ' s s o u r c e s . c o n f i g
# r e c o r d s ( d e s c r i p t i o n / p r o d u c t / d o c / z i g p i n - t h e s a m e m a n i f e s t t h e s u i t e . t c l
# d r i v e r p a r s e s ) , s o c o p i e d / r e t a r g e t e d t r e e s a r e f i r s t - c l a s s w i t h n o e d i t s
# h e r e . C o n t r a c t : s r c / b u i l d s u i t e s / R E A D M E . m d .
set bs_root [ file join $sourcefolder buildsuites]
if { ! [ info exists : : punkboot::bs_args] } { set : : punkboot::bs_args [ list ] }
set bsargs $::punkboot::bs_args
set bs_action [ lindex $bsargs 0 ]
if { $bs_action eq " " } { set bs_action list}
# t o l e r a n t m a n i f e s t r e a d e r ( m a k e . t c l s i d e ) : a s u i t e w i t h a m a l f o r m e d o r a b s e n t
# s o u r c e s . c o n f i g s t i l l l i s t s - w i t h t h e p r o b l e m a s i t s d e s c r i p t i o n - r a t h e r
# t h a n b r e a k i n g d i s c o v e r y o f t h e o t h e r s . s u i t e . t c l ' s o w n p a r s e r s t a y s s t r i c t .
proc : : punkboot::buildsuite_manifest { suitedir } {
set m [ dict create description " " products [ list ] docs [ list ] zigpin " " sources [ list ] note " " ]
set cfg [ file join $suitedir sources.config]
if { ! [ file exists $cfg ] } {
dict set m note " ( n o s o u r c e s . c o n f i g m a n i f e s t ) "
return $m
}
if { [ catch {
set f [ open $cfg r] ; set data [ read $f ] ; close $f
foreach line [ split $data \ n] {
set line [ string trim $line ]
if { $line eq " " || [ string index $line 0 ] eq " # " } { continue }
if { [ catch { llength $line } ] } { continue }
switch - - [ lindex $line 0 ] {
source { dict lappend m sources [ lrange $line 1 end] }
description { dict set m description [ join [ lrange $line 1 end] " " ] }
product { dict lappend m products [ join [ lrange $line 1 end] " " ] }
doc { dict lappend m docs [ lindex $line 1 ] }
zigpin { dict set m zigpin [ lindex $line 1 ] }
}
}
} cfgerr ] } {
dict set m note " ( s o u r c e s . c o n f i g u n r e a d a b l e : $ c f g e r r ) "
}
return $m
}
proc : : punkboot::buildsuite_dirs { bs_root } {
set dirs [ list ]
foreach dir [ lsort [ glob - nocomplain - dir $bs_root - type d * ] ] {
if { [ file tail $dir ] eq " _ b u i l d " } { continue }
if { ! [ file exists [ file join $dir suite.tcl] ] } { continue } ; # n o t a s u i t e ( n o d r i v e r )
lappend dirs $dir
}
return $dirs
}
switch - - $bs_action {
list {
set suitedirs [ : : punkboot : : buildsuite_dirs $bs_root ]
if { ! [ llength $suitedirs ] } {
puts stdout " n o b u i l d s u i t e s f o u n d u n d e r $ b s _ r o o t ( a s u i t e = a d i r e c t o r y c a r r y i n g a s u i t e . t c l d r i v e r ) "
exit 0
}
puts stdout " b u i l d s u i t e s u n d e r $ b s _ r o o t : "
foreach dir $suitedirs {
set m [ : : punkboot : : buildsuite_manifest $dir ]
set desc [ dict get $m description]
if { $desc eq " " } { set desc [ dict get $m note] }
if { $desc eq " " } { set desc " ( n o d e s c r i p t i o n r e c o r d i n s o u r c e s . c o n f i g ) " }
puts stdout [ format " % - 1 6 s % s " [ file tail $dir ] $desc ]
}
puts stdout " "
puts stdout " - ' m a k e . t c l b u i l d s u i t e i n f o < n a m e > ' s h o w s a s u i t e ' s c o n f i g u r e d d e t a i l "
puts stdout " - ' m a k e . t c l b u i l d s u i t e b u i l d < n a m e > ? d r i v e r - a r g s . . . ? ' r u n s i t s d r i v e r "
exit 0
}
info {
set bs_name [ lindex $bsargs 1 ]
if { $bs_name eq " " } {
puts stderr " u s a g e : m a k e . t c l b u i l d s u i t e i n f o < s u i t e n a m e > ( ' m a k e . t c l b u i l d s u i t e l i s t ' s h o w s t h e n a m e s ) "
exit 2
}
set dir [ file join $bs_root $bs_name ]
if { ! [ file isdirectory $dir ] || ! [ file exists [ file join $dir suite.tcl] ] } {
puts stderr " b u i l d s u i t e ' $ b s _ n a m e ' n o t f o u n d ( n o [ f i l e j o i n $ d i r s u i t e . t c l ] ) - ' m a k e . t c l b u i l d s u i t e l i s t ' s h o w s t h e s u i t e s "
exit 2
}
set m [ : : punkboot : : buildsuite_manifest $dir ]
puts stdout " b u i l d s u i t e : $ b s _ n a m e "
puts stdout " p a t h : $ d i r "
if { [ dict get $m note] ne " " } { puts stdout " n o t e : [ d i c t g e t $ m n o t e ] " }
if { [ dict get $m description] ne " " } { puts stdout " d e s c r i p t i o n : [ d i c t g e t $ m d e s c r i p t i o n ] " }
if { [ llength [ dict get $m sources] ] } {
puts stdout " s o u r c e s ( s o u r c e s . c o n f i g - t h e l i v e d e v - f l o w r e f s ; t h e ' z i g b u i l d ' f l o w p i n s p e r - c h e c k i n v i a b u i l d . z i g . z o n ) : "
puts stdout [ format " % - 1 0 s % - 7 s % - 4 0 s % - 1 6 s % s " name kind url ref dir]
foreach s [ dict get $m sources] {
lassign $s sname skind surl sref sdir
puts stdout [ format " % - 1 0 s % - 7 s % - 4 0 s % - 1 6 s % s " $sname $skind $surl $sref $sdir ]
}
}
set zigpin [ dict get $m zigpin]
if { $zigpin ne " " } {
set pinpath [ file normalize [ file join $projectroot $zigpin ] ]
set pinstate [ expr { [ file exists $pinpath ] ? " p r e s e n t " : " N O T P R E S E N T ( b i n / p u n k - g e t z i g . c m d c a n f e t c h i t ) " } ]
puts stdout " z i g p i n : $ z i g p i n ( $ p i n s t a t e ) "
} else {
puts stdout " z i g p i n : ( n o z i g p i n r e c o r d i n s o u r c e s . c o n f i g ) "
}
if { [ info exists : : env( PUNK_ZIG ) ] } {
puts stdout " z i g v i a e n v : P U N K _ Z I G = $ : : e n v ( P U N K _ Z I G ) ( o v e r r i d e s t h e p i n f o r d r i v e r r u n s ) "
}
foreach p [ dict get $m products] {
puts stdout " p r o d u c t : $ p "
}
foreach d [ dict get $m docs] {
puts stdout " d o c : [ f i l e j o i n $ d i r $ d ] "
}
exit 0
}
build {
set bs_name [ lindex $bsargs 1 ]
if { $bs_name eq " " } {
puts stderr " u s a g e : m a k e . t c l b u i l d s u i t e b u i l d < s u i t e n a m e > ? d r i v e r - a r g s . . . ? "
exit 2
}
set dir [ file join $bs_root $bs_name ]
set driver [ file join $dir suite.tcl]
if { ! [ file exists $driver ] } {
puts stderr " b u i l d s u i t e ' $ b s _ n a m e ' n o t f o u n d ( n o $ d r i v e r ) - ' m a k e . t c l b u i l d s u i t e l i s t ' s h o w s t h e s u i t e s "
exit 2
}
set fwdargs [ lrange $bsargs 2 end]
# i n t e r p r e t e r f o r t h e d r i v e r : t h i s t c l s h - o r , p u n k - e x e - h o s t e d ( t h e
# G - 0 5 8 s t a t i c - c a p t u r e m a r k e r i d e n t i f i e s a k i t b o o t ) , t h e k i t ' s
# ' s c r i p t ' s u b c o m m a n d s o t h e d r i v e r r u n s w i t h p l a i n s c r i p t s e m a n t i c s
set launcher [ list [ info nameofexecutable] ]
if { [ info exists : : punkboot::static_packages] } {
set launcher [ list [ info nameofexecutable] script]
}
puts stdout " b u i l d s u i t e b u i l d $ b s _ n a m e : r u n n i n g ' $ d r i v e r b u i l d ' w i t h f o r w a r d e d a r g s : $ f w d a r g s "
flush stdout
# s t r e a m d r i v e r o u t p u t ; e x i t w i t h t h e d r i v e r ' s s t a t u s
if { [ catch { exec { * } $launcher $driver build { * } $fwdargs > @ stdout 2 > @ stderr} execerr execopts] } {
set ecode [ dict get $execopts - errorcode]
if { [ lindex $ecode 0 ] eq " C H I L D S T A T U S " } {
exit [ lindex $ecode 2 ]
}
puts stderr " b u i l d s u i t e b u i l d $ b s _ n a m e : f a i l e d t o r u n t h e d r i v e r : $ e x e c e r r "
exit 1
}
exit 0
}
default {
puts stderr " u n k n o w n b u i l d s u i t e a c t i o n ' $ b s _ a c t i o n ' - e x p e c t e d l i s t | i n f o | b u i l d "
puts stderr " u s a g e : m a k e . t c l b u i l d s u i t e l i s t | i n f o | b u i l d ? < s u i t e n a m e > ? ? d r i v e r - a r g s . . . ? "
exit 2
}
}
}
if { $::punkboot::command eq " s h e l l " } {
# G - 1 1 3 : t h e a n s i s t r i p t r a n s f o r m s e r v e s m a k e . t c l ' s o w n o u t p u t o n l y - t h e r e p l ' s
# c o l o u r b e h a v i o u r i s t h e s h e l l ' s o w n c o n c e r n ( c o l o u r o n / o f f + N O _ C O L O R t h e r e ) .
@ -3175,7 +3477,7 @@ if {$::punkboot::command eq "bootsupport"} {
# P r o j e c t l a y o u t s s t o r e n o b o o t s u p p o r t m o d u l e s n a p s h o t s - ' d e v p r o j e c t . n e w ' i n j e c t s b o o t s u p p o r t
# i n t o g e n e r a t e d p r o j e c t s f r o m t h e g e n e r a t i n g s h e l l a t g e n e r a t i o n t i m e . L a y o u t - c a r r i e d s c r i p t s
# a n d b o o t s u p p o r t m a n i f e s t s a r e k e p t c u r r e n t b y t h e t h i n - l a y o u t s y n c s t e p ( s e e D I A G R A M 1 b i n
# : : p u n k b o o t : : w o r k f l o w _ t e x t ) , w h i c h r u n s d u r i n g m o d u l e s / l i b s / p a c k a g e s / p r o j e c t b u i l d s .
# : : p u n k b o o t : : w o r k f l o w _ t e x t ) , w h i c h r u n s d u r i n g m o d u l e s / l i b s / p a c k a g e s / b a k e h o u s e b u i l d s .
puts stdout " b o o t s u p p o r t d o n e "
flush stderr
@ -3187,7 +3489,7 @@ if {$::punkboot::command eq "bootsupport"} {
if { $::punkboot::command ni { project modules libs packages vfs} } {
if { $::punkboot::command ni { bakehouse packages modules libs bake} } {
puts stderr " C o m m a n d $ : : p u n k b o o t : : c o m m a n d n o t i m p l e m e n t e d - a b o r t i n g . "
flush stderr
after 100
@ -3200,7 +3502,7 @@ if {$::punkboot::command ni {project modules libs packages vfs vfslibs bin}} {
# i n s t a l l s r c v e n d o r c o n t e n t s ( f r o m v e r s i o n c o n t r o l l e d s r c f o l d e r ) t o b a s e o f p r o j e c t ( s a m e t a r g e t f o l d e r s a s o u r o w n s r c / m o d u l e s e t c i e t o p a t h s t h a t g o o n t h e a u t o _ p a t h a n d i n t c l : : t m : : l i s t )
if { $::punkboot::command in { project } } {
if { $::punkboot::command in { bakehouse } } {
set vendormodulefolders [ glob - nocomplain - dir $sourcefolder - type d - tails vendormodules vendormodules_tcl* ]
foreach vf $vendormodulefolders {
lassign [ split $vf _] _vm tclx
@ -3240,7 +3542,7 @@ if {$::punkboot::command in {project packages modules}} {
}
}
if { $::punkboot::command in { project } } {
if { $::punkboot::command in { bakehouse } } {
# e x c l u d e R E A D M E . m d f r o m s o u r c e f o l d e r - b u t o n l y t h e r o o t o n e
# - e x c l u d e - p a t h s t a k e s r e l a t i v e p a t t e r n s e . g
# * / t e s t . t x t w i l l o n l y m a t c h t e s t . t x t e x a c t l y o n e l e v e l d e e p .
@ -3309,7 +3611,7 @@ if {$::punkboot::command in {project packages libs}} {
}
}
if { $::punkboot::command in { project } } {
if { $::punkboot::command in { bakehouse bake} } {
# G - 0 3 7 : p r o p a g a t e d e c l a r e d v e n d o r e d p l a t f o r m - l i b r a r y p a c k a g e s i n t o k i t v f s l i b _ t c l < N > t r e e s .
# P a r t i c i p a t i o n i s p e r - p a c k a g e p e r - k i t ( k i t v f s p a c k a g e s e t s i n t e n t i o n a l l y d i f f e r - e . g . t w a p i
# v e r s i o n s v a r y p e r k i t ) - d e c l a r e d i n s r c / r u n t i m e / v e n d o r l i b _ v f s . t o m l , n e v e r b l a n k e t - c o p i e d .
@ -3400,7 +3702,7 @@ if {$::punkboot::command in {project vfslibs}} {
}
}
if { $::punkboot::command in { project } } {
if { $::punkboot::command in { bakehouse } } {
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
lappend projectlibfolders lib
# e x c l u d e R E A D M E . m d f r o m s o u r c e f o l d e r - b u t o n l y t h e r o o t o n e
@ -3473,7 +3775,7 @@ if {$::punkboot::command in {project packages libs}} {
}
if { $::punkboot::command in { project } } {
if { $::punkboot::command in { bakehouse } } {
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
# t e m p l a t e s - t h i n - l a y o u t s y n c ( G - 0 8 7 s t a g e 3 ; s e e D I A G R A M 1 b i n : : p u n k b o o t : : w o r k f l o w _ t e x t )
# s y n c b o o t s c r i p t s ( b u i l d . t c l , m a k e . t c l ) a n d b o o t s u p p o r t i n c l u d e _ m o d u l e s . c o n f i g m a n i f e s t s i n t o t h e
@ -3584,7 +3886,7 @@ if {$::punkboot::command in {project packages modules libs}} {
}
}
if { $::punkboot::command in { project } } {
if { $::punkboot::command in { bakehouse } } {
# c o n s o l i d a t e d / m o d u l e s / m o d u l e s _ t c l X f o l d e r u s e d f o r t a r g e t w h e r e X i s t c l m a j o r v e r s i o n
# t h e m a k e p r o c e s s w i l l p r o c e s s f o r a n y _ t c l X n o t j u s t t h e m a j o r v e r s i o n o f t h e c u r r e n t i n t e r p r e t e r
@ -3623,7 +3925,7 @@ if {$::punkboot::command in {project packages modules}} {
}
}
if { $::punkboot::command in { project } } {
if { $::punkboot::command in { bakehouse } } {
set installername " m a k e . t c l "
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
if { [ punk : : repo::is_fossil_root $projectroot ] } {
@ -3671,14 +3973,15 @@ if {$::punkboot::command in {project packages modules libs}} {
# r e v i e w
set installername " m a k e . t c l "
if { $::punkboot::command ni { project vfs} } {
# c o m m a n d = m o d u l e s
if { $::punkboot::command ni { bakehouse bake} } {
# c o m m a n d = p a c k a g e s / m o d u l e s / l i b s / v f s l i b s - s t o p s b e f o r e k i t a s s e m b l y
puts stdout " v f s f o l d e r s n o t c h e c k e d "
puts stdout " - u s e ' m a k e . t c l v f s c o m m o n u p d a t e ' t o c o p y b u i l t m o d u l e s i n t o b a s e v f s f o l d e r "
puts stdout " - u s e ' m a k e . t c l p r o j e c t ' t o b u i l d e x e c u t a b l e k i t s / z i p k i t s f r o m v f s f o l d e r s a s w e l l i f y o u h a v e r u n t i m e s i n s t a l l e d "
puts stdout " N o t e t h a t w i t h o u t t h e v f s c o m m o n u p d a t e s t e p , ' m a k e . t c l p r o j e c t ' w i l l i n c l u d e a n y m a n u a l c h a n g e s i n t h e * c u s t o m * v f s f o l d e r s b u t "
puts stdout " w i t h o u t t h e l a t e s t b u i l t m o d u l e s . "
puts stdout " c a l l i n g ' b u i l t e x e n a m e ( . e x e ) d e v ' w i l l a l l o w t e s t i n g o f b u i l t m o d u l e s b e f o r e t h e y a r e p u t i n t o t h e k i t s / z i p k i t s v i a ' v f s c o m m o n u p d a t e ' t h e n ' p r o j e c t ' "
puts stdout " - u s e ' m a k e . t c l v f s c o m m o n u p d a t e ' t o p r o m o t e b u i l t m o d u l e s i n t o t h e b a s e v f s f o l d e r ( p r o m o t i o n g a t e - c o m m i t f o r p r o v e n a n c e ) "
puts stdout " - u s e ' m a k e . t c l b a k e ' t o b u i l d e x e c u t a b l e k i t s / z i p k i t s f r o m t h e v f s f o l d e r s i f y o u h a v e r u n t i m e s i n s t a l l e d "
puts stdout " N o t e t h a t w i t h o u t t h e v f s c o m m o n u p d a t e s t e p , ' m a k e . t c l b a k e ' w i l l i n c l u d e a n y m a n u a l c h a n g e s i n t h e * c u s t o m * v f s f o l d e r s b u t "
puts stdout " w i t h o u t t h e l a t e s t b u i l t m o d u l e s . "
puts stdout " c a l l i n g ' b u i l t e x e n a m e ( . e x e ) d e v ' w i l l a l l o w t e s t i n g o f b u i l t m o d u l e s b e f o r e t h e y a r e b a k e d i n t o t h e k i t s / z i p k i t s v i a ' v f s c o m m o n u p d a t e ' t h e n ' b a k e ' "
puts stdout " - c o n s u m e r f u l l p a t h f r o m a c l e a n c h e c k o u t : ' m a k e . t c l b a k e h o u s e ' "
puts stdout " - d o n e - "
exit 0
}
@ -5123,11 +5426,11 @@ if {[llength $failed_kits]} {
set had_kits [ expr { [ llength $installed_kits ] || [ llength $failed_kits ] || [ llength $skipped_kits ] } ]
if { $had_kits } {
puts stdout " m o d u l e b u i l d s a n d k i t / z i p k i t b u i l d s p r o c e s s e d ( v f s c o n f i g : s r c / r u n t i m e / m a p v f s . c o n f i g ) "
puts stdout " - u s e ' m a k e . t c l m o d u l e s ' t o b u i l d m o d u l e s w i t h o u t s c a n n i n g / b u i l d i n g t h e v f s f o l d e r s i n t o e x e c u t a b l e k i t s / z i p k i t s "
puts stdout " - u s e ' m a k e . t c l v f s c o m m o n u p d a t e ' t o c o p y b u i l t m o d u l e s i n t o t h e b a s e v f s f o l d e r < p r o j e c t d i r > / s r c / v f s / _ v f s c o m m o n . v f s "
puts stdout " - N o t e t h a t w i t h o u t t h e v f s c o m m o n u p d a t e s t e p , ' m a k e t c l v f s ' ( i n c l u d e d i n ' m a k e t c l p r o j e c t ' ) w i l l b u i l d v f s b a s e d e x e c u t a b l e s "
puts stdout " t h a t i n c l u d e y o u r c u r r e n t c u s t o m v f s f o l d e r s i n s r c / v f s , b u t w i t h a _ v f s c o m m o n . v f s t h a t d o e s n ' t h a v e t h e l a t e s t b u i l t m o d u l e s "
puts stdout " c a l l i n g ' b u i l t e x e n a m e ( . e x e ) d e v ' w i l l a l l o w t e s t i n g o f b u i l t m o d u l e s b e f o r e t h e y a r e p u t i n t o t h e k i t s / z i p k i t s v i a ' v f s c o m m o n u p d a t e ' t h e n ' p r o j e c t ' "
puts stdout " - u s e ' m a k e . t c l m o d u l e s ' t o b u i l d m o d u l e s w i t h o u t b a k i n g t h e v f s f o l d e r s i n t o e x e c u t a b l e k i t s / z i p k i t s "
puts stdout " - u s e ' m a k e . t c l v f s c o m m o n u p d a t e ' t o p r o m o t e b u i l t m o d u l e s i n t o t h e b a s e v f s f o l d e r < p r o j e c t d i r > / s r c / v f s / _ v f s c o m m o n . v f s ( p r o m o t i o n g a t e )
puts stdout " - N o t e t h a t w i t h o u t t h e v f s c o m m o n u p d a t e s t e p , ' m a k e . t c l b a k e ' ( t h e k i t - a s s e m b l y s t a g e o f ' m a k e . t c l b a k e h o u s e ' ) w i l l b u i l d v f s b a s e d e x e c u t a b l e s "
puts stdout " t h a t i n c l u d e y o u r c u r r e n t c u s t o m v f s f o l d e r s i n s r c / v f s , b u t w i t h a _ v f s c o m m o n . v f s t h a t d o e s n ' t h a v e t h e l a t e s t b u i l t m o d u l e s "
puts stdout " c a l l i n g ' b u i l t e x e n a m e ( . e x e ) d e v ' w i l l a l l o w t e s t i n g o f b u i l t m o d u l e s b e f o r e t h e y a r e b a k e d i n t o t h e k i t s / z i p k i t s v i a ' v f s c o m m o n u p d a t e ' t h e n ' b a k e ' "
} else {
puts stdout " m o d u l e b u i l d s p r o c e s s e d "
puts stdout " "
