Add Ormin ORM support for BaraDB (Nim client)

clients/nim/ormin/examples/forum/config.nims

@@ -0,0 +1,2 @@
+--define: ssl
+--path:"$projectDir/../../../ormin"

clients/nim/ormin/examples/forum/forum.nim

@@ -0,0 +1,160 @@
+import ../../ormin, json
+
+importModel(DbBackend.sqlite, "forum_model")
+
+var db {.global.} = open("stuff", "", "", "")
+
+#var db: DbConn
+#proc getPrepStmt(idx: int): PStmt
+
+#var gPrepStmts: array[N, cstring]
+
+type inetType = string
+
+const
+  id = 90
+  ip = "moo"
+  answer = "dunno"
+  pw = "mypw"
+  email = "some@body.com"
+  salt = "pepper"
+  name = "me"
+  limit = 10
+  offset = 5
+
+let threads = query:
+  select thread(id, name, views, modified)
+  where id in (select post(thread) where author in
+      (select person(id) where status notin ("Spammer") or id == ?id))
+  orderby desc(modified)
+  limit ?limit
+  offset ?offset
+
+let thisThread = tryQuery:
+  select thread(id)
+  where id == ?id
+
+createIter allThreadIds:
+  select thread(id)
+  where id == ?id
+
+query:
+  delete antibot
+  where ip == ?ip
+
+query:
+  insert antibot(?ip, ?answer)
+
+let something = query:
+  select antibot(answer & answer, (if ip == "hi": 0 else: 1))
+  where ip == ?ip and answer =~ "%things%"
+  orderby desc(ip)
+  limit 1
+
+let myNewPersonId: int = query:
+  insert person(?name, password = ?pw, ?email, ?salt, status = !!"'EmailUnconfirmed'",
+         lastOnline = !!"DATETIME('now')")
+  returning id
+
+query:
+  delete session
+  where ip == ?ip and password == ?pw
+
+query:
+  update session(lastModified = !!"DATETIME('now')")
+  where ip == ?ip and password == ?pw
+
+let myj = %*{"pw": "stuff here"}
+
+let userId1 = query:
+  select session(userId)
+  where ip == ?ip and password == %myj["pw"]
+
+let (name9, email9, status, ban) = query:
+  select person(name, email, status, ban)
+  where id == ?id
+  limit 1
+
+let (idg, nameg, pwg, emailg, creationg, saltg, statusg, lastOnlineg, bang) = query:
+  select person(_)
+  where id == ?id
+  limit 1
+
+query:
+  update person(lastOnline = !!"DATETIME('now')")
+  where id == ?id
+
+query:
+  update thread(views = views + 1, modified = !!"DATETIME('now')")
+  where id == ?id
+
+query:
+  delete thread
+  where id notin (select post(thread))
+
+let (author, creation) = query:
+  select post(author)
+  join person(creation)
+  limit 1
+
+let (authorB, creationB) = query:
+  select post(author)
+  join person(creation) on author == id
+  limit 1
+
+let allPosts = query:
+  select post(count(_) as cnt)
+  where cnt > 0
+  produce json
+  limit 1
+
+createProc getAllThreadIds:
+  select thread(id)
+  where id == ?id
+  produce json
+
+let totalThreads = query:
+  select thread(count(_))
+  where id in (select post(thread) where author == ?id and id in (
+    select post(min(id)) groupby thread))
+  limit 1
+
+#query:
+#  update thread(modified = (select post(creation) where post.thread == ?thread
+#    orderby creation desc limit 1 ))
+
+#[
+  # Check if post is the first post of the thread.
+  let rows = db.getAllRows(sql("select id, thread, creation from post " &
+        "where thread = ? order by creation asc"), $c.threadId)
+
+  proc rateLimitCheck(c: var TForumData): bool =
+    sql("SELECT count(*) FROM post where author = ? and " &
+          "(strftime('%s', 'now') - strftime('%s', creation)) < 40")
+    sql("SELECT count(*) FROM post where author = ? and " &
+          "(strftime('%s', 'now') - strftime('%s', creation)) < 90")
+    sql("SELECT count(*) FROM post where author = ? and " &
+          "(strftime('%s', 'now') - strftime('%s', creation)) < 300")
+
+  sql "insert into thread(name, views, modified) values (?, 0, DATETIME('now'))"
+  sql "select id, name, password, email, salt, status, ban from person where name = ?"
+  sql "insert into session (ip, password, userid) values (?, ?, ?)",
+  sql"select password, salt, strftime('%s', lastOnline) from person where name = ?"
+  sql("delete from post where author = (select id from person where name = ?)")
+  sql("update person set status = ?, ban = ? where name = ?")
+  sql("update person set password = ?, salt = ? where name = ?")
+  sql"select count(*) from person"
+  sql"select count(*) from post"
+  sql"select count(*) from thread"
+  sql"select id, name, strftime('%s', lastOnline), strftime('%s', creation) from person"
+
+  sql"select count(*) from post where thread = ?"
+  sql"select count(*) from post p, person u where u.id = p.author and p.thread = ?"
+  sql"select name from thread where id = ?"
+  sql"select id from person where name = ?"
+  sql"select count(*) from post where author = ?"
+  sql("select count(*) from thread where id in (select thread from post where" &
+         " author = ? and post.id in (select min(id) from post group by thread))")
+  sql"""select strftime('%s', lastOnline), email, ban, status
+            from person where id = ?"""
+]#

