Mercurial > hg > egg-tcls

annotate create_feeds_db.tcl @ 698:6ba9f961e463 default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
quotedb: Bump version and copyright.
author Matti Hamalainen <ccr@tnsp.org>
date Mon, 18 Sep 2023 11:38:41 +0300
parents 47c174bfd9a2
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
134
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1 #!/usr/bin/tclsh
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
2 # TCL script for creating (empty) Feeds SQLite3 database
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
3 #
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
4 # Written by Matti 'ccr' Hamalainen <ccr@tnsp.org>
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
5 # (C) Copyright 2013 Tecnic Software productions (TNSP)
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
6 #
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
7 package require sqlite3
262
416642f28d1e Rename util_convert.tcl to utillib.tcl
Matti Hamalainen <ccr@tnsp.org>
parents: 134
diff changeset
8 source [file dirname [info script]]/utillib.tcl
134
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
9
502
1255d524a919 Fix create_*.tcl database creation scripts after long period of being broken.
Matti Hamalainen <ccr@tnsp.org>
parents: 262
diff changeset
10 set db_create_desc "Creates tables for Feeds.tcl in target SQLite3 file"
1255d524a919 Fix create_*.tcl database creation scripts after long period of being broken.
Matti Hamalainen <ccr@tnsp.org>
parents: 262
diff changeset
11 set db_table_list {feeds}
134
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
12
502
1255d524a919 Fix create_*.tcl database creation scripts after long period of being broken.
Matti Hamalainen <ccr@tnsp.org>
parents: 262
diff changeset
13
1255d524a919 Fix create_*.tcl database creation scripts after long period of being broken.
Matti Hamalainen <ccr@tnsp.org>
parents: 262
diff changeset
14 proc db_create_table { dbh utable } {
554
47c174bfd9a2 Fix create_feeds_db.tcl schema.
Matti Hamalainen <ccr@tnsp.org>
parents: 502
diff changeset
15 utl_create_table dbh "$utable" "feed VARCHAR(64), utime INT, url VARCHAR(512), title VARCHAR(256)"
134
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
16 }
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
17
502
1255d524a919 Fix create_*.tcl database creation scripts after long period of being broken.
Matti Hamalainen <ccr@tnsp.org>
parents: 262
diff changeset
18 proc db_drop_table { dbh utable } {
1255d524a919 Fix create_*.tcl database creation scripts after long period of being broken.
Matti Hamalainen <ccr@tnsp.org>
parents: 262
diff changeset
19 utl_drop_table dbh "$utable"
134
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
20 }
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
21
502
1255d524a919 Fix create_*.tcl database creation scripts after long period of being broken.
Matti Hamalainen <ccr@tnsp.org>
parents: 262
diff changeset
22 proc db_get_table_list { utable } {
1255d524a919 Fix create_*.tcl database creation scripts after long period of being broken.
Matti Hamalainen <ccr@tnsp.org>
parents: 262
diff changeset
23 return [list $utable]
1255d524a919 Fix create_*.tcl database creation scripts after long period of being broken.
Matti Hamalainen <ccr@tnsp.org>
parents: 262
diff changeset
24 }
134
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
25
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
26
502
1255d524a919 Fix create_*.tcl database creation scripts after long period of being broken.
Matti Hamalainen <ccr@tnsp.org>
parents: 262
diff changeset
27 source [file dirname [info script]]/utilcreate.tcl