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;\}\]"
    }
}