Artifact cd67a0db553f41f15a6335f453753be640399bb1d93e2c59b899de92acee69e0:

• File build/kits/app/main.tcl — part of check-in [0007db6527] at 2019-01-17 07:45:56 on branch trunk — Added start of kit maker, for easy binary distribution of application (user: rkeene, size: 531) [annotate] [blame] [check-ins using]

#! /usr/bin/env tclsh

package require starkit
starkit::startup

apply {{} {
	set topdir $::starkit::topdir

	switch -glob -- [info nameofexecutable] {
		"*-rpc-client" - "rpc-client" - "rpc-client.*" {
			set mode "rpc-client"
		}
		default {
			set mode "node"

			# XXX: Override the built-in log file location
			set ::logfd [open node.log a+]
		}
	}

	package require nano
	set nanoVersion [package present nano]

	set nanoDir [file join $topdir lib tcl-nano${nanoVersion}]

	tailcall source [file join $nanoDir bin $mode]
}}