#!/bin/env tclsh

package require sqlite3

proc fatal {reason {code -1}} {
  puts stderr "$argv0: fatal: $reason"
  exit $code
}

proc usage {} {
  global argv0
  puts stderr "usage: $argv0 DB-PATH"
  exit -1
}
if {[llength $argv] != 1} usage
set dbpath [lindex $argv 0]

if {[file exists $dbpath]} {
  fatal "refusing to overwrite \"$dbpath\""
}
if {[catch {sqlite3 db $dbpath}]} {
  fatal "can't open \"$dbpath\""
}

db eval {
  CREATE TABLE titles(name TEXT NOT NULL, href TEXT NOT NULL PRIMARY KEY, played TEXT, ignore INT NOT NULL DEFAULT 0, comment TEXT NOT NULL DEFAULT '');
  CREATE INDEX titles_name ON titles(name);
  CREATE INDEX titles_ignore ON titles(ignore);
}