Artifact 43c4f94afb337442e450031f56178bd56eff4359:

• File packages/context/lib/contextConfigureDefault.tcl — part of check-in [6842ef1911] at 2015-11-03 13:10:04 on branch trunk — Rename various packages in list format .

  First commit of sql .

  Early version of entity-attribute-value model in test/lib/data.tcl . It has a context column , but the idea of using an events and attributes in the "what" colun comes in the next changeset . (user: pooryorick size: 784)

#! /bin/env tclsh

package require ycl
package require ycl::context::etc
variable etc [yclprefix]::context::etc

namespace upvar $etc META META
namespace upvar $etc VAR_DEFAULT VAR_DEFAULT

package require {ycl list}
variable list [yclprefix]::list
namespace import ${list}::rlindex

proc var {ns args} {
	set argl [llength $args]
	if {$argl == 0} {
		return [VarDefaultGet $ns {*}$args]
	} elseif {$argl == 1} {
		return [VarDefaultSet $ns {*}$args] 
	} else {
		return -code error "wrong # args: should be 0 or 1 arg"
	}
}

proc VarDefaultGet {ns} {
	variable META
	variable VAR_DEFAULT
	return [set ${ns}::${META}::$VAR_DEFAULT]
}

proc VarDefaultSet {ns args} {
	variable META
	variable VAR_DEFAULT
	set val [rlindex $args 0]
	set ${ns}::${META}::$VAR_DEFAULT $val
	return $val
}