From ddad67a8f715058d99b4ce7cf4153e5680552780 Mon Sep 17 00:00:00 2001
From: Helmut Merz <helmutm@cy55.de>
Date: Tue, 18 Feb 2020 16:16:20 +0100
Subject: [PATCH] function load_triple() basically working

---
 pgsql/fload.sql | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)

diff --git a/pgsql/fload.sql b/pgsql/fload.sql
index 08dc5d4..be647a3 100644
--- a/pgsql/fload.sql
+++ b/pgsql/fload.sql
@@ -33,3 +33,39 @@ begin
   return value;
 end;
 $$ language plpgsql;
+
+
+create or replace function load_triple(
+    stname text, stext text, ptext text,
+    otname text, otext text, event bigint) returns bigint as $$
+declare
+  st smallint;
+  sv bigint;
+  pred bigint;
+  ot smallint;
+  ov bigint;
+  trid bigint;
+begin
+  select dt.id into st from datatypes dt where dt.dtname = stname;
+  select dt.id into ot from datatypes dt where dt.dtname = otname;
+  sv := get_value(stname, stext);
+  pred := get_value(stname, ptext);
+  ov := get_value(otname, otext);
+  select tr.id into trid from triples tr
+    where stype = st and svalue = sv and predicate = pred 
+      and otype = ot and ovalue = ov;
+  if trid is null then
+    insert into triples (stype, svalue, predicate, otype, ovalue, creation)
+      values (st, sv, pred, ot, ov, event)
+      returning triples.id into trid;
+  end if;
+  return trid;
+end;
+$$ language plpgsql;
+
+
+create or replace function get_event(out evt bigint) as $$
+begin
+  insert into events default values returning id into evt;
+end;
+$$ language plpgsql;