Mercurial > hg > egg-tcls
view create_tj_db.tcl @ 697:14d4d4300623
quotedb: When searching quotes, inform user if we found more matches than the max matches limit.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Mon, 18 Sep 2023 11:20:46 +0300 |
parents | 9596cd122639 |
children |
line wrap: on
line source
#!/usr/bin/tclsh # TCL script for creating (empty) TJ 2 SQLite3 database # # Written by Matti 'ccr' Hamalainen <ccr@tnsp.org> # (C) Copyright 2021 Tecnic Software productions (TNSP) # package require sqlite3 source [file dirname [info script]]/utillib.tcl set db_create_desc "Creates tables for tj.tcl in target SQLite3 file" set db_table_list {tj} proc db_create_table { dbh utable } { set sch {} lappend sch "id INTEGER PRIMARY KEY AUTOINCREMENT" # username this item belongs to lappend sch "uuser VARCHAR(32)" # created timestamp lappend sch "ucreated DATETIME" # updated timestamp lappend sch "uupdated DATETIME" # description lappend sch "udesc VARCHAR(1024)" # unique identifier for type 0 lappend sch "uid VARCHAR(32)" # target date/time lappend sch "utarget DATETIME" # 0 = TJ, 1 = one-time reminder, 2 = repeat reminder lappend sch "utype INT" utl_create_table dbh "$utable" [join $sch ","] } proc db_drop_table { dbh utable } { utl_drop_table dbh "$utable" } proc db_get_table_list { utable } { return [list $utable] } source [file dirname [info script]]/utilcreate.tcl