Artifact Content

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

Artifact 7a8d6142839f7e6f6807b31935e67cd8b879f9fe:


# -*- tcl -*- Copyright (c) 2012 Andreas Kupries
# # ## ### ##### ######## ############# #####################
## Special commands outside of goal processing.

# # ## ### ##### ######## ############# #####################
## Export (internals - recipe definitions, other utilities)

namespace eval ::kettle::special {
    namespace export {[a-z]*}
    namespace ensemble create

    # Import the supporting utilities used here.
    namespace import ::kettle::path
}

# # ## ### ##### ######## ############# #####################
## API

proc ::kettle::special::setup {args} {
    # Generate a basic build.tcl file in the current working
    # directory.

    if {![llength $args]} {
	lappend args tcl
    }

    lappend lines "#!/usr/bin/env kettle"
    lappend lines "# -*- tcl -*-"
    lappend lines "# For kettle sources, documentation, etc. see"
    lappend lines "# - http://core.tcl.tk/akupries/kettle"
    lappend lines "# - http://chiselapp.com/user/andreas_kupries/repository/Kettle"

    foreach code $args {
	lappend lines [list kettle {*}$code]
    }
    path write build.tcl [join $lines \n]\n
    return
}

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