@ -1,13 +1,19 @@
# ! / u s r / b i n / e n v t c l s h
# s u i t e _ t c l 9 0 d r i v e r ( G - 0 9 6 ) : s t a g e t h e t r a c k e d z i g r e c i p e i n t o . . / _ b u i l d / s u i t e _ t c l 9 0 ,
# a r r a n g e s o u r c e s , g e n e r a t e t h e c o n f i g u r e - p r o d u c e d f i l e s f r e s h c h e c k o u t s l a c k , b u i l d ,
# a n d s m o k e - t e s t t h e r e s u l t .
# s u i t e _ t c l 9 0 d e v d r i v e r ( G - 0 9 6 , t h i n n e d u n d e r G - 1 0 2 ) : s t a g e t h e t r a c k e d z i g r e c i p e
# i n t o . . / _ b u i l d / s u i t e _ t c l 9 0 , a r r a n g e s o u r c e s f r o m L I V E f o s s i l / g i t c h e c k o u t s , a n d
# d e l e g a t e t h e b u i l d / t e s t p i p e l i n e t o t h e s t a g e d z i g r e c i p e ' s s t e p s .
#
# T h i s i s t h e F O S S I L D E V F L O W - c o n v e n i e n t l i v e - b r a n c h w o r k a g a i n s t c h e c k o u t s . T h e
# p i p e l i n e i t s e l f ( c o n f i g u r e - p r o d u c t g e n e r a t i o n , c o m p i l e , p a c k a g e i n s t a l l s , s m o k e s ,
# t e s t g a t e ) l i v e s e n t i r e l y i n t h e z i g r e c i p e ; t h e e q u i v a l e n t n o - t c l s h f l o w i s
# ' z i g b u i l d s t a g e | b o o t s t r a p ' f r o m t h i s d i r e c t o r y , f e t c h i n g t h e P I N N E D s o u r c e s
# d e c l a r e d i n b u i l d . z i g . z o n i n s t e a d o f c h e c k o u t s ( s e e R E A D M E ) .
#
# U s a g e : t c l s h s u i t e . t c l b u i l d ? o p t i o n s ?
# t c l s h s u i t e . t c l t e s t ? - t e s t a r g s { t c l t e s t a r g s } ? ( e . g - t e s t a r g s { - f i l e " a s s o c d . t e s t u t i l . t e s t " } )
# t c l s h s u i t e . t c l c l e a n
# O p t i o n s :
# - z i g < p a t h > z i g e x e c u t a b l e ( d e f a u l t : $ e n v ( P U N K _ Z I G ) , e l s e ' z i g ' o n P A T H )
# - z i g < p a t h > z i g e x e c u t a b l e ( d e f a u l t : $ e n v ( P U N K _ Z I G ) , e l s e p i n n e d b i n / t o o l s z i g , e l s e ' z i g ' o n P A T H )
# - o p t i m i z e < m o d e > D e b u g | R e l e a s e S a f e | R e l e a s e F a s t | R e l e a s e S m a l l ( d e f a u l t R e l e a s e F a s t )
# - t c l b r a n c h < b r a n c h > o v e r r i d e t h e ' t c l ' r e f f r o m s o u r c e s . c o n f i g f o r t h i s r u n
# ( d e f a u l t : t h e r e f d e c l a r e d i n s o u r c e s . c o n f i g )
@ -15,7 +21,8 @@
# - r e p o f o l d e r < d i r > f o s s i l c l o n e s t o r e ( d e f a u l t ~ / . p u n k s h e l l / f o s s i l s ; e n v P U N K _ F O S S I L _ S T O R E )
# - s e e d f o s s i l s < d i r > r e a d - o n l y s e e d c o l l e c t i o n f o r m i s s i n g c l o n e s ( d e f a u l t ~ / . f o s s i l s ; " " d i s a b l e s )
# - a l l < 0 | 1 > w i t h ' c l e a n ' : r e s e r v e d ( t h e c l o n e s t o r e l i v e s o u t s i d e t h e s t a g e )
# - s t e p s < l i s t > z i g b u i l d s t e p s ( d e f a u l t { i n s t a l l i n s t a l l - l i b r a r i e s m a k e - z i p f s } )
# - s t e p s < l i s t > z i g b u i l d s t e p s ( d e f a u l t { i n s t a l l i n s t a l l - l i b r a r i e s m a k e - z i p f s
# s m o k e t k l i b t c l l i b t c l l i b c } - t h e f u l l p i p e l i n e s h o r t o f t e s t - g a t e )
#
# T h e b u i l d a r e a l i v e s e n t i r e l y u n d e r s r c / b u i l d s u i t e s / _ b u i l d ( V C S - i g n o r e d v i a t h e
# e x i s t i n g _ b u i l d g l o b s ) . F o s s i l c l o n e s l i v e i n t h e P U N K S H E L L - O W N E D m a c h i n e - l e v e l
@ -47,6 +54,7 @@ set suiteroot [file dirname [file normalize [info script]]]
# s t a g e d e r i v e d f r o m t h e s u i t e F O L D E R n a m e s o a c o p i e d t r e e ( c o p y - a n d - t w e a k w o r k f l o w ,
# s e e s o u r c e s . c o n f i g ) s t a g e s i n t o i t s o w n _ b u i l d / < n a m e > - c o p i e s s t a y i s o l a t e d .
set stage [ file normalize [ file join $suiteroot .. _build [ file tail $suiteroot ] ] ]
set builddir [ file join $stage build]
# - - o p t i o n s - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
set action [ lindex $argv 0 ]
@ -58,7 +66,7 @@ array set opt {
-optimize ReleaseFast
-tclbranch { }
-refresh 0
-steps { install install-libraries make-zipfs}
-steps { install install-libraries make-zipfs smoke tklib tcllib tcllibc }
-testargs { }
-repofolder { }
-all 0
@ -104,6 +112,35 @@ if {$opt(-repofolder) ne ""} {
set fossildir [ file join [ file normalize $homedir ] .punkshell fossils]
}
# H e r m e t i c c h i l d s h e l l s : t h e s u i t e - b u i l t t c l s h m u s t n o t s e e t h e u s e r ' s m a c h i n e - l e v e l
# p a c k a g e p a t h s ( T C L L I B P A T H p u s h e d e . g C : / T C L P K G S i n t o t c l _ p k g P a t h h e r e - m i s d i r e c t i n g
# i n s t a l l e r d e f a u l t p a t h s a n d r i s k i n g f a l s e - p o s i t i v e s m o k e s v i a m a c h i n e p a c k a g e s ) .
# T h e z i g r e c i p e a d d i t i o n a l l y s c r u b s t h e s e p e r b u i l t - s h e l l R u n s t e p ( G - 1 0 2 ) .
foreach ev { TCLLIBPATH TCL_LIBRARY TK_LIBRARY} {
if { [ info exists env( $ev ) ] } {
log " u n s e t t i n g i n h e r i t e d \$ e n v ( $ e v ) f o r h e r m e t i c c h i l d s h e l l s "
unset env( $ev )
}
}
proc run_zig_steps { steps { extraopts { } } } {
# d r i v e t h e S T A G E D r e c i p e ( s u i t e . t c l p a r i t y c o n t r a c t w i t h ' z i g b u i l d b o o t s t r a p ' :
# c w d = s t a g e d b u i l d d i r , p e r - z i g - v e r s i o n c a c h e , f o r w a r d - s l a s h p r e f i x )
global opt builddir stage
if { ! [ file exists [ file join $builddir build905.zig] ] } {
fail " n o s t a g e d r e c i p e a t $ b u i l d d i r - r u n ' s u i t e . t c l b u i l d ' f i r s t "
}
set zigv [ exec $opt ( -zig ) version]
log " z i g : $ o p t ( - z i g ) ( $ z i g v ) "
# P e r - z i g - v e r s i o n l o c a l c a c h e : o b j e c t c a c h e s m u s t n e v e r b e s h a r e d a c r o s s z i g
# v e r s i o n s ( o b s e r v e d p r o d u c i n g s t a l e / d u p l i c a t e a r t i f a c t s i n t h e l i n k ) .
set cachedir " . z i g - c a c h e - [ s t r i n g m a p { + _ / _ : _ } $ z i g v ] "
set savedpwd [ pwd ]
cd $builddir
run $opt ( -zig ) build - - build-file build905.zig - - cache-dir $cachedir - - prefix [ file join $stage out] - Doptimize= $opt ( -optimize ) { * } $extraopts { * } $steps
cd $savedpwd
}
if { $action eq " c l e a n " } {
log " r e m o v i n g $ s t a g e ( t h e c l o n e s t o r e a t $ f o s s i l d i r i s u n t o u c h e d ) "
file delete - force $stage
@ -111,66 +148,19 @@ if {$action eq "clean"} {
}
if { $action eq " t e s t " } {
# E x e r c i s e t h e T c l c o r e t e s t s u i t e o n t h e s u i t e - b u i l t s t a t i c s h e l l a n d G A T E o n t h e
# p a r s e d t o t a l s ( a l l . t c l ' s e x i t c o d e d o e s N O T r e f l e c t f a i l u r e s ) : e v e r y f a i l e d t e s t
# m u s t a p p e a r i n t h e t r a c k e d e x p e c t e d - f a i l u r e b a s e l i n e
# ( s u i t e _ t c l 9 0 / e x p e c t e d _ t e s t _ f a i l u r e s . t x t ) o r t h e a c t i o n f a i l s l i s t i n g t h e
# u n e x p l a i n e d n a m e s . F u l l o u t p u t i s w r i t t e n t o < s t a g e > / t c l t e s t . l o g .
set exe [ file join $stage out bin tclsh90s.exe]
set testsdir [ file join $stage tcl905 tests]
if { ! [ file exists $exe ] } { fail " n o b u i l t s h e l l a t $ e x e - r u n ' s u i t e . t c l b u i l d ' f i r s t " }
if { ! [ file isdirectory $testsdir ] } { fail " n o t c l t e s t s d i r a t $ t e s t s d i r - r u n ' s u i t e . t c l b u i l d ' f i r s t " }
set logfile [ file join $stage tcltest.log]
log " t c l t e s t s u i t e o n $ e x e [ e x p r { [ l l e n g t h $ o p t ( - t e s t a r g s ) ] ? $ o p t ( - t e s t a r g s ) : " ( f u l l s u i t e ) " } ] - > $ l o g f i l e "
set savedpwd [ pwd ]
cd $testsdir
catch { exec $exe all.tcl { * } $opt ( -testargs ) > $logfile 2 > @ 1 }
cd $savedpwd
set f [ open $logfile r] ; set testout [ read $f ] ; close $f
if { ! [ regexp { all \ .tcl:\ s+ Total\ s+ ( \ d + ) \ s+ Passed\ s+ ( \ d + ) \ s+ Skipped\ s+ ( \ d + ) \ s+ Failed\ s+ ( \ d + ) } $testout - > ntotal npassed nskipped nfailed] } {
fail " n o a l l . t c l t o t a l s l i n e f o u n d i n $ l o g f i l e - r u n d i d n o t c o m p l e t e "
# D e l e g a t e s t o t h e r e c i p e ' s t e s t - g a t e s t e p ( t o o l s / t e s t _ g a t e . t c l u n d e r t h e
# s u i t e - b u i l t s h e l l ) : c o r e t e s t s u i t e g a t e d o n p a r s e d t o t a l s v s t h e t r a c k e d
# e x p e c t e d _ t e s t _ f a i l u r e s . t x t b a s e l i n e . F u l l o u t p u t : < s t a g e > / t c l t e s t . l o g .
set extraopts { }
if { [ llength $opt ( -testargs ) ] } {
lappend extraopts - Dtestargs= $opt ( -testargs )
}
log " t o t a l s : $ n t o t a l r u n , $ n p a s s e d p a s s e d , $ n s k i p p e d s k i p p e d , $ n f a i l e d f a i l e d "
set failednames { }
foreach { - tname} [ regexp - all - inline - line { ^ == == ( \ S + ) FAILED } $testout ] {
if { $tname ni $failednames } { lappend failednames $tname }
}
# b a s e l i n e : o n e t e s t n a m e p e r l i n e ; ' # ' c o m m e n t s c a r r y t h e d i s p o s i t i o n r e a s o n s
set baseline { }
set basefile [ file join $suiteroot expected_test_failures.txt]
if { [ file exists $basefile ] } {
set f [ open $basefile r]
foreach line [ split [ read $f ] \ n] {
set line [ string trim $line ]
if { $line eq " " || [ string index $line 0 ] eq " # " } continue
lappend baseline [ lindex $line 0 ]
}
close $f
}
set unexplained { }
foreach tname $failednames {
if { $tname ni $baseline } { lappend unexplained $tname }
}
set stale { }
if { ! [ llength $opt ( -testargs ) ] } {
# o n l y m e a n i n g f u l f o r f u l l r u n s : b a s e l i n e e n t r i e s t h a t n o l o n g e r f a i l
foreach tname $baseline {
if { $tname ni $failednames } { lappend stale $tname }
}
}
if { [ llength $stale ] } {
log " n o t e : [ l l e n g t h $ s t a l e ] b a s e l i n e e n t r i e s d i d n o t f a i l t h i s r u n ( c a n d i d a t e s f o r r e m o v a l ) : $ s t a l e "
}
if { [ llength $unexplained ] } {
puts stderr " s u i t e _ t c l 9 0 T E S T G A T E F A I L : [ l l e n g t h $ u n e x p l a i n e d ] f a i l e d t e s t ( s ) n o t i n t h e e x p e c t e d - f a i l u r e b a s e l i n e : "
foreach tname $unexplained { puts stderr " $ t n a m e " }
puts stderr " ( f u l l o u t p u t : $ l o g f i l e ; b a s e l i n e : $ b a s e f i l e ) "
exit 1
}
log " T E S T G A T E P A S S ( [ l l e n g t h $ f a i l e d n a m e s ] f a i l u r e s , a l l b a s e l i n e d ) "
run_zig_steps { test-gate } $extraopts
exit 0
}
# - - a c t i o n : b u i l d - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# - - f o s s i l e n v i r o n m e n t - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# C h e c k o u t r e g i s t r a t i o n s g o t o a s t a g e - l o c a l c o n f i g d b , n o t t h e u s e r ' s g l o b a l o n e
# ( a g e n t - m e m o r y : f o s s i l s c r a t c h p a d r e g i s t r y p o l l u t i o n ) . C l o n e s a r e s t i l l s h a r e d .
@ -178,16 +168,6 @@ file mkdir $stage
set env( FOSSIL_HOME ) $stage
file mkdir $fossildir
# H e r m e t i c c h i l d s h e l l s : t h e s u i t e - b u i l t t c l s h m u s t n o t s e e t h e u s e r ' s m a c h i n e - l e v e l
# p a c k a g e p a t h s ( T C L L I B P A T H p u s h e d e . g C : / T C L P K G S i n t o t c l _ p k g P a t h h e r e - m i s d i r e c t i n g
# i n s t a l l e r d e f a u l t p a t h s a n d r i s k i n g f a l s e - p o s i t i v e s m o k e s v i a m a c h i n e p a c k a g e s ) .
foreach ev { TCLLIBPATH TCL_LIBRARY TK_LIBRARY} {
if { [ info exists env( $ev ) ] } {
log " u n s e t t i n g i n h e r i t e d \$ e n v ( $ e v ) f o r h e r m e t i c c h i l d s h e l l s "
unset env( $ev )
}
}
proc fossil_source { name url branch dir} {
# e n s u r e < s t o r e > / < n a m e > . f o s s i l e x i s t s ( r e a d - o n l y s e e d c o p y , e l s e n e t w o r k c l o n e ) a n d
# o p e n i t a t b r a n c h i n d i r
@ -226,22 +206,35 @@ proc fossil_source {name url branch dir} {
}
}
proc git_source { name url ref dir} {
# c l o n e ( o r l e a v e ) a g i t c h e c k o u t p i n n e d a t r e f ( c r i t c l - t h e r e c i p e ' s t c l l i b c
# s t e p c o n s u m e s i t f r o m t h e s t a g e )
global opt
if { ! [ file isdirectory [ file join $dir .git] ] } {
log " c l o n i n g $ n a m e ( g i t ) - > $ d i r "
run git clone - - quiet $url $dir
} elseif { $opt ( -refresh ) } {
run git - C $dir fetch - - quiet
}
run git - C $dir checkout - - quiet $ref
}
# - - s t a g e t h e r e c i p e - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# P e r - i t e m s y n c ( n o t a w h o l e s a l e d e l e t e o f t h e b u i l d d i r ) : z i g c a c h e d i r s l i v e i n t h e
# b u i l d d i r a n d a r e k e p t - t h e y a r e p e r - z i g - v e r s i o n ( s e e - - c a c h e - d i r b e l o w ) , a n d w i n d o w s
# c a n h o l d t r a n s i e n t l o c k s o n r e c e n t l y - u s e d c a c h e t r e e s .
set builddir [ file join $stage build]
# b u i l d d i r a n d a r e k e p t - t h e y a r e p e r - z i g - v e r s i o n ( s e e r u n _ z i g _ s t e p s ) , a n d w i n d o w s
# c a n h o l d t r a n s i e n t l o c k s o n r e c e n t l y - u s e d c a c h e t r e e s . I t e m l i s t m i r r o r s t h e z i g
# b o o t s t r a p m o d e ' s r e c i p e _ i t e m s ( b u i l d 9 0 5 . z i g b o o t s t r a p M o d e ) .
log " s t a g i n g r e c i p e - > $ b u i l d d i r "
file mkdir $builddir
foreach item { build905.zig build_common.zig build_libtommath build_zlib build_tclvfs build_tclthread build_tk patches src tools} {
foreach item { build905.zig build_common.zig build_libtommath build_zlib build_tclvfs build_tclthread build_tk critcl_zig.config expected_test_failures.txt patches src tools} {
file delete - force [ file join $builddir $item ]
file copy [ file join $suiteroot $item ] $builddir
}
# - - s o u r c e s - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# D e c l a r e d i n s o u r c e s . c o n f i g ( t h e c o p y - a n d - t w e a k s u r f a c e - s e e i t s h e a d e r f o r t h e
# f o r m a t , t h e c o p y w o r k f l o w , a n d t h e r e c i p e - c o u p l i n g d e p t h l i m i t ) . P a r s e d a s l i n e
# r e c o r d s - n e v e r e x e c u t e d .
# D e c l a r e d i n s o u r c e s . c o n f i g ( t h e c o p y - a n d - t w e a k s u r f a c e f o r t h e L I V E - c h e c k o u t d e v
# f l o w - s e e i t s h e a d e r ; b u i l d . z i g . z o n i s t h e e q u i v a l e n t P I N N E D s u r f a c e f o r t h e
# n o - t c l s h f l o w ) . P a r s e d a s l i n e r e c o r d s - n e v e r e x e c u t e d .
proc load_sources_config { path } {
set sources [ dict create]
set f [ open $path r] ; set data [ read $f ] ; close $f
@ -268,13 +261,15 @@ foreach required {tcl tclthread tclvfs tk tklib tcllib critcl} {
}
}
foreach name { tcl tclthread tclvfs tk tklib tcllib} {
set s [ dict get $sources $name ]
dict for { name s} $sources {
set ref [ dict get $s ref]
if { $name eq " t c l " && $opt ( -tclbranch ) ne " " } {
set ref $opt ( -tclbranch ) ; # p e r - r u n C L I o v e r r i d e o f t h e d e c l a r e d t c l r e f
}
fossil_source $name [ dict get $s url] $ref [ file join $stage [ dict get $s dir] ]
switch - - [ dict get $s kind] {
fossil { fossil_source $name [ dict get $s url] $ref [ file join $stage [ dict get $s dir] ] }
git { git_source $name [ dict get $s url] $ref [ file join $stage [ dict get $s dir] ] }
}
}
# z l i b : t h e r e c i p e c o m p i l e s t h e t c l t r e e ' s o w n v e n d o r e d c o p y i n p l a c e
@ -282,190 +277,16 @@ foreach name {tcl tclthread tclvfs tk tklib tcllib} {
# v q t c l / v l e r q : r e m o v e d f r o m t h e s u i t e ( u s e r 2 0 2 6 - 0 7 - 2 0 ) - o l d - t c l k i t e x p e r i m e n t w i t h n o
# c o n f i r m e d p u b l i c u p s t r e a m . F u t u r e t c l k i t w o r k : T E M P _ R E F E R E N C E / m e t a k i t + K i t C r e a t o r .
# - - v e r s i o n f a c t s f o r s m o k e s / l o g g i n g - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# G - 1 0 2 : t h e c o n f i g u r e - p r o d u c t s a f r e s h c h e c k o u t l a c k s ( t c l U u i d . h , t c l s h . e x e . m a n i f e s t ,
# t h e t h r e a d . r c t c l . h i n c l u d e , t k U u i d . h , w i s h . e x e . m a n i f e s t ) a r e n o w g e n e r a t e d I N S I D E
# t h e z i g r e c i p e a s b u i l d - c a c h e o v e r l a y s - s o u r c e c h e c k o u t s a r e n e v e r w r i t t e n . W h a t
# r e m a i n s h e r e i s r e a d - o n l y : v e r s i o n f a c t s f o r t h e s m o k e e x p e c t a t i o n s a n d t h e l o g .
set tcldir [ file join $stage tcl905]
set f [ open [ file join $tcldir manifest.uuid] r] ; set uuid [ read $f ] ; close $f
set f [ open [ file join $tcldir generic tcl.h] r] ; set tclh [ read $f ] ; close $f
# - - v e r s i o n f a c t s f o r t h e f i n a l l o g - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# G - 1 0 2 : c o n f i g u r e - p r o d u c t g e n e r a t i o n , p a c k a g e i n s t a l l s , s m o k e s a n d t h e t e s t g a t e a l l
# l i v e i n t h e z i g r e c i p e n o w ( b u i l d - c a c h e o v e r l a y s + s t e p s u n d e r t h e s u i t e - b u i l t
# s h e l l ) - s o u r c e c h e c k o u t s a r e n e v e r w r i t t e n . R e a d - o n l y f a c t s f o r t h e l o g o n l y .
set f [ open [ file join $stage tcl905 manifest.uuid] r] ; set uuid [ read $f ] ; close $f
set f [ open [ file join $stage tcl905 generic tcl.h] r] ; set tclh [ read $f ] ; close $f
if { ! [ regexp { # \ s * d e f i n e \ s + T C L _ P A T C H _ L E V E L \ s + " ( [ ^ " ] + ) " } $ t c l h - > p a t c h l e v e l ] } { f a i l " T C L _ P A T C H _ L E V E L n o t f o u n d i n t c l . h " }
set tkdir [ file join $stage tk9]
set f [ open [ file join $tkdir generic tk.h] r] ; set tkh [ read $f ] ; close $f
if { ! [ regexp { # \ s * d e f i n e \ s + T K _ V E R S I O N \ s + " ( [ ^ " ] + ) " } $ t k h - > t k v e r s i o n ] } { f a i l " T K _ V E R S I O N n o t f o u n d i n t k . h " }
if { ! [ regexp { # \ s * d e f i n e \ s + T K _ P A T C H _ L E V E L \ s + " ( [ ^ " ] + ) " } $ t k h - > t k p a t c h l e v e l ] } { f a i l " T K _ P A T C H _ L E V E L n o t f o u n d i n t k . h " }
log " s o u r c e s : t c l $ p a t c h l e v e l ( c h e c k o u t [ s t r i n g r a n g e $ u u i d 0 1 1 ] . . . ) , t k $ t k p a t c h l e v e l "
# - - b u i l d - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
set zigv [ exec $opt ( -zig ) version]
log " z i g : $ o p t ( - z i g ) ( $ z i g v ) "
# P e r - z i g - v e r s i o n l o c a l c a c h e : o b j e c t c a c h e s m u s t n e v e r b e s h a r e d a c r o s s z i g v e r s i o n s
# ( o b s e r v e d p r o d u c i n g s t a l e / d u p l i c a t e a r t i f a c t s i n t h e l i n k ; u s e r - c o n f i r m e d h a z a r d ) .
set cachedir " . z i g - c a c h e - [ s t r i n g m a p { + _ / _ : _ } $ z i g v ] "
set savedpwd [ pwd ]
cd $builddir
run $opt ( -zig ) build - - build-file build905.zig - - cache-dir $cachedir - - prefix [ file join $stage out] - Doptimize= $opt ( -optimize ) { * } $opt ( -steps )
cd $savedpwd
# - - t h r e a d p k g I n d e x ( G - 0 9 8 : t h e r e c i p e i n s t a l l s t c l 9 t h r e a d < N N N > . d l l b u t n o i n d e x ;
# p u n k s h e l l r u n t e s t s / - j o b s a n d c o d e t h r e a d n e e d ' p a c k a g e r e q u i r e T h r e a d ' t o r e s o l v e ) - -
set threaddlls [ glob - nocomplain [ file join $stage out bin tcl9thread* .dll] ]
if { [ llength $threaddlls ] } {
set tdll [ file tail [ lindex $threaddlls 0 ] ]
if { [ regexp { tcl9thread ( \ d ) ( \ d ) ( \ d ) \ .dll} $tdll - > tj tn tp] } {
set threadver " $ t j . $ t n . $ t p "
set tpkgdir [ file join $stage out lib thread$threadver ]
file mkdir $tpkgdir
set f [ open [ file join $tpkgdir pkgIndex.tcl] w]
fconfigure $f - translation lf
puts $f " p a c k a g e i f n e e d e d T h r e a d $ t h r e a d v e r \[ l i s t l o a d \[ f i l e n o r m a l i z e \[ f i l e j o i n \$ d i r . . . . b i n $ t d l l \] \] T h r e a d \] "
close $f
log " t h r e a d p k g I n d e x . t c l w r i t t e n ( $ t p k g d i r - > $ t d l l ) "
}
}
# - - v f s p a c k a g e i n s t a l l ( G - 0 9 8 ) : t h e r e c i p e b u i l d s t c l 9 v f s 1 4 2 . d l l o n l y ; p u n k s h e l l ' s
# r e p l c o d e i n t e r p w a n t s v f s / v f s : : z i p ( m o d p o d m o u n t i n g ) . I n s t a l l t h e t c l v f s s c r i p t
# p a c k a g e w i t h i t s t w o c o n f i g u r e - p r o d u c t s g e n e r a t e d ( v f s . t c l , p k g I n d e x . t c l ) a n d t h e
# d l l a l o n g s i d e ( v f s . t c l l o a d s f r o m i t s o w n d i r v i a : : v f s : : s e l f ) .
set vfssrc [ file join $stage tclvfs]
if { [ file isdirectory $vfssrc ] } {
set f [ open [ file join $vfssrc configure.ac] r] ; set cac [ read $f ] ; close $f
if { ! [ regexp { AC_INIT \ ( \ [ vfs \ ] , \ [ ( [ ^ \ ] ] + ) \ ] } $cac - > vfsver] } { fail " v f s v e r s i o n n o t f o u n d i n t c l v f s c o n f i g u r e . a c " }
set vpkgdir [ file join $stage out lib vfs$vfsver ]
if { ! [ file isdirectory $vpkgdir ] } {
log " i n s t a l l i n g t c l v f s $ v f s v e r p a c k a g e - > $ v p k g d i r "
file mkdir $vpkgdir
foreach tf [ glob - directory [ file join $vfssrc library] * .tcl] {
file copy - force $tf $vpkgdir
}
file copy - force [ file join $vfssrc library template] $vpkgdir
set map [ list @ PACKAGE_VERSION@ $vfsver @ PKG_LIB_FILE9@ tcl9vfs142.dll @ PKG_LIB_FILE8@ tclvfs142.dll]
foreach { intmpl outname} [ list [ file join $vfssrc library vfs.tcl.in] vfs.tcl [ file join $vfssrc pkgIndex.tcl.in] pkgIndex.tcl] {
set f [ open $intmpl r] ; set t [ read $f ] ; close $f
set f [ open [ file join $vpkgdir $outname ] w]
fconfigure $f - translation lf
puts - nonewline $f [ string map $map $t ]
close $f
}
file copy - force [ file join $stage out bin tcl9vfs142.dll] $vpkgdir
}
}
# - - t k p k g I n d e x ( m a k e f i l e . v c i n s t a l l - b i n a r i e s c o n v e n t i o n ) - - - - - - - - - - - - - - - - - -
set tkpkgdir [ file join $stage out lib tk$tkversion ]
if { [ file isdirectory $tkpkgdir ] } {
set f [ open [ file join $tkpkgdir pkgIndex.tcl] w]
fconfigure $f - translation lf
puts $f " i f { \[ c a t c h { p a c k a g e p r e s e n t T c l 9 . 0 - } \] } r e t u r n "
puts $f " p a c k a g e i f n e e d e d t k $ t k p a t c h l e v e l \[ l i s t l o a d \[ f i l e n o r m a l i z e \[ f i l e j o i n \$ d i r . . . . b i n t c l 9 t k 9 0 . d l l \] \] \] "
puts $f " p a c k a g e i f n e e d e d T k $ t k p a t c h l e v e l \[ l i s t l o a d \[ f i l e n o r m a l i z e \[ f i l e j o i n \$ d i r . . . . b i n t c l 9 t k 9 0 . d l l \] \] \] "
close $f
log " t k p k g I n d e x . t c l w r i t t e n ( $ t k p k g d i r ) "
}
log " s o u r c e s : t c l $ p a t c h l e v e l ( c h e c k o u t [ s t r i n g r a n g e $ u u i d 0 1 1 ] . . . ) "
# - - s m o k e - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
set exe [ file join $stage out bin tclsh90s.exe]
set zexe [ file join $stage out bin tclsh90szip.exe]
foreach { label path script} [ list \
static $exe { puts [ info patchlevel] } \
zip $zexe { puts " [ i n f o p a t c h l e v e l ] t z = [ c l o c k f o r m a t 0 - g m t 0 - f o r m a t % Z ] a u t o = [ l l e n g t h [ i n f o p r o c s a u t o _ l o a d ] ] " } \
] {
if { ! [ file exists $path ] } { fail " $ l a b e l s h e l l m i s s i n g : $ p a t h " }
set out [ exec $path << " $ s c r i p t ; e x i t " ]
log " $ l a b e l s h e l l : $ o u t "
if { ! [ string match " $ p a t c h l e v e l * " $out ] } { fail " $ l a b e l s h e l l p a t c h l e v e l m i s m a t c h : g o t ' $ o u t ' w a n t ' $ p a t c h l e v e l ' " }
}
# - - t k l i b i n s t a l l ( G - 0 9 8 ) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# t k l i b i s p u r e - t c l b u t i t s i n s t a l l e r i s N O T a s t r a i g h t c o p y : m o d u l e e x c l u s i o n s a n d
# g e n e r a t i o n o f t h e a g g r e g a t i n g p k g I n d e x . t c l ( g e n _ m a i n _ i n d e x ) . R u n i t i n b a t c h m o d e
# ( p a c k a g e s o n l y ) w i t h t h e s u i t e - b u i l t s h e l l ; d e f a u l t p a t h s d e r i v e f r o m t h a t s h e l l ,
# l a n d i n g t h e p a c k a g e s u n d e r < o u t > / l i b / < t k l i b - v e r s i o n - d i r > .
proc installer_version { dir } {
# t c l l i b - f a m i l y : s u p p o r t / i n s t a l l a t i o n / v e r s i o n . t c l c a r r i e s ' p a c k a g e _ v e r s i o n < v > '
set f [ open [ file join $dir support installation version.tcl] r]
set data [ read $f ] ; close $f
if { ! [ regexp { package_version \ s+ ( \ S + ) } $data - > v] } { error " n o p a c k a g e _ v e r s i o n i n $ d i r " }
return $v
}
if { ! [ llength [ glob - nocomplain [ file join $stage out lib tklib* ] ] ] } {
set tklibver [ installer_version [ file join $stage tklib] ]
log " i n s t a l l i n g t k l i b $ t k l i b v e r ( b a t c h , p a c k a g e s o n l y ) v i a i t s o w n i n s t a l l e r "
set savedpwd [ pwd ]
cd [ file join $stage tklib]
run $exe installer.tcl - no-gui - no-wait - no-apps - no-html - no-nroff - no-examples \
-pkg-path [ file join $stage out lib tklib$tklibver ]
cd $savedpwd
}
set tkliblanded [ glob - nocomplain [ file join $stage out lib tklib* ] ]
if { ! [ llength $tkliblanded ] } { fail " t k l i b i n s t a l l d i d n o t l a n d u n d e r [ f i l e j o i n $ s t a g e o u t l i b ] " }
set tksmoke [ exec $exe << { package require Tk; wm withdraw .; puts " t o o l t i p : [ p a c k a g e r e q u i r e t o o l t i p ] " ; destroy .; exit } ]
log " t k l i b : [ f i l e t a i l [ l i n d e x $ t k l i b l a n d e d 0 ] ] i n s t a l l e d ; s m o k e $ t k s m o k e "
# - - t c l l i b i n s t a l l ( G - 0 9 8 ) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# S a m e i n s t a l l e r f a m i l y a s t k l i b ( m o d u l e e x c l u s i o n s + a g g r e g a t i n g p k g I n d e x ; c r i t c l D S L
# s t u b b e d t o n o - o p s , s o t h i s i s t h e P U R E - T C L s i d e o n l y - t h e c r i t c l - b u i l t t c l l i b c
# a c c e l e r a t o r s a r e a s e p a r a t e s t e p ) . B a t c h , p a c k a g e s o n l y , s u i t e - b u i l t s h e l l .
if { ! [ llength [ glob - nocomplain [ file join $stage out lib tcllib* ] ] ] } {
set tcllibver [ installer_version [ file join $stage tcllib] ]
log " i n s t a l l i n g t c l l i b $ t c l l i b v e r ( b a t c h , p a c k a g e s o n l y , p u r e - t c l s i d e ) v i a i t s o w n i n s t a l l e r "
set savedpwd [ pwd ]
cd [ file join $stage tcllib]
run $exe installer.tcl - no-gui - no-wait - no-apps - no-html - no-nroff - no-examples \
-pkg-path [ file join $stage out lib tcllib$tcllibver ]
cd $savedpwd
}
set tclliblanded [ glob - nocomplain [ file join $stage out lib tcllib* ] ]
if { ! [ llength $tclliblanded ] } { fail " t c l l i b i n s t a l l d i d n o t l a n d u n d e r [ f i l e j o i n $ s t a g e o u t l i b ] " }
set tcllibsmoke [ exec $exe << { puts " m d 5 : [ p a c k a g e r e q u i r e m d 5 ] s h a 1 : [ p a c k a g e r e q u i r e s h a 1 ] c m d l i n e : [ p a c k a g e r e q u i r e c m d l i n e ] " ; exit } ]
log " t c l l i b : [ f i l e t a i l [ l i n d e x $ t c l l i b l a n d e d 0 ] ] i n s t a l l e d ; s m o k e $ t c l l i b s m o k e "
# - - t c l l i b c a c c e l e r a t o r s v i a c r i t c l + z i g c c ( G - 0 9 8 ) - - - - - - - - - - - - - - - - - - - - - - -
# s a k . t c l ' s c r i t c l t a r g e t e x p e c t s a t c l k i t s h + s t a r k i t o n w i n d o w s ; w e r e p l i c a t e i t s
# u n d e r l y i n g i n v o c a t i o n d i r e c t l y ( c r i t c l - c a c h e . . . - f o r c e - l i b d i r < d e s t > - p k g t c l l i b c
# < m o d u l e c r i t c l f i l e s > ) u s i n g t h e c r i t c l s o u r c e c h e c k o u t ' s m a i n . t c l a p p u n d e r t h e
# s u i t e s h e l l , w i t h t h e s u i t e ' s z i g o n P A T H a n d t h e t r a c k e d c r i t c l _ z i g . c o n f i g .
set critcldir [ file join $stage [ dict get $sources critcl dir] ]
set critclpin [ dict get $sources critcl ref]
if { ! [ file isdirectory [ file join $critcldir .git] ] } {
log " c l o n i n g c r i t c l ( g i t ) - > $ c r i t c l d i r "
run git clone - - quiet [ dict get $sources critcl url] $critcldir
}
run git - C $critcldir checkout - - quiet $critclpin
if { ! [ llength [ glob - nocomplain [ file join $stage out lib tcllibc* ] ] ] } {
# m o d u l e l i s t f r o m t c l l i b ' s o w n d e c l a r a t i o n s ( s u p p o r t / i n s t a l l a t i o n / v e r s i o n . t c l ) :
# c r i t c l _ m a i n ' s f i l e f i r s t , t h e n e v e r y c r i t c l m o d u l e ' s f i l e s ( s a k . t c l s e m a n t i c s )
set f [ open [ file join $stage tcllib support installation version.tcl] r]
set vdata [ read $f ] ; close $f
set mainfiles { }
set modfiles { }
foreach line [ split $vdata \ n] {
if { [ regexp { ^ critcl_main \ s+ \ S+ \ s+ ( . + ) $ } $line - > flist] } {
foreach ff [ concat { * } $flist ] { lappend mainfiles $ff }
} elseif { [ regexp { ^ critcl \ s+ \ S+ \ s+ ( . + ) $ } $line - > flist] } {
foreach ff [ concat { * } $flist ] { lappend modfiles $ff }
}
}
if { ! [ llength $mainfiles ] } { fail " n o c r i t c l _ m a i n d e c l a r a t i o n f o u n d i n t c l l i b v e r s i o n . t c l " }
set critclfiles { }
foreach ff [ concat $mainfiles $modfiles ] {
lappend critclfiles [ file join $stage tcllib modules $ff ]
}
log " b u i l d i n g t c l l i b c v i a c r i t c l $ c r i t c l p i n + z i g c c ( [ l l e n g t h $ c r i t c l f i l e s ] c r i t c l f i l e s ) "
set zigdir [ file dirname $opt ( -zig ) ]
set savedpath $env ( PATH )
set env( PATH ) " [ f i l e n a t i v e n a m e $ z i g d i r ] ; $ e n v ( P A T H ) "
set savedpwd [ pwd ]
cd [ file join $stage tcllib]
run $exe [ file join $critcldir main.tcl] \
-config [ file join $suiteroot critcl_zig.config] \
-cache [ file join $stage .critcl] - force \
-libdir [ file join $stage out lib] - pkg tcllibc { * } $critclfiles
cd $savedpwd
set env( PATH ) $savedpath
}
set tcllibcsmoke [ exec $exe << { puts " t c l l i b c : [ p a c k a g e r e q u i r e t c l l i b c ] " ; package require md5; puts " m d 5 - c r i t c l - a c c e l : $ : : m d 5 : : a c c e l ( c r i t c l ) " ; exit } ]
log " t c l l i b c : $ t c l l i b c s m o k e "
# - - b u i l d ( s t a g e d r e c i p e s t e p s ) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
run_zig_steps $opt ( -steps )
log " P A S S - b u i l t $ p a t c h l e v e l ( c h e c k o u t [ s t r i n g r a n g e $ u u i d 0 1 1 ] . . . , z i g $ z i g v - > $ s t a g e / o u t "
log " P A S S - b u i l t $ p a t c h l e v e l ( c h e c k o u t [ s t r i n g r a n g e $ u u i d 0 1 1 ] . . . ) - > $ s t a g e / o u t "
