Posted to tcl by crshults at Fri Nov 01 04:39:37 GMT 2013view pretty
package require sqlite3 sqlite3 db configuration.sqlite db eval { CREATE TABLE IF NOT EXISTS Configuration( ConfigurationId INTEGER PRIMARY KEY CHECK (ConfigurationId = 1), EstablishmentName TEXT DEFAULT 'Establishment Name Not Set', StreetAddress TEXT DEFAULT 'Street Address Not Set', CityStateAddress TEXT DEFAULT 'City/State Address Not Set', Expiration TEXT DEFAULT 'Expiration Not Set', MachineNumber TEXT DEFAULT 'Machine Number Not Set', CanItDoSomethingVerySpecial TEXT DEFAULT no, MaxLogEntries INTEGER DEFAULT 5); INSERT OR IGNORE INTO Configuration DEFAULT VALUES; pragma table_info(Configuration); } { eval { proc set_$name {value} "db eval \{UPDATE Configuration SET $name = \$value;\}" proc get_$name {} "join \[db eval \{SELECT $name FROM Configuration;\}\]" } }