Trigger functions can be written in PL/Tcl. <productname>PostgreSQL</productname> requires that a function that is to be called as a trigger must be declared as a function with no arguments and a return type of <literal>trigger</literal>. トリガ関数をPL/Tclで作成することができます。 PostgreSQLでは、トリガとして呼び出される関数は、trigger型の戻り値を返す引数のない関数として宣言する必要があります。

The information from the trigger manager is passed to the function body in the following variables: トリガマネージャからの情報は、以下の変数内に格納されて関数本体に渡されます。

The return value from a trigger function can be one of the strings <literal>OK</literal> or <literal>SKIP</literal>, or a list of column name/value pairs. If the return value is <literal>OK</literal>, the operation (<command>INSERT</command>/<command>UPDATE</command>/<command>DELETE</command>) that fired the trigger will proceed normally. <literal>SKIP</literal> tells the trigger manager to silently suppress the operation for this row. If a list is returned, it tells PL/Tcl to return a modified row to the trigger manager; the contents of the modified row are specified by the column names and values in the list. Any columns not mentioned in the list are set to null. Returning a modified row is only meaningful for row-level <literal>BEFORE</literal> <command>INSERT</command> or <command>UPDATE</command> triggers, for which the modified row will be inserted instead of the one given in <varname>$NEW</varname>; or for row-level <literal>INSTEAD OF</literal> <command>INSERT</command> or <command>UPDATE</command> triggers where the returned row is used as the source data for <command>INSERT RETURNING</command> or <command>UPDATE RETURNING</command> clauses. In row-level <literal>BEFORE</literal> <command>DELETE</command> or <literal>INSTEAD OF</literal> <command>DELETE</command> triggers, returning a modified row has the same effect as returning <literal>OK</literal>, that is the operation proceeds. The trigger return value is ignored for all other types of triggers. トリガ関数からの戻り値は、OKという文字列、SKIPという文字列、列名/値の組のリスト、の内の1つを取ることができます。 戻り値がOKの場合、トリガを発行した操作（INSERT/UPDATE/DELETE）は正常に処理されます。 SKIPはトリガマネージャにこの行に対する操作を何も出力せずに中止するように通知します。 リストが返された場合は、PL/Tclに対し、変更した行をトリガマネージャに返すことを通知します。変更行の内容はリスト内の列名と値により指定されます。 リストで言及されなかった列は全てNULLが置かれます。 変更された行を返すことは、$NEW内で与えられる行ではなく変更された行が挿入される、行レベルのBEFORE INSERTまたはUPDATEトリガ、または、返される行がINSERT RETURNINGおよびUPDATE RETURNING句の元データとして使われる、行レベルのINSTEAD OF INSERTまたはUPDATEトリガでのみ有意です。 行レベルのBEFORE DELETEまたはINSTEAD OF DELETEトリガでは、変更された行が返されることがOKが返されるのと同じ効果を持ち、その操作は処理されます。 この他の種類のトリガでは戻り値は無視されます。

Here's a little example trigger function that forces an integer value in a table to keep track of the number of updates that are performed on the row. For new rows inserted, the value is initialized to 0 and then incremented on every update operation. ここで、テーブル内の整数値としてその行に対する更新数を記録させる、小さめのトリガプロシージャの例を示します。 新規の行が挿入された場合は、その値はゼロに初期化され、その後の各更新操作時に1が加算されます。

CREATE FUNCTION trigfunc_modcount() RETURNS trigger AS $$
    switch $TG_op {
        INSERT {
            set NEW($1) 0
        }
        UPDATE {
            set NEW($1) $OLD($1)
            incr NEW($1)
        }
        default {
            return OK
        }
    }
    return [array get NEW]
$$ LANGUAGE pltcl;

CREATE TABLE mytab (num integer, description text, modcnt integer);

CREATE TRIGGER trig_mytab_modcount BEFORE INSERT OR UPDATE ON mytab
    FOR EACH ROW EXECUTE FUNCTION trigfunc_modcount('modcnt');

Notice that the trigger function itself does not know the column name; that's supplied from the trigger arguments. This lets the trigger function be reused with different tables. トリガ関数自身は列名を認識していない点に注目してください。 これはトリガの引数として与えられます。 これにより、このトリガ関数を別のテーブルで再利用することができます。