prediction_tracker/code/create_database.rkt

#lang racket/base

;; This program creates a sqlite3 database and then creates an empty table
;; for predictions.

(require racket/date)
(require db)

; give us the date in YYYY-MM-DD format
(date-display-format 'iso-8601)

; create the database and create the table
(define (createdb dbloc)
  (write-string (string-append "Creating database " dbloc "\n"))
  (define conn (sqlite3-connect #:database dbloc
                                #:mode 'create))
  (query-exec conn "CREATE TABLE predictions (ID INTEGER NOT NULL,
date TEXT NOT NULL,
prediction TEXT DEFAULT NULL,
categories TEXT DEFAULT '',
forecast float DEFAULT NULL,
outcome int DEFAULT NULL,
comments TEXT DEFAULT '')")
  ; add a dummy entry
  (query-exec conn "INSERT INTO predictions (ID, date, prediction, outcome) values (0, ?, \"\",0)"
              (date->string (seconds->date (current-seconds))))
  (disconnect conn)
  (write-string (string-append "Database created at " dbloc "\n")))

; load configuration file
(require (file "../config.rkt"))

; make sure we can use the sqlite3 connection
(cond (not (sqlite3-available?))
      (error "Sqlite3 library not available."))

; create the database and add the `predictions` table if it doesn't exist
(if (not (file-exists? dbloc))
    (createdb dbloc)
    (write-string "Database exists. Exiting."))