word: category references (recursive selection)

[sheet.git] / tools / word.pg.sql

diff --git a/tools/word.pg.sql b/tools/word.pg.sql
index 4e5aca6d12a9017e21372e5b3d2b860cd9916af3..69ae03c0a071aea553d41846f1bc12278dc6d544 100644 (file)
--- a/tools/word.pg.sql
+++ b/tools/word.pg.sql
@@ -8,9 +8,9 @@ CREATE TABLE login (
 );
 
 CREATE TABLE word (
-       form       text        NOT NULL,
+       form       text,
        alt        text[],
-       lang       text        NOT NULL DEFAULT 'en',
+       lang       text                 DEFAULT 'en',
        cat        integer              REFERENCES word (id),
        ref        integer              REFERENCES word (id),
        prio       smallint             DEFAULT '1'
@@ -56,7 +56,7 @@ COMMENT ON COLUMN kind.truth      IS 'link validity ranging from 0 (never) to 10
 
 CREATE OR REPLACE FUNCTION exportform(word) RETURNS text AS $$
        SELECT concat(
-               $1.id, ':',
+               coalesce($1.ref, $1.id), ':',
                $1.prio, CASE WHEN $1.cover THEN 'c' ELSE '' END, ':',
                array_to_string($1.form || $1.alt, '/')
        );
@@ -78,6 +78,29 @@ CREATE OR REPLACE VIEW _word_ref AS
        FROM word r
        LEFT JOIN word w ON w.id = r.ref;
 
+CREATE OR REPLACE VIEW _word_tree AS
+       WITH RECURSIVE r AS (
+               SELECT w.ref, w.lang, w.cat, w.grade, NULL::int trans
+               FROM _word_ref w
+       UNION ALL
+               SELECT r.ref, r.lang, w.cat,
+                       CASE WHEN w.lang=r.lang OR t.lang=r.lang THEN r.grade ELSE w.grade END,
+                       CASE WHEN w.lang=r.lang OR t.lang=r.lang THEN w.id END
+               FROM r JOIN word w ON w.id = r.cat
+                 LEFT JOIN word t ON w.id = t.ref AND t.lang = r.lang
+               WHERE r.trans IS NULL
+       )
+       SELECT ref, lang, trans cat, grade FROM r WHERE trans IS NOT NULL
+               ORDER BY cat, grade, ref;
+
+CREATE OR REPLACE VIEW _word AS
+       SELECT
+               (SELECT array_agg(coalesce(ref, id)) FROM _word_tree
+                       WHERE cat = w.ref AND lang = w.lang) sub,
+               w.*
+       FROM _word_ref w
+       ;
+
 CREATE OR REPLACE VIEW _cat_words AS
        SELECT exportform(word.*) form, sub.*, word.lang, word.ref
        FROM word RIGHT JOIN (