Artifact a3b3ca89674cbd6ab4cdc7ced9c8ab50701b3355:

• File packages/ycl/bin/yclenv — part of check-in [fccab64d80] at 2019-12-09 23:32:23 on branch trunk — dict new routines

  dict routine

  new implementation of an object interface for a dictionary

  test

  new command [test]

  various packages reworked to use [test]

  rework various packages to avoid use of "::" (user: pooryorick size: 590)

#! /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]
	}

}}