add more migration code, rename codegen template

crossfire/codegen.rkt

@@ -39,7 +39,7 @@
 ;; and faster)
 
 ;; ok gamer move time
-(define-runtime-path codegen-template "codegen.template")
+(define-runtime-path codegen-template "codegen.rktc")
 (define (pattern-codegen pattern mode pp-start pp-end)
   (eval-template
     `(file ,(path->string codegen-template))

crossfire/migrations/20201113-add-initial-tables.sql

@@ -5,7 +5,15 @@
 -- @up {
 create table tasks (id integer primary key, name text not null, manifest blob not null);
 -- }
+-- @up {
+create table nodes (id integer primary key, name text not null,
+                    type text check(type in ("client", "agent")) not null,
+                    secret blob(32) not null)
+-- }
 
+-- @down {
+drop table nodes;
+-- }
 -- @down {
 drop table tasks;
 -- }

crossfire/protocol.rkt

@@ -39,6 +39,9 @@
 
 ;; this allows the server to be capable of migrating itself
 (define (migrate-server-db [db (current-db)])
+  ;; these are the steps taken by the north cli tool (it's a bit verbose but at least it's all
+  ;; programmatically accessible...)
+  ;; i also use a runtime path to be a bit more robust
   (define base (path->migration migrations-dir))
   (define adapter (sqlite-adapter db))
   (adapter-init adapter)
@@ -50,6 +53,8 @@
     (adapter-apply! adapter (migration-revision migration) (migration-up migration)))
   (void))
 
+(migrate-server-db (open-server-db 'create))
+
 (define (with-server-db proc)
   (parameterize ([current-db (open-server-db)])
     (proc)