Using SQLite with Tcl - User Defined Functions

Page 18 of 41
[prev] [next]

  proc sql_sqrt {x} {return [expr {sqrt($x)}]}
  db function sqrt sql_sqrt

  proc sql_eval {script} {return [uplevel #0 $script]}
  db function eval sql_eval
  db eval {SELECT eval(cmd) FROM cmdset}