Julian Noble
1 year ago
4 changed files with 103 additions and 0 deletions
@ -0,0 +1,29 @@
|
||||
::lindex tcl;#\ |
||||
@call tclsh "%~dp0%~n0.bat" %* & goto :eof |
||||
# --- --- --- --- --- --- --- --- --- --- --- --- ---begin Tcl |
||||
# -*- tcl -*- |
||||
# @@ Meta Begin |
||||
# Application dtplite 1.0.5 |
||||
# Meta platform tcl |
||||
# Meta summary Lightweight DocTools Processor |
||||
# Meta description This application is a simple processor |
||||
# Meta description for documents written in the doctools |
||||
# Meta description markup language. It covers the most |
||||
# Meta description common use cases, but is not as |
||||
# Meta description configurable as its big brother dtp. |
||||
# Meta category Processing doctools documents |
||||
# Meta subject doctools doctoc docidx |
||||
# Meta require {dtplite 1.0.5} |
||||
# Meta author Andreas Kupries |
||||
# Meta license BSD |
||||
# @@ Meta End |
||||
|
||||
package require dtplite 1.0.5 |
||||
|
||||
# dtp lite - Lightweight DocTools Processor |
||||
# ======== = ============================== |
||||
|
||||
exit [dtplite::do $argv] |
||||
|
||||
# ### ### ### ######### ######### ######### |
||||
exit |
@ -0,0 +1,28 @@
|
||||
#! /usr/bin/env tclsh |
||||
# -*- tcl -*- |
||||
|
||||
# @@ Meta Begin |
||||
# Application dtplite 1.0.5 |
||||
# Meta platform tcl |
||||
# Meta summary Lightweight DocTools Processor |
||||
# Meta description This application is a simple processor |
||||
# Meta description for documents written in the doctools |
||||
# Meta description markup language. It covers the most |
||||
# Meta description common use cases, but is not as |
||||
# Meta description configurable as its big brother dtp. |
||||
# Meta category Processing doctools documents |
||||
# Meta subject doctools doctoc docidx |
||||
# Meta require {dtplite 1.0.5} |
||||
# Meta author Andreas Kupries |
||||
# Meta license BSD |
||||
# @@ Meta End |
||||
|
||||
package require dtplite 1.0.5 |
||||
|
||||
# dtp lite - Lightweight DocTools Processor |
||||
# ======== = ============================== |
||||
|
||||
exit [dtplite::do $argv] |
||||
|
||||
# ### ### ### ######### ######### ######### |
||||
exit |
@ -0,0 +1,46 @@
|
||||
::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]/__]] |
Binary file not shown.
Loading…
Reference in new issue