changes for new column

eavdb/eavdb.ss

@@ -37,8 +37,9 @@
 
 
 (define (upgrade-table db name)
-  (db-exec db (string-append "alter table " name " add version integer")))
-
+  (db-exec db (string-append "alter table " name " add version integer"))
+  (db-exec db (string-append "alter table " name " add sent integer default 0"))
+  )
 
 ;; create eav tables (add types as required)
 (define (setup db table)

eavdb/entity-insert.ss

@@ -54,7 +54,7 @@
   (db-exec db "begin transaction")
   (let ((id (db-insert
              db (string-append
-                 "insert into " table "_entity values (null, ?, ?, ?, ?)")
+                 "insert into " table "_entity (entity_id, entity_type, unique_id, dirty, version) values (null, ?, ?, ?, ?)")
              entity-type unique-id dirty version)))
 
     ;; create the attributes if they are new, and validate them if they exist
@@ -78,7 +78,7 @@
   (db-exec db "begin transaction")
   (let ((id (db-insert
              db (string-append
-                 "insert into " table "_entity values (?, ?, ?, ?, ?)")
+                 "insert into " table "_entity (entity_id, entity_type, unique_id, dirty, version) values (?, ?, ?, ?, ?)")
              id entity-type unique-id dirty version)))
 
     ;; create the attributes if they are new, and validate them if they exist

eavdb/entity-values.ss

@@ -41,7 +41,7 @@
       ((null? t)
        (msg "adding new attribute for" entity-type " called " key " of type " type)
        (db-insert
-        db (string-append "insert into " table "_attribute values (null, ?, ?, ?)")
+        db (string-append "insert into " table "_attribute (id, attribute_id, entity_type, attribute_type) values (null, ?, ?, ?)")
         key entity-type type)
        type)
       (else
@@ -58,7 +58,7 @@
 (define (insert-value db table entity-id ktv dirty)
   ;; use type to dispatch insert to correct value table
   (db-insert db (string-append "insert into " table "_value_" (ktv-type ktv)
-                               " values (null, ?, ?, ?, ?, 0)")
+                               "(id, entity_id, attribute_id, value, dirty, version) values (null, ?, ?, ?, ?, 0)")
              entity-id (ktv-key ktv) (ktv-value ktv) (if dirty 1 0)))
 
 ;; update the value given an entity type, a attribute type and it's key (= attriute_id)

web/run

@@ -1,4 +1,4 @@
 #!/bin/bash
-./server.scm 8888 >>client/htdocs/log.txt 2>&1
+./server.scm 8888 >client/htdocs/log.txt 2>&1
 
 

web/scripts/sql.ss

@@ -34,12 +34,13 @@
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
+;; fix this mess
 (define (db-open db-name setup-fn)
   (cond
     ((file-exists? (string->path db-name))
      (display "open existing db")(newline)
      (let ((db (open (string->path db-name))))
-       ;; upgrade...
+       ;; upgrade
        (setup-fn db "sync")
        (setup-fn db "stream")
        db))

web/server.scm

@@ -198,7 +198,7 @@
  start
  ;; port number is read from command line as argument
  ;; ie: ./server.scm 8080
-;; #:listen-ip "192.168.2.1"
+ #:listen-ip "192.168.2.1"
  #:port (string->number (command-line #:args (port) port))
  #:command-line? #t
  #:servlet-path "/mongoose"