Artifact 81612948ce1151cdec1b531d7fd16c028047c344:

• File packages/ycl/bin/yclenv — part of check-in [ceac345aa0] at 2015-03-10 04:38:36 on branch trunk — Add features to file::fputs. ns::dupensemble now deletes an existing target ensemble. Add ns::split Move ycl::yclprefix out of pkgIndex and into its own file. (user: pooryorick size: 588)

#! /bin/env tclsh

apply {{} {

	set mypath [info script]
	set mydir [file normalize [file dirname $mypath]]
	set prefix [file dirname $mydir]

	set myrealpath [file dirname [file normalize $mypath/__dummy__]]
	set myrealdir [file dirname $myrealpath]
	set realprefix [file dirname $myrealdir]

	set cfgfname ycl
	set cfgpath $prefix/etc/$cfgfname
	if {![file exists $cfgpath]} {
		set cfgpath $realprefix/etc/$cfgfname
	}
	if {[info exists env(YCL_CONFIG)]} {set cfgpath $env(YCL_CONFIG)}
	if {[file exists $cfgpath]} {
		namespace eval [namespace current] [list source $cfgpath]
	}

}}