clients/nim/ormin/examples/forum/forum_model.sql

@@ -0,0 +1,55 @@
+
+create table if not exists thread(
+  id integer primary key,
+  name varchar(100) not null,
+  views integer not null,
+  modified timestamp not null default (DATETIME('now'))
+);
+
+create unique index if not exists ThreadNameIx on thread (name);
+
+create table if not exists person(
+  id integer primary key,
+  name varchar(20) not null,
+  password varchar(32) not null,
+  email varchar(30) not null,
+  creation timestamp not null default (DATETIME('now')),
+  salt varchar(128) not null,
+  status varchar(30) not null,
+  lastOnline timestamp not null default (DATETIME('now')),
+  ban varchar(128) not null default ''
+);
+
+create unique index if not exists UserNameIx on person (name);
+
+create table if not exists post(
+  id integer primary key,
+  author integer not null,
+  ip inet not null,
+  header varchar(100) not null,
+  content varchar(1000) not null,
+  thread integer not null,
+  creation timestamp not null default (DATETIME('now')),
+
+  foreign key (thread) references thread(id),
+  foreign key (author) references person(id)
+);
+
+create table if not exists session(
+  id integer primary key,
+  ip inet not null,
+  password varchar(32) not null,
+  userid integer not null,
+  lastModified timestamp not null default (DATETIME('now')),
+  foreign key (userid) references person(id)
+);
+
+create table if not exists antibot(
+  id integer primary key,
+  ip inet not null,
+  answer varchar(30) not null,
+  created timestamp not null default (DATETIME('now'))
+);
+
+create index PersonStatusIdx on person(status);
+create index PostByAuthorIdx on post(thread, author);

clients/nim/ormin/examples/forum/forumproto.nim

@@ -0,0 +1,37 @@
+import ../../ormin, ../../ormin/serverws, json
+
+importModel(DbBackend.sqlite, "forum_model")
+
+var db {.global.} = open("stuff", "", "", "")
+
+protocol "forumclient.nim":
+  common:
+    when defined(js):
+      type kstring = cstring
+    else:
+      type kstring = string
+    type
+      inetType = kstring
+      varcharType = kstring
+      timestampType = kstring
+  server:
+    query:
+      delete antibot
+      where ip == %arg
+  client:
+    proc deleteAntibot(ip: string)
+  server:
+    query:
+      update session(lastModified = !!"DATETIME('now')")
+      where ip == %arg["ip"] and password == %arg["pw"]
+  client:
+    proc updateSession(arg: Session)
+  server:
+    let allSessions = query:
+      select session(_)
+    send(allSessions)
+  client:
+    type Session = ref object
+    var gSessions: seq[Session]
+    gSessions = recv()
+    proc getAllSessions()