Core.tcl
No OneTemporary
Actions

Size

460 B

Referenced Files

None

Subscribers

None

Core.tcl
View Options

	#
	# TCL helpers
	#

	#Determines if $proc exists
	proc proc_exists {proc} {
	expr {[info procs $proc] == $proc}
	}

	#
	# Trivial procs
	#

	#Determines if $v is a number
	proc isnumber {v} {
	return [expr {! [catch {expr {int($v)}}]}]
	}

	#
	# MySQL
	#
	#Gets the value of the key $key from the registry
	proc registry_get {key} {
	sql "SELECT value FROM registry WHERE `key` = '$key'"
	}

	#Sets the key $key to $value in the registry
	proc registry_set {key value} {
	}