PostgreSQL | ||
---|---|---|
Prev | Chapter 39. Triggers | Next |
もっと複雑な例が src/test/regress/regress.c と contrib/spi とにあります。
ここにトリガーの使い方のとても簡単な例があります。関数 trigf はトリガーされる関係 ttest の中のタップルの数を報告し、もし問い合わせが x の中に NULL を挿入しようとすると(例 - それは NOT NULL 拘束として動きますが トランザクションを中断はしません。)
#include "executor/spi.h" /* SPI で作業するためにこれが必要です */ #include "commands/trigger.h" /* それとトリガーに -"- */ HeapTuple trigf(void); HeapTuple trigf() { TupleDesc tupdesc; HeapTuple rettuple; char *when; bool checknull = false; bool isnull; int ret, i; if (!CurrentTriggerData) elog(WARN, "trigf: triggers are not initialized"); /* Executor へ返すためのタップル */ if (TRIGGER_FIRED_BY_UPDATE(CurrentTriggerData->tg_event)) rettuple = CurrentTriggerData->tg_newtuple; else rettuple = CurrentTriggerData->tg_trigtuple; /* NULL かどうか確認 ? */ if (!TRIGGER_FIRED_BY_DELETE(CurrentTriggerData->tg_event) && TRIGGER_FIRED_BEFORE(CurrentTriggerData->tg_event)) checknull = true; if (TRIGGER_FIRED_BEFORE(CurrentTriggerData->tg_event)) when = "before"; else when = "after "; tupdesc = CurrentTriggerData->tg_relation->rd_att; CurrentTriggerData = NULL; /* SPI 管理機構に接続 */ if ((ret = SPI_connect()) < 0) elog(WARN, "trigf (fired %s): SPI_connect returned %d", when, ret); /* 関係の中のタップルの数を取得 */ ret = SPI_exec("select count(*) from ttest", 0); if (ret < 0) elog(WARN, "trigf (fired %s): SPI_exec returned %d", when, ret); i = SPI_getbinval(SPI_tuptable->vals[0], SPI_tuptable->tupdesc, 1, &isnull); elog (NOTICE, "trigf (fired %s): there are %d tuples in ttest", when, i); SPI_finish(); if (checknull) { i = SPI_getbinval(rettuple, tupdesc, 1, &isnull); if (isnull) rettuple = NULL; } return (rettuple); }
さあ、コンパイルして、そして、 create table ttest (x int4); create function trigf () returns opaque as '...path_to_so' language 'c';
vac=> create trigger tbefore before insert or update or delete on ttest for each row execute procedure trigf(); CREATE vac=> create trigger tafter after insert or update or delete on ttest for each row execute procedure trigf(); CREATE vac=> insert into ttest values (null); NOTICE:trigf (fired before): there are 0 tuples in ttest INSERT 0 0 -- 挿入が飛ばされて、そして、後(AFTER)トリガーは発されない vac=> select * from ttest; x - (0 rows) vac=> insert into ttest values (1); NOTICE:trigf (fired before): there are 0 tuples in ttest NOTICE:trigf (fired after ): there are 1 tuples in ttest ^^^^^^^^ 可視性について述べたことを思い出して下さい。 INSERT 167793 1 vac=> select * from ttest; x - 1 (1 row) vac=> insert into ttest select x * 2 from ttest; NOTICE:trigf (fired before): there are 1 tuples in ttest NOTICE:trigf (fired after ): there are 2 tuples in ttest ^^^^^^^^ 可視性について述べたことを思い出して下さい。 INSERT 167794 1 vac=> select * from ttest; x - 1 2 (2 rows) vac=> update ttest set x = null where x = 2; NOTICE:trigf (fired before): there are 2 tuples in ttest UPDATE 0 vac=> update ttest set x = 4 where x = 2; NOTICE:trigf (fired before): there are 2 tuples in ttest NOTICE:trigf (fired after ): there are 2 tuples in ttest UPDATE 1 vac=> select * from ttest; x - 1 4 (2 rows) vac=> delete from ttest; NOTICE:trigf (fired before): there are 2 tuples in ttest NOTICE:trigf (fired after ): there are 1 tuples in ttest NOTICE:trigf (fired before): there are 1 tuples in ttest NOTICE:trigf (fired after ): there are 0 tuples in ttest ^^^^^^^^ 可視性について述べたことを思い出して下さい。 DELETE 2 vac=> select * from ttest; x - (0 rows)
Prev | Home | Next |
Visibility of Data Changes | Up | Server Programming Interface |