Posted to tcl by crshults at Fri Nov 01 04:39:37 GMT 2013view raw

  1. package require sqlite3
  2. sqlite3 db configuration.sqlite
  3.  
  4. db eval {
  5. CREATE TABLE IF NOT EXISTS Configuration(
  6. ConfigurationId INTEGER PRIMARY KEY CHECK (ConfigurationId = 1),
  7. EstablishmentName TEXT DEFAULT 'Establishment Name Not Set',
  8. StreetAddress TEXT DEFAULT 'Street Address Not Set',
  9. CityStateAddress TEXT DEFAULT 'City/State Address Not Set',
  10. Expiration TEXT DEFAULT 'Expiration Not Set',
  11. MachineNumber TEXT DEFAULT 'Machine Number Not Set',
  12. CanItDoSomethingVerySpecial TEXT DEFAULT no,
  13. MaxLogEntries INTEGER DEFAULT 5);
  14. INSERT OR IGNORE INTO Configuration DEFAULT VALUES;
  15. pragma table_info(Configuration);
  16. } {
  17. eval {
  18. proc set_$name {value} "db eval \{UPDATE Configuration SET $name = \$value;\}"
  19. proc get_$name {} "join \[db eval \{SELECT $name FROM Configuration;\}\]"
  20. }
  21. }
  22.