Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Updating to practcl 0.10.1 from tcllib |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | practcl |
| Files: | files | file ages | folders |
| SHA3-256: |
8526551d20161bc209c2983309ec7833 |
| User & Date: | hypnotoad 2017-11-29 22:09:53 |
Context
|
2017-11-30
| ||
| 20:14 | Updated practcl. Wrappers now make the teapot directory unique for each platform check-in: a16bf83306 user: hypnotoad tags: practcl | |
|
2017-11-29
| ||
| 22:09 | Updating to practcl 0.10.1 from tcllib check-in: 8526551d20 user: hypnotoad tags: practcl | |
| 12:24 | Adaptations to non tip 430 kit builds to use a version of zipfs which is featureset compatible with tip430 check-in: efdc257473 user: hypnotoad tags: practcl | |
Changes
Changes to practcl.tcl.
1 2 3 4 5 6 7 8 9 10 11 12 13 ... 377 378 379 380 381 382 383 384 385 386 387 388 389 390 .... 1230 1231 1232 1233 1234 1235 1236 1237 1238 1239 1240 1241 1242 1243 1244 .... 1402 1403 1404 1405 1406 1407 1408 1409 1410 1411 1412 1413 1414 1415 1416 .... 1458 1459 1460 1461 1462 1463 1464 1465 1466 1467 1468 1469 1470 1471 1472 .... 1484 1485 1486 1487 1488 1489 1490 1491 1492 1493 1494 1495 1496 1497 .... 1500 1501 1502 1503 1504 1505 1506 1507 1508 1509 1510 1511 1512 1513 1514 .... 1615 1616 1617 1618 1619 1620 1621 1622 1623 1624 1625 1626 1627 1628 1629 1630 1631 1632 1633 1634 1635 1636 1637 1638 .... 1653 1654 1655 1656 1657 1658 1659 1660 1661 1662 1663 1664 1665 1666 1667 .... 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1994 1995 1996 1997 1998 1999 2000 2001 2002 2003 2004 .... 2014 2015 2016 2017 2018 2019 2020 2021 2022 2023 2024 2025 2026 2027 2028 .... 5373 5374 5375 5376 5377 5378 5379 5380 5381 5382 5383 5384 5385 5386 5387 5388 5389 5390 5391 5392 5393 5394 5395 5396 5397 .... 5462 5463 5464 5465 5466 5467 5468 5469 5470 5471 5472 5473 5474 5475 5476 |
###
# Amalgamated package for practcl
# Do not edit directly, tweak the source in src/ and rerun
# build.tcl
###
package provide practcl 0.10
namespace eval ::practcl {}
###
# START: httpwget/wget.tcl
###
###
# Tool to download file from the web
................................................................................
}
###
# Detect local platform
###
proc ::practcl::config.tcl {path} {
dict set result buildpath $path
set result [local_os]
set OS [dict get $result TEACUP_OS]
set windows 0
dict set result USEMSVC 0
if {[file exists [file join $path config.tcl]]} {
# We have a definitive configuration file. Read its content
................................................................................
###
::oo::class create ::practcl::metaclass {
superclass ::oo::object
method _MorphPatterns {} {
return {{@[email protected]} {::practcl::@[email protected]} {::practcl::*@[email protected]} {::practcl::*@[email protected]*}}
}
method define {submethod args} {
my variable define
switch $submethod {
dump {
return [array get define]
}
add {
................................................................................
}
} else {
error "[self] Could not detect class for $classname"
}
}
if {[::info exists define(oodefine)]} {
::oo::objdefine [self] $define(oodefine)
unset define(oodefine)
}
}
method mixin {slot classname} {
my variable mixinslot
set class {}
set map [list @[email protected] $slot @[email protected] $classname]
................................................................................
method select {} {
my variable define
if {[info exists define(class)]} {
my morph $define(class)
} else {
if {[::info exists define(oodefine)]} {
::oo::objdefine [self] $define(oodefine)
unset define(oodefine)
}
}
}
method source filename {
source $filename
}
................................................................................
# that are modified when targetting either gcc or msvc
###
oo::class create ::practcl::toolset {
###
# find or fake a key/value list describing this project
###
method config.sh {} {
my variable conf_result
if {[info exists conf_result]} {
return $conf_result
}
set result {}
set name [my define get name]
set PWD $::CWD
................................................................................
set srcdir [my define get srcdir]
if {![file exists $builddir]} {
my Configure
}
set filename [file join $builddir config.tcl]
# Project uses the practcl template. Use the leavings from autoconf
if {[file exists $filename]} {
set dat [::practcl::config.tcl $builddir]
foreach {item value} [::practcl::sort_dict $dat] {
dict set result $item $value
}
set conf_result $result
return $result
}
set filename [file join $builddir ${name}Config.sh]
................................................................................
set PREFIX [my <project> define get prefix_broken_destdir]
} else {
set PREFIX [my <project> define get prefix]
}
if {[my <project> define get CONFIG_SITE] != {}} {
lappend opts --host=[my <project> define get HOST]
}
lappend opts --with-tclsh=[info nameofexecutable]
if {![my <project> define get LOCAL 0]} {
set obj [my <project> tclcore]
if {$obj ne {}} {
lappend opts --with-tcl=[::practcl::file_relative [file normalize $builddir] [$obj define get builddir]]
}
if {[my define get tk 0]} {
set obj [my <project> tkcore]
if {$obj ne {}} {
lappend opts --with-tk=[::practcl::file_relative [file normalize $builddir] [$obj define get builddir]]
}
}
} else {
lappend opts --with-tcl=[file join $PREFIX lib]
if {[my define get tk 0]} {
lappend opts --with-tk=[file join $PREFIX lib]
}
................................................................................
#--disable-stubs
#
} else {
lappend opts --enable-shared
}
return $opts
}
#method unpack {} {
# ::practcl::distribution select [self]
# my Unpack
#}
}
................................................................................
}
}
foreach item [$PROJECT link list package] {
if {[string is true [$item define get static]]} {
lappend PKG_OBJS $item
}
}
array set TCL [$TCLOBJ config.sh]
set TKOBJ [$PROJECT tkcore]
if {[info command $TKOBJ] eq {}} {
set TKOBJ ::noop
$PROJECT define set static_tk 0
} else {
::practcl::toolset select $TKOBJ
array set TK [$TKOBJ config.sh]
set do_tk [$TKOBJ define get static]
$PROJECT define set static_tk $do_tk
$PROJECT define set tk $do_tk
set TKSRCDIR [$TKOBJ define get srcdir]
}
set path [file dirname $outfile]
cd $path
................................................................................
set result {}
set libraries {}
set thisline {}
set OBJECTS {}
set EXTERN_OBJS {}
foreach obj $PKG_OBJS {
$obj compile
set config($obj) [$obj config.sh]
}
set os [$PROJECT define get TEACUP_OS]
set TCLSRCDIR [$TCLOBJ define get srcdir]
set includedir .
foreach include [$TCLOBJ toolset-include-directory] {
set cpath [::practcl::file_relative $path [file normalize $include]]
................................................................................
###
###
# A binary package
###
oo::class create ::practcl::subproject.binary {
superclass ::practcl::subproject
method clean {} {
set builddir [file normalize [my define get builddir]]
if {![file exists $builddir]} return
if {[file exists [file join $builddir make.tcl]]} {
::practcl::domake.tcl $builddir clean
} else {
::practcl::domake $builddir clean
}
}
method env-install {} {
###
# Handle tea installs
###
set pkg [my define get pkg_name [my define get name]]
set os [::practcl::local_os]
my define set os $os
................................................................................
if {$initfunc ne {}} {
set pkg_name [my define get pkg_name]
if {$pkg_name ne {}} {
dict set result $pkg_name initfunc $initfunc
set version [my define get version]
if {$version eq {}} {
my unpack
set info [my config.sh]
set version [dict get $info version]
set pl {}
if {[dict exists $info patch_level]} {
set pl [dict get $info patch_level]
append version $pl
}
my define set version $version
|
| > > > > | | | > > > > | > > | > > > > | > > > | | | | | | | |
1 2 3 4 5 6 7 8 9 10 11 12 13 ... 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 .... 1234 1235 1236 1237 1238 1239 1240 1241 1242 1243 1244 1245 1246 1247 1248 .... 1406 1407 1408 1409 1410 1411 1412 1413 1414 1415 1416 1417 1418 1419 1420 .... 1462 1463 1464 1465 1466 1467 1468 1469 1470 1471 1472 1473 1474 1475 1476 .... 1488 1489 1490 1491 1492 1493 1494 1495 1496 1497 1498 1499 1500 1501 1502 1503 1504 1505 .... 1508 1509 1510 1511 1512 1513 1514 1515 1516 1517 1518 1519 1520 1521 1522 .... 1623 1624 1625 1626 1627 1628 1629 1630 1631 1632 1633 1634 1635 1636 1637 1638 1639 1640 1641 1642 1643 1644 1645 1646 1647 1648 1649 1650 1651 1652 1653 1654 1655 .... 1670 1671 1672 1673 1674 1675 1676 1677 1678 1679 1680 1681 1682 1683 1684 .... 1999 2000 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 2016 2017 2018 2019 2020 2021 .... 2031 2032 2033 2034 2035 2036 2037 2038 2039 2040 2041 2042 2043 2044 2045 .... 5390 5391 5392 5393 5394 5395 5396 5397 5398 5399 5400 5401 5402 5403 5404 5405 5406 5407 5408 5409 5410 5411 5412 5413 5414 .... 5479 5480 5481 5482 5483 5484 5485 5486 5487 5488 5489 5490 5491 5492 5493 |
### # Amalgamated package for practcl # Do not edit directly, tweak the source in src/ and rerun # build.tcl ### package provide practcl 0.10.1 namespace eval ::practcl {} ### # START: httpwget/wget.tcl ### ### # Tool to download file from the web ................................................................................ } ### # Detect local platform ### proc ::practcl::config.tcl {path} { return [read_configuration $path] } proc ::practcl::read_configuration {path} { dict set result buildpath $path set result [local_os] set OS [dict get $result TEACUP_OS] set windows 0 dict set result USEMSVC 0 if {[file exists [file join $path config.tcl]]} { # We have a definitive configuration file. Read its content ................................................................................ ### ::oo::class create ::practcl::metaclass { superclass ::oo::object method _MorphPatterns {} { return {{@[email protected]} {::practcl::@[email protected]} {::practcl::*@[email protected]} {::practcl::*@[email protected]*}} } method define {submethod args} { my variable define switch $submethod { dump { return [array get define] } add { ................................................................................ } } else { error "[self] Could not detect class for $classname" } } if {[::info exists define(oodefine)]} { ::oo::objdefine [self] $define(oodefine) #unset define(oodefine) } } method mixin {slot classname} { my variable mixinslot set class {} set map [list @[email protected] $slot @[email protected] $classname] ................................................................................ method select {} { my variable define if {[info exists define(class)]} { my morph $define(class) } else { if {[::info exists define(oodefine)]} { ::oo::objdefine [self] $define(oodefine) #unset define(oodefine) } } } method source filename { source $filename } ................................................................................ # that are modified when targetting either gcc or msvc ### oo::class create ::practcl::toolset { ### # find or fake a key/value list describing this project ### method config.sh {} { return [my read_configuration] } method read_configuration {} { my variable conf_result if {[info exists conf_result]} { return $conf_result } set result {} set name [my define get name] set PWD $::CWD ................................................................................ set srcdir [my define get srcdir] if {![file exists $builddir]} { my Configure } set filename [file join $builddir config.tcl] # Project uses the practcl template. Use the leavings from autoconf if {[file exists $filename]} { set dat [::practcl::read_configuration $builddir] foreach {item value} [::practcl::sort_dict $dat] { dict set result $item $value } set conf_result $result return $result } set filename [file join $builddir ${name}Config.sh] ................................................................................ set PREFIX [my <project> define get prefix_broken_destdir] } else { set PREFIX [my <project> define get prefix] } if {[my <project> define get CONFIG_SITE] != {}} { lappend opts --host=[my <project> define get HOST] } set inside_msys [string is true -strict [my <project> define get MSYS_ENV 0]] lappend opts --with-tclsh=[info nameofexecutable] if {![my <project> define get LOCAL 0]} { set obj [my <project> tclcore] if {$obj ne {}} { if {$inside_msys} { lappend opts --with-tcl=[::practcl::file_relative [file normalize $builddir] [$obj define get builddir]] } else { lappend opts --with-tcl=[file normalize [$obj define get builddir]] } } if {[my define get tk 0]} { set obj [my <project> tkcore] if {$obj ne {}} { if {$inside_msys} { lappend opts --with-tk=[::practcl::file_relative [file normalize $builddir] [$obj define get builddir]] } else { lappend opts --with-tk=[file normalize [$obj define get builddir]] } } } } else { lappend opts --with-tcl=[file join $PREFIX lib] if {[my define get tk 0]} { lappend opts --with-tk=[file join $PREFIX lib] } ................................................................................ #--disable-stubs # } else { lappend opts --enable-shared } return $opts } #method unpack {} { # ::practcl::distribution select [self] # my Unpack #} } ................................................................................ } } foreach item [$PROJECT link list package] { if {[string is true [$item define get static]]} { lappend PKG_OBJS $item } } array set TCL [$TCLOBJ read_configuration] set TKOBJ [$PROJECT tkcore] if {[info command $TKOBJ] eq {}} { set TKOBJ ::noop $PROJECT define set static_tk 0 } else { ::practcl::toolset select $TKOBJ array set TK [$TKOBJ read_configuration] set do_tk [$TKOBJ define get static] $PROJECT define set static_tk $do_tk $PROJECT define set tk $do_tk set TKSRCDIR [$TKOBJ define get srcdir] } set path [file dirname $outfile] cd $path ................................................................................ set result {} set libraries {} set thisline {} set OBJECTS {} set EXTERN_OBJS {} foreach obj $PKG_OBJS { $obj compile set config($obj) [$obj read_configuration] } set os [$PROJECT define get TEACUP_OS] set TCLSRCDIR [$TCLOBJ define get srcdir] set includedir . foreach include [$TCLOBJ toolset-include-directory] { set cpath [::practcl::file_relative $path [file normalize $include]] ................................................................................ ### ### # A binary package ### oo::class create ::practcl::subproject.binary { superclass ::practcl::subproject method clean {} { set builddir [file normalize [my define get builddir]] if {![file exists $builddir]} return if {[file exists [file join $builddir make.tcl]]} { ::practcl::domake.tcl $builddir clean } else { ::practcl::domake $builddir clean } } method env-install {} { ### # Handle tea installs ### set pkg [my define get pkg_name [my define get name]] set os [::practcl::local_os] my define set os $os ................................................................................ if {$initfunc ne {}} { set pkg_name [my define get pkg_name] if {$pkg_name ne {}} { dict set result $pkg_name initfunc $initfunc set version [my define get version] if {$version eq {}} { my unpack set info [my read_configuration] set version [dict get $info version] set pl {} if {[dict exists $info patch_level]} { set pl [dict get $info patch_level] append version $pl } my define set version $version |