| PostgreSQL 8.0.0 中文文档（PostgreSQL 中国制作） | ||||
|---|---|---|---|---|
| Prev | Fast Backward | Chapter 36. PL/Tcl - Tcl 过程语言 | Fast Forward | Next |
触发器过程可以用 PL/Tcl 写。PostgreSQL 要求当做触发器调用的过程必需声明为没有参数并且返回类型为 trigger 的函数。
触发器管理器传递给过程体的信息是通过下面变量传递的：
CREATE TRIGGER语句里的触发器名称。
导致触发器被调用的表的对象 ID。
以一个空表元素为前导的表中字段名称的 Tcl 列表。 所以用Tcl命令 lsearch在列表里查找元素名称时， 返回的从 1 开始计数的正整数，与PostgreSQL 里字段编号的传统一样。 （已经被删除掉的字段位置的空的列表元素仍然会出现，这样，属性编号与字段的对应就是正确的。）
由触发器调用事件决定的字符串BEFORE或AFTER。
由触发器调用事件决定的字符串ROW或STATEMENT。
由触发器调用事件决定的字符串INSERT，UPDATE或 DELETE。
一个关联数组，包含INSERT/UPDATE 动作的新表行，如果是DELETE则为空。 该数组是用字段名做索引的。那些为空的字段不会在数组中出现。
一个关联数组，包含UPDATE/DELETE 动作的新表行，如果是INSERT则为空。 该数组是用字段名做索引的。那些为空的字段不会在数组中出现。
如同在CREATE TRIGGER语句里给出的参数一样的 Tcl 参数表。 这些参数在过程体里可以通过$1...$n来访问。
触发器过程返回的值是字符串OK或SKIP之一， 或者一个象array get Tcl 命令返回的数组那样的东西。 如果返回值是OK，触发触发器的操作 （INSERT/UPDATE/DELETE）将会正常进行。 SKIP告诉触发器管理器不声不响地忽略该行的操作。 如果返回一个数组，那么它告诉 PL/Tcl 返回一个修改后的行给触发器管理器， 该行将代替在$NEW（只在INSERT/UPDATE 中起作用）中给出的行。 当然，这些只有在触发器是BEFORE和FOR EACH ROW时才有意义；否则返回值将被忽略。
下面是一个小的触发器过程的例子， 它强制表内的一个整数值对行的更新次数进行跟踪。 对插入的新行，该值初始化为 0 并且在每次更新操作中加一。
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 PROCEDURE trigfunc_modcount('modcnt');请注意触发器过程本身并不知道字段名字；那些是从触发器参数中提供的。这样就让我们可以将触发器过程复用于不同的表。