You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
47 lines
1.8 KiB
47 lines
1.8 KiB
1 year ago
|
::lindex tcl;#\
|
||
|
|
@call tclsh "%~dp0%~n0.bat" %* & goto :eof
|
||
|
|
# --- --- --- --- --- --- --- --- --- --- --- --- ---begin Tcl
|
||
|
|
#!/usr/bin/env C:/tcl/bin/tclsh.exe
|
||
|
|
# -*- tcl -*-
|
||
|
|
# # ## ### ##### ######## ############# #####################
|
||
|
|
## Kettle application
|
||
|
|
|
||
|
|
# @@ Meta Begin
|
||
|
|
# Application kettle 1
|
||
|
|
# Meta author {Andreas Kupries}
|
||
|
|
# Meta build::by jnoble
|
||
|
|
# Meta build::date 2023-07-20
|
||
|
|
# Meta category Builder/Developer support
|
||
|
|
# Meta description Kettle is a system to make building Tcl packages quick
|
||
|
|
# Meta description and easy. More importantly, possibly, to make writing
|
||
|
|
# Meta description the build system for Tcl packages easy. As such kettle
|
||
|
|
# Meta description is several things: (1) A DSL helping you to write build
|
||
|
|
# Meta description systems for your packages. (2) A package implementing
|
||
|
|
# Meta description this DSL. (3) An application which can serve as the
|
||
|
|
# Meta description interpreter for a build file containing commands in the
|
||
|
|
# Meta description above DSL.
|
||
|
|
# Meta location https://core.tcl.tk/akupries/kettle
|
||
|
|
# Meta platform tcl
|
||
|
|
# Meta require {Tcl 8.5-}
|
||
|
|
# Meta require kettle
|
||
|
|
# Meta subject {build support} critcl teapot {meta data} doctools
|
||
|
|
# Meta subject diagram
|
||
|
|
# Meta summary Build support application.
|
||
|
|
# Meta vc::revision fatal: No annotated tags can describe
|
||
|
|
# Meta vc::revision '96a08d425f3f151966cea8a0005758fd97115958'.
|
||
|
|
# Meta vc::system git
|
||
|
|
# @@ Meta End
|
||
|
|
|
||
|
|
apply {{self} {
|
||
|
|
set selfdir [file dirname $self]
|
||
|
|
if {[file exists $selfdir/kettle.tcl]} {
|
||
|
|
# Look for a local copy first, for when we install ourselves.
|
||
|
|
source $selfdir/kettle.tcl
|
||
|
|
} else {
|
||
|
|
# use the installed core.
|
||
|
|
package require kettle
|
||
|
|
}
|
||
|
|
kettle::option::set @kettle $self
|
||
|
|
kettle::Application
|
||
|
|
}} [file dirname [file normalize [info script]/__]]
|