Administrace komentářů

Ještě před usnutím mě jedno řešení napdalo: vytvořím si pomocnou tabulku objekt_id, která bude obsahovat seznam ID objektů, a funkci zalozObjekt(), která vezme nové ID ze sekvence a zároveň založí záznam v objekt_id. Tuhle funkci použiji jako výchozí hodnotu sloupečku místo přímého selektování sekvence.

CREATE SEQUENCE komentar_seq
  INCREMENT 1
  MINVALUE 1
  MAXVALUE 9223372036854775807
  START 1
  CACHE 1;

CREATE SEQUENCE objekt_seq
  INCREMENT 1
  MINVALUE 1
  MAXVALUE 9223372036854775807
  START 2
  CACHE 1;

CREATE TABLE objekt_id
(
  id bigint NOT NULL,
  CONSTRAINT objekt_id_pk PRIMARY KEY (id),
  CONSTRAINT objekt_fk FOREIGN KEY (id)
      REFERENCES objekt_id (id) MATCH SIMPLE
      ON UPDATE NO ACTION ON DELETE NO ACTION
)
WITH (OIDS=FALSE);
COMMENT ON TABLE objekt_id IS 'Tabulka navíc, abychom obešli problém s PK a dědičností.
Žádná data, jen seznam primárních klíčů objektů';

CREATE OR REPLACE FUNCTION zalozobjekt()
  RETURNS bigint AS
$BODY$DECLARE id BIGINT;
BEGIN
    SELECT INTO id nextval('objekt_seq');
    INSERT INTO objekt_id VALUES (id);
    return id;
END;$BODY$
  LANGUAGE 'plpgsql' VOLATILE
  COST 100;

CREATE TABLE objekt
(
  id bigint NOT NULL DEFAULT zalozobjekt(), -- Identifikace jedinečná pro všechny objekty v systému
  nazev character varying, -- Název objektu
  CONSTRAINT objekt_pk PRIMARY KEY (id),
  CONSTRAINT clanek_fk FOREIGN KEY (id)
      REFERENCES objekt_id (id) MATCH SIMPLE
      ON UPDATE NO ACTION ON DELETE NO ACTION
)
WITH (OIDS=FALSE);
COMMENT ON COLUMN objekt.id IS 'Identifikace jedinečná pro všechny objekty v systému';
COMMENT ON COLUMN objekt.nazev IS 'Název objektu';

CREATE TABLE clanek
(
-- Inherited:   id bigint NOT NULL,
-- Inherited:   nazev character varying,
  "text" text, -- Text článku
  CONSTRAINT clanek_pk PRIMARY KEY (id)
)
INHERITS (objekt)
WITH (OIDS=FALSE);
COMMENT ON COLUMN clanek."text" IS 'Text článku';

CREATE TABLE komentar
(
  id bigint NOT NULL DEFAULT nextval('komentar_seq'::regclass),
  nadpis character varying NOT NULL,
  "text" text NOT NULL,
  objekt bigint NOT NULL,
  odpoved_na bigint,
  CONSTRAINT komentar_pk PRIMARY KEY (id),
  CONSTRAINT komentar_objekt_fk FOREIGN KEY (objekt)
      REFERENCES objekt_id (id) MATCH SIMPLE
      ON UPDATE NO ACTION ON DELETE NO ACTION,
  CONSTRAINT komentar_odpoved_fk FOREIGN KEY (odpoved_na)
      REFERENCES komentar (id) MATCH SIMPLE
      ON UPDATE NO ACTION ON DELETE NO ACTION
)
WITH (OIDS=FALSE);

CREATE INDEX fki_komentar_objekt_fk
  ON komentar
  USING btree
  (objekt);

CREATE INDEX fki_komentar_odpoved_fk
  ON komentar
  USING btree
  (odpoved_na);

CREATE OR REPLACE VIEW trida_objektu AS
 SELECT o.id, o.nazev, pg_class.relname
   FROM objekt o
   JOIN pg_class ON o.tableoid = pg_class.oid;

Zatím to vypadá, že to funguje – řeší to problém jedinečnosti ID přes předka a všechny potomky a problém s cizími klíči (např. navázání komentářů).
Ale přijde mi to jako dost velká obebávka, tak by mě zajímalo, co si o tom myslí Pavel Stěhule nebo někdo podobný