Mercurial > hg > egg-tcls
annotate create_feeds_db.tcl @ 664:586caf75fccc
utillib: Add utl_arg_rest helper.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Sat, 20 Feb 2021 17:44:49 +0200 |
parents | 47c174bfd9a2 |
children |
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 